【正文】 = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salNight = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salPrize = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salRisk = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salOther = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salTotal = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salSick = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salAffaire = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salKeap = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salFact = (K_ amp。 Trim() amp。 Trim() amp。 Trim()).salDateIn = (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ì)。對(duì)員工工資信息進(jìn)行管理，即對(duì)員工工資信息進(jìn)行增加、刪除、修改操作，從而實(shí)現(xiàn)對(duì)員工信息的管理工作。可在進(jìn)入主界面后單擊“人事信息管理”菜單，選擇“工資信息管理”項(xiàng)，則會(huì)彈出工資信息管理窗體，如圖53所示圖53 工資信息管理界面在此窗體中即可實(shí)現(xiàn)對(duì)員工工資信息的管理工作，（1）添加工資信息點(diǎn)擊“添加”按鈕，即可彈出“工資信息添加”窗體，如圖54所示圖54 工資信息添加界面在窗體中輸入相關(guān)信息后，點(diǎn)擊“添加”按扭后，添加信息，如想取消輸入的內(nèi)容，則點(diǎn)擊“清除”按扭即可，點(diǎn)擊“關(guān)閉”按鈕后，退出添加窗體（2）刪除點(diǎn)擊“刪除”按鈕后，彈出工資信息刪除窗體（frmDeleteEmp），如圖55所示圖55 工資信息刪除界面在列表中點(diǎn)擊要?jiǎng)h除的信息后，點(diǎn)擊“刪除”按鈕，即可刪除信息，點(diǎn)擊“關(guān)閉”按鈕后，退出窗體（3）修改先在列表中選中需修改工資信息的員工編碼，然后點(diǎn)擊“修改”按鈕后，彈出“工資信息修改”（frmModifySalary）窗體，如圖56所示圖56 工資住處修改界面修改過(guò)后，點(diǎn)擊“修改”按鈕，即完成對(duì)員工信息的修改工作。然后點(diǎn)擊“關(guān)閉”按鈕，退出修改窗體。（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。 vbCrLf 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。 vbCrLf 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。 vbCrLf 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。 vbCrLf 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。 vbCrLf 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)員工風(fēng)險(xiǎn)金為零! amp。 vbCrLf 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。 vbCrLf 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。 vbCrLf 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。 vbCrLf amp。 確認(rèn)請(qǐng)點(diǎn)擊:是,重新輸入請(qǐng)點(diǎn)擊:否, vbInformation + vbYesNo, 信息確認(rèn)提示) = vbNo Then Exit Sub End If End If If = Then MsgBox 員工工資錄入人不能為空,請(qǐng)輸入員工工資錄入人!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If Set Sal = New clsSalary = = 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。 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。 amp。 份的工資信息嗎? amp。 vbCrLf amp。 確認(rèn)請(qǐng)點(diǎn)擊:是,取消請(qǐng)點(diǎn)擊:否, vbInformation + vbYesNo, 刪除員工工資信息確認(rèn)) = vbYes Then If (, ) = True Then (K_ amp。 amp。 ) = 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, 輸入信息不完整