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