【正文】 ，最后點(diǎn)擊保存即可；（1）添加用戶Private Sub cmdAdd_Click() = True = True = True = True Call ClearInfoEnd SubPrivate Sub cmdSave_Click() If = Then MsgBox 用戶名不能為空,請(qǐng)輸入用戶名., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If = Then MsgBox 用戶口令不能為空,請(qǐng)輸入用口令., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If If Len(Trim()) 6 Then If MsgBox(用戶口令長(zhǎng)度小于6位,建議使用長(zhǎng)度大于6位的口令! amp。 是: 修改/否:不修改, vbInformation + vbYesNo, 安全提示) = vbYes Then = Exit Sub End If End If If = Then MsgBox 用戶權(quán)限不能為空,請(qǐng)輸入用戶權(quán)限., vbInformation + vbOKOnly, 信息不完整 Exit Sub End If Set User = Nothing = Trim() = Trim() = Trim() If (User) = True Then Call ClearInfo MsgBox 添加系統(tǒng)用戶成功!, vbInformation + vbOKOnly, 成功提示 Else Call ClearInfo MsgBox 添加系統(tǒng)用戶失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End If Set subitem = (, K_ amp。 vbCrLf amp。(2).Text = Call ClearInfo = FalseEnd Sub 得出的結(jié)果以及對(duì)結(jié)果的討論通過使用該模塊，就可以有效的規(guī)范擁有使用權(quán)限的不同層次的管理人員的數(shù)量，便于企業(yè)領(lǐng)導(dǎo)隨時(shí)查閱他們的信息，規(guī)范管理，保證輸入本系統(tǒng)的所有信息的準(zhǔn)確性和一致性，確?！叭耸滦畔⒐芾硐到y(tǒng)”的正常運(yùn)行。但對(duì)于一個(gè)中小型企業(yè)來說，一般都會(huì)采用直線制，部門職能制等適合中小型企業(yè)的組織結(jié)構(gòu)。 根據(jù)本系統(tǒng)的需求，結(jié)合實(shí)際管理情況，本模塊應(yīng)作如下細(xì)化：（1）在查詢方面隨著企業(yè)規(guī)模的不斷擴(kuò)大，企業(yè)中設(shè)立的部門也越來越具體化，因此部門的數(shù)量也不可避免的增加，查詢功能的實(shí)現(xiàn)，可以很好的解決管理工作中繁瑣的查找工作，從而很好的提高管理效率。通過此模塊，可以快速高效的對(duì)部門進(jìn)行的調(diào)整，以減少不必要的工作量，將工作人員從繁瑣的日常事務(wù)中解脫出來。本模塊以企業(yè)部門的基本信息為對(duì)象，編制了一份表格，其中詳述了每個(gè)字段的設(shè)置及對(duì)其的說明。“人事信息管理”菜單用來對(duì)企業(yè)的部門、員工、工資等信息進(jìn)行管理，在本節(jié)中，著重談到的是其中的對(duì)部門信息的管理工作。 部門信息查詢的操作方法：當(dāng)用戶需要對(duì)部門信息進(jìn)行查詢時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“部門信息查詢”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵“部門信息查詢”，彈出“部門信息查詢”窗體，如圖32所示圖32 部門信息查詢界面在窗體中的“部門編碼”中輸入要查詢的部門編碼，點(diǎn)擊“查詢”按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。（1）彈出部門查詢窗休（frmDepQuery .frm）：Private Sub mnuDepartQuery_Click() = 1 End Sub（2）實(shí)現(xiàn)查詢功能的代碼如下：Private Sub cmdQuery_Click()On Error GoTo LabErr = (K_ amp。 ).depName = (K_ amp。 ).depNote = (K_ amp。 ).depInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的部門不存在,請(qǐng)重新查找!, vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)部門信息管理的窗體， 并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)?？稍谶M(jìn)入主界面后單擊“人事信息管理”菜單，選擇“部門信息管理”項(xiàng)，則會(huì)彈出部門信息管理窗體，如圖33 所示：圖（3）點(diǎn)擊“修改”按鈕先在列表中選中需修改的部門信息，點(diǎn)擊“修改”按鈕后彈出“部門信息修改”（frmModifyDep）窗體，如圖36所示：圖36 部門信息修改界面修改過信息后，點(diǎn)擊“修改”按鈕，即完成對(duì)部門信息的修改工作，然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。當(dāng)對(duì)象引用到集合中的其他的內(nèi)存空間時(shí)，再添加新的數(shù)據(jù)時(shí)，可以正常添加數(shù)據(jù)，但再次查詢時(shí)，原來集合中對(duì)應(yīng)的數(shù)據(jù)會(huì)被覆蓋掉，但不會(huì)影響到數(shù)據(jù)庫(kù)的巨鹿添加 = Trim() = Trim() = Trim() = Trim() = Trim() = Trim() If (Dep) = True Then Call ClearInfo Set subitem = (, K_ amp。根據(jù)一般的中小型企業(yè)人事管理的實(shí)際要求，該模塊主要具有以下功能：（1） 掌握整個(gè)企業(yè)每個(gè)員工的基本情況。（2） 可以根據(jù)不同的用戶名對(duì)員工信息進(jìn)行瀏覽（3） 可以對(duì)員工的信息進(jìn)行查詢（4） 要求可以對(duì)員工基本信息進(jìn)行變動(dòng)管理，對(duì)員工信息進(jìn)行添加、刪除和修改操作。該部分中可以根據(jù)員工的編號(hào)對(duì)員工的基本信息進(jìn)行查詢。 模塊的整體流程根據(jù)企業(yè)人事管理流程，結(jié)合上述的各項(xiàng)功能，模塊的整體流程如圖41所示：登錄用戶通過驗(yàn)證程序主窗口對(duì)現(xiàn)有員工的信息進(jìn)行管理（包括添加、修改、刪除）查詢現(xiàn)有員工的基本信息重新登錄查詢幫助信息圖41 員工管理模塊總體流程圖和前面一章相似，本模塊主要針對(duì)的對(duì)象為員工的基本信息。當(dāng)用戶需要對(duì)部門信息進(jìn)行查詢時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵，彈出“員工信息查詢”窗體，如圖42所示圖42 員工工信息查詢界面在窗體中的“員工編號(hào)”中輸入要查詢的員工編號(hào)，點(diǎn)擊“查詢“按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。查詢結(jié)束后點(diǎn)擊“退出”按鈕，退出查詢系統(tǒng)。 Trim()).EmpID = (K_ amp。 Trim()).empName = (K_ amp。 Trim()).empBornDate = (K_ amp。 Trim()).empMarry = (K_ amp。 Trim()).empAddr = (K_ amp。 Trim()).empCard = (K_ amp。 Trim()).empDegree = (K_ amp。 Trim()).empFinalDate = (K_ amp。 Trim()).empLang = (K_ amp。 Trim()).empSafety = (K_ amp。 Trim()).empPost = (K_ amp。 Trim()).empPactEnd = (K_ amp。 Trim()).empInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的員工不存在,請(qǐng)重新查找., vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)員工信息管理的窗體，并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)?？稍谶M(jìn)入主界面后單擊“人事信息管理”菜單，選擇“員工信息管理”項(xiàng)，則會(huì)彈出員工信息管理窗體，如圖43所示圖43 員工信息管理窗口在此窗體中即可實(shí)現(xiàn)對(duì)部門信息的管理工作，（1）添加點(diǎn)擊“添加”按鈕，即可彈出“添加員工”窗體，如圖44所示圖44 添加員工界在窗體中輸入相關(guān)信息后，點(diǎn)擊“添加”按扭后，添加信息，如想取消輸入的內(nèi)容，則點(diǎn)擊“清除”按扭即可，點(diǎn)擊“關(guān)閉”按鈕后，退出添加窗體（2）刪除點(diǎn)擊“刪除”按鈕后，彈出員工信息刪除窗體（frmDeleteEmp），如圖45所示：圖45 刪除員工信息界面在列表中點(diǎn)擊要?jiǎng)h除的信息后，點(diǎn)擊“刪除”按鈕，即可刪除信息，點(diǎn)擊“關(guān)閉”按鈕后，退出窗體（3）修改先在列表中選中需修改的員工的編碼，然后點(diǎn)擊“修改”按鈕后，彈出“員工信息修改”（frmModifyEmp）窗體如圖46所示： 圖46 修改員工信息界面修改過后，點(diǎn)擊“修改”按鈕，即完成對(duì)員工信息的修改工作。（1） 彈出員工信息管理窗體（）的代碼如下：Private Sub mnuEmpQuery_Click() = 2 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 = 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)輸入員工身份證號(hào)!, 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 員工畢業(yè)學(xué)校不能為空,請(qǐng)輸入員工畢業(yè)學(xué)校!, vbInformation + v