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

　　

【正文】 ，將實(shí)體集合抽象成實(shí)體類(lèi)型。用實(shí)體間聯(lián)系反映現(xiàn)實(shí)世界事物間 的內(nèi)在聯(lián)系。 ER模型是建立概念性數(shù)據(jù)模型的有力工具。在下一章里會(huì)有實(shí)體間 ER 圖的描述。 數(shù)據(jù)字典 人事信息管理系統(tǒng)數(shù)據(jù)庫(kù)中員工基本信息表格（數(shù)據(jù)字典）的設(shè)計(jì)結(jié)果如下所示： 字段名 數(shù)據(jù)類(lèi)型 說(shuō)明 員工編號(hào) 文本 必添字段為“是”，允許空字符為“否” 員工姓名 文本 必添字段為“是”，允許空字符為“否” 所在部門(mén) 文本 必添字段為“是”，允許空字符為“否” 身份證號(hào) 文本 字段大小 30 性別 文本 字段大小 2 出生日期 日期 /時(shí)間 無(wú) 專(zhuān)業(yè) 文本 字段大小 5 籍貫 文本 字段 大小 5 政治面貌 文本 字段大小 5 婚姻狀況 文本 字段大小 4 學(xué)歷 文本 字段大小 5 電話號(hào)碼 文本 字段大小 15 家庭地址 文本 字段大小 50 電子郵件 文本 字段大小 50 郵政編碼 文本 字段大小 15 起薪時(shí)間 日期 /時(shí)間 無(wú) 調(diào)入部門(mén)時(shí)間 日期 /時(shí)間 無(wú) 進(jìn)入公司時(shí)間 日期 /時(shí)間 無(wú) 職稱(chēng) 文本 字段大小 10 職稱(chēng)時(shí)間 日期 /時(shí)間 無(wú) 表 41 員工基本信息表（ manrecord） 其它表格的設(shè)計(jì)與 員工基本信息表格的設(shè)計(jì)基本一致，但是一定要注意其數(shù)據(jù)類(lèi)型的設(shè)置。 5 詳細(xì)設(shè)計(jì) 數(shù)據(jù)庫(kù) 需求分析 用戶(hù)的需求具體體現(xiàn)在各種信息的提供、保存、更新、和查詢(xún)，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿(mǎn)足各種信息的輸入和輸出。收集基本數(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ì)出能夠滿(mǎn)足用戶(hù)需求的各種實(shí)體，以及它們之間的關(guān)系。這些實(shí)體包含 各種具體信息，通過(guò)相互之間的作用形成數(shù)據(jù)的流動(dòng)。 該系統(tǒng)包括的實(shí)體有：?jiǎn)T工基本信息實(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 圖類(lèi)似，得到各個(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ù)庫(kù) 。 根據(jù)上面分析的系統(tǒng)的各種功能要求，可以很容易想到系統(tǒng)所需要的數(shù)據(jù)庫(kù)應(yīng)該按照如下思路設(shè)計(jì)：考勤信息、部門(mén)管理等被視為一個(gè)完整的表，表中的各個(gè)字段即為這一部分的各個(gè)信息點(diǎn)。這樣整個(gè)數(shù)據(jù)庫(kù)設(shè)計(jì)后的結(jié)果如下圖所示： 員工 考勤管 理 工作評(píng) 價(jià) 考勤信息 工作評(píng)價(jià)信息 計(jì)發(fā)工資 員工工資 圖 54 Access數(shù)據(jù)庫(kù) 界面及代碼 運(yùn)行本系統(tǒng)程序，首先出現(xiàn)登錄界面，輸入正確的用戶(hù)名和密碼后進(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è)文本框和下拉式列表框，用來(lái)輸入員工個(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)，查看信息列表，這是通過(guò)一個(gè)控件SSTAB（屬性頁(yè)控件）實(shí)現(xiàn)的，將各種文本錄入控件放在屬性頁(yè)控件的各個(gè)頁(yè)面上，組成“基本信息”、“工作經(jīng)驗(yàn)”、“信息列表”。 用戶(hù)輸入完畢后，單擊“ 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)用更新記錄集的過(guò)程 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。 或性別、婚姻狀況、部門(mén)、職稱(chēng)有空選項(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ù)庫(kù)將發(fā)生錯(cuò)誤，最后根據(jù)狀態(tài)來(lái)顯示相應(yīng)的信息，如果添加 成功 ，將提示添加成功 。 信息的查詢(xún)通過(guò)查詢(xún)窗體來(lái)實(shí)現(xiàn)，考勤信息的查詢(xún)窗體： 圖 57 查詢(xún) 通過(guò)查詢(xún)窗體可以查詢(xún)自己所需要 的考勤信息，查找到后將在考勤列表中顯示查詢(xún)到的一條內(nèi)容， 查詢(xún)窗體可以通過(guò)一條信息查詢(xún)也可以通過(guò)多條查詢(xún)，例如可以單獨(dú)通過(guò)編號(hào)查詢(xún)也可以通過(guò)編號(hào)和姓名兩項(xiàng)查詢(xún)。信息查詢(xún)、工作評(píng)價(jià)的查詢(xún)和工資查詢(xún)與考勤信息的查詢(xún)類(lèi)似，也具有三種不同的方法查詢(xún)。 所有的 列表不但可以顯示全部信息，也可以顯示單獨(dú)的一條信息，如果 執(zhí)行的是查詢(xún)功能那列表中就顯示一條查詢(xún)到的信息了。 員工的工資情況有如下窗體顯示： 圖 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 沒(méi)選擇編號(hào)或帶 * 內(nèi)容沒(méi)填 ,若沒(mé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ù)庫(kù)的訪問(wèn)需要通過(guò) ODBC（數(shù)據(jù)源）來(lái)實(shí)現(xiàn)。打開(kāi) “控制面板”中的“ ODBC”，創(chuàng)建文件 DSN。本程序需要?jiǎng)?chuàng)建的文件名稱(chēng)為 ,登陸方式選擇使用輸入登陸 ID和密碼的 SQL server 驗(yàn)證，登陸 ID為 Sa ，密碼為空，默認(rèn)連接數(shù)據(jù)庫(kù) Personnel。 由于程序利用 ADO（ ActiveX Data Objevt）完成對(duì)數(shù)據(jù)的訪問(wèn)和操作，需要添加 ADO 庫(kù)。選擇 Visual Basic 的“ projevt”菜單中的“ References”選擇“ microsoftactiveX data object liibrary”。 AOO庫(kù)添加成功。 完成了程序各個(gè)功能模塊的創(chuàng)建，現(xiàn)在來(lái)看整個(gè)系統(tǒng)的運(yùn)行。運(yùn)行程序出現(xiàn)登錄 界面： 圖 59登錄 輸入用戶(hù)名和密碼后，進(jìn)入系統(tǒng)。但是如果三次輸入用戶(hù)名或密碼錯(cuò)誤的話，系統(tǒng)則提醒你“你已經(jīng)三次輸入錯(cuò)誤，否則將視為非法用戶(hù)”。 進(jìn)入系統(tǒng)后可以看到主窗體，可以選擇將要進(jìn)行的操作。如果以管理員的身份進(jìn)入可以進(jìn)行任何操作，例如信息的添加、修改、刪除、查詢(xún)及用戶(hù)的添加、刪除和密碼的修改等，但是如果以一般用戶(hù)的身份進(jìn)入則只能進(jìn)行查詢(xún)工作和更改密碼。 系統(tǒng)管理菜單 “系統(tǒng)”菜單包含 五個(gè)子菜單，分別是“添加用戶(hù)”、“更改密碼”、“重新登錄”、“關(guān)閉窗口”、“退出系統(tǒng)”。 單擊“添加用戶(hù)”子菜單，打開(kāi)“添加用戶(hù)”窗體，如下圖： 圖 510 添加用戶(hù) 需要注意的是添加用戶(hù)這一項(xiàng)只有管理員才有權(quán)利操作，一般用戶(hù)這一項(xiàng)是不允許操作的。管理員可以添加多個(gè)一般用戶(hù)。 更改密碼需要用戶(hù)輸入用戶(hù)名稱(chēng)、原密碼、新密碼。在更改密碼這個(gè)窗體中還有一個(gè)刪除用戶(hù)，它也是由 SSTAB 控件實(shí)現(xiàn)的，利用這一項(xiàng)可以刪除一個(gè)或多個(gè)用戶(hù)。 系統(tǒng)菜單中“關(guān)閉窗口”這一項(xiàng)是指關(guān)閉當(dāng)前 的活動(dòng)窗口，例如圖 510 中的添加用戶(hù)這個(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”菜單，編譯開(kāi)始。編譯完畢后，即生成了相應(yīng)的可執(zhí)行文件。 6 畢業(yè)設(shè)計(jì)小結(jié) 本系統(tǒng)通過(guò)自己的努力，經(jīng)過(guò)試用證明，系統(tǒng)基本滿(mǎn)足人事管理方面的需要。實(shí)現(xiàn)了員工基本信息管理、員工考勤管理、員工工資管理、系 統(tǒng)管理、系統(tǒng)維護(hù)等功能，給公司人事管理帶來(lái)很多方便，在界面上立求做到美觀