【文章內(nèi)容簡(jiǎn)介】 小為 10 Sex 文本 字段大小為 2 Age 整型 DeptID 長(zhǎng)整型 TitleID 長(zhǎng)整型 CardStatus 字節(jié) Note 文本 字 段大小為 50 F_DelFlag 是 /否 默認(rèn)值為否 d) 考勤歷史表 包括員工號(hào)、考勤日期、考勤時(shí)間、操作時(shí)間、是否已刪除等字段，具體設(shè)置如表 34 所示。 表 34 KqHistory 表 字段名 數(shù)據(jù)類型 說(shuō)明 WorkNo 文本 字段大小為 4 KqDate 文本 字段大小為 10 KqTime 文本 字段大小為 10 OperateTime 文本 字段大小為 10 IO 是 /否 默認(rèn)值為否 F_DelFlag 是 /否 默認(rèn)值為否 e) 班次表 包括編號(hào)、班次名、第一時(shí)段上班時(shí)間、第一時(shí)段上班是否考勤、 第一時(shí)段下班時(shí)間、第一時(shí)段下班是否考勤、是否為加班、第二時(shí)段上班時(shí)間、第二時(shí)段上班是否考勤、第二時(shí)段下班時(shí)間、第二時(shí)段下班是否考勤、是否為加班是否已刪除等字段，具體設(shè)置如表 35 所示。 表 35 Shift表 字段名 數(shù)據(jù)類型 說(shuō)明 ID 數(shù)字 標(biāo)識(shí)，主鍵 ShiftName 文本 字段大小為 10 第 10 頁(yè) 共 21頁(yè) F_1On 文本 字段大小為 5 F_1OnIsKq 是 /否 默認(rèn)值是否 F_1Off 文本 字段大小為 5 F_1OffIsKq 是 /否 默認(rèn)值是否 F_1IsAdd 是 /否 默認(rèn)值是否 f) 管理員表 包括編號(hào)、用戶名、密碼、是否已刪除等字段，具體設(shè)置如表 36 所示。 表 36 User 表 字段名 數(shù)據(jù)類型 說(shuō)明 ID 文本 字段大小為 2 Name 文本 字段大小為 10 PWD 文本 字段大小為 10 F_DelFlag 是 /否 默認(rèn)為否 代碼設(shè)計(jì) 代碼設(shè)計(jì)是一項(xiàng)重要的基礎(chǔ)性的工作，代碼設(shè)計(jì)的好壞，不僅關(guān)系到運(yùn)行效率，更關(guān)系到信息系統(tǒng)的推廣與使用。代碼設(shè)計(jì)必須統(tǒng)籌規(guī)劃，參照相關(guān)的標(biāo)準(zhǔn)和原則。本系統(tǒng)通過(guò)對(duì)數(shù)據(jù)庫(kù)及彼此之間聯(lián)系的分析，為了管理員管理維護(hù)的方便，本著通用性、簡(jiǎn)明性、擴(kuò)展性、 識(shí)別性的原則，系統(tǒng)自動(dòng)生成的排班表名代碼。 用戶界面設(shè)計(jì) 考勤系統(tǒng)為了滿足使用者的需要，具體的數(shù)據(jù)處理功能，從交互界面的性質(zhì)上主要分為三類： (1) 數(shù)據(jù)編輯 圖 33 請(qǐng)假登記界面 界面樣式與原手工處理時(shí)紙質(zhì)表格樣式基本一致，以使管理員在操作習(xí)慣和 第 11 頁(yè) 共 21頁(yè) 方式上比較熟悉和適應(yīng)。同時(shí)為了減少管理員的輸入工作量，減少輸入的錯(cuò)誤率，本系統(tǒng)使用了許多下拉菜單，日期的輸入也由程序本身跳出界面讓用戶選擇，只要查詢員工，基本信息系統(tǒng)自動(dòng)填好。如請(qǐng)假登記的輸入界面，如圖 33 所示。 (2) 數(shù)據(jù)查詢 系統(tǒng)中所有的查詢功 能均提供任意條件組合查詢，即將要查詢的數(shù)據(jù)庫(kù)文件的所有字段全部列出，由用戶選擇任意一個(gè)設(shè)置條件，進(jìn)行查詢，用戶也可以填入多個(gè)條件，條件之間是與的關(guān)系，如員工查詢界面如圖 34 所示。 圖 34員工查詢界面 (3) 數(shù)據(jù)輸出 數(shù)據(jù)輸出分為屏幕輸出和打印輸出，輸出格式完全按照用戶的要求報(bào)告或報(bào)表格式進(jìn)行設(shè)置，符合用戶的應(yīng)用習(xí)慣。屏幕輸出界面如圖 35 所示。 圖 35 流水打卡查詢輸出界面 第 12 頁(yè) 共 21頁(yè) 系統(tǒng)界面 本系統(tǒng)采用用戶熟悉的軟件界面，整個(gè)界面顏色鮮明，應(yīng)用多個(gè)圖形按鈕，整個(gè)系統(tǒng)界面友好、美 觀大方，用戶操作方便，容易上手。具體的界面如圖 41所示 。 圖 41 考勤系統(tǒng)界面 數(shù)據(jù)庫(kù)訪問(wèn) 數(shù)據(jù)庫(kù)技術(shù)已漸漸成為電子信息系統(tǒng)的重要核心技術(shù)，企業(yè)管理離不開(kāi)數(shù)據(jù)庫(kù)技術(shù)，因?yàn)閿?shù)據(jù)庫(kù)能夠提供數(shù)據(jù)共享，且冗余度低，從而減少應(yīng)用程序的研制和維護(hù)的費(fèi)用。數(shù)據(jù)庫(kù)訪問(wèn)是本系統(tǒng)的一個(gè)關(guān)鍵問(wèn)題，本系統(tǒng)用 DAO 數(shù)據(jù)控件完成對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)，具體的訪問(wèn)程序如下： Public gDataBase As Database Public Const gSTRPWD = software Dim sPath As String Dim Rst As sPath = G:\kaoqin\data\ If Dir(sPath) Empty Then Set gDataBase = Workspaces(0).OpenDatabase(sPath, False, False, 。pwd= amp。 gSTRPWD) ’ 打開(kāi)數(shù)據(jù)庫(kù) Else MsgBox 找不到數(shù)據(jù)庫(kù) !請(qǐng)您檢查一下您的數(shù)據(jù)庫(kù)路徑 !!, , gTitle End 第 13 頁(yè) 共 21頁(yè) End If 系統(tǒng)登錄界面 本系統(tǒng)在登錄之前，首先是調(diào)用系統(tǒng)的公共模塊，獲得一些基本數(shù)據(jù)，比如數(shù)據(jù)庫(kù)打開(kāi)，創(chuàng)建關(guān)系，初始化端口，初始化排班等，都是在公用模塊中進(jìn)行的。然后出現(xiàn)登錄界面。登錄界面的具體實(shí)現(xiàn)如下： Dim name As String Dim password As String name = Trim() password = Trim() Dim Rst As Set Rst = (select * from User _ amp。 where name=39。 amp。 name amp。 39。and PWD=39。 amp。 password amp。 39。) If = 0 Then If MsgBox(用戶名或密碼錯(cuò)誤?。≌?qǐng)重試?。?, vbInformation, gTitle) = vbOK Then LoginSucceeded = True gLoginGrade = 0 End If Else LoginSucceeded = True gLoginGrade = 1 End If 員工信息管理 圖 42 員工管理界面 第 14 頁(yè) 共 21頁(yè) 員工管理基本的信息是重要的，系統(tǒng)中所有功能是圍繞員工展開(kāi)的，如 IC卡的管理 、人員考勤查詢等。員工管理界面如圖 42 所示。 員工管理的核心代碼 ： Public Sub cmdEdit_Click(Index As Integer) ? 員工管理按鈕的編輯 Dim strTmp As String Select Case Index Case gCMDAPPEND ‘ 添加按鈕編輯 Dim blnIsToGo As Boolean blnIsToGo = True If Not mblnIsAdd Then strTmp = gSTRCANCEL AddAction InitxtEmp txtEmp(mWorkNo).SetFocus Else If mblnIsNeedSave Then If MsgBox(您確定不保存嗎 ?, vbQuestion + _ vbYesNo + vbDefaultButton2, gTitle) _ = vbNo Then blnIsToGo = False End If End If If blnIsToGo Then strTmp = gSTRAPPEND InitxtEmp ChangeColor False mblnIsNeedSave = False RefreshButton cmdEdit, gCMDEDITCANCEL Else strTmp = gSTRCANCEL End If End If strTmp = strTmp amp。 (amp。A) cmdEdit(gCMDAPPEND).Caption = strTmp If blnIsToGo Then mblnIsAdd = Not mblnIsAdd End If Case gCMDSAVE ?保存按鈕編輯 If AddToDataBase Then AfterSave strTmp = gSTRMODIFY amp。 amp。M cmdEdit(gCMDEDIT).Caption = strTmp = strTmp 第 15 頁(yè) 共 21頁(yè) End If Case gCMDEDIT ? 修改按鈕編輯 If Not mblnIsModify Then strTmp = gSTRRESET ToModify Else strTmp = gSTRMODIFY AfterSave End If strTmp = strTmp amp。 (amp。M) = strTmp cmdEdit(gCMDEDIT).Caption = strTmp Case gCMDDELETE ?刪除按鈕編輯 MsgBox 您如果刪除了該員工 , amp。 vbCrLf amp。 vbCrLf _ amp。 則有關(guān)該員工所有信息都將刪除 amp。 vbCrLf amp。 vbCrLf _ amp。 包括考勤記錄、請(qǐng)假記錄，出差記錄等 ..., vbCritical, gTitle 39。 DeleteForEmployee msfGrid, 1, 您確定要?jiǎng)h除此名員工的信息 ?, _ 39。 gDataBase, Employee, WorkNo If DeleteForEmployee Then If Not txtEmp(mName).Locked Then InitxtEmp RefreshButton cmdEdit, gCMDEDITNORMAL End If Case gCMDQUERY ?查詢按鈕編輯 Set mcolWorkno = New Collection vbModal If mblnIsToCloseColor Then mblnIsToCloseColor = False CloseColor msfGrid ChgcmdCloseColor End If If 0 Then ShowQueryMan Case gCMDRETURN ? 返回按鈕編輯 Unload Me End Select End Sub 為了編程方便，也為了使代碼簡(jiǎn)潔、易懂，本系統(tǒng)相關(guān)的按鈕組成控件數(shù)組；為了系統(tǒng)界面簡(jiǎn)練、大方，不雜亂無(wú)章，系統(tǒng)按鈕設(shè)置成雙向按鈕，比如添加按鈕，當(dāng)點(diǎn)擊添加按鈕時(shí)，按鈕的標(biāo)題（ caption）由“添加”變?yōu)椤叭∠薄Ｌ砑訂T工信息時(shí)，添加按鈕變成