考勤管理系統(tǒng)畢業(yè)論文

1、目錄第1章概述21.1引言31.2開發(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ù)庫設(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é)與體會24參考資料.25第1章概述1.1 引言我國中小企業(yè)信息化水平一直處在比較初級的階段，有關(guān)統(tǒng)計(jì)表明，真正具備計(jì)算機(jī)信息化比較高應(yīng)用水平的企業(yè)在全國1000多萬中小企業(yè)中所占的比例還不足10%。然而，隨著我國市

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

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

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

5、oft Office 2000套件的Professional版和Developer版的一個(gè)組件，不需要單獨(dú)安裝。 與其他關(guān)系型數(shù)據(jù)庫一樣，MS Access充當(dāng)“后端”，它的任務(wù)是存儲數(shù)據(jù)。除此之外，通過使用MS Access，用戶還可以創(chuàng)建“前端”或一種對用戶友好的、頗受歡迎的數(shù)據(jù)訪問方式。Access數(shù)據(jù)庫由七個(gè)對象組成：表、查詢、窗體、報(bào)表、頁、宏以及模塊。數(shù)據(jù)庫中的數(shù)據(jù)主要存儲在“表”中；“查詢”幫助用戶檢索基于某些條件的特定數(shù)據(jù)；“窗體”幫助用戶創(chuàng)建用于輸入、修改和操縱數(shù)據(jù)的用戶界面；“報(bào)表”以某種格式顯示一個(gè)或多個(gè)表中的數(shù)據(jù)，數(shù)據(jù)可以直接從表中提取，也可以是字段經(jīng)過某些計(jì)算的結(jié)果，

6、報(bào)表還提供良好的打印效果；“宏”和“模塊”有用來計(jì)算、在應(yīng)用程序中導(dǎo)航以及打印報(bào)表等操作；“頁”有提供給瀏覽器Web頁的形式查看數(shù)據(jù)庫中的數(shù)據(jù)。而且它可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，可以為每一種類型的信息創(chuàng)建一個(gè)表。定義好各個(gè)表之間的關(guān)系，就可以實(shí)現(xiàn)將查詢、窗體或報(bào)表中的多個(gè)表中數(shù)據(jù)合并在一起。如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要創(chuàng)建查

7、詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 2000將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，創(chuàng)建一個(gè)報(bào)表等等。第2章系統(tǒng)需求分析2.1可行性分析2.1.1技術(shù)可行性根據(jù)新系統(tǒng)目標(biāo)來衡量所需的技術(shù)是否具備，一般可從硬件、軟件的性能要求、環(huán)境條件、技術(shù)人員水平和數(shù)量等方面去考慮和分析，其中開發(fā)人員的技術(shù)力量應(yīng)首先考慮能力與水平，并

8、考慮近期內(nèi)可以培養(yǎng)和發(fā)展的技術(shù)人員。2.1.2經(jīng)濟(jì)可行性估算新系統(tǒng)的開發(fā)費(fèi)用和今后的運(yùn)行、維護(hù)費(fèi)用，估計(jì)新系統(tǒng)將獲得的效益，并將費(fèi)用與效益進(jìn)行比較，看是否有利。開發(fā)、運(yùn)行和維護(hù)費(fèi)用：主要包括購買和安裝設(shè)備的費(fèi)用：計(jì)算機(jī)硬件、系統(tǒng)軟件、機(jī)房、電源、空調(diào)等；軟件開發(fā)費(fèi)用：若由本單位的技術(shù)人員開發(fā)，則該項(xiàng)費(fèi)用可以計(jì)入下面的人員費(fèi)用一項(xiàng)；（1）人員費(fèi)用：系統(tǒng)開發(fā)人員、操作人員和維護(hù)人員的工資、培訓(xùn)費(fèi)用等；由于本項(xiàng)目的特殊性該部分費(fèi)用可節(jié)省。消耗品費(fèi)用：系統(tǒng)開發(fā)所用材料、系統(tǒng)正常運(yùn)行所用消耗品，例如電費(fèi)、印紙、盤、開發(fā)軟件等開支；（2）其它費(fèi)用：系統(tǒng)的效益可以從經(jīng)濟(jì)效益和社會效益兩方面考慮。對于公司員工

