【正文】 (2)員工考評信息瀏覽功能：能夠把員工考評的信息一次性地顯示出來，供系統(tǒng)管理員瀏覽； (3)員工考評 信息添加功能：能夠員工考評信息的數(shù)據(jù)庫中增加一條員工考評檔案記錄； (4)員工考評信息刪除功能：能夠從員工考評信息的數(shù)據(jù)庫中減少一條員工考評檔案記錄； (5)員工考評信息修改功能：能夠修改員工考評信息中指定的一條員工考評檔案記錄； 員工考評表如表 57所示： 表 57 員工考評表 (Checkin) 字段名 數(shù)據(jù)類型 長度 索引 Nulls 備注 EvaMonth 文本 10 否 考評月份 EmpId 數(shù)字 10 否 員工編號 ztEva 文本 50 否 總體評價 jlReason 文本 50 否 獎勵事由 jlAmount 數(shù)字 5 否 獎勵金額 cfReason 文本 50 否 處罰事由 cfAmount 數(shù)字 5 否 處罰金額 Memo1 文本 50 否 備注 表 57就是員工考評表，它包含考評月份、員工編號、總體評價、獎勵事由、獎勵金額、處罰事由、處罰金額和備注等信息。屬性的表間關(guān)系有三種類型：一對一、一對多和多對多。圖 52是 屬性的表間關(guān)系 圖，所有主表和外鍵之間的關(guān)系對 INSERT和 UPDATE具有強(qiáng)制性。 本章小結(jié) 本章通過對系統(tǒng)功能的描述、系統(tǒng)操作流程圖的設(shè)計(jì)、數(shù)據(jù)庫表的設(shè)計(jì)和數(shù)據(jù)庫表關(guān)系圖的設(shè)計(jì)，對系統(tǒng)的數(shù)據(jù)庫進(jìn)行了詳細(xì)設(shè)計(jì)。 23 第 6 章 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)界面設(shè)計(jì) 基于 VB 的 人事管理系統(tǒng)的實(shí)現(xiàn)是用 VB 來進(jìn)行代碼的編寫和界面的設(shè)計(jì)。如圖 61所示： 圖 61 身份驗(yàn)證對話框 圖 61就是等分驗(yàn)證窗口，單擊【確定】將提交用戶信息。 (2)2個 TextBox控件。數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請輸入密碼 24 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_Disconnect End Else Exit Sub End If End If 在以 管理員的身份正常 登錄 系統(tǒng)后，會出現(xiàn)一個主界面。如圖 53所示： 25 圖 62 人事管理系統(tǒng)主界面 圖 62就是人事管理系統(tǒng)的主界面，它包括三個主要菜單：基本信息管理，考勤信息管理，系統(tǒng)用戶管理。 進(jìn)入 “部門管理 ”窗口，其主要功能是進(jìn)行部門的添加，修改以及刪除操作。如圖 63所示： 圖 63 部門管理界面 26 圖 63就是部門管理界面，其部門信息會以樹形顯示的方式顯示出來。 (2)1個 ImageList控件：用來講所使用到的圖片集中存放。用來將所有部門的信息樹狀顯示。根據(jù)用戶類型設(shè)置界面 If = 2 Then = False = False = False = 2400 End If FocusDepName = 人事部 39。設(shè)置根結(jié)點(diǎn) Set TmpNode = (, , a0, 部門信息 , 1, 3) = True = 2 39。調(diào)用 TreeView1_Click過程，讀取當(dāng)前節(jié) 點(diǎn)數(shù)據(jù) TreeView1_Click End Sub Private Sub TreeView1_Click() Dim Focuskey As String 27 39。根結(jié)點(diǎn) Exit Sub End If 39。讀取 CurDep中的所有部門信息 () End Sub 在 “員工信息管理 ”界面中，其主要功能是進(jìn)行員工信息的處理以及 “學(xué)習(xí)與工作經(jīng)歷 ”和 “家庭主要成員管理 ”的處理等。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)7個 CommandButton控件： 1個是用來處理員工家庭主要成員信息的【家庭主要成員管理】按鈕， 1個是用來處理員工學(xué)習(xí)與工作經(jīng)歷信息的【學(xué)習(xí)與工作經(jīng)歷】按鈕， 1個是添加員工基本信息的【添加職員】按鈕， 1個是用來修改員工基本信息的【修改資料】按鈕， 1個是用來刪除員工基本信息的【刪除職員】按鈕，1個是用來調(diào)轉(zhuǎn)職員去另外部門的【部門調(diào)轉(zhuǎn)】按鈕， 1個是用來退出該界面的【返回】按鈕。 (3)1個 DataList控件：用來列出在某個狀態(tài)下的該部門內(nèi)的員工。設(shè)置 ADO控件的連接字符串 = Provider=。Persist Security Info=False = Provider=。Persist Security Info=False = 0 FocusDepName = 人事部 Focuskey = 39。將部門信息添加到 TreeView 控件中 Call Add_DepToTree(TreeView1, a0) TreeView1_Click 39。單擊左鍵，則關(guān)閉照片管理菜單 If Button = 1 Then If = True Then Unload FrmPhotoMenu End If End If 39。如圖 65所示： 30 圖 65 員工考勤管理界面 圖 65就是員工考勤管理界面，其包括選擇日期、員工編號、全勤、出差、病假、事假、礦工、法定休假、年休假、倒休假、遲到分鐘、早退分鐘、法定節(jié)假日加班、周末加班、日常加班和備注等信息。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)5個 CommandButton控件： 1個是用來添加員工考勤信息的【添加】按鈕，1個是用來修改員工考勤信息的【修改】按鈕， 1個是刪除員工考勤信息的【刪除】按鈕， 1個是用來導(dǎo)出某個指定部門的月度考勤信息統(tǒng)計(jì)的【月度考勤統(tǒng)計(jì)】按鈕， 1個是用來退出該界面的【返回】按鈕。 (3)1個 DTPicker 控件：用來選擇某個日期，以正確填寫員工考勤信息。設(shè)置查詢條件 If Trim() = Then SchCnd = 31 Else SchCnd = And = + Trim(Str(nDepId)) End If 39。Data Source= _ + + \人事 .mdb。設(shè)置數(shù)據(jù) 源 tmpsource = SELECT As 部門 , , As 姓名 , _ + As 全勤 , As 出差 , As 病假 , As 事假 , _ + As 曠工 , As 法定休假 , As 年休假 , As 倒休假 , _ + As 遲到分鐘 , As 早退分鐘 , As 法定節(jié)假日加班 , _ + As 周末加班 , As 日常加班 , As 備注 _ + FROM Departments d, Employees e, Checkin c _ + WHERE =39。 And = And = + SchCnd + ORDER BY , = tmpsource 39。如圖 66所示： 圖 66 員工考評信息管理界面 圖 66就是員工考評信息管理界面，它包括考評月份、員工編號、總體評價、獎勵事由、獎勵金額、處罰事由、處罰金額和備注等信息。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)4個 CommandButton控件： 1個是用來添加員工考評信息的【添加】按鈕，1個是用來修改員工考評信息的【修改】按鈕， 1個是刪除員工考評信 息的【刪除】按鈕， 1個是用來退出該界面的【返回】按鈕。 以下是員工考評管理的主要代碼： Private Sub Refresh_Eva() 39。設(shè)置 ADO控件的連接字符 串 = Provider=。Persist Security Info=False 39。 _ + + + + 39。設(shè)置列寬 With DataGrid1 .Columns(0).Width = 0 …… End With End Sub 在 “用戶管理 ”的界面的左邊會列出使用該系統(tǒng)的授權(quán)用戶，另外在右邊可以對這些用戶進(jìn)行信息處理。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)4個 CommandButton控件： 1個是用來添加用戶信息的【添加用戶】按鈕，1個是用來修改用戶信息的【修改用戶】按鈕， 1個是刪除用戶信息的【刪除用戶】按鈕， 1個是用來退出該界面的【返回】按鈕。 以下是系統(tǒng)用戶管理的主要代碼： Private Sub Cmd_Modi_Click() If = Then MsgBox 請選擇要修改的用戶 Exit Sub End If If UCase() ADMIN And = 1 And Then MsgBox 沒有修改此用戶的權(quán)限 Exit Sub End If With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = . 系統(tǒng)管理員 . 普通用戶 . = 1 .Modify = True .Show 1 End With 35 DataList1_Click End Sub 最后一個界面是 “編輯用戶信息 ”界面，系統(tǒng)用戶可以打開 該對話框來對自己的密碼進(jìn)行修改的操作。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)2個 CommandButton控件： 1個是用來提交已修改密碼的信息的【確定】按鈕， 1個是用來退出該界面的【取消】按鈕。 (3)3個 TextBox控件。介紹了系統(tǒng)各模塊中的增、刪、改、查的界面以及主要控件的介紹。填寫完成點(diǎn)擊【確定】按鈕，將會出現(xiàn)操作程序頁面，即該用戶已經(jīng) 登錄 成功了。將出現(xiàn)無法 登錄 的提示頁面。 (3)測試編輯功能是否成功：在登錄成功之后，即可進(jìn)入相應(yīng)的管理頁面，點(diǎn)擊“員工管理 ”，即出現(xiàn)員工信息管理頁面，即可以修改和刪除員工的基本信息資料。 (4)測試游覽查詢功能是否成功：在登錄成功之后，點(diǎn)擊【考勤考評管理】下拉菜單中的【考勤管理】，在彈出的對話框，在里面輸入想要查找的日期和部門，成功即可出現(xiàn)結(jié)果頁面，頁面內(nèi)顯示查詢出來的員工資料內(nèi)容，表示測試成功。也可點(diǎn)主頁面右上角的 “關(guān)閉 ”退出系統(tǒng)?？梢蕴砑有碌钠胀ㄓ脩?，也可以刪除和修改用戶的用戶名和密碼。 測試方法 一般來說，對程序測試有兩種測試方法：如果已經(jīng)知道了軟件系統(tǒng)應(yīng)具有的功能，可通過測試來對每個功能是否都能正常使用；如果知道程序的內(nèi)部工作過程，可以通過測試來 檢測程序內(nèi)部是否按照規(guī)格說明書的規(guī)定正常進(jìn)行。黑盒測試又稱為功能測試，白盒子測試又稱為結(jié)構(gòu)測試 [13]。雖然沒有 完全按照 該 測試方法進(jìn)行系統(tǒng)的測試，但經(jīng)過一些簡單的步驟的測試，證明本系統(tǒng)具有相當(dāng) 的程序穩(wěn)定性。從開始接到論文題目到系統(tǒng)的實(shí)現(xiàn)，再到論文文章的完成，每走一步對我來說都是新的嘗試與挑戰(zhàn)。但由于能力和時間的關(guān)系，總是覺得有很多不盡人意的地方，如功能不全、外觀粗糙、底層代碼的不合理等等，數(shù)不勝數(shù)。以此語言來安撫我尚未平復(fù)的心。從這里走出，對我的人生來說，將是踏上一個新的征程，要把所學(xué)的知識應(yīng)用到實(shí)際工作中去。想借此機(jī)會感謝 四年以來給我?guī)椭乃欣蠋?、同學(xué)，你們的友誼是我人生的財富，是我生命中不可或缺的一部分。 ”大學(xué)四年，但它給我的影響卻不能用時間來衡量，這四年以來，經(jīng)歷過的所有事，所有人，都將是我今后生活回味的一部分，是我為人處事的指南針。 39 致謝 本設(shè)計(jì)及畢業(yè)論文是在我的導(dǎo)師的親切關(guān)懷和悉心指導(dǎo)下完成的。從課題的選擇到項(xiàng)目的最終完成，老師都始終給予我細(xì)心的指導(dǎo)和不懈的支持。在此，我還要感謝在一起愉快的度過大學(xué)生活的寢室的各位室友們，正是由于你們的幫助和支持，我才能克服一個一個的困難和疑惑，直至本文的順利完成。哈格 ,梅芙 J18