公司考勤打卡管理系統(tǒng)

1、目 錄第1章概述21.1引言31.2開(kāi)發(fā)背景及意義31.3相關(guān)技術(shù)介紹3第2章系統(tǒng)需求分析52.1可行性分析52.2 功能需求6第3章總體設(shè)計(jì)73.1系統(tǒng)目標(biāo)設(shè)計(jì)73.2 系統(tǒng)功能模塊設(shè)計(jì)73.3數(shù)據(jù)庫(kù)設(shè)計(jì)8第4章 詳細(xì)設(shè)計(jì)134.1登陸窗體設(shè)計(jì)134.2 系統(tǒng)主菜單窗體設(shè)計(jì)和退出窗體設(shè)計(jì)154.3職員信息窗體設(shè)計(jì)184.4出差記錄窗體設(shè)計(jì)21214.5工作時(shí)間窗體設(shè)計(jì)22第5章 總結(jié)與體會(huì)24參考資料.25第1章概 述1.1 引言我國(guó)中小企業(yè)信息化水平一直處在比較初級(jí)的 階段，有關(guān)統(tǒng)計(jì)表明，真正具備計(jì)算機(jī)信息化比較高應(yīng)用水平的 企業(yè)在全國(guó)1000多萬(wàn)中小企業(yè)中所占的 比例還不足10%。然而，

2、隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的 不斷成熟，企業(yè)的 競(jìng)爭(zhēng)也在不斷的 加劇，同時(shí)企業(yè)組織管理觀(guān)念的 變革以及業(yè)務(wù)流程標(biāo)準(zhǔn)化也在不斷完善，中小企業(yè)信息化建設(shè)的 熱情近幾年來(lái)有了顯著的 提高。因此開(kāi)發(fā)一個(gè)高質(zhì)量的 考勤工資系統(tǒng)進(jìn)行企業(yè)管理尤為重要。 伴隨著計(jì)算機(jī)技術(shù)在各行各業(yè)日益廣泛和深入的 應(yīng)用，企業(yè)對(duì)員工的 考勤管理不在像過(guò)去一樣靠手工去做，在一些稍具規(guī)模的 企事業(yè)單位內(nèi)考勤也開(kāi)始信息化?？记谝?guī)則的 靈活定義，提供和多種考勤機(jī)的 接口，并可以手工錄入考勤記錄。本系統(tǒng)就是為了適應(yīng)這種要求而設(shè)計(jì)的 。集信息的 顯示、輸入、修改、刪除、查詢(xún)等各種處理為一體，信息維護(hù)起來(lái)非常方便。大大減少了公司的 人力和物力,為公司

3、的 考勤以及工資的 發(fā)放帶來(lái)很大的 便利。1.2 開(kāi)發(fā)背景及意義當(dāng)今社會(huì)，計(jì)算機(jī)已經(jīng)十分普及，性能也日趨完善。它已經(jīng)被應(yīng)用于許多領(lǐng)域。比如說(shuō)，小到圖書(shū)館的 圖書(shū)管理，超市或網(wǎng)吧的 收費(fèi)管理，KTV的 點(diǎn)歌系統(tǒng)，大到航空、鐵路的 售票，全國(guó)人口戶(hù)籍的 管理等等。隨著現(xiàn)代科技的 進(jìn)步，用計(jì)算機(jī)來(lái)進(jìn)行考勤的 管理也成為現(xiàn)代化企業(yè)運(yùn)作必不可少的 一部分。在過(guò)去我們的 考勤工作都是人工完成的 ，不僅浪費(fèi)了很多的 人力跟物力，而且無(wú)法保證其準(zhǔn)確性和透明度，給企業(yè)的 管理帶來(lái)了許多的 不便?，F(xiàn)在利用計(jì)算機(jī)來(lái)管理我們的 考勤工作，大大降低了工作人員的 工作量，提高了工作效率，使原本復(fù)雜和枯燥無(wú)味的 工作變得簡(jiǎn)

