【導(dǎo)讀】已成為現(xiàn)代企業(yè)的第一要素，合理利用人力資源是企業(yè)發(fā)展的原動力。傳統(tǒng)的人事信息管理需大量人力、物力，且容易出錯。因此，建立高效、實用、科學(xué)的人事管理信息系統(tǒng)，是企業(yè)管理走向現(xiàn)代化的重要一步。題等方面，較為系統(tǒng)地介紹了“人事管理信息系統(tǒng)”課題開發(fā)的整個過程。統(tǒng)開發(fā)工具，數(shù)據(jù)庫采用ACCESS。在對被調(diào)研單位人事管理體系進行充分分析。“職工的添加和刪除、任意條件查詢、基本項目統(tǒng)計、打印輸出報表”等功能；而且具有程序設(shè)計合理、操作簡單、運行可靠、保密性強等特點。

　　

【正文】 Text(i).SetFocus Exit Sub End If Next i If = Then MsgBox 輸入信息不能為空！ , vbOKOnly + vbExclamation, 警告 開始 Caption=添加 Caption=保存 文本框可用值空 Caption=添加 文本框非空 警告結(jié)束 添加記錄集 更新記錄集 結(jié)束 Exit Sub End If If Not IsDate(Text(5).Text) Then MsgBox 工作時間應(yīng)輸 入日期（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Text(5).SetFocus Exit Sub Else Text(5).Text = Format(Text(5).Text, yyyymmdd) End If = 添加 For i = 0 To 7 (i) = Text(i).Text Next i (i) = End If End Sub 代碼設(shè)計說明：首先將 mand1 的 caption 屬性值修改為保存，當員工信息添加后再點擊保存，將 caption 屬性值修改為添加，這樣增強了系統(tǒng)的交互性。在保存時系統(tǒng)首先判斷輸入的信息是否為空和時間格式是否滿足 yyyymmdd 格式。如果不滿足系統(tǒng)給出警告。然后記錄集添加新的空記錄，最后設(shè)置新記錄集的字段值為輸入的文本框和組合框的值。系統(tǒng)利用 update 語句實現(xiàn)記錄集的更新。 該窗體的其它控件的和相應(yīng)的源代碼設(shè)計和以上類似，這里不再一一說明。 員工基本信息查詢界面設(shè)計 點擊主界面的數(shù)據(jù)查詢，可以打開員工基本信息查詢窗體。該窗體完成的數(shù)據(jù)查詢可以完成用戶任意字段的單一和組合查詢。查詢添加設(shè)計成用戶任意添加和刪除查詢條件。查詢字段和匹配值可以是 =， ， =， ， =， like。字段組合的方式可以是 and 或者 or。 1： 控件設(shè)計： 在該窗體中添加 2 個組合框控件，用于選擇查詢字段和匹配方式。一個文本框控件，用于輸入查詢條件字段值。一個列表控件，用于顯示當前添加的查詢條件。一個 datagrid 控件，用于顯示查詢的結(jié)果。 5 個按鈕控件，分別用于添加當前查詢條件，刪除查詢條件，清空查詢條件列表，執(zhí)行查詢，退出等功能。 2：窗體的 load 事件代碼設(shè)計： 窗體的 load 設(shè)計完成當窗體載入時完成的事件，這里設(shè)計完成的事件包括： 設(shè)置網(wǎng)格控件的 DataSource，使之顯示記錄集中的信息。 預(yù)置組合框中的內(nèi)容，將表中的所有字段添加到 Combo1 中； 將比較運算符添加到組合框 Combo2 中，并進行其他初始化設(shè)置。 完成以上功能的代碼如下： 程序設(shè)計流程如下： Private Sub Form_Load() Dim i As Integer Set = ADORst = True 39。向組合框 Combl1 中添加記錄集的所有字段名稱 For i = 0 To 1 ((i).Name) Next i 開始 向組合框中添加記錄集的所有字段名稱 向組合框中添加比較運算符 控件外觀初始化設(shè)置 設(shè)置單選紐不可見 結(jié)束 39。向組合框 Combl2 中添加比較運算符 = = = Like 39。控件外觀初始化設(shè)置 = = = 職工編號 = 39。設(shè)置單選紐不可見 = False = False End Sub 3：添加按鈕的源代碼設(shè)計： 窗體上的添加查詢條件的按鈕的 click 事件完成將當前設(shè)定的查詢條件添加到列表框中。 39。 單擊“添加”按鈕，將設(shè)置的條件寫入列表框中。 如果選取的 查詢字段為日期型，在數(shù)據(jù)兩側(cè)加“ ”； 如果選擇的查詢字段為字符型，在數(shù)據(jù)兩側(cè)加引號； 如果選擇的查詢字段為數(shù)值型，不對數(shù)據(jù)特別處理。源代碼設(shè)計如下： 開始 組合框 1=工作時間 設(shè)定查詢字符變量 設(shè)定查詢字符變量 組合框 2=and 設(shè)定查詢字符變量 設(shè)定查詢字符變量 Private Sub Command1_Click() Dim SQLS As String Dim And_Or As String And_Or = If = 工作時間 Then 39。日期型字段 SQLS = amp。 amp。 amp。 amp。 Trim() amp。 ElseIf = 職工年齡 Or = 基本工資 Then 39。數(shù)值型字段 SQLS = amp。 amp。 amp。 Trim() Else 39。字符型字段 SQLS = amp。 amp。 amp。 39。 amp。 Trim() amp。 39。 End If 39。如果列表框中已有內(nèi)容，添加的條件字符串前應(yīng)有“ and”或“ or” If 0 Then If Then And_Or = and If Then And_Or = OR End If And_Or amp。 SQLS = True = True = True End Sub 4：查詢按鈕的 click 事件源代碼設(shè)計： 當單擊查找按鈕，觸發(fā) click 事件的發(fā)生。完成對數(shù)據(jù)庫中相應(yīng)信息的查詢，將查詢的結(jié)果顯示在 dategid 控件中。 Private Sub Command4_Click() 39。=============================================== 39。單擊“查找”按鈕，獲取查找條件字符串； 39。重新定義網(wǎng)格控件的數(shù)據(jù)源，使顯示查找結(jié)果。 39。=============================================== Dim FindStr As String 39。SELECT 子句 Dim i As Integer On Error GoTo err1 FindStr = 39。獲取列表框中所有條件 For i = 0 To 1 FindStr = FindStr amp。 (i) Next i FindStr = LTrim(FindStr) 39。如果列表框中無內(nèi)容，顯示錯誤提示并退出 If FindStr = Then MsgBox 請向列表框中添加查詢條件！ , , 查詢條件設(shè)置錯誤 Exit Sub End If 39。設(shè)置查詢條件，返回查詢記錄集，并將此記錄集設(shè)置為網(wǎng)格控件的DataSource。 FindStr = select * from emp where amp。 FindStr Set ADORst = New Recordset FindStr, DB, adOpenStatic, adLockOptimistic Set = ADORst If = 0 Then = False Else = True Exit Sub err1: MsgBox 輸入錯誤的查詢條件 , , 輸入錯誤 End Sub 員工基本信息統(tǒng)計界面設(shè)計 員工基本信息統(tǒng)計分為簡單統(tǒng)計和自定義統(tǒng)計，界面如下： 1：控件設(shè)計：添加一個 sstab 控件， tabs 屬性設(shè)置為 2，當 tab 為 1 是該控件的caption 屬性設(shè)定 為簡單項目統(tǒng)計， tab 為 2 時， caption 屬性設(shè)置為自定義條件統(tǒng)計。在 tab 為 1 的界面上添加 6 個文本框用于顯示統(tǒng)計信息。 為了完成簡單信息統(tǒng)計，系統(tǒng)設(shè)計一個統(tǒng)計函數(shù) SimpleTJ，在該窗體載入時執(zhí)行該函數(shù)從而完成信息的統(tǒng)計。 該函數(shù)代碼設(shè)計如下： Sub SimpleTJ() Dim Sex_M As Integer, Sex_F As Integer Dim Age_35 As Integer, Age_45 As Integer Dim Age_55 As Integer, Age_25 As Integer Dim AGE_65 As Integer, Age_Ave As Single Dim Total_Num As Integer, Total_age As Long Dim Avg_Age As Single Set ADORst = New Recordset select * from emp, DB, adOpenStatic, adLockOptimistic Do While Not 39。按性別統(tǒng)計人數(shù) If (職工性別 ) = 男 Then Sex_M = Sex_M + 1 Else Sex_F = Sex_F + 1 End If 39。按年齡分布統(tǒng)計人數(shù) If (職工年齡 ) = 25 Then Age_25 = Age_25 + 1 ElseIf (職工年齡 ) = 35 Then Age_35 = Age_35 + 1 ElseIf (職工年齡 ) = 45 Then Age_45 = Age_45 + 1 ElseIf (職工年齡 ) = 55 Then Age_55 = Age_55 + 1 Else AGE_65 = AGE_65 + 1 End If Total_Num = Total_Num + 1 Total_age = Total_age + (職工年齡 ) Loop 39。顯示統(tǒng)計結(jié)果 = Sex_M = Sex_F = Age_25 = Age_35 = Age_45 = Age_55 = AGE_65 = Total_age / Total_Num End Sub 2：自定義條件統(tǒng)計設(shè)計： 在自定義統(tǒng)計界面中添加和查詢窗體中類似的控件和源代碼。所以這里就不再一一介紹詳細的設(shè)計過程。設(shè)計的界面如下： 完成統(tǒng)計的源代碼如下： Private Sub Command4_Click() 39。=============================================== 39。單擊“統(tǒng)計”按鈕，獲取查找條件字符串； 39。顯示統(tǒng)計結(jié)果。 39。=============================================== On Error Resume Next Dim FindStr As String 39。SELECT 子句 Dim i As Integer FindStr = 39。獲取列表框中所有條件 For i = 0 To 1 FindStr = FindStr amp。 (i) Next i FindStr = LTrim(FindStr) 39。如 果列表框中無內(nèi)容，顯示錯誤提示并退出 If FindStr = Then MsgBox 請向列表框