【正文】 MsgBox 您所查找的部門不存在,請(qǐng)重新查找!, vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)部門信息管理的窗體， 并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)。（3）點(diǎn)擊“修改”按鈕先在列表中選中需修改的部門信息，點(diǎn)擊“修改”按鈕后彈出“部門信息修改”（frmModifyDep）窗體，如圖36所示：圖36 部門信息修改界面修改過信息后，點(diǎn)擊“修改”按鈕，即完成對(duì)部門信息的修改工作，然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。根據(jù)一般的中小型企業(yè)人事管理的實(shí)際要求，該模塊主要具有以下功能：（1） 掌握整個(gè)企業(yè)每個(gè)員工的基本情況。該部分中可以根據(jù)員工的編號(hào)對(duì)員工的基本信息進(jìn)行查詢。當(dāng)用戶需要對(duì)部門信息進(jìn)行查詢時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵，彈出“員工信息查詢”窗體，如圖42所示圖42 員工工信息查詢界面在窗體中的“員工編號(hào)”中輸入要查詢的員工編號(hào)，點(diǎn)擊“查詢“按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息。 Trim()).EmpID = (K_ amp。 Trim()).empBornDate = (K_ amp。 Trim()).empAddr = (K_ amp。 Trim()).empDegree = (K_ amp。 Trim()).empLang = (K_ amp。 Trim()).empPost = (K_ amp。 Trim()).empInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的員工不存在,請(qǐng)重新查找., vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)員工信息管理的窗體，并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)。（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 + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工所學(xué)專業(yè)不能為空,請(qǐng)輸入員工所學(xué)專業(yè)!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工外語語種不能為空,請(qǐng)輸入員工外語語種!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工養(yǎng)老保險(xiǎn)號(hào)不能為空,請(qǐng)輸入員工養(yǎng)老保險(xiǎn)號(hào)!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工職務(wù)職稱不能為空,請(qǐng)輸入員工職務(wù)職稱!, 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 Set Emp = Nothing = = = = = = = = = = = = = = = = = = = = = = = = = If (Emp) = True Then Call ClearInfo Set subitem = (, K_ amp。 ) 39。5．2模塊的建立為使工資管理模塊淺顯易懂，易于操作，特將模塊簡(jiǎn)化，細(xì)化如下：（1） 在查詢方面為方便管理人員的管理工作，能夠快速查找某位員工的工資情況，便于日常管理，我在此的設(shè)計(jì)是：管理人員可以根據(jù)員工的編號(hào)及想查找的員工某年月的工資情況，則可以查找窗體中下拉列表中選擇相應(yīng)的數(shù)據(jù)確定后，即可在窗體上方顯示查找數(shù)據(jù)的詳細(xì)信息，即：本設(shè)計(jì)可以對(duì)員工的工資情況進(jìn)行精確的查詢。查詢結(jié)束后點(diǎn)擊“退出”按鈕，退出查詢系統(tǒng)。 Trim()).salEmpID = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salWork = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salRisk = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salAffaire = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的員工工資信息不存在,請(qǐng)重新查找!, vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)員工工資信息管理的窗體，并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)。（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。 確認(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。 確認(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)員工其他項(xiàng)目為零! 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。 amp。 vbCrLf a