工资管理系统数据图_工资管理系统实训报告_工资管理系统需求规格说明书(20)

Exit Sub End If For pp = 1 To kk2 adoPrimaryRS6.MoveFirst adoPrimaryRS1.MoveFirst If adoPrimaryRS6.Fields("

员 工 编 号 ") <>

adoPrimaryRS1.Fields("员工编号") Then MsgBox "员工信息和业务信息不一致，请检查！", vbOKOnly + vbExclamation, "警告"

Exit Sub End If adoPrimaryRS1.MoveNext adoPrimaryRS6.MoveNext Next pp adoPrimaryRS1.MoveFirst Do While Not adoPrimaryRS1.EOF m = adoPrimaryRS1.Fields("员工编号")48西北工业大学网络教育学院毕业论文Set adoPrimaryRS2 = New Recordset adoPrimaryRS2.Open "select gwxsinfo. 岗 位 工 资 from TBInfo,gwxsInfo where TBInfo.岗位编号=gwxsInfo.岗位编号 and TBInfo. 员工编号="

&

m &

"", db, adOpenStatic, adLockOptimistic Set adoPrimaryRS3 = New Recordset adoPrimaryRS3.Open "select * from jbinfo where 员工编号 ="

&

m &

"

and 年月="

&

c &

"", db, adOpenStatic, adLockOptimistic Set adoPrimaryRS4 = New Recordset adoPrimaryRS4.Open "select * from kqinfo where 员工编号 ="

&

m &

"

and 年月="

&

c &

"", db, adOpenStatic, adLockOptimistic If adoPrimaryRS4.EOF Then MsgBox "本月的考勤还未创建，不能计发工资！", vbOKOnly + vbExclamation, "警告"

adoPrimaryRS4.Cancel Unload Me Exit Sub End If Set adoPrimaryRS5 = New Recordset adoPrimaryRS5.Open "select * from xsinfo ", db, adOpenStatic, adLockOptimistic If adoPrimaryRS5.EOF Then MsgBox "工资系数未设定，不能计发工资！", vbOKOnly + vbExclamation, "警告"

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-31446-20.html