9、出勤管理系統(tǒng)則應(yīng)著重分析其經(jīng)濟(jì)效益。例如，系統(tǒng)投入運(yùn)行后可以提供哪些以前無法及時(shí)提供的信息，用戶查詢和使用信息的方便程度提高多少、速度增加了多少，對于管理人員進(jìn)行決策提供了多少幫助等等，同時(shí)可以減少管理人員，從而節(jié)省了大量的工資開出。2.1.3 運(yùn)行可行性對新系統(tǒng)運(yùn)行后給現(xiàn)行系統(tǒng)帶來的影響（包括組織機(jī)構(gòu)、管理方式、工作環(huán)境等）和后果進(jìn)行估計(jì)和評價(jià)。同時(shí)還應(yīng)考慮現(xiàn)有管理人員的培訓(xùn)、補(bǔ)充，分析在給定時(shí)間里能否完成預(yù)定的系統(tǒng)開發(fā)任務(wù)等。按上述三方面進(jìn)行可行性分析、研究后，我們認(rèn)為該項(xiàng)目是可行的。2.2 功能需求 該系統(tǒng)主要分為五大功能：系統(tǒng)管理、新增、修改、查詢和系統(tǒng)維護(hù)。 員工信息管理功能模塊包括

10、新增員工的信息，修改員工信息，查詢員工信息。該功能模塊是對系統(tǒng)的初始化，對員工有基本信息進(jìn)行管理和維護(hù)?？紤]到單位人較多，設(shè)置了員工基本信息查詢，操作人員可以按員工編號、姓名和部門進(jìn)行查詢，并對查詢結(jié)果進(jìn)行維護(hù)，從面減少了操作人員的工作強(qiáng)度。該模塊的主要功能是對該單位的員工的基本信息進(jìn)行管理，并能夠?qū)T工的基本信息進(jìn)行查詢，便于修改和刪除。第3章總體設(shè)計(jì)3.1系統(tǒng)目標(biāo)設(shè)計(jì)本系統(tǒng)是實(shí)現(xiàn)對員工上下班時(shí)間的設(shè)定，員工出入單位情況的記錄，請假、加班、出差情況的記錄，還有每個(gè)月底進(jìn)行整個(gè)月出勤情況的統(tǒng)計(jì)?？记谙到y(tǒng)記錄了員工上下班的情況，為工資管理直接提供每個(gè)月工作時(shí)間的統(tǒng)計(jì)結(jié)果，用以計(jì)算工資。同時(shí)考勤系

11、統(tǒng)也需要其他系統(tǒng)提供的員工、部門信息。3.2 系統(tǒng)功能模塊設(shè)計(jì)員工考勤管理系統(tǒng)模塊主要包括考勤管理、基本信息和考勤統(tǒng)計(jì)3個(gè)功能模塊。（1）基本信息：用于完成對員工基本信息資料的管理，包括對員工信息的添加，修改，刪除等基本操作?；蛘哂糜诓榭磫T工的基本信息。還有工作時(shí)間的修改和默認(rèn)。（2）考勤統(tǒng)計(jì)：用于完成對員工的的各種信息的統(tǒng)計(jì)。統(tǒng)計(jì)出差時(shí)間，加班時(shí)間，缺勤時(shí)間和次數(shù)等。（3）考勤管理：對員工考勤信息的進(jìn)行記錄和查詢。出差，出勤，加班，缺勤情況是該功能的子功能，主要用于對員工的日?？记诘挠涗浌芾怼？记诠芾硐到y(tǒng)考勤管理基本信息考勤統(tǒng)計(jì)請假記錄出勤記錄出差記錄工作時(shí)間職工信息職員考勤統(tǒng)計(jì)搜索考勤記錄