4、單而輕松了，而且也實(shí)用、安全。計(jì)算機(jī)技術(shù)特別是數(shù)據(jù)庫(kù)技術(shù)的 發(fā)展為企業(yè)建立管理信息系統(tǒng)，甚至對(duì)改變管理思想起著不可估量的 作用。實(shí)踐證明信息技術(shù)已在企業(yè)的 管理層面扮演越來(lái)越重要的 角色。通過(guò)考勤系統(tǒng)我們能很容易地對(duì)公司員工的 信息有一個(gè)基本的 了解，可以很方便地知道員工的 出勤情況，通過(guò)對(duì)員工出勤信息的 了解，就能計(jì)算出員工的 實(shí)際工資。一切的 統(tǒng)計(jì)和計(jì)算都由計(jì)算機(jī)代為管理了，考勤信息管理系統(tǒng)對(duì)企業(yè)的 合理化管理起到了很大的 作用，它為企業(yè)信息化的 建設(shè)打響了頭炮，而企業(yè)的 信息化建設(shè)已成為現(xiàn)代各個(gè)企業(yè)發(fā)展的 需要。所以說(shuō)，考勤管理系統(tǒng)的 開(kāi)發(fā)具有非常重要的 意義。1.3 相關(guān)技術(shù)介紹Mic

5、rosoft Access 2003是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng) (RDBMS)。Access數(shù)據(jù)庫(kù)是Microsoft Office 2000套件的 Professional版和Developer版的 一個(gè)組件，不需要單獨(dú)安裝。 與其他關(guān)系型數(shù)據(jù)庫(kù)一樣，MS Access充當(dāng)“后端”，它的 任務(wù)是存儲(chǔ)數(shù)據(jù)。除此之外，通過(guò)使用MS Access，用戶(hù)還可以創(chuàng)建“前端”或一種對(duì)用戶(hù)友好的 、頗受歡迎的 數(shù)據(jù)訪(fǎng)問(wèn)方式。Access數(shù)據(jù)庫(kù)由七個(gè)對(duì)象組成：表、查詢(xún)、窗體、報(bào)表、頁(yè)、宏以及模塊。數(shù)據(jù)庫(kù)中的 數(shù)據(jù)主要存儲(chǔ)在“表”中；“查詢(xún)”幫助用戶(hù)檢索基于某些條件的 特定數(shù)據(jù)；“窗體”幫助用戶(hù)創(chuàng)建用于輸入、

6、修改和操縱數(shù)據(jù)的 用戶(hù)界面；“報(bào)表”以某種格式顯示一個(gè)或多個(gè)表中的 數(shù)據(jù)，數(shù)據(jù)可以直接從表中提取，也可以是字段經(jīng)過(guò)某些計(jì)算的 結(jié)果，報(bào)表還提供良好的 打印效果；“宏”和“模塊”有用來(lái)計(jì)算、在應(yīng)用程序中導(dǎo)航以及打印報(bào)表等操作；“頁(yè)”有提供給瀏覽器Web頁(yè)的 形式查看數(shù)據(jù)庫(kù)中的 數(shù)據(jù)。而且它可以在單一的 數(shù)據(jù)庫(kù)文件中管理所有的 信息。在這個(gè)文件中，用戶(hù)可以將自己的 數(shù)據(jù)分別保存在各自獨(dú)立的 存儲(chǔ)空間中，這些空間稱(chēng)作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的 數(shù)據(jù)；使用查詢(xún)來(lái)查找并檢索所要的 數(shù)據(jù)；也可以使用報(bào)表以特定的 版面布置來(lái)分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，可以為每一種類(lèi)型的 信息創(chuàng)建一個(gè)

7、表。定義好各個(gè)表之間的 關(guān)系，就可以實(shí)現(xiàn)將查詢(xún)、窗體或報(bào)表中的 多個(gè)表中數(shù)據(jù)合并在一起。如果要搜索并檢索符合指定條件的 數(shù)據(jù)，包括來(lái)自多個(gè)表中的 數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢(xún)。查詢(xún)的 同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的 計(jì)算。如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，創(chuàng)建一個(gè)窗體。在打開(kāi)一個(gè)窗體時(shí)，MicrosoftAccess2000將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶(hù)在“窗體向?qū)А边x擇的 版面布局或所創(chuàng)建的 版面布局，將窗體顯示在屏幕上。如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的 方式打印出來(lái)，創(chuàng)建一個(gè)報(bào)表等等。第2章系統(tǒng)需求分析2.1可行性分析2.1.1技術(shù)可行性根據(jù)新系統(tǒng)目標(biāo)來(lái)

