【正文】 ) = 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 員工工資年份不能為空,請(qǐng)輸入員工工資年份!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資月份不能為空,請(qǐng)輸入員工工資月份!, vbInformation + vbOKOnly, 輸入信息不完整 。 確認(rèn)請(qǐng)點(diǎn)擊:是,取消請(qǐng)點(diǎn)擊:否, vbInformation + vbYesNo, 刪除員工工資信息確認(rèn)) = vbYes Then If (, ) = True Then (K_ amp。 份的工資信息嗎? 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。 = = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = CSng(FormatNumber(, 2)) = = If (Sal) = True Then Call ClearInfo = False Set subitem = (, K_ amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。 vbCrLf amp。然后點(diǎn)擊“關(guān)閉”按鈕，退出修改窗體。對(duì)員工工資信息進(jìn)行管理，即對(duì)員工工資信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)員工信息的管理工作。 Trim() amp。 Trim()).salDateIn = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salKeap = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salSick = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salOther = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salPrize = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salOverWork = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salPost = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).SalMonth = (K_ amp。 Trim() amp。 Trim() amp。（1）彈出工資查詢窗休（frmSalaryQuery .frm）的代碼Private Sub mnuSalaryQuery_Click() = 3 End Sub（2）實(shí)現(xiàn)查詢功能的代碼Private Sub cmdQuery_Click()On Error GoTo LabErr = (K_ amp。當(dāng)用戶需要對(duì)員工工資情況進(jìn)行查詢時(shí)，可以在主界面的“人事信息管理”根菜單中，選擇“工資信息查詢”選項(xiàng)，也可點(diǎn)擊主窗體上的快捷鍵，彈出“工資信息查詢”窗體，如圖52所示圖52 工資信息查詢界面在窗體中的“員工編號(hào)”中輸入要查詢的員工編號(hào)，在工資月份下拉列表框中輸入要查詢的工資年份和月份，點(diǎn)擊“查詢“按鈕，即可在窗體中“查詢結(jié)果”下方顯示所要查詢的信息，如果輸入錯(cuò)誤則點(diǎn)擊“清除”鍵后重新輸入查找，如果沒有查找到相關(guān)信息，則會(huì)彈出“錯(cuò)誤揭示”消息框，并顯示“您所查找的員工工資信息不存在,請(qǐng)重新查找!”點(diǎn)擊確定后，重新輸入進(jìn)行查找。（2） 在工資管理方面在此模塊中，我的設(shè)計(jì)是可以對(duì)員工的工資信息進(jìn)行添加，修改，刪除操作；如果在添加操作過程中輸入信息不全，則會(huì)提出相應(yīng)的提示，以增加準(zhǔn)確度。由此引發(fā)管理質(zhì)量的低下，不利于企業(yè)的管理，因此由能力所限，本人設(shè)計(jì)的工資管理模塊，使工資管理工作由手工變?yōu)槭褂糜?jì)算機(jī)管理，在一定程度上提高工資管理的效率，減少了浪費(fèi)和出錯(cuò)率。需要再在此調(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 部門編碼不能為空,請(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, 輸入信息不完整 E