【文章內(nèi)容簡介】 小為 10 Sex 文本 字段大小為 2 Age 整型 DeptID 長整型 TitleID 長整型 CardStatus 字節(jié) Note 文本 字 段大小為 50 F_DelFlag 是 /否 默認(rèn)值為否 d) 考勤歷史表 包括員工號、考勤日期、考勤時間、操作時間、是否已刪除等字段，具體設(shè)置如表 34 所示。 表 34 KqHistory 表 字段名 數(shù)據(jù)類型 說明 WorkNo 文本 字段大小為 4 KqDate 文本 字段大小為 10 KqTime 文本 字段大小為 10 OperateTime 文本 字段大小為 10 IO 是 /否 默認(rèn)值為否 F_DelFlag 是 /否 默認(rèn)值為否 e) 班次表 包括編號、班次名、第一時段上班時間、第一時段上班是否考勤、 第一時段下班時間、第一時段下班是否考勤、是否為加班、第二時段上班時間、第二時段上班是否考勤、第二時段下班時間、第二時段下班是否考勤、是否為加班是否已刪除等字段，具體設(shè)置如表 35 所示。 表 35 Shift表 字段名 數(shù)據(jù)類型 說明 ID 數(shù)字 標(biāo)識，主鍵 ShiftName 文本 字段大小為 10 第 10 頁 共 21頁 F_1On 文本 字段大小為 5 F_1OnIsKq 是 /否 默認(rèn)值是否 F_1Off 文本 字段大小為 5 F_1OffIsKq 是 /否 默認(rèn)值是否 F_1IsAdd 是 /否 默認(rèn)值是否 f) 管理員表 包括編號、用戶名、密碼、是否已刪除等字段，具體設(shè)置如表 36 所示。 表 36 User 表 字段名 數(shù)據(jù)類型 說明 ID 文本 字段大小為 2 Name 文本 字段大小為 10 PWD 文本 字段大小為 10 F_DelFlag 是 /否 默認(rèn)為否 代碼設(shè)計 代碼設(shè)計是一項(xiàng)重要的基礎(chǔ)性的工作，代碼設(shè)計的好壞，不僅關(guān)系到運(yùn)行效率，更關(guān)系到信息系統(tǒng)的推廣與使用。代碼設(shè)計必須統(tǒng)籌規(guī)劃，參照相關(guān)的標(biāo)準(zhǔn)和原則。本系統(tǒng)通過對數(shù)據(jù)庫及彼此之間聯(lián)系的分析，為了管理員管理維護(hù)的方便，本著通用性、簡明性、擴(kuò)展性、 識別性的原則，系統(tǒng)自動生成的排班表名代碼。 用戶界面設(shè)計 考勤系統(tǒng)為了滿足使用者的需要，具體的數(shù)據(jù)處理功能，從交互界面的性質(zhì)上主要分為三類： (1) 數(shù)據(jù)編輯 圖 33 請假登記界面 界面樣式與原手工處理時紙質(zhì)表格樣式基本一致，以使管理員在操作習(xí)慣和 第 11 頁 共 21頁 方式上比較熟悉和適應(yīng)。同時為了減少管理員的輸入工作量，減少輸入的錯誤率，本系統(tǒng)使用了許多下拉菜單，日期的輸入也由程序本身跳出界面讓用戶選擇，只要查詢員工，基本信息系統(tǒng)自動填好。如請假登記的輸入界面，如圖 33 所示。 (2) 數(shù)據(jù)查詢 系統(tǒng)中所有的查詢功 能均提供任意條件組合查詢，即將要查詢的數(shù)據(jù)庫文件的所有字段全部列出，由用戶選擇任意一個設(shè)置條件，進(jìn)行查詢，用戶也可以填入多個條件，條件之間是與的關(guān)系，如員工查詢界面如圖 34 所示。 圖 34員工查詢界面 (3) 數(shù)據(jù)輸出 數(shù)據(jù)輸出分為屏幕輸出和打印輸出，輸出格式完全按照用戶的要求報告或報表格式進(jìn)行設(shè)置，符合用戶的應(yīng)用習(xí)慣。屏幕輸出界面如圖 35 所示。 圖 35 流水打卡查詢輸出界面 第 12 頁 共 21頁 系統(tǒng)界面 本系統(tǒng)采用用戶熟悉的軟件界面，整個界面顏色鮮明，應(yīng)用多個圖形按鈕，整個系統(tǒng)界面友好、美 觀大方，用戶操作方便，容易上手。具體的界面如圖 41所示 。 圖 41 考勤系統(tǒng)界面 數(shù)據(jù)庫訪問 數(shù)據(jù)庫技術(shù)已漸漸成為電子信息系統(tǒng)的重要核心技術(shù)，企業(yè)管理離不開數(shù)據(jù)庫技術(shù)，因?yàn)閿?shù)據(jù)庫能夠提供數(shù)據(jù)共享，且冗余度低，從而減少應(yīng)用程序的研制和維護(hù)的費(fèi)用。數(shù)據(jù)庫訪問是本系統(tǒng)的一個關(guān)鍵問題，本系統(tǒng)用 DAO 數(shù)據(jù)控件完成對數(shù)據(jù)庫的訪問，具體的訪問程序如下： 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) ’ 打開數(shù)據(jù)庫 Else MsgBox 找不到數(shù)據(jù)庫 !請您檢查一下您的數(shù)據(jù)庫路徑 !!, , gTitle End 第 13 頁 共 21頁 End If 系統(tǒng)登錄界面 本系統(tǒng)在登錄之前，首先是調(diào)用系統(tǒng)的公共模塊，獲得一些基本數(shù)據(jù)，比如數(shù)據(jù)庫打開，創(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(用戶名或密碼錯誤！！請重試??！ , vbInformation, gTitle) = vbOK Then LoginSucceeded = True gLoginGrade = 0 End If Else LoginSucceeded = True gLoginGrade = 1 End If 員工信息管理 圖 42 員工管理界面 第 14 頁 共 21頁 員工管理基本的信息是重要的，系統(tǒng)中所有功能是圍繞員工展開的，如 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 頁 共 21頁 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。 包括考勤記錄、請假記錄，出差記錄等 ..., vbCritical, gTitle 39。 DeleteForEmployee msfGrid, 1, 您確定要刪除此名員工的信息 ?, _ 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 為了編程方便，也為了使代碼簡潔、易懂，本系統(tǒng)相關(guān)的按鈕組成控件數(shù)組；為了系統(tǒng)界面簡練、大方，不雜亂無章，系統(tǒng)按鈕設(shè)置成雙向按鈕，比如添加按鈕，當(dāng)點(diǎn)擊添加按鈕時，按鈕的標(biāo)題（ caption）由“添加”變?yōu)椤叭∠?。添加員工信息時，添加按鈕變成