8、衡量所需的 技術(shù)是否具備，一般可從硬件、軟件的 性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析，其中開(kāi)發(fā)人員的 技術(shù)力量應(yīng)首先考慮能力與水平，并考慮近期內(nèi)可以培養(yǎng)和發(fā)展的 技術(shù)人員。2.1.2經(jīng)濟(jì)可行性估算新系統(tǒng)的 開(kāi)發(fā)費(fèi)用和今后的 運(yùn)行、維護(hù)費(fèi)用，估計(jì)新系統(tǒng)將獲得的 效益，并將費(fèi)用與效益進(jìn)行比較，看是否有利。開(kāi)發(fā)、運(yùn)行和維護(hù)費(fèi)用：主要包括購(gòu)買(mǎi)和安裝設(shè)備的 費(fèi)用：計(jì)算機(jī)硬件、系統(tǒng)軟件、機(jī)房、電源、空調(diào)等；軟件開(kāi)發(fā)費(fèi)用：若由本單位的 技術(shù)人員開(kāi)發(fā)，則該項(xiàng)費(fèi)用可以計(jì)入下面的 人員費(fèi)用一項(xiàng)；（1）人員費(fèi)用：系統(tǒng)開(kāi)發(fā)人員、操作人員和維護(hù)人員的 工資、培訓(xùn)費(fèi)用等；由于本項(xiàng)目的 特殊性該部分費(fèi)用

9、可節(jié)省。消耗品費(fèi)用：系統(tǒng)開(kāi)發(fā)所用材料、系統(tǒng)正常運(yùn)行所用消耗品，例如電費(fèi)、印紙、盤(pán)、開(kāi)發(fā)軟件等開(kāi)支；（2）其它費(fèi)用：系統(tǒng)的 效益可以從經(jīng)濟(jì)效益和社會(huì)效益兩方面考慮。對(duì)于公司員工出勤管理系統(tǒng)則應(yīng)著重分析其經(jīng)濟(jì)效益。例如，系統(tǒng)投入運(yùn)行后可以提供哪些以前無(wú)法及時(shí)提供的 信息，用戶(hù)查詢(xún)和使用信息的 方便程度提高多少、速度增加了多少，對(duì)于管理人員進(jìn)行決策提供了多少幫助等等，同時(shí)可以減少管理人員，從而節(jié)省了大量的 工資開(kāi)出。2.1.3 運(yùn)行可行性對(duì)新系統(tǒng)運(yùn)行后給現(xiàn)行系統(tǒng)帶來(lái)的 影響（包括組織機(jī)構(gòu)、管理方式、工作環(huán)境等）和后果進(jìn)行估計(jì)和評(píng)價(jià)。同時(shí)還應(yīng)考慮現(xiàn)有管理人員的 培訓(xùn)、補(bǔ)充，分析在給定時(shí)間里能否完成預(yù)定

10、的 系統(tǒng)開(kāi)發(fā)任務(wù)等。按上述三方面進(jìn)行可行性分析、研究后，我們認(rèn)為該項(xiàng)目是可行的 。2.2 功能需求 該系統(tǒng)主要分為五大功能：系統(tǒng)管理、新增、修改、查詢(xún)和系統(tǒng)維護(hù)。 員工信息管理功能模塊包括新增員工的 信息，修改員工信息，查詢(xún)員工信息。該功能模塊是對(duì)系統(tǒng)的 初始化，對(duì)員工有基本信息進(jìn)行管理和維護(hù)。考慮到單位人較多，設(shè)置了員工基本信息查詢(xún)，操作人員可以按員工編號(hào)、姓名和部門(mén)進(jìn)行查詢(xún)，并對(duì)查詢(xún)結(jié)果進(jìn)行維護(hù)，從面減少了操作人員的 工作強(qiáng)度。該模塊的 主要功能是對(duì)該單位的 員工的 基本信息進(jìn)行管理，并能夠?qū)T工的 基本信息進(jìn)行查詢(xún)，便于修改和刪除。第3章總體設(shè)計(jì)3.1系統(tǒng)目標(biāo)設(shè)計(jì)本系統(tǒng)是實(shí)現(xiàn)對(duì)員工上下班

