【導(dǎo)讀】人是生產(chǎn)力中最活躍的因素，人的能力就是人力。"自然是財(cái)富之母，勞動(dòng)。是財(cái)富之父"，沒有人的勞動(dòng)，任何社會(huì)財(cái)富也不可能創(chuàng)造出來。業(yè)唯一真正的資源是人。管理就是要充分開發(fā)并合理使用人力資源以做好工作。這使人們認(rèn)識(shí)到人力資源是企業(yè)的"第一資。生產(chǎn)管理構(gòu)成現(xiàn)代企業(yè)管理的四大支柱。

　　

【正文】 工，將實(shí)體集合抽象成實(shí)體類型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界事物間 的內(nèi)在聯(lián)系。 ER模型是建立概念性數(shù)據(jù)模型的有力工具。在下一章里會(huì)有實(shí)體間 ER 圖的描述。 數(shù)據(jù)字典 人事信息管理系統(tǒng)數(shù)據(jù)庫中員工基本信息表格（數(shù)據(jù)字典）的設(shè)計(jì)結(jié)果如下所示： 字段名 數(shù)據(jù)類型 說明 員工編號(hào) 文本 必添字段為“是”，允許空字符為“否” 員工姓名 文本 必添字段為“是”，允許空字符為“否” 所在部門 文本 必添字段為“是”，允許空字符為“否” 身份證號(hào) 文本 字段大小 30 性別 文本 字段大小 2 出生日期 日期 /時(shí)間 無 專業(yè) 文本 字段大小 5 籍貫 文本 字段 大小 5 政治面貌 文本 字段大小 5 婚姻狀況 文本 字段大小 4 學(xué)歷 文本 字段大小 5 電話號(hào)碼 文本 字段大小 15 家庭地址 文本 字段大小 50 電子郵件 文本 字段大小 50 郵政編碼 文本 字段大小 15 起薪時(shí)間 日期 /時(shí)間 無 調(diào)入部門時(shí)間 日期 /時(shí)間 無 進(jìn)入公司時(shí)間 日期 /時(shí)間 無 職稱 文本 字段大小 10 職稱時(shí)間 日期 /時(shí)間 無 表 41 員工基本信息表（ manrecord） 其它表格的設(shè)計(jì)與 員工基本信息表格的設(shè)計(jì)基本一致，但是一定要注意其數(shù)據(jù)類型的設(shè)置。 5 詳細(xì)設(shè)計(jì) 數(shù)據(jù)庫 需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新、和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸入和輸出。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一根相近的數(shù)據(jù)字典， 仔細(xì)分析調(diào)查有關(guān)企業(yè)人事信息需求的基礎(chǔ)上，得到本系統(tǒng)所處理的數(shù)據(jù)流流程 : 圖 51 人事信息系統(tǒng)數(shù)據(jù)流程圖 概念結(jié)構(gòu)設(shè)計(jì) 根據(jù)數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)，可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系。這些實(shí)體包含 各種具體信息，通過相互之間的作用形成數(shù)據(jù)的流動(dòng)。 該系統(tǒng)包括的實(shí)體有：員工基本信息實(shí)體、員工工考勤信息實(shí)體、員工工資評(píng)價(jià) 信息 實(shí)體、員工工資信息實(shí)體。以員工基本信息實(shí)體為例，它 的 ER圖描述如 下： 員工登記 信息錄 入入 管理 基本信息管理 考勤管 理理 理 考勤信息管理 計(jì)發(fā)工資 員工當(dāng)月工資 工資管理 工資設(shè)置 工作評(píng)價(jià)管理 工作評(píng)價(jià) 圖 52 員工基本信息 ER圖 其它實(shí)體的 ER 圖與員工基本信息的 ER 圖類似，得到各個(gè)實(shí)體的 ER 圖后，實(shí)體與實(shí)體之間的關(guān)系更加清晰，所以可以得出實(shí)體與實(shí)體之間總的 ER 圖，如下 ： 員工基本信息實(shí)體 姓名 編號(hào) 參加工作時(shí)間 進(jìn)入公司時(shí)間 …..….. 圖 53 實(shí)體與實(shí)體之間的關(guān)系 ER圖 本系統(tǒng)采用 Access2021 作為后臺(tái)數(shù)據(jù)庫 。 根據(jù)上面分析的系統(tǒng)的各種功能要求，可以很容易想到系統(tǒng)所需要的數(shù)據(jù)庫應(yīng)該按照如下思路設(shè)計(jì)：考勤信息、部門管理等被視為一個(gè)完整的表，表中的各個(gè)字段即為這一部分的各個(gè)信息點(diǎn)。這樣整個(gè)數(shù)據(jù)庫設(shè)計(jì)后的結(jié)果如下圖所示： 員工 考勤管 理 工作評(píng) 價(jià) 考勤信息 工作評(píng)價(jià)信息 計(jì)發(fā)工資 員工工資 圖 54 Access數(shù)據(jù)庫 界面及代碼 運(yùn)行本系統(tǒng)程序，首先出現(xiàn)登錄界面，輸入正確的用戶名和密碼后進(jìn)入主窗體。主窗體的菜單欄中有系統(tǒng)、員工信息、考勤 管理 、工 作評(píng)價(jià)、工資管理 5個(gè)菜單。 進(jìn)入窗體后可以選擇自己所要進(jìn)行的操作， 界面如下： 圖 55主界面 這個(gè)主窗體的創(chuàng)建使用多文檔界面，單擊工具欄中的 ADD MDI Form 按鈕，產(chǎn)生這個(gè)窗體 。然后再在菜單編輯器內(nèi)編輯自己所需要的菜單。 下面是程序中幾個(gè)主要窗體及其部分代碼： 添加員工信息窗體如下所示 ： 圖 56員工信息 在窗體上放置多個(gè)文本框和下拉式列表框，用來輸入員工個(gè)人基本信息 。從窗體上可以看到在這一個(gè)窗體內(nèi)可以對(duì)信息進(jìn)行添加、編輯、刪除、移動(dòng) ，一個(gè)窗體解決了四種不同的操作，當(dāng)選擇修改和刪除員工信息操作時(shí)出現(xiàn)的也是這個(gè)界面。其中“移動(dòng)”的作用是按照編號(hào)的順序，可以在此窗體中逐個(gè)查看員工信息。 在這個(gè)界面上還可以添加工作經(jīng)驗(yàn)，查看信息列表，這是通過一個(gè)控件SSTAB（屬性頁控件）實(shí)現(xiàn)的，將各種文本錄入控件放在屬性頁控件的各個(gè)頁面上，組成“基本信息”、“工作經(jīng)驗(yàn)”、“信息列表”。 用戶輸入完畢后，單擊“ cmdSave ” 按鈕將觸發(fā) Click 事件，代碼如下： Private Sub CmdSave_Click() Dim StrSQL As String StrSQL = select 員工編號(hào) from 員工檔案 where 員工編號(hào) =39。 amp。 Trim() amp。 39。 If Trim() Empty Then Call UpRsValue 39。//調(diào)用更新記錄集的過程 On Error GoTo ErrSave 39。 If = adStateClosed Then 39。 StrSQL, DBCON, adOpenKeyset, adLockPessimistic, adCmdText 39。 End If 39。 If 0 Then 39。 MsgBox 員工編號(hào)已存在 , vbInformation + vbOKOnly, 驗(yàn)證錯(cuò)誤 39。 39。 = 0 39。 = 39。 39。 Else 39。//更新記錄 Call CmdMove_Click MsgBox 數(shù)據(jù)已保存 , , 保存成功 = 0 Call CmdState2 Call TxtState1 39。 End If Else MsgBox 原身份不能為空 , , 驗(yàn)證失敗 = 1 End If Exit Sub ErrSave: Select Case Case 2147217887 MsgBox 員工編號(hào)已存在 , amp。 vbCrLf amp。 或性別、婚姻狀況、部門、職稱有空選項(xiàng)！ , vbInformation + vbOKOnly, 輸入錯(cuò)誤 Case Else MsgBox 錯(cuò)誤描述： amp。 amp。 vbCrLf amp。 錯(cuò)誤代碼： amp。 , vbCritical + vbOKOnly, 非法操作 Unload Me End Select End Sub 程序首先對(duì)是否輸入內(nèi)容進(jìn)行判斷，然后進(jìn)行格式判斷，判斷是否有重復(fù)記錄是很重要的，否則數(shù)據(jù)庫將發(fā)生錯(cuò)誤，最后根據(jù)狀態(tài)來顯示相應(yīng)的信息，如果添加 成功 ，將提示添加成功 。 信息的查詢通過查詢窗體來實(shí)現(xiàn)，考勤信息的查詢窗體： 圖 57 查詢 通過查詢窗體可以查詢自己所需要 的考勤信息，查找到后將在考勤列表中顯示查詢到的一條內(nèi)容， 查詢窗體可以通過一條信息查詢也可以通過多條查詢，例如可以單獨(dú)通過編號(hào)查詢也可以通過編號(hào)和姓名兩項(xiàng)查詢。信息查詢、工作評(píng)價(jià)的查詢和工資查詢與考勤信息的查詢類似，也具有三種不同的方法查詢。 所有的 列表不但可以顯示全部信息，也可以顯示單獨(dú)的一條信息，如果 執(zhí)行的是查詢功能那列表中就顯示一條查詢到的信息了。 員工的工資情況有如下窗體顯示： 圖 58 員工工資 員工的工資信息不可以添加，只能夠?qū)ΜF(xiàn)有的 員工的工資情況 進(jìn)行修改和刪除 。 并且?guī)?*的必須要輸入 內(nèi)容，代碼是： Private Sub cmdOK_Click() If = adStateClosed Then 員工工資 , DBCON, adOpenKeyset, adLockOptimistic, adCmdTable End If On Error GoTo ERRAdd 39。//錯(cuò)誤捕捉 Call AddPay = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Empty = Date MsgBox 數(shù)據(jù)已被保存 , , 保存成功 Exit Sub ERRAdd: Select Case Case 2147217887 MsgBox 編號(hào)不能為空 , vbInformation + vbOKOnly, 輸入錯(cuò)誤 Case 2147352571 MsgBox 沒選擇編號(hào)或帶 * 內(nèi)容沒填 ,若沒有請(qǐng)輸 入 0 , vbInformation + vbOKOnly, 輸入錯(cuò)誤 Case Else MsgBox 錯(cuò)誤描述： amp。 amp。 vbCrLf amp。 錯(cuò)誤代碼： amp。 , vbCritical + vbOKOnly, 非法操作 End Select End Sub 輸入內(nèi)容時(shí)系統(tǒng)將會(huì)自動(dòng)計(jì)算出當(dāng)前的工資總額。 計(jì)算工資的程序代碼是 ： Private Sub Change() = Val() + Val() + Val() + Val() + Val() + Val() Val() Val() End Sub 以上是該程序的部分窗體和代碼， 系統(tǒng)的實(shí)現(xiàn) 程序?qū)?shù)據(jù)庫的訪問需要通過 ODBC（數(shù)據(jù)源）來實(shí)現(xiàn)。打開 “控制面板”中的“ ODBC”，創(chuàng)建文件 DSN。本程序需要?jiǎng)?chuàng)建的文件名稱為 ,登陸方式選擇使用輸入登陸 ID和密碼的 SQL server 驗(yàn)證，登陸 ID為 Sa ，密碼為空，默認(rèn)連接數(shù)據(jù)庫 Personnel。 由于程序利用 ADO（ ActiveX Data Objevt）完成對(duì)數(shù)據(jù)的訪問和操作，需要添加 ADO 庫。選擇 Visual Basic 的“ projevt”菜單中的“ References”選擇“ microsoftactiveX data object liibrary”。 AOO庫添加成功。 完成了程序各個(gè)功能模塊的創(chuàng)建，現(xiàn)在來看整個(gè)系統(tǒng)的運(yùn)行。運(yùn)行程序出現(xiàn)登錄 界面： 圖 59登錄 輸入用戶名和密碼后，進(jìn)入系統(tǒng)。但是如果三次輸入用戶名或密碼錯(cuò)誤的話，系統(tǒng)則提醒你“你已經(jīng)三次輸入錯(cuò)誤，否則將視為非法用戶”。 進(jìn)入系統(tǒng)后可以看到主窗體，可以選擇將要進(jìn)行的操作。如果以管理員的身份進(jìn)入可以進(jìn)行任何操作，例如信息的添加、修改、刪除、查詢及用戶的添加、刪除和密碼的修改等，但是如果以一般用戶的身份進(jìn)入則只能進(jìn)行查詢工作和更改密碼。 系統(tǒng)管理菜單 “系統(tǒng)”菜單包含 五個(gè)子菜單，分別是“添加用戶”、“更改密碼”、“重新登錄”、“關(guān)閉窗口”、“退出系統(tǒng)”。 單擊“添加用戶”子菜單，打開“添加用戶”窗體，如下圖： 圖 510 添加用戶 需要注意的是添加用戶這一項(xiàng)只有管理員才有權(quán)利操作，一般用戶這一項(xiàng)是不允許操作的。管理員可以添加多個(gè)一般用戶。 更改密碼需要用戶輸入用戶名稱、原密碼、新密碼。在更改密碼這個(gè)窗體中還有一個(gè)刪除用戶，它也是由 SSTAB 控件實(shí)現(xiàn)的，利用這一項(xiàng)可以刪除一個(gè)或多個(gè)用戶。 系統(tǒng)菜單中“關(guān)閉窗口”這一項(xiàng)是指關(guān)閉當(dāng)前 的活動(dòng)窗口，例如圖 510 中的添加用戶這個(gè)窗體就是一個(gè)活動(dòng)窗體。 系統(tǒng)的編譯 完成了人事信息管理系統(tǒng)的編程和調(diào)試工作，最后一步就是該系統(tǒng)的編譯。 在編譯前先設(shè)置工程項(xiàng)目的屬性。選擇“ Project/人事管理系統(tǒng)Properties”菜單，進(jìn)行屬性設(shè)置。最后選擇“ File/Make 人事管理系統(tǒng) .exe”菜單，編譯開始。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。 6 畢業(yè)設(shè)計(jì)小結(jié) 本系統(tǒng)通過自己的努力，經(jīng)過試用證明，系統(tǒng)基本滿足人事管理方面的需要。實(shí)現(xiàn)了員工基本信息管理、員工考勤管理、員工工資管理、系 統(tǒng)管理、系統(tǒng)維護(hù)等功能，給公司人事管理帶來很多方便，在界面上立求做到美