【正文】 qqDays 數(shù)字 3 否 全勤 ccDays 數(shù)字 3 否 出差 bjDays 數(shù)字 3 否 病假 sjDays 數(shù)字 3 否 事假 kgDays 數(shù)字 3 否 礦工 fdxjDays 數(shù)字 3 否 法定休假 nxjDays 數(shù)字 3 否 年休假 dxjDays 數(shù)字 3 否 倒休假 cdMinutes 數(shù)字 3 否 遲到分鐘 ztMinutes 數(shù)字 3 否 早退分鐘 ot1Days 數(shù)字 3 否 法定節(jié)假 日加班 ot2Days 數(shù)字 3 否 周末加班 ot3Days 數(shù)字 3 否 日常加班 Memo1 文本 50 否 備注 表 56就是員工考勤表，它包含選擇日期、員工編號(hào)、全勤、出差、病假、事假、礦工、法定休假、年休假、倒休假、遲到分鐘、早退分鐘、法定節(jié)假日加班、周末加班、日常加班和備注等信息。 21 以下為以員工考評(píng)信息作為登記： (1)員工考評(píng)信息的登記：能夠把員工考評(píng)的信息都存儲(chǔ)到數(shù)據(jù)庫(kù)中； (2)員工考評(píng)信息瀏覽功能：能夠把員工考評(píng)的信息一次性地顯示出來(lái)，供系統(tǒng)管理員瀏覽； (3)員工考評(píng) 信息添加功能：能夠員工考評(píng)信息的數(shù)據(jù)庫(kù)中增加一條員工考評(píng)檔案記錄； (4)員工考評(píng)信息刪除功能：能夠從員工考評(píng)信息的數(shù)據(jù)庫(kù)中減少一條員工考評(píng)檔案記錄； (5)員工考評(píng)信息修改功能：能夠修改員工考評(píng)信息中指定的一條員工考評(píng)檔案記錄； 員工考評(píng)表如表 57所示： 表 57 員工考評(píng)表 (Checkin) 字段名 數(shù)據(jù)類型 長(zhǎng)度 索引 Nulls 備注 EvaMonth 文本 10 否 考評(píng)月份 EmpId 數(shù)字 10 否 員工編號(hào) ztEva 文本 50 否 總體評(píng)價(jià) jlReason 文本 50 否 獎(jiǎng)勵(lì)事由 jlAmount 數(shù)字 5 否 獎(jiǎng)勵(lì)金額 cfReason 文本 50 否 處罰事由 cfAmount 數(shù)字 5 否 處罰金額 Memo1 文本 50 否 備注 表 57就是員工考評(píng)表，它包含考評(píng)月份、員工編號(hào)、總體評(píng)價(jià)、獎(jiǎng)勵(lì)事由、獎(jiǎng)勵(lì)金額、處罰事由、處罰金額和備注等信息。 22 數(shù)據(jù)庫(kù)表關(guān)系圖 設(shè)計(jì) 通過(guò) ACCESS數(shù)據(jù)庫(kù)可以得到數(shù)據(jù)庫(kù)表關(guān)系圖 。屬性的表間關(guān)系有三種類型：一對(duì)一、一對(duì)多和多對(duì)多。如果指的是表的參照完整性，則是主外鍵關(guān)系 ； 如果是某些數(shù)據(jù)庫(kù)操作上的相關(guān)性，則是 級(jí)聯(lián)關(guān)系。圖 52是 屬性的表間關(guān)系 圖，所有主表和外鍵之間的關(guān)系對(duì) INSERT和 UPDATE具有強(qiáng)制性。如 圖 52所示： 圖 52 數(shù)據(jù)庫(kù)表關(guān)系 圖 圖 52就是 數(shù)據(jù)庫(kù)表關(guān)系 圖，它包含 7個(gè) 表 ，分別是：?jiǎn)T工 表 、員工學(xué)習(xí)及工作經(jīng)歷 表 、員工家庭成員 表 、部門(mén) 表 、員工考評(píng) 表 、員工考勤 表 和系統(tǒng)用戶 表 。 本章小結(jié) 本章通過(guò)對(duì)系統(tǒng)功能的描述、系統(tǒng)操作流程圖的設(shè)計(jì)、數(shù)據(jù)庫(kù)表的設(shè)計(jì)和數(shù)據(jù)庫(kù)表關(guān)系圖的設(shè)計(jì)，對(duì)系統(tǒng)的數(shù)據(jù)庫(kù)進(jìn)行了詳細(xì)設(shè)計(jì)。使得系統(tǒng)有了較完整的開(kāi)發(fā)和設(shè)計(jì)。 23 第 6 章 系統(tǒng)實(shí)現(xiàn) 系統(tǒng)界面設(shè)計(jì) 基于 VB 的 人事管理系統(tǒng)的實(shí)現(xiàn)是用 VB 來(lái)進(jìn)行代碼的編寫(xiě)和界面的設(shè)計(jì)。 在運(yùn)行軟件以后，首先是一個(gè) 登錄 的窗口，用來(lái)身份驗(yàn)證，在連續(xù)輸錯(cuò)三次密碼之時(shí)，系統(tǒng)自動(dòng)登出，需重新運(yùn)行。如圖 61所示： 圖 61 身份驗(yàn)證對(duì)話框 圖 61就是等分驗(yàn)證窗口，單擊【確定】將提交用戶信息。 為了實(shí)現(xiàn)該功能，需要以下控件： (1)2個(gè) CommandButton控件： 1個(gè)用來(lái)提交用戶名和密碼的【確定】按鈕， 1個(gè)用來(lái)退出系統(tǒng)的【取消】按鈕。 (2)2個(gè) TextBox控件。 其主要代碼如下： Private Sub Cmd_OK_Click() 39。數(shù)據(jù)有效性檢查 If Trim(txtUser) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Trim(txtPwd) = Then MsgBox 請(qǐng)輸入密碼 24 Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 39。判斷用戶是否存在 If (NameKey) = False 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 39。判斷密碼是否正確 (NameKey) If PasswordKey Then MsgBox 密碼錯(cuò)誤 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)后，會(huì)出現(xiàn)一個(gè)主界面。主要功能是基本信息管理，考勤考評(píng)管理以及系統(tǒng)用戶管理。如圖 53所示： 25 圖 62 人事管理系統(tǒng)主界面 圖 62就是人事管理系統(tǒng)的主界面，它包括三個(gè)主要菜單：基本信息管理，考勤信息管理，系統(tǒng)用戶管理。另外在每個(gè)菜單下還有幾個(gè)管理子選項(xiàng)：基本信息管理包含部門(mén)管理、員工管理和退出系統(tǒng)；考勤考評(píng)管理包含考勤管理和考評(píng)管理；系統(tǒng)用戶管理包含用戶管理和修改密碼。 進(jìn)入 “部門(mén)管理 ”窗口，其主要功能是進(jìn)行部門(mén)的添加，修改以及刪除操作?？蓪?duì)部門(mén)的名稱和部門(mén)描述進(jìn)行更改。如圖 63所示： 圖 63 部門(mén)管理界面 26 圖 63就是部門(mén)管理界面，其部門(mén)信息會(huì)以樹(shù)形顯示的方式顯示出來(lái)。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)4 個(gè) CommandButton 控件： 1 個(gè)用來(lái)添加部門(mén)信息的【添加】按鈕， 1 個(gè)用來(lái)修改部門(mén)信息的【修改】按鈕， 1個(gè)用來(lái)刪除部門(mén)信息的【刪除】按鈕， 1個(gè)用來(lái)退出該界面的【返回】按鈕。 (2)1個(gè) ImageList控件：用來(lái)講所使用到的圖片集中存放。 (3)1個(gè) TreeView 控件：使用 ImageList屬性指定的 ImageList控件保存在 Node對(duì)象中使用的點(diǎn)位圖和圖 標(biāo)。用來(lái)將所有部門(mén)的信息樹(shù)狀顯示。 以下是部門(mén)管理的主要代碼： Private Sub Form_Load() Dim TmpNode As Node 39。根據(jù)用戶類型設(shè)置界面 If = 2 Then = False = False = False = 2400 End If FocusDepName = 人事部 39。默認(rèn)選擇人事部 Focuskey = 39。設(shè)置根結(jié)點(diǎn) Set TmpNode = (, , a0, 部門(mén)信息 , 1, 3) = True = 2 39。調(diào)用函數(shù)將所有部門(mén)添加到 TreeView1中 Call Add_DepToTree(TreeView1, a0) 39。調(diào)用 TreeView1_Click過(guò)程，讀取當(dāng)前節(jié) 點(diǎn)數(shù)據(jù) TreeView1_Click End Sub Private Sub TreeView1_Click() Dim Focuskey As String 27 39。根據(jù)關(guān)鍵字獲取部門(mén)信息 Focuskey = = = Val(Right(, Len() 1)) If Focuskey = a0 Then 39。根結(jié)點(diǎn) Exit Sub End If 39。如果包含子結(jié)點(diǎn)，則設(shè)置圖像格式 If () = False Then = 4 = 4 = 5 End If 39。讀取 CurDep中的所有部門(mén)信息 () End Sub 在 “員工信息管理 ”界面中，其主要功能是進(jìn)行員工信息的處理以及 “學(xué)習(xí)與工作經(jīng)歷 ”和 “家庭主要成員管理 ”的處理等。如圖 64所示： 圖 64 員工信息管理界面 圖 64就是員工信息管理界面，在選擇所屬部門(mén)后單擊【添加職員】按鈕，會(huì) 28 出現(xiàn)一個(gè) “編輯員工信息 ”的界面；在選擇員工后單擊【家庭主要成員管理】或【學(xué)習(xí)與工作經(jīng)歷】后，會(huì)出現(xiàn)相應(yīng)的界面用來(lái)處理相 應(yīng)的信息。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)7個(gè) CommandButton控件： 1個(gè)是用來(lái)處理員工家庭主要成員信息的【家庭主要成員管理】按鈕， 1個(gè)是用來(lái)處理員工學(xué)習(xí)與工作經(jīng)歷信息的【學(xué)習(xí)與工作經(jīng)歷】按鈕， 1個(gè)是添加員工基本信息的【添加職員】按鈕， 1個(gè)是用來(lái)修改員工基本信息的【修改資料】按鈕， 1個(gè)是用來(lái)刪除員工基本信息的【刪除職員】按鈕，1個(gè)是用來(lái)調(diào)轉(zhuǎn)職員去另外部門(mén)的【部門(mén)調(diào)轉(zhuǎn)】按鈕， 1個(gè)是用來(lái)退出該界面的【返回】按鈕。 (2)1個(gè) ComboBox控件：用來(lái)列出員工的在職狀態(tài)。 (3)1個(gè) DataList控件：用來(lái)列出在某個(gè)狀態(tài)下的該部門(mén)內(nèi)的員工。 以下是員工信息管理的主要代碼： Private Sub Form_Load() 39。設(shè)置 ADO控件的連接字符串 = Provider=。Data Source= _ + + \人事 .mdb。Persist Security Info=False = Provider=。Data Source= _ + + \人事 .mdb。Persist Security Info=False = 0 FocusDepName = 人事部 Focuskey = 39。Root Node Set TmpNode = (, , a0, 部門(mén)信息 , 1, 3) = True = 2 39。將部門(mén)信息添加到 TreeView 控件中 Call Add_DepToTree(TreeView1, a0) TreeView1_Click 39。如果不是管理員，則只顯示員工姓名列表 29 If 1 Then = False = False = False = False = False = False = 2700 = 600 End If End Sub Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 39。單擊左鍵，則關(guān)閉照片管理菜單 If Button = 1 Then If = True Then Unload FrmPhotoMenu End If End If 39。單擊右鍵，打開(kāi)照片管理菜單 If Button = 2 Then If = 0 Then Exit Sub End If End If End Sub 在考勤考評(píng)管理里選擇考勤管理，打開(kāi) “員工考勤管理 ”界面，該界面主要有處理員工考勤信息的功能，以及導(dǎo)出某個(gè)部門(mén)的月度考勤統(tǒng)計(jì)表。如圖 65所示： 30 圖 65 員工考勤管理界面 圖 65就是員工考勤管理界面，其包括選擇日期、員工編號(hào)、全勤、出差、病假、事假、礦工、法定休假、年休假、倒休假、遲到分鐘、早退分鐘、法定節(jié)假日加班、周末加班、日常加班和備注等信息。在選擇完日期和部門(mén)后，單擊【添加】或其他操作按鈕，就會(huì)進(jìn)入相應(yīng)的操作界面進(jìn)行信息處理。 為了實(shí)現(xiàn)這些功能，需要如下控件： (1)5個(gè) CommandButton控件： 1個(gè)是用來(lái)添加員工考勤信息的【添加】按鈕，1個(gè)是用來(lái)修改員工考勤信息的【修改】按鈕， 1個(gè)是刪除員工考勤信息的【刪除】按鈕， 1個(gè)是用來(lái)導(dǎo)出某個(gè)指定部門(mén)的月度考勤信息統(tǒng)計(jì)的【月度考勤統(tǒng)計(jì)】按鈕， 1個(gè)是用來(lái)退出該界面的【返回】按鈕。 (2)1個(gè) ComboBox控件：用來(lái)選擇部門(mén)。 (3)1個(gè) DTPicker 控件：用來(lái)選擇某個(gè)日期，以正確填寫(xiě)員工考勤信息。