11、時(shí)間的 設(shè)定，員工出入單位情況的 記錄，請(qǐng)假、加班、出差情況的 記錄，還有每個(gè)月底進(jìn)行整個(gè)月出勤情況的 統(tǒng)計(jì)。考勤系統(tǒng)記錄了員工上下班的 情況，為工資管理直接提供每個(gè)月工作時(shí)間的 統(tǒng)計(jì)結(jié)果，用以計(jì)算工資。同時(shí)考勤系統(tǒng)也需要其他系統(tǒng)提供的 員工、部門(mén)信息。3.2 系統(tǒng)功能模塊設(shè)計(jì)員工考勤管理系統(tǒng)模塊主要包括考勤管理、基本信息和考勤統(tǒng)計(jì)3個(gè)功能模塊。（1）基本信息：用于完成對(duì)員工基本信息資料的 管理，包括對(duì)員工信息的 添加，修改，刪除等基本操作。或者用于查看員工的 基本信息。還有工作時(shí)間的 修改和默認(rèn)。（2）考勤統(tǒng)計(jì)：用于完成對(duì)員工的 的 各種信息的 統(tǒng)計(jì)。統(tǒng)計(jì)出差時(shí)間，加班時(shí)間，缺勤時(shí)間和次數(shù)等

12、。（3）考勤管理：對(duì)員工考勤信息的 進(jìn)行記錄和查詢(xún)。出差，出勤，加班，缺勤情況是該功能的 子功能，主要用于對(duì)員工的 日?？记诘?記錄管理。考勤管理系統(tǒng)考勤管理基本信息考勤統(tǒng)計(jì)請(qǐng)假記錄出勤記錄出差記錄工作時(shí)間職工信息職員考勤統(tǒng)計(jì)搜索考勤記錄加班記錄圖3-1 系統(tǒng)功能模塊3.3數(shù)據(jù)庫(kù)設(shè)計(jì)3.3.1 數(shù)據(jù)庫(kù)需求分析出勤記錄：出勤記錄編號(hào)、職工編號(hào)、出勤狀況、出勤日期、出勤時(shí)間。請(qǐng)假記錄：請(qǐng)假記錄編號(hào)、職員編號(hào)、開(kāi)始日期、結(jié)束日期、假期類(lèi)別、請(qǐng)假原因。加班記錄：加班記錄編號(hào)、職員編號(hào)、加班日期、加班時(shí)間、加班說(shuō)明。出差記錄：出差記錄編號(hào)、職員編號(hào)、開(kāi)始時(shí)間、結(jié)束時(shí)間、附加說(shuō)明?？记诮y(tǒng)計(jì)：考勤記錄編號(hào)、

13、職員編號(hào)、公休天數(shù)、事假天數(shù)、病假天數(shù)、加班天數(shù)、遲到次數(shù)、早退次數(shù)、記錄日期。所需的 外部數(shù)據(jù)支持：職工信息：職員編號(hào)、職位、性別、姓名、郵政編碼、職員相片等。公司部門(mén)：部門(mén)編號(hào)、部門(mén)名稱(chēng)等。Password：uname、upass、管理員編號(hào)、部門(mén)編號(hào)。工作時(shí)間：上午上班時(shí)間、上午下班時(shí)間、下午上班時(shí)間、下午下班時(shí)間。3.3.2 數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)根據(jù)上面的 需求分析，總共需要9個(gè)工作表的 數(shù)據(jù)支持：出勤記錄表、請(qǐng)假記錄表、加班記錄表、出差記錄表、考勤統(tǒng)計(jì)表、工作時(shí)間表、password表、職工信息表和公司部門(mén)表。這9個(gè)表的 結(jié)構(gòu)如圖所示。 表3-1工作時(shí)間表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小是否為必讀

