【文章內(nèi)容簡(jiǎn)介】 0不能為空養(yǎng)老保險(xiǎn)號(hào)特殊20不能為空職務(wù)文本8可以為空職稱(chēng)文本10可以為空崗位文本10不能為空合同開(kāi)始時(shí)間日期/時(shí)間10不能為空合同結(jié)束時(shí)間日期/時(shí)間10不能為空錄入時(shí)間日期/時(shí)間10不能為空錄入人文本8不能為空登錄后進(jìn)入的主窗體中的“人事信息管理”主菜單中，“員工信息管理”和“員工信息查詢(xún)”，及界面上的快捷菜單，都可以對(duì)企業(yè)的員工信息進(jìn)行查詢(xún)與管理，其實(shí)現(xiàn)如下所述：在工程中添加一個(gè)員工信息查詢(xún)的窗體。當(dāng)用戶(hù)需要對(duì)部門(mén)信息進(jìn)行查詢(xún)時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“員工信息查詢(xún)”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵，彈出“員工信息查詢(xún)”窗體，如圖42所示圖42 員工工信息查詢(xún)界面在窗體中的“員工編號(hào)”中輸入要查詢(xún)的員工編號(hào)，點(diǎn)擊“查詢(xún)“按鈕，即可在窗體中“查詢(xún)結(jié)果”下方顯示所要查詢(xún)的信息。如果輸入錯(cuò)誤則點(diǎn)擊“清除”鍵后重新輸入進(jìn)行查找，如果沒(méi)有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的員工不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。查詢(xún)結(jié)束后點(diǎn)擊“退出”按鈕，退出查詢(xún)系統(tǒng)。（1）彈出員工查詢(xún)窗休（frmEmpQuery .frm）的代碼Private Sub mnuEmpQuery_Click() = 2 End Sub（2）實(shí)現(xiàn)查詢(xún)功能的代碼On Error GoTo LabErr = (K_ amp。 Trim()).EmpID = (K_ amp。 Trim()).empDepID = (K_ amp。 Trim()).empName = (K_ amp。 Trim()).empSex = (K_ amp。 Trim()).empBornDate = (K_ amp。 Trim()).empNation = (K_ amp。 Trim()).empMarry = (K_ amp。 Trim()).empNative = (K_ amp。 Trim()).empAddr = (K_ amp。 Trim()).empPhone = (K_ amp。 Trim()).empCard = (K_ amp。 Trim()).empPolity = (K_ amp。 Trim()).empDegree = (K_ amp。 Trim()).empFinalSchool = (K_ amp。 Trim()).empFinalDate = (K_ amp。 Trim()).empSpecial = (K_ amp。 Trim()).empLang = (K_ amp。 Trim()).empEntryDate = (K_ amp。 Trim()).empSafety = (K_ amp。 Trim()).empDuty = (K_ amp。 Trim()).empPost = (K_ amp。 Trim()).empPactBegin = (K_ amp。 Trim()).empPactEnd = (K_ amp。 Trim()).empDateIn = (K_ amp。 Trim()).empInner Exit SubLabErr: Call ClearInfo MsgBox 您所查找的員工不存在,請(qǐng)重新查找., vbCritical + vbOKOnly, 錯(cuò)誤提示End Sub在工程中添加一個(gè)員工信息管理的窗體，并為這個(gè)窗體進(jìn)行代碼設(shè)計(jì)。對(duì)員工信息進(jìn)行管理，即對(duì)員工信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)員工信息的管理工作。可在進(jìn)入主界面后單擊“人事信息管理”菜單，選擇“員工信息管理”項(xiàng)，則會(huì)彈出員工信息管理窗體，如圖43所示圖43 員工信息管理窗口在此窗體中即可實(shí)現(xiàn)對(duì)部門(mén)信息的管理工作，（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 修改員工信息界面修改過(guò)后，點(diǎn)擊“修改”按鈕，即完成對(duì)員工信息的修改工作。然后點(diǎn)擊“關(guān)閉”按鈕退出修改窗體。（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 部門(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)系電話(huà)不能為空,請(qǐng)輸入員工聯(lián)系電話(huà)!, 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é)專(zhuān)業(yè)不能為空,請(qǐng)輸入員工所學(xué)專(zhuān)業(yè)!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工外語(yǔ)語(yǔ)種不能為空,請(qǐng)輸入員工外語(yǔ)語(yǔ)種!, 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ù)職稱(chēng)不能為空,請(qǐng)輸入員工職務(wù)職稱(chē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 Set Emp = Nothing = = = = = = = = = = = = = = = = = = = = = = = = = If (Emp) = True Then Call ClearInfo Set subitem = (, K_ amp。 , ) , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , MsgBox 添加員工信息成功!, vbInformation + vbOKOnly, 成功提示 Else MsgBox 添加員工信息失敗!, vbCritical + vbOKOnly, 錯(cuò)誤提示 End IfEnd Sub②實(shí)現(xiàn)對(duì)員工信息刪除的代碼Private Sub cmdDelete_Click() If MsgBox(確認(rèn)刪除該員工的信息嗎? amp。 vbCrLf amp。 確認(rèn)請(qǐng)點(diǎn)擊:是,取消請(qǐng)點(diǎn)擊:否, vbInformation + vbYesNo, 刪除用戶(hù)信息確認(rèn)) = vbYes Then If () = True Then (K_ amp。 ) 39。需要再在此調(diào)用相應(yīng)的方法,刪除員工工資信息表中的該員工的所有工資信息