企业工资管理系统（下）_计算机论文.docVIP

企业工资管理系统（下）_计算机论文 企业工资管理系统（下）_计算机论文 选择“工资信息设置”—gt“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。 Set rs = getrs(sql, salary) If rs.EOF = False Then sql = delete from salarysetting where stuffid= amp Mstuffid.Text amp Call transactsql(sql, salary) End If rs.Close id = Mstuffid.Text Call addrecord MsgBox 已经设置基本工资, vbOKOnly + vbExclamation, 添加结果 Call init sql = select * from salarysetting Call frmresult.basictopic Call frmresult.showbasic(sql) frmresult.Show frmresult.ZOrder 0 Me.ZOrder 0 选择“工资信息设置”—gt“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。 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= amp Mid.Text sql = sql amp and YearMonth=# amp recordtime amp # and sql = sql amp Type= amp 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 选择“工资信息设置”—gt“工资计算公式设置”菜单，在这个计算公式窗体中设置员工实际发放工资的计算公式。 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 M