【正文】 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工事假為零! amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工獎金為零! amp。（1）彈出工資管理窗體（）的代碼Private Sub mnuSalaryManage_Click() = 3 End Sub（2）實現(xiàn)工資管理中的添加、刪除、修改功能的代碼①實現(xiàn)添加員工信息的的代碼Private Sub cmdAdd_Click() If = Then MsgBox 員工編碼不能為空,請輸入員工編碼!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資年份不能為空,請輸入員工工資年份!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資月份不能為空,請輸入員工工資月份!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工姓名不能為空,請輸入員工姓名!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If Val(Trim()) = 0 Then If MsgBox(確認員工崗位工資為零! amp。 Trim() amp。 Trim()).salAffaire = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salWork = (K_ amp。 Trim() amp。查詢結(jié)束后點擊“退出”按鈕，退出查詢系統(tǒng)。 ) 39。 Trim()).empInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的員工不存在,請重新查找., vbCritical + vbOKOnly, 錯誤提示End Sub在工程中添加一個員工信息管理的窗體，并為這個窗體進行代碼設(shè)計。 Trim()).empLang = (K_ amp。 Trim()).empAddr = (K_ amp。 Trim()).EmpID = (K_ amp。該部分中可以根據(jù)員工的編號對員工的基本信息進行查詢。（3）點擊“修改”按鈕先在列表中選中需修改的部門信息，點擊“修改”按鈕后彈出“部門信息修改”（frmModifyDep）窗體，如圖36所示：圖36 部門信息修改界面修改過信息后，點擊“修改”按鈕，即完成對部門信息的修改工作，然后點擊“關(guān)閉”按鈕退出修改窗體。 ).depName = (K_ amp。本模塊以企業(yè)部門的基本信息為對象，編制了一份表格，其中詳述了每個字段的設(shè)置及對其的說明。(2).Text = Call ClearInfo = FalseEnd Sub 得出的結(jié)果以及對結(jié)果的討論通過使用該模塊，就可以有效的規(guī)范擁有使用權(quán)限的不同層次的管理人員的數(shù)量，便于企業(yè)領(lǐng)導(dǎo)隨時查閱他們的信息，規(guī)范管理，保證輸入本系統(tǒng)的所有信息的準確性和一致性，確?！叭耸滦畔⒐芾硐到y(tǒng)”的正常運行。 模塊的整體流程登錄系統(tǒng)通過驗證系統(tǒng)管理模塊主窗體添加新用戶刪除用戶修改用戶重新登錄圖22式模塊整體流程 數(shù)據(jù)庫的設(shè)計本次設(shè)計的系統(tǒng)使用的是Access 2000作為數(shù)據(jù)庫管理系統(tǒng)，在Access中，新建一個數(shù)據(jù)庫，將其命名為“”，在新建的數(shù)據(jù)庫中建立一個名為SystemUser的表，表中用戶名為關(guān)鍵字，唯一標識出表中的記錄。備份或恢復(fù)成功后會有相應(yīng)的成功提示信息出現(xiàn)。（3） 實用性強軟件充分滿足中小型企業(yè)的不同管理需求，且操作簡單，易于維護，便于保存和傳閱。那么就我設(shè)計的“中小型企業(yè)人事信息管理系統(tǒng)”軟件具體的講，就是要做到對企業(yè)人事信息的規(guī)范化管理、和快速的查詢，從而減少管理方面的工作量。中小型企業(yè)“人事信息管理系統(tǒng)”設(shè)計摘要隨著市場競爭的加劇，中小型企業(yè)要想在激烈的競爭中立于不敗之地，就要不斷的加強管理，信息量也就不可避免增加很多，以往的管理模式已不再適應(yīng)現(xiàn)在社會經(jīng)濟發(fā)展的需求和企業(yè)對信息的需求，擁有一套能夠?qū)ζ髽I(yè)人事信息進行系統(tǒng)管理的應(yīng)用軟件，就顯得猶為得要。 軟件設(shè)計所能達到的技術(shù)參數(shù)本次軟件開發(fā)的工具是Visual Basic ，數(shù)據(jù)環(huán)境使用的是Microsoft Access 2000。（4） 操作簡便軟件使用直觀的圖形界面，即見既得的錄入格式、方便的錄入方式，電腦操作與手工處理流程完全一致，任何人員可在極短時間內(nèi)無師自通。正文 我開發(fā)的中小企業(yè)“人事信息管理系統(tǒng)”軟件主要由系統(tǒng)用戶管理、部門管理、員工管理、工資管理、數(shù)據(jù)管理和和幫助六個模塊組成。其字段結(jié)構(gòu)如表31所示：表21 用戶管理表（Admin）字段名字段說明類型寬度備注用戶名稱管理員名文本10主關(guān)鍵字用戶權(quán)限管理員權(quán)限文本8不能為空密碼管理員密碼文本8不能為空 程序的實現(xiàn) 操作方法當用戶以Administrator用戶登錄窗體后，點擊“系統(tǒng)維護”菜單中的“系統(tǒng)用戶管理”項后，則出現(xiàn)如圖23所示的“系統(tǒng)用戶管理”窗體。3部門信息管理每個企業(yè)因其企業(yè)性質(zhì)及管理模式的不同，組織結(jié)構(gòu)也不盡相同，因此部門的劃分方法及細化程度也不一樣。在此表中，以部門編碼字段為該表的主關(guān)鍵字（Primary Key，PK），它唯一標識了每一個部門的記錄， 其詳表如下表所示：表31 Department表字段名類型寬度備注部門編碼文本7主關(guān)鍵字部門名稱文本10不能為空部門主管數(shù)字長整型不能為空，對應(yīng)于Department表id字段部門描述文本200可以為空錄入時間日期/時間10可以為空錄入人文本8可以為空 程序的實現(xiàn)在主菜單中，設(shè)計了三個根菜單，“人事信息管理”，“系統(tǒng)維護”和“雜項”。 ).depMaster = (K_ amp。（1）彈出部門管理窗體（）的代碼Private Sub mnuDepartManage_Click() = 1 End Sub（2）實現(xiàn)部門管理中的添加、刪除、修改功能①實現(xiàn)添加部門信息的的代碼Private Sub cmdAdd_Click() If = Then MsgBox 部門編碼不能為空,請輸入部門編碼!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門名稱不能為空,請輸入部門名稱!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門主管不能為空,請輸入部門主管!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門描述不能為空,請輸入部門描述!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 部門錄入人不能為空,請輸入部門錄入人!, vbInformation + vbOKOnly, 信息不完整 Exit Sub End If Set Dep = Nothing 39。（2） 員工基本信息管理界面此部分功能就是如果員工的基本信息改變，那么用戶可以根據(jù)具體情況，對員工進行管理，可以執(zhí)行添加、刪除或者修改基本信息的操作。 Trim()).empDepID = (K_ amp。 Trim()).empPhone = (K_ amp。 Trim()).empEntryDate = (K_ amp。對員工信息進行管理，即對員工信息進行增加、刪除、修改操作，從而實現(xiàn)對員工信息的管理工作。需要再在此調(diào)用相應(yīng)的方法,刪除員工工資信息表中的該員工的所有工資信息 = False = False Unload Me MsgBox 刪除員工信息成功!, vbInformation + vbOKOnly, 成功提示 Else = False = False Unload Me MsgBox 刪除員工信息失敗!, vbCritical + vbOKOnly, 錯誤提示 End If Else = False = False Unload Me End IfEnd Sub③實現(xiàn)對員工信息修改功能的代碼Private Sub cmdModify_Click() If = Then MsgBox 職工編碼不能為空,請輸入職工編碼!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 部門編碼不能為空,請輸入部門編碼!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工姓名不能為空,請輸入員工姓名!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工性別不能為空,請輸入員工性別!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工民族不能為空,請輸入員工民族!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工婚否不能為空,請輸入員工婚否!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工籍貫不能為空,請輸入員工籍貫!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工家庭住址不能為空,請輸入員工家庭住址!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工聯(lián)系電話不能為空,請輸入員工聯(lián)系電話!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工身份證號不能為空,請輸入員工身