12、加班記錄圖3-1 系統(tǒng)功能模塊3.3數(shù)據(jù)庫設(shè)計(jì)3.3.1 數(shù)據(jù)庫需求分析出勤記錄：出勤記錄編號、職工編號、出勤狀況、出勤日期、出勤時(shí)間。請假記錄：請假記錄編號、職員編號、開始日期、結(jié)束日期、假期類別、請假原因。加班記錄：加班記錄編號、職員編號、加班日期、加班時(shí)間、加班說明。出差記錄：出差記錄編號、職員編號、開始時(shí)間、結(jié)束時(shí)間、附加說明?？记诮y(tǒng)計(jì)：考勤記錄編號、職員編號、公休天數(shù)、事假天數(shù)、病假天數(shù)、加班天數(shù)、遲到次數(shù)、早退次數(shù)、記錄日期。所需的外部數(shù)據(jù)支持：職工信息：職員編號、職位、性別、姓名、郵政編碼、職員相片等。公司部門：部門編號、部門名稱等。Password：uname、upass、管理

13、員編號、部門編號。工作時(shí)間：上午上班時(shí)間、上午下班時(shí)間、下午上班時(shí)間、下午下班時(shí)間。3.3.2 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)根據(jù)上面的需求分析，總共需要9個(gè)工作表的數(shù)據(jù)支持：出勤記錄表、請假記錄表、加班記錄表、出差記錄表、考勤統(tǒng)計(jì)表、工作時(shí)間表、password表、職工信息表和公司部門表。這9個(gè)表的結(jié)構(gòu)如圖所示。 表3-1工作時(shí)間表字段名稱數(shù)據(jù)類型字段大小是否為必讀字段格式上午上班時(shí)間日期/時(shí)間是短時(shí)間上午下班時(shí)間日期/時(shí)間是短時(shí)間下午上班時(shí)間日期/時(shí)間是短時(shí)間下午下班時(shí)間日期/時(shí)間是短時(shí)間表3-2加班記錄表字段名稱數(shù)據(jù)類型字段大小是否為必讀字段備注加班記錄編號自動編號長整型關(guān)鍵字職員編號數(shù)字長整型是加班日

14、期日期/時(shí)間是加班時(shí)間日期/時(shí)間是加班說明文本255否表3-3職員信息表字段名稱數(shù)據(jù)類型字段大小是否為必填字段備注職員編號自動編號長整型否關(guān)鍵字姓名文本50是部門編號數(shù)字50否職位文本50否性別文本4否民族文本4否出生日期日期/時(shí)間否婚姻狀況文本30否教育程度文本50否部門電話文本50否住所電話文本50否移動電話文本50否通訊地址文本255否郵政編碼數(shù)字長整型否職員相片OLE對象長整型否表3-4考勤統(tǒng)計(jì)表字段名稱數(shù)據(jù)類型字段大小是否為必讀字段備注考勤統(tǒng)計(jì)編號文本50是關(guān)鍵字職員編號數(shù)字長整型是公休天數(shù)數(shù)字長整型是事假天數(shù)數(shù)字長整型是病假天數(shù)數(shù)字長整型是加班天數(shù)數(shù)字長整型是遲到次數(shù)數(shù)字長整型是早

15、退次數(shù)數(shù)字長整型是記錄日期日期/時(shí)間是表3-5password字段名稱數(shù)據(jù)類型字段大小是否為必讀字段備注管理員編號數(shù)字長整型是關(guān)鍵字UNAME文本50是UPASS文本50是部門編號數(shù)字長整型是表3-6公司部門字段大小數(shù)據(jù)類型字段大小是否為必讀字段備注部門編號自動編號長整型關(guān)鍵字部門名稱文本50是表3-7請假記錄表字段大小數(shù)據(jù)類型字段大小是否為必讀字段備注請假記錄編號自動編號長整型關(guān)鍵字職員編號數(shù)字長整型是開始日期日期/時(shí)間是結(jié)束日期日期/時(shí)間是請假類別文本20是請假原因文本255是表3-8出差記錄表字段大小數(shù)據(jù)類型字段大小是否為必讀字段備注出差記錄編號自動編號長整型關(guān)鍵字職員編號數(shù)字長整型是開