14、字段格式上午上班時(shí)間日期/時(shí)間是短時(shí)間上午下班時(shí)間日期/時(shí)間是短時(shí)間下午上班時(shí)間日期/時(shí)間是短時(shí)間下午下班時(shí)間日期/時(shí)間是短時(shí)間表3-2加班記錄表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注加班記錄編號(hào)自動(dòng)編號(hào)長(zhǎng)整型關(guān)鍵字職員編號(hào)數(shù)字長(zhǎng)整型是加班日期日期/時(shí)間是加班時(shí)間日期/時(shí)間是加班說(shuō)明文本255否表3-3職員信息表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小是否為必填字段備注職員編號(hào)自動(dòng)編號(hào)長(zhǎng)整型否關(guān)鍵字姓名文本50是部門(mén)編號(hào)數(shù)字50否職位文本50否性別文本4否民族文本4否出生日期日期/時(shí)間否婚姻狀況文本30否教育程度文本50否部門(mén)電話(huà)文本50否住所電話(huà)文本50否移動(dòng)電話(huà)文本50否通訊地址文本255否郵政編碼數(shù)

15、字長(zhǎng)整型否職員相片OLE對(duì)象長(zhǎng)整型否表3-4考勤統(tǒng)計(jì)表字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注考勤統(tǒng)計(jì)編號(hào)文本50是關(guān)鍵字職員編號(hào)數(shù)字長(zhǎng)整型是公休天數(shù)數(shù)字長(zhǎng)整型是事假天數(shù)數(shù)字長(zhǎng)整型是病假天數(shù)數(shù)字長(zhǎng)整型是加班天數(shù)數(shù)字長(zhǎng)整型是遲到次數(shù)數(shù)字長(zhǎng)整型是早退次數(shù)數(shù)字長(zhǎng)整型是記錄日期日期/時(shí)間是表3-5password字段名稱(chēng)數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注管理員編號(hào)數(shù)字長(zhǎng)整型是關(guān)鍵字UNAME文本50是UPASS文本50是部門(mén)編號(hào)數(shù)字長(zhǎng)整型是表3-6公司部門(mén)字段大小數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注部門(mén)編號(hào)自動(dòng)編號(hào)長(zhǎng)整型關(guān)鍵字部門(mén)名稱(chēng)文本50是表3-7請(qǐng)假記錄表字段大小數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備

16、注請(qǐng)假記錄編號(hào)自動(dòng)編號(hào)長(zhǎng)整型關(guān)鍵字職員編號(hào)數(shù)字長(zhǎng)整型是開(kāi)始日期日期/時(shí)間是結(jié)束日期日期/時(shí)間是請(qǐng)假類(lèi)別文本20是請(qǐng)假原因文本255是表3-8出差記錄表字段大小數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注出差記錄編號(hào)自動(dòng)編號(hào)長(zhǎng)整型關(guān)鍵字職員編號(hào)數(shù)字長(zhǎng)整型是開(kāi)始日期日期/時(shí)間是結(jié)束日期日期/時(shí)間是附加說(shuō)明備注否表3-9出勤記錄表字段大小數(shù)據(jù)類(lèi)型字段大小是否為必讀字段備注出勤記錄編號(hào)數(shù)字長(zhǎng)整型關(guān)鍵字職員編號(hào)數(shù)字長(zhǎng)整型是出勤狀況文本20是出勤日期日期/時(shí)間是出勤時(shí)間日期/時(shí)間否3.3.3數(shù)據(jù)表（1）職工信息表圖3-2職工信息表（2）加班記錄表圖3-3加班記錄表（3）公司部門(mén)表 圖3-4公司部門(mén)表（4）工作時(shí)間表

