VB+access企业工资管理系统 第5页
选择“工资信息设置”—>“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。
sql = "select * from salaryother"
  If ichangeflag = 1 Then
     Call add
     MsgBox "已经添加记录", vbOKOnly + vbExclamation, "提示"
     Call frmresult.othertopic
     Call frmresult.showother(sql)
     frmresult.Show
     Unload Me
  Else
     If Me.optionbonus.Value = True Then
        itype = 1
     ElseIf Me.optionallowance.Value = True Then
        itype = 2
     ElseIf Me.optionwelfare.Value = True Then
        itype = 3
     ElseIf Me.optionabatement.Value = True Then
        itype = 4
     ElseIf Me.optionothers.Value = True Then
        itype = 5
    resumdate = recordtime
        sql = "delete from salaryother where stuffid='" & Me.comid.Text
        sql = sql & "' and YearMonth=#" & recordtime & "# and "
        sql = sql & "Type=" & itype
        Call transactsql(sql, "Salary")
        Call add
        Call frmsumsalary.resumsalary(resumdate)
        sql = "select * from salaryother"
        Call frmresult.othertopic
        Call frmresult.showother(sql)
        frmresult.Show
        Unload Me
     End If
     选择“工资信息设置”—>“工资计算公式设置”菜单，在这个计算公式窗体中设置员工实际发放工资的计算公式。
If Me.textovertimecom = "" And IsNumeric(Me.textovertimecom) = True Then
      MsgBox "请输入正常加班工资百分比", vbOKOnly + vbExclamation, "提示"
      Me.textovertimecom = ""
      Me.textovertimecom.SetFocus
   ElseIf Me.textovertimespe = "" And IsNumeric(Me.textovertimespe) = False Then
      MsgBox "请输入特殊加班工资百分比", vbOKOnly + vbExclamation, "提示"
      Me.textovertimespe = ""
      Me.textovertimespe.SetFocus
   ElseIf Me.texterrand = "" And IsNumeric(Me.texterrand) = False Then
      MsgBox "请输入出差工资", vbOKOnly + vbExclamation, "提示"
      Me.texterrand = ""
      Me.texterrand.SetFocus
   ElseIf Me.textabsent = "" And IsNumeric(Me.textabsent) = False Then
      MsgBox "请输入旷工扣发工资", vbOKOnly + vbExclamation, "提示"
      Me.textabsent = ""
      Me.textabsent.SetFocus
   ElseIf Me.textle = "" And IsNumeric(Me.textle) = False Then
      MsgBox "请输入迟到早退扣发工资", vbOKOnly + vbExclamation, "提示"
      Me.textle = ""
      Me.textle.SetFocus
   Else
      Call setvalue
      Call init
   End If

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页