【正文】 = (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 您所查找的員工工資信息不存在,請重新查找!, vbCritical + vbOKOnly, 錯誤提示End Sub在工程中添加一個員工工資信息管理的窗體，并為這個窗體進行代碼設(shè)計。對員工工資信息進行管理，即對員工工資信息進行增加、刪除、修改操作，從而實現(xiàn)對員工信息的管理工作?？稍谶M入主界面后單擊“人事信息管理”菜單，選擇“工資信息管理”項，則會彈出工資信息管理窗體，如圖53所示圖53 工資信息管理界面在此窗體中即可實現(xiàn)對員工工資信息的管理工作，（1）添加工資信息點擊“添加”按鈕，即可彈出“工資信息添加”窗體，如圖54所示圖54 工資信息添加界面在窗體中輸入相關(guān)信息后，點擊“添加”按扭后，添加信息，如想取消輸入的內(nèi)容，則點擊“清除”按扭即可，點擊“關(guān)閉”按鈕后，退出添加窗體（2）刪除點擊“刪除”按鈕后，彈出工資信息刪除窗體（frmDeleteEmp），如圖55所示圖55 工資信息刪除界面在列表中點擊要刪除的信息后，點擊“刪除”按鈕，即可刪除信息，點擊“關(guān)閉”按鈕后，退出窗體（3）修改先在列表中選中需修改工資信息的員工編碼，然后點擊“修改”按鈕后，彈出“工資信息修改”（frmModifySalary）窗體，如圖56所示圖56 工資住處修改界面修改過后，點擊“修改”按鈕，即完成對員工信息的修改工作。然后點擊“關(guān)閉”按鈕，退出修改窗體。（1）彈出工資管理窗體（）的代碼Private Sub mnuSalaryManage_Click() = 3 End Sub（2）實現(xiàn)工資管理中的添加、刪除、修改功能的代碼①實現(xiàn)添加員工信息的的代碼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。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工勞效工資為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工加班工資為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工夜班工資為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工獎金為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工風險金為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工其他項目為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工病假為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If Val(Trim()) = 0 Then If MsgBox(確認員工事假為零! amp。 vbCrLf amp。 確認請點擊:是,重新輸入請點擊:否, vbInformation + vbYesNo, 信息確認提示) = vbNo Then Exit Sub End If End If If = Then MsgBox 員工工資錄入人不能為空,請輸入員工工資錄入人!, 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, 錯誤提示 End IfEnd Sub②實現(xiàn)對工資信息刪除的代碼Private Sub cmdDelete_Click() If MsgBox(確認刪除該員工 amp。 amp。 份的工資信息嗎? amp。 vbCrLf amp。 確認請點擊:是,取消請點擊:否, vbInformation + vbYesNo, 刪除員工工資信息確認) = vbYes Then If (, ) = True Then (K_ amp。 amp。 ) = False = False Unload Me MsgBox 刪除員工工資信息成功!, vbInformation + vbOKOnly, 成功提示 Else = False = False Unload Me MsgBox 刪除員工工資信息失敗!, vbCritical + vbOKOnly, 錯誤提示 End If Else = False = False Unload Me End IfEnd Sub③實現(xiàn)對員工信息修改功能的代碼Private Sub cmdModify_Click() If = Then MsgBox 員工編碼不能為空,請輸入員工編碼!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資年份不能為空,請輸入員工工資年份!, vbInformation + vbOKOnly, 輸入信息不完整 Exit Sub End If If = Then MsgBox 員工工資月份不能為空,請輸入員工工資月份!, vbInformation + vbOKOnly, 輸入信息不完整