17、圖3-5工作時(shí)間表第4章 詳細(xì)設(shè)計(jì)4.1登陸窗體設(shè)計(jì)登陸時(shí)，用戶(hù)名有幾個(gè)下拉的 選擇，可以選擇用USER1或用USER2等，然后輸入密碼。密碼正確，會(huì)出現(xiàn)“歡迎使用本系統(tǒng)”的 提示。密碼不正確時(shí)，會(huì)出現(xiàn)“沒(méi)有該用戶(hù)”的 提示。若是沒(méi)有輸入用戶(hù)名或密碼，會(huì)出現(xiàn)“必須輸入用戶(hù)名和口令”提示。如圖4-1，4-2，4-3。圖4-1 成功登錄 【登錄系統(tǒng)界面】窗體圖4-2 沒(méi)有輸入密碼時(shí)【登錄系統(tǒng)界面】窗體圖4-3 密碼輸入錯(cuò)誤時(shí)【登錄系統(tǒng)界面】窗體（1）【登錄】按鈕的 【單擊】事件的 代碼如下：Private Sub Combo12_AfterUpdate() Forms!登錄系統(tǒng)界面!Text14

18、= End SubPrivate Sub Command16_Click() Dim Cond As String Dim ps As String If IsNull(Forms!登錄系統(tǒng)界面!Combo12) Or IsNull(Forms!登錄系統(tǒng)界面!Text14) Then MsgBox 必須輸入用戶(hù)名/口令, vbOKOnly, 信息提示 Exit Sub End If Cond = uname= + Forms!登錄系統(tǒng)界面!Combo12 + ps = DLookup(upass, password, Cond) If (ps Forms!登錄系統(tǒng)界面!Text14) Then

19、 MsgBox 不存在該用戶(hù), vbOKOnly, 信息提示 Else MsgBox 歡迎使用本系統(tǒng), vbOKOnly, 信息提示 End IfEnd SubPrivate Sub Form_Load() Forms!登錄系統(tǒng)界面!Combo12 = Forms!登錄系統(tǒng)界面!Text14 = End Sub（2）【退出】按鈕的 【單擊】事件的 代碼如下：Private Sub 退出_Click()DoCmd.CloseEnd Sub4.2 系統(tǒng)主菜單窗體設(shè)計(jì)和退出窗體設(shè)計(jì)主菜單窗體時(shí)，點(diǎn)哪一個(gè)命令，就會(huì)出現(xiàn)那個(gè)命令按鈕的 窗體。如圖4-4。退出窗體相對(duì)來(lái)說(shuō)就比較簡(jiǎn)單了。主要是提示用戶(hù)是不是

20、真的 要退出，以防止用戶(hù)不小心點(diǎn)了退出其余并不是想現(xiàn)在退出。如圖圖4-4 【職員考勤主界面】窗體圖4-5 【退出系統(tǒng)】窗體（1）【由于出差，加班，請(qǐng)假記錄代碼類(lèi)似，這里就不一一列舉，只寫(xiě)出勤的 代碼】【出勤記錄】按鈕的 【單擊】事件的 代碼如下：Private Sub 出勤記錄_Click()On Error GoTo Err_出勤記錄_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 出勤記錄 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_出勤記錄_

21、Click: Exit SubErr_出勤記錄_Click: MsgBox Err.Description Resume Exit_出勤記錄_Click End Sub（2）【職員考勤統(tǒng)計(jì)】按鈕的 【單擊】事件的 代碼如下：Private Sub 職員考勤統(tǒng)計(jì)_Click()On Error GoTo Err_職員考勤統(tǒng)計(jì)_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 職員考勤統(tǒng)計(jì) DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_職員考勤統(tǒng)計(jì)_Cli

22、ck: Exit SubErr_職員考勤統(tǒng)計(jì)_Click: MsgBox Err.Description Resume Exit_職員考勤統(tǒng)計(jì)_ClickEnd Sub（3）【職員信息】按鈕的 【單擊】事件的 代碼如下：Private Sub 職員信息_Click()On Error GoTo Err_職員信息_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = 職員信息 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_職員信息_Click: Exit S

