资料吗?",vbInformation+vbYesNo,"保存资料?")=vbYesThen
Adodc1.Recordset.Update
Adodc1.Recordset.MovePrevious
EndIf
Command1.Enabled=True
Command2.Enabled=True
Command3.Enabled=True
Command4.Enabled=False
'Command5.Enabled=True
Command7.Enabled=True
EndSub
*"返回"按钮代码
PrivateSubCommand7_Click()
Me.Hide
UnloadMe
ExitSub
EndSub
(6)考勤信息统计按钮代码
*"首记录"按钮代码
PrivateSubCommand6_Click()'首记录
rs.MoveFirst
Command1.Enabled=True
Command2.Enabled=True
'Command3.Enabled=True
Command4.Enabled=True
'Command5.Enabled=True
Command7.Enabled=True
Command6.Enabled=False
Command8.Enabled=True
Command9.Enabled=True
Command10.Enabled=False
EndSub
*"下一条"按钮代码
PrivateSubCommand8_Click()'后翻
rs.MoveNext
Ifrs.EOF=TrueThen
rs.MovePrevious
MsgBox"已到达最后一条记录!",vbOKOnly+vbExclamation,"警告"
ExitSub
EndIf
Command6.Enabled=True
Command10.Enabled=True
EndSub
*"末记录"按钮代码
PrivateSubCommand9_Click()'末记录
rs.MoveLast
Command1.Enabled=True
Command2.Enabled=True
'Command3.Enabled=True
Command4.Enabled=True
'Command5.Enabled=True
Command6.Enabled=True
Command7.Enabled=True
Command8.Enabled=False
Command9.Enabled=False
Command10.Enabled=True
EndSub
*"上一条"按钮代码
PrivateSubCommand10_Click()'前翻
rs.MovePrevious
Ifrs.BOF=TrueThen
rs.MoveNext
MsgBox"已到达第一条记录!",vbOKOnly+vbExclamation,"警告"
EndIf
Command8.Enabled=True
Command9.Enabled=True
EndSub
*"增加"按钮代码
PrivateSubCommand1_Click()'增加
rs.AddNew
'Text1(0).SetFocus
Command1.Enabled=False
Command2.Enabled=False
'Command3.Enabled=False
Command4.Enabled=True
'Command5.Enabled=True
Command7.Enabled=True
EndSub
*"删除"按钮代码
PrivateSubCommand2_Click()'删除
IfMsgBox("确定删除当前资料吗?",vbInformation+vbYesNo,"删除资料?")=vbYesThen
rs.Delete
rs.MoveFirst
EndIf
EndSub
*"保存"按钮代码
PrivateSubCommand4_Click()'保存
'Fori=0To9
'IfText1(i)=""Then
'MsgBox"输入不完整!",vbOKOnly+vbExclamation,"警告"
'Text1(i).SetFocus
'ExitSub
'EndIf
'Nexti
IfMsgBox("确定保存当前资料吗?",vbInformation+vbYesNo,"保存资料?")=vbYesThen
rs.Update
rs.MoveNext
EndIf
Command1.Enabled=True
Command2.Enabled=True
'Command3.Enabled=True
Command4.Enabled=False
'Command5.Enabled=True
Command7.Enabled=True
EndSub
*"返回"按钮代码
PrivateSubCommand7_Click()'返回
'Me.Hide
UnloadMe
conn.Close
'ExitSub
EndSub
(7)工资结算窗体代码
*"更新"按钮代码
PrivateSubCommand3_Click()'更新
'DimflagAsBoolean
'Ifflag=FalseThen
IfText1(0).Text=""AndText2.Text=""Then
MsgBox"请输入员工编号或员工姓名!",vbOKOnly+vbExclamation,"提示"
ExitSub
EndIf
'IfText1(0).Text=Adodc2.Recordset.Fields("员工编号").ValueThen
IfCombo1.Text=""Then
MsgBox"请选择年份!",vbOKOnly+vbExclamation,"提示"
Else
IfCombo2.Text=""Then
MsgBox"请选择月份!",vbOKOnly+vbExclamation,"提示"
Else
'IfText1(0).Text=Adodc2.Recordset.Fields("员工编号").ValueThen
'IfCombo1.Text=Adodc2.Recordset.Fields("年份").ValueAndCombo2.Text=Adodc2.Recordset.Fields("月份").ValueThen
'IfCombo2.Text=Adodc2.Recordset.Fields("月份").ValueThen
Adodc2.RecordSource="select*from考勤信息表where年份="&Combo1.Text&"and月份="&Combo2.Text&"and员工编号='"&Text1(0).Text&"'"
Adodc2.Refresh
'Else
'Label3(8).Caption=""
'Label3(9).Caption=""
'Label3(10).Caption=""
'Label3(11).Caption=""
'MsgBox"对不起,无相应的考勤记录!",vbOKOnly+vbExclamation,"提示"
'EndIf
'Else
'Label3(8).Caption=""
'Label3(9).Caption=""
'Label3(10).Caption=""
'Label3(11).Caption=""
'MsgBox"对不起,无相应的考勤记录!",vbOKOnly+vbExclamation,"提示"
'EndIf
EndIf
EndIf
EndSub
*"计算"按钮代码
PrivateSubCommand2_Click()'计算
'Adodc4.Recordset.AddNew
IfText4(2)=""Then
MsgBox"请输入奖金金额!",vbOKOnly+vbExclamation,"提示"
Text4(2).SetFocus
Else
IfText4(3)=""Then
MsgBox"请输入其他补助金额!",vbOKOnly+vbExclamation,"提示"
Text4(3).SetFocus
Else
Text4(11)=Date
DimGLAsInteger
GL=Val(Year(Date)-Year(Label1(10).Caption))'计算工龄
Label2(8).Caption=Val(Label2(11).Caption)*GL'计算工龄工资
Text4(1).Text=Val(Label2(12).Caption)*Val(Label3(10).Caption)'计算加班工资
Text4(4).Text=Val(Label2(15).Caption)*Val(Label3(11).Caption)'计算迟到扣款
Text4(5).Text=Val(Label2(13).Caption)*Val(Label3(9).Caption)'计算病假扣款
Text4(6).Text=Val(Label2(14).Caption)*Val(Label3(8).Caption)'计算事假扣款
Text4(0).Text=Val(Text4(4).Text)+Val(Text4(5).Text)+Val(Text4(6).Text)'计算考勤扣款
DimmoneyAsInteger'应发金额
money=Val(Label2(9).Caption)+Val(Label2(10).Caption)+Val(Label2(8).Caption)_
+Val(Text4(1).Text)+Val(Text4(2).Text)+Val(Text4(3).Text)-Val(Text4(0).Text)-Val(Text4(7).Text)
'计算个人所得税
Ifmoney<=800Then
Text4(8).Text=0
Else
If(money-800)<=500Then
Text4(8).Text=(money-800)*0.05
Else
If(money-800)>500And(money-800)<=2000Then
Text4(8).Text=(money-800)*0.1
Else
If(money-800)>2000And(money-800)<=0.15Then
Text4(8).Text=(money-800)*0.15
Else
If(money-800)>5000And(money-800)<=20000Then
Text4(8).Text=(money-800)*0.2
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
'计算实发金额
Text4(9).Text=money-Val(Text4(8).Text)
'计算基本工资额,包括职务津贴、基本工资、工龄工资
JBGZE=Val(Label2(10).Caption)+Val(Label2(9).Caption)+Val(Label2(8).Caption)
'计算本月补助,包括加班工资、奖金、其他补助
BYBZ=Val(Text4(1).Text)+Val(Text4(2).Text)+Val(Text4(3).Text)
'计算其他扣款,包括违纪罚款和个人所得税
QTKK=Val(Text4(7).Text)+Val(Text4(0).Text)
EndSub
*"保存"按钮代码
PrivateSubCommand4_Click()'保存
IfMsgBox("确定保存当前资料吗?",vbInformation+vbYesNo,"保存资料?")=vbYesThen
Adodc4.Recordset.Fields("员工编号")=Text1(0).Text
Adodc4.Recordset.Fields("员工姓名")=Text2.Text
Adodc4.Recordset.Fields("所属部门编号")=Label1(7).Caption
Adodc4.Recordset.Fields("所属部门名称")=Label1(8).Caption
Adodc4.Recordset.Fields("职务")=Label1(9).Caption
Adodc4.Recordset.Fields("职务津贴")=Val(Label2(10).Caption)
Adodc4.Recordset.Fields("基本工资")=Val(Label2(9).Caption)
Adodc4.Recordset.Fields("工龄工资")=Val(Label2(8).Caption)
Adodc4.Recordset.Fields("加班工资")=Val(Text4(1).Text)
Adodc4.Recordset.Fields("奖金")=Text4(2).Text
Adodc4.Recordset.Fields("其他补助")=Text4(3).Text
Adodc4.Recordset.Fields("迟到扣款")=Val(Text4(4).Text)
Adodc4.Recordset.Fields("病假扣款")=Val(Text4(5).Text)
Adodc4.Recordset.Fields("事假扣款")=Val(Text4(6).Text)
Adodc4.Recordset.Fields("违纪罚款")=Val(Text4(7).Text)
Adodc4.Recordset.Fields("个人所得税")=Val(Text4(8).Text)
Adodc4.Recordset.Fields("实发金额")=Val(Text4(9).Text)
Adodc4.Recordset.Fields("年份")=Combo1.Text
Adodc4.Recordset.Fields("月份")=Combo2.Text
Adodc4.Recordset.Fields("备注")=Text4(10).Text
Adodc4.Recordset.Fields("操作时间")=Text4(11).Text
Adodc4.Recordset.Fields("考勤扣款")=Text4(0).Text
Adodc4.Recordset.Fields("基本工资额")=JBGZE
Adodc4.Recordset.Fields("本月补助")=BYBZ
Adodc4.Recordset.Fields("其他扣款")=QTKK
Adodc4.Recordset.Update
Adodc4.Recordset.MoveFirst
EndIf
EndSub
*"返回"按钮代码
PrivateSubCommand1_Click()'返回
'Me.Hide
UnloadMe
ExitSub
EndSub
(8)固定工资调整窗体代码
*"确定"按钮代码
PrivateSubCommand1_Click()
GoToerrorhandle
DimmAsInteger
IfCombo1.Text="基本工资"Thenm=1
IfCombo1.Text="职务津贴"Thenm=2
IfCombo1.Text="工龄津贴/年"Thenm=3
IfCombo1.Text="加班工资/天"Thenm=4
IfCombo1.Text="事假扣款/天"Thenm=5
IfCombo1.Text="病假扣款/天"Thenm=6
IfCombo1.Text="迟到扣款/天"Thenm=7
IfCombo1.Text=""Then
MsgBox"请选择需调整的工资项目!",vbOKOnly+vbExclamation,"提示"
Else
IfCombo2.Text=""Then
MsgBox"请选择调整的条件!",vbOKOnly+vbExclamation,"提示"
Else
IfText1.Text=""Then
MsgBox"请输入调整值!",vbOKOnly+vbExclamation,"提示"
ExitSub
EndIf
'Else
'IfCombo2.Text="部门"Then
'Adodc2.RecordSource="select*from职工工资明细表where所属部门='"&Combo1.Text&"'"
'CallselectJS(m)
'Else
'IfCombo2.Text="职务"Then
'Adodc2.RecordSource="select*from职工工资明细表where职务='"&Combo1.Text&"'"
'CallselectJS(m)
'EndIf
'EndIf
'EndIf
'Adodc1.RecordSource="update职工工资明细表set"&Combo1.Text&"='"&Text1.Text&"'where职务='"&Combo2.Text&"'"
'Adodc1.Refresh
Adodc1.Recordset.MoveFirst
DoWhileNotAdodc1.Recordset.EOF
'ifadodc1.Recordset.Fields("职务")=Combo2.Textthen
Adodc1.Recordset.Fields(Combo1.Text)=Text1.Text
Adodc1.Recordset.MoveNext
Loop
EndIf
EndIf
errorhandle:
MsgBox"修改成功!",,"信息"
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
*"返回"按钮代码
PrivateSubCommand2_Click()
UnloadMe
EndSub
(9)查询职工工资窗体
*"开始查询"按钮代码
PrivateSubcxchenggong()
'查询成功
'Dimi
'i=0
'GoToxserr
'Data1.Recordset.MoveFirst
'DoWhileData1.Recordset.EOF<>True
'IfAdodc1.Recordset.Fields("工号").Value=Data1.Recordset.Fields("工号").ValueThen
'i=1
'ExitDo
'EndIf
'Data1.Recordset.MoveNext
'Loop
'xserr:
DataGrid2.Visible=True
Label2.Visible=True
'Adodc2.RecordSource="select*from职工工资明细表where员工姓名='"&Adodc1.Recordset.Fields("员工编号").Value&""
Ifflag=1ThenAdodc2.RecordSource="select*from职工工资结算表where员工编号='"&Text1.Text&"'"
Ifflag=2ThenAdodc2.RecordSource="select*from职工工资结算表where员工姓名='"&Text2.Text&"'"
Ifflag=3ThenAdodc2.RecordSource="select*from职工工资结算表where员工编号='"&Text1.Text&"'and员工姓名='"&Text2.Text&"'"
Adodc2.Refresh
EndSub
*"重置查询"按钮代码
PrivateSubCommand2_Click()
'DataGrid1.BackColor=&HFFFFFF
DataGrid2.Visible=False
DataGrid1.Height=3255
DataGrid1.Top=480
Adodc1.Recordset.MoveFirst
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
*"退出"按钮代码
PrivateSubCommand3_Click()
Me.Hide
UnloadMe
ExitSub
EndSub
(10)查询部门工资窗体代码
*"开始查询"按钮代码
PrivateSubCommand1_Click()
GoTochaxunerr
DataGrid1.Height=500
DataGrid1.Top=480
Dimi
i=0
flag=0
IfText1.Text<>""AndText2.Text=""Then
'部门编号查询
Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset
上一篇:
vb酒店管理信息系统(论文和程序)
下一篇:
陕西师范大学远程教育学院毕业论文