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

　　

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