16、始日期日期/時(shí)間是結(jié)束日期日期/時(shí)間是附加說明備注否表3-9出勤記錄表字段大小數(shù)據(jù)類型字段大小是否為必讀字段備注出勤記錄編號數(shù)字長整型關(guān)鍵字職員編號數(shù)字長整型是出勤狀況文本20是出勤日期日期/時(shí)間是出勤時(shí)間日期/時(shí)間否3.3.3數(shù)據(jù)表（1）職工信息表圖3-2職工信息表（2）加班記錄表圖3-3加班記錄表（3）公司部門表圖3-4公司部門表（4）工作時(shí)間表圖3-5工作時(shí)間表第4章 詳細(xì)設(shè)計(jì)4.1登陸窗體設(shè)計(jì)登陸時(shí)，用戶名有幾個(gè)下拉的選擇，可以選擇用USER1或用USER2等，然后輸入密碼。密碼正確，會出現(xiàn)“歡迎使用本系統(tǒng)”的提示。密碼不正確時(shí)，會出現(xiàn)“沒有該用戶”的提示。若是沒有輸入用戶名或密碼，會

17、出現(xiàn)“必須輸入用戶名和口令”提示。如圖4-1，4-2，4-3。圖4-1 成功登錄 【登錄系統(tǒng)界面】窗體圖4-2 沒有輸入密碼時(shí)【登錄系統(tǒng)界面】窗體圖4-3 密碼輸入錯誤時(shí)【登錄系統(tǒng)界面】窗體（1）【登錄】按鈕的【單擊】事件的代碼如下：Private Sub Combo12_AfterUpdate() Forms!登錄系統(tǒng)界面!Text14 = ""End SubPrivate Sub Command16_Click() Dim Cond As String Dim ps As String If IsNull(Forms!登錄系統(tǒng)界面!Combo12) Or IsNull(

18、Forms!登錄系統(tǒng)界面!Text14) Then MsgBox "必須輸入用戶名/口令", vbOKOnly, "信息提示" Exit Sub End If Cond = "uname='" + Forms!登錄系統(tǒng)界面!Combo12 + "'" ps = DLookup("upass", "password", Cond) If (ps <> Forms!登錄系統(tǒng)界面!Text14) Then MsgBox "不存在該用戶"

19、;, 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è)命令，

20、就會出現(xiàn)那個(gè)命令按鈕的窗體。如圖4-4。退出窗體相對來說就比較簡單了。主要是提示用戶是不是真的要退出，以防止用戶不小心點(diǎn)了退出其余并不是想現(xiàn)在退出。如圖圖4-4 【職員考勤主界面】窗體圖4-5 【退出系統(tǒng)】窗體（1）【由于出差，加班，請假記錄代碼類似，這里就不一一列舉，只寫出勤的代碼】【出勤記錄】按鈕的【單擊】事件的代碼如下：Private Sub 出勤記錄_Click()On Error GoTo Err_出勤記錄_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "出勤記錄" D

21、oCmd.OpenForm stDocName, , , stLinkCriteriaExit_出勤記錄_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ì)&qu

22、ot; DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_職員考勤統(tǒng)計(jì)_Click: 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 = "職員信息&

23、quot; DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_職員信息_Click: Exit SubErr_職員信息_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í)間"

24、; DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_工作時(shí)間_Click: Exit SubErr_工作時(shí)間_Click: 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 = "搜索考勤記錄&q

25、uot; DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_搜索考勤記錄_Click: Exit SubErr_搜索考勤記錄_Click: 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) =

