【正文】 MsgBox 您所查找的部門不存在,請重新查找!, vbCritical + vbOKOnly, 錯誤提示End Sub在工程中添加一個部門信息管理的窗體， 并為這個窗體進行代碼設計。（3）點擊“修改”按鈕先在列表中選中需修改的部門信息，點擊“修改”按鈕后彈出“部門信息修改”（frmModifyDep）窗體，如圖36所示：圖36 部門信息修改界面修改過信息后，點擊“修改”按鈕，即完成對部門信息的修改工作，然后點擊“關閉”按鈕退出修改窗體。根據一般的中小型企業(yè)人事管理的實際要求，該模塊主要具有以下功能：（1） 掌握整個企業(yè)每個員工的基本情況。該部分中可以根據員工的編號對員工的基本信息進行查詢。當用戶需要對部門信息進行查詢時，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢”選項，也可點擊主窗體上的快捷鍵，彈出“員工信息查詢”窗體，如圖42所示圖42 員工工信息查詢界面在窗體中的“員工編號”中輸入要查詢的員工編號，點擊“查詢“按鈕，即可在窗體中“查詢結果”下方顯示所要查詢的信息。 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 您所查找的員工不存在,請重新查找., vbCritical + vbOKOnly, 錯誤提示End Sub在工程中添加一個員工信息管理的窗體，并為這個窗體進行代碼設計。（1） 彈出員工信息管理窗體（）的代碼如下：Private Sub mnuEmpQuery_Click() = 2 End Sub（2）實現員工管理中的添加、刪除、修改功能的代碼①實現添加員工信息的的代碼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 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 員工身份證號不能為空,請輸入員工身份證號!, 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 員工畢業(yè)學校不能為空,請輸入員工畢業(yè)學校!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工所學專業(yè)不能為空,請輸入員工所學專業(yè)!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工外語語種不能為空,請輸入員工外語語種!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工養(yǎng)老保險號不能為空,請輸入員工養(yǎng)老保險號!, 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 Emp = Nothing = = = = = = = = = = = = = = = = = = = = = = = = = If (Emp) = True Then Call ClearInfo Set subitem = (, K_ amp。 ) 39。5．2模塊的建立為使工資管理模塊淺顯易懂，易于操作，特將模塊簡化，細化如下：（1） 在查詢方面為方便管理人員的管理工作，能夠快速查找某位員工的工資情況，便于日常管理，我在此的設計是：管理人員可以根據員工的編號及想查找的員工某年月的工資情況，則可以查找窗體中下拉列表中選擇相應的數據確定后，即可在窗體上方顯示查找數據的詳細信息，即：本設計可以對員工的工資情況進行精確的查詢。查詢結束后點擊“退出”按鈕，退出查詢系統(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 您所查找的員工工資信息不存在,請重新查找!, vbCritical + vbOKOnly, 錯誤提示End Sub在工程中添加一個員工工資信息管理的窗體，并為這個窗體進行代碼設計。（1）彈出工資管理窗體（）的代碼Private Sub mnuSalaryManage_Click() = 3 End Sub（2）實現工資管理中的添加、刪除、修改功能的代碼①實現添加員工信息的的代碼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。 確認請點擊:是,重新輸入請點擊:否, 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。 確認請點擊:是,重新輸入請點擊:否, 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。 amp。 vbCrLf a