23、ubErr_職員信息_Click: MsgBox Err.Description Resume Exit_職員信息_Click End Sub（4）【工作時(shí)間】按鈕的 【單擊】事件的 代碼如下：Private Sub 工作時(shí)間_Click()On Error GoTo Err_工作時(shí)間_Click Dim stDocName As String Dim stLinkCriteria As StringstDocName = 工作時(shí)間 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_工作時(shí)間_Click: Exit SubErr_工作時(shí)間_Cli

24、ck: MsgBox Err.Description Resume Exit_工作時(shí)間_ClickEnd Sub（5）【搜索考勤記錄】按鈕的 【單擊】事件的 代碼如下：Private Sub 搜索考勤記錄_Click()On Error GoTo Err_搜索考勤記錄_Click Dim stDocName As String Dim stLinkCriteria As StringstDocName = 搜索考勤記錄 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_搜索考勤記錄_Click: Exit SubErr_搜索考勤記錄_Click:

25、 MsgBox Err.Description Resume Exit_搜索考勤記錄_Click End Sub（6）【退出系統(tǒng)】按鈕的 【單擊】事件的 代碼如下：Private Sub 退出系統(tǒng)_Click()On Error GoTo Err_退出系統(tǒng)_ClickIf MsgBox( 您確定需要退出職員考勤系統(tǒng)嗎? 按是確定 按否取消 , vbQuestion + vbYesNo) = vbYes Then DoCmd.Quit acQuitSaveAll End If Exit_退出系統(tǒng)_Click: Exit SubErr_退出系統(tǒng)_Click: MsgBox Err.Descript

26、ion Resume Exit_退出系統(tǒng)_Click End Sub4.3職員信息窗體設(shè)計(jì)職員信息主要是職員的 信息進(jìn)行添加、保存、修改、刪除、查詢(xún)。員工的 信息主要包含工號(hào)、姓名、性別、年齡、部門(mén)、職位、備注。單擊職員信息窗體中的 添加職員可進(jìn)入員工信息的 添加，添加成功會(huì)出現(xiàn)在職員列表的 菜單中。如圖4-6。如果操作錯(cuò)誤，會(huì)彈出提示信息，指導(dǎo)操作人員的 添加操作。還有一重要功能就是對(duì)員工信息的 查詢(xún)，這主要會(huì)在查詢(xún)窗體中體現(xiàn)。 這是沒(méi)有添加任何信息的 窗體如圖4-6。圖4-6 【職員信息】窗體在窗體中添加“劉五的 信息”的 后窗體，劉五的 信息已經(jīng)出現(xiàn)在職員列表中，說(shuō)明已經(jīng)添加成功。圖4-

27、7單擊【添加職員】按鈕時(shí)添加的 打算刪除劉五的 信息，會(huì)出現(xiàn)如下圖4-8所示。點(diǎn)擊“是”后，職員列表的 會(huì)出現(xiàn)“已刪除”的 提示。圖4-8 單擊【刪除職員】按鈕時(shí)的 窗體這是“刪除劉五信息”后的 窗體。如圖4-9。圖4-9 【刪除職員】后的 窗體（1）【添加職員】按鈕的 【單擊】事件的 代碼如下：Private Sub 添加職員_Click()On Error GoTo Err_添加職員_Click DoCmd.GoToRecord , , acNewRecExit_添加職員_Click: Exit SubErr_添加職員_Click: MsgBox Err.Description Resum

28、e Exit_添加職員_ClickEnd Sub（2）【刪除職員】按鈕的 【單擊】事件的 代碼如下：Private Sub 刪除職員_Click()On Error GoTo Err_刪除職員_Click DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70Exit_刪除職員_Click: Exit SubErr_刪除職員_Click: MsgBox Err.Description Resume Exit_刪除職員_Cli

29、ckEnd Sub（3）【撤銷(xiāo)記錄】按鈕的 【單擊】事件的 代碼如下：Private Sub 撤銷(xiāo)記錄_Click()On Error GoTo Err_撤銷(xiāo)記錄_Click DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70Exit_撤銷(xiāo)記錄_Click: Exit SubErr_撤銷(xiāo)記錄_Click: MsgBox Err.Description Resume Exit_撤銷(xiāo)記錄_ClickEnd Sub（4）【保存記錄】按鈕的 【單擊】事件的 代碼如下：Private Sub 保存記錄_Click()On Error