26、vbYes Then DoCmd.Quit acQuitSaveAll End If Exit_退出系統(tǒng)_Click: Exit SubErr_退出系統(tǒng)_Click: MsgBox Err.Description Resume Exit_退出系統(tǒng)_Click End Sub4.3職員信息窗體設(shè)計(jì)職員信息主要是職員的信息進(jìn)行添加、保存、修改、刪除、查詢。員工的信息主要包含工號、姓名、性別、年齡、部門、職位、備注。單擊職員信息窗體中的添加職員可進(jìn)入員工信息的添加，添加成功會出現(xiàn)在職員列表的菜單中。如圖4-6。如果操作錯誤，會彈出提示信息，指導(dǎo)操作人員的添加操作。還有一重要功能就是對員工信息的查詢，

27、這主要會在查詢窗體中體現(xiàn)。 這是沒有添加任何信息的窗體如圖4-6。圖4-6 【職員信息】窗體在窗體中添加“劉五的信息”的后窗體，劉五的信息已經(jīng)出現(xiàn)在職員列表中，說明已經(jīng)添加成功。圖4-7單擊【添加職員】按鈕時(shí)添加的打算刪除劉五的信息，會出現(xiàn)如下圖4-8所示。點(diǎn)擊“是”后，職員列表的會出現(xiàn)“已刪除”的提示。圖4-8 單擊【刪除職員】按鈕時(shí)的窗體這是“刪除劉五信息”后的窗體。如圖4-9。圖4-9 【刪除職員】后的窗體（1）【添加職員】按鈕的【單擊】事件的代碼如下：Private Sub 添加職員_Click()On Error GoTo Err_添加職員_Click DoCmd.GoToRecor

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

29、t_刪除職員_Click: Exit SubErr_刪除職員_Click: MsgBox Err.Description Resume Exit_刪除職員_ClickEnd Sub（3）【撤銷記錄】按鈕的【單擊】事件的代碼如下：Private Sub 撤銷記錄_Click()On Error GoTo Err_撤銷記錄_Click DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70Exit_撤銷記錄_Click: Exit SubErr_撤銷記錄_Click: MsgBox Err.Description Resume E

30、xit_撤銷記錄_ClickEnd Sub（4）【保存記錄】按鈕的【單擊】事件的代碼如下：Private Sub 保存記錄_Click()On Error 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)閉窗

31、體_Click()On Error GoTo Err_關(guān)閉窗體_Click DoCmd.CloseExit_關(guān)閉窗體_Click: Exit SubErr_關(guān)閉窗體_Click: MsgBox Err.Description Resume Exit_關(guān)閉窗體_ClickEnd Sub4.4出差記錄窗體設(shè)計(jì)出差記錄窗體和出勤記錄窗體，加班記錄窗體，請假記錄窗體一樣，這里就不列舉出來，用出差記錄窗體代表，主要是對出差的的人員進(jìn)行添加、保存、修改、刪除。這個(gè)窗體的代碼與上面一個(gè)代碼類似，就不列出來了。在【出差記錄】窗體中添加信息，然后點(diǎn)擊【出差記錄子窗體】會要你輸入職員編號，然后點(diǎn)【確定】，會出現(xiàn)一

32、個(gè)表，你添加的內(nèi)容，就會看到。如下圖4-10，4-11，4-12所示。圖4-10 單擊【添加記錄】添加的內(nèi)容輸入職員編號4.圖4-11 【輸入?yún)?shù)值】窗體圖4-12 【出差記錄子窗體】4.5工作時(shí)間窗體設(shè)計(jì)工作時(shí)間中的默認(rèn)時(shí)間是一開始就設(shè)置的，而后的修改時(shí)間是自行輸入的。如果點(diǎn)擊【修改工作時(shí)間】，先輸入數(shù)字，成功會出“已經(jīng)成功修改時(shí)間！”的提示；點(diǎn)擊【恢復(fù)默認(rèn)時(shí)間】，會出現(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í)間 = "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 E