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] 下一页
VB+access企业工资管理系统 第5页下载如图片无法显示或论文不完整，请联系qq752018766
