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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

15、字長整型否職員相片OLE對象長整型否表3-4考勤統(tǒng)計表字段名稱數(shù)據(jù)類型字段大小是否為必讀字段備注考勤統(tǒng)計編號文本50是關(guān)鍵字職員編號數(shù)字長整型是公休天數(shù)數(shù)字長整型是事假天數(shù)數(shù)字長整型是病假天數(shù)數(shù)字長整型是加班天數(shù)數(shù)字長整型是遲到次數(shù)數(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ù)類型字段大小是否為必讀字段備

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

17、圖3-5工作時間表第4章 詳細設(shè)計4.1登陸窗體設(shè)計登陸時，用戶名有幾個下拉的 選擇，可以選擇用USER1或用USER2等，然后輸入密碼。密碼正確，會出現(xiàn)“歡迎使用本系統(tǒng)”的 提示。密碼不正確時，會出現(xiàn)“沒有該用戶”的 提示。若是沒有輸入用戶名或密碼，會出現(xiàn)“必須輸入用戶名和口令”提示。如圖4-1，4-2，4-3。圖4-1 成功登錄 【登錄系統(tǒng)界面】窗體圖4-2 沒有輸入密碼時【登錄系統(tǒng)界面】窗體圖4-3 密碼輸入錯誤時【登錄系統(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 必須輸入用戶名/口令, 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 不存在該用戶, 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è)計和退出窗體設(shè)計主菜單窗體時，點哪一個命令，就會出現(xiàn)那個命令按鈕的 窗體。如圖4-4。退出窗體相對來說就比較簡單了。主要是提示用戶是不是

20、真的 要退出，以防止用戶不小心點了退出其余并不是想現(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 = 出勤記錄 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_出勤記錄_

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

22、ck: Exit SubErr_職員考勤統(tǒng)計_Click: MsgBox Err.Description Resume Exit_職員考勤統(tǒng)計_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）【工作時間】按鈕的 【單擊】事件的 代碼如下：Private Sub 工作時間_Click()On Error GoTo Err_工作時間_Click Dim stDocName As String Dim stLinkCriteria As StringstDocName = 工作時間 DoCmd.OpenForm stDocName, , , stLinkCriteriaExit_工作時間_Click: Exit SubErr_工作時間_Cli

24、ck: MsgBox Err.Description Resume Exit_工作時間_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è)計職員信息主要是職員的 信息進行添加、保存、修改、刪除、查詢。員工的 信息主要包含工號、姓名、性別、年齡、部門、職位、備注。單擊職員信息窗體中的 添加職員可進入員工信息的 添加，添加成功會出現(xiàn)在職員列表的 菜單中。如圖4-6。如果操作錯誤，會彈出提示信息，指導(dǎo)操作人員的 添加操作。還有一重要功能就是對員工信息的 查詢，這主要會在查詢窗體中體現(xiàn)。 這是沒有添加任何信息的 窗體如圖4-6。圖4-6 【職員信息】窗體在窗體中添加“劉五的 信息”的 后窗體，劉五的 信息已經(jīng)出現(xiàn)在職員列表中，說明已經(jīng)添加成功。圖4-

27、7單擊【添加職員】按鈕時添加的 打算刪除劉五的 信息，會出現(xiàn)如下圖4-8所示。點擊“是”后，職員列表的 會出現(xiàn)“已刪除”的 提示。圖4-8 單擊【刪除職員】按鈕時的 窗體這是“刪除劉五信息”后的 窗體。如圖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）【撤銷記錄】按鈕的 【單擊】事件的 代碼如下：Private Sub 撤銷記錄_Click()On Error GoTo Err_撤銷記錄_Click DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70Exit_撤銷記錄_Click: Exit SubErr_撤銷記錄_Click: MsgBox Err.Description Resume Exit_撤銷記錄_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è)計出差記錄窗體和出勤記錄窗體，加班記錄窗體，請假記錄窗體一樣，這里就不列舉出來，用出差記錄窗體代表，主要是對出差的 的 人員進行添加、保存、修改、刪除。這個窗體的 代碼與上面一個代碼類似，就不列出來了。在【出差記錄】窗體中添加信息，然后點擊【出差記錄子窗體】會要你輸入職員編號，然后點【確定】，會出現(xiàn)一個表，你添加的 內(nèi)容，就會看到。如下圖4-10，4-11，4-12所示。圖4-10 單擊【添加記錄】添加的 內(nèi)容輸入職員編號4.圖4-11 【輸

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

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