30、 GoTo Err_保存記錄_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70Exit_保存記錄_Click: Exit SubErr_保存記錄_Click: MsgBox Err.Description Resume Exit_保存記錄_ClickEnd Sub（5）【關(guān)閉窗體】按鈕的 【單擊】事件的 代碼如下：Private Sub 關(guān)閉窗體_Click()On Error GoTo Err_關(guān)閉窗體_Click DoCmd.CloseExit_關(guān)閉窗體_Click: Exit SubE

31、rr_關(guān)閉窗體_Click: MsgBox Err.Description Resume Exit_關(guān)閉窗體_ClickEnd Sub4.4出差記錄窗體設(shè)計(jì)出差記錄窗體和出勤記錄窗體，加班記錄窗體，請(qǐng)假記錄窗體一樣，這里就不列舉出來(lái)，用出差記錄窗體代表，主要是對(duì)出差的 的 人員進(jìn)行添加、保存、修改、刪除。這個(gè)窗體的 代碼與上面一個(gè)代碼類(lèi)似，就不列出來(lái)了。在【出差記錄】窗體中添加信息，然后點(diǎn)擊【出差記錄子窗體】會(huì)要你輸入職員編號(hào)，然后點(diǎn)【確定】，會(huì)出現(xiàn)一個(gè)表，你添加的 內(nèi)容，就會(huì)看到。如下圖4-10，4-11，4-12所示。圖4-10 單擊【添加記錄】添加的 內(nèi)容輸入職員編號(hào)4.圖4-11 【輸

32、入?yún)?shù)值】窗體圖4-12 【出差記錄子窗體】4.5工作時(shí)間窗體設(shè)計(jì)工作時(shí)間中的 默認(rèn)時(shí)間是一開(kāi)始就設(shè)置的 ，而后的 修改時(shí)間是自行輸入的 。如果點(diǎn)擊【修改工作時(shí)間】，先輸入數(shù)字，成功會(huì)出“已經(jīng)成功修改時(shí)間！”的 提示；點(diǎn)擊【恢復(fù)默認(rèn)時(shí)間】，會(huì)出現(xiàn)“已經(jīng)恢復(fù)默認(rèn)時(shí)間”的 提示。如圖4-13，4-14所示。 圖4-13 【修改工作時(shí)間】窗體 圖4-14 【恢復(fù)默認(rèn)時(shí)間】窗體（1）【恢復(fù)默認(rèn)時(shí)間】按鈕的 【單擊】事件的 代碼如下：Private Sub 恢復(fù)默認(rèn)時(shí)間_Click()On Error GoTo Err_恢復(fù)默認(rèn)時(shí)間_Click Me!上午上班時(shí)間 = 9:00 Me!上午下班時(shí)間 =

33、12:00 Me!下午上班時(shí)間 = 13:00 Me!下午下班時(shí)間 = 18:00 MsgBox 已經(jīng)恢復(fù)為默認(rèn)時(shí)間！, vbOKOnly, 恢復(fù)默認(rèn)時(shí)間Exit_恢復(fù)默認(rèn)時(shí)間_Click: Exit SubErr_恢復(fù)默認(rèn)時(shí)間_Click: MsgBox Err.Description Resume Exit_恢復(fù)默認(rèn)時(shí)間_ClickEnd Sub（2）【修改時(shí)間】按鈕的 【單擊】事件的 代碼如下：Private Sub 修改工作時(shí)間_Click()On Error GoTo Err_修改工作時(shí)間_ClickDim stDocName As StringstDocName = ChrW(26356) & ChrW(26032) & ChrW(26102) & ChrW(-27148)DoCmd.OpenQuery stDocName, acNormal, acEdit MsgBox 已經(jīng)成功修改工作時(shí)間！, vbOKOnly,