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

Text1.SetFocus Exit Sub End If If Combo1.Text = ""

Then MsgBox "岗位编号不能为空！", vbOKOnly + vbExclamation, "警 告"

Text2.SetFocus Exit Sub End If If Text2.Text = ""

Then MsgBox "业务档案不能为空！", vbOKOnly + vbExclamation, "警 告"36西北工业大学网络教育学院毕业论文Text2.SetFocus Exit Sub End IfSet adoPrimaryRS = New Recordset a = Text1.Text adoPrimaryRS.Open "select * from TBInfo where 员工编号="

&

a &

"", db, adOpenStatic, adLockOptimistic If Not adoPrimaryRS.EOF Then MsgBox "该编号重复！", vbOKOnly + vbExclamation, "警告"

Exit Sub Else adoPrimaryRS.AddNew adoPrimaryRS.Fields("员工编号") = Text1.Text adoPrimaryRS.Fields("岗位编号") = Combo1.Text If Text2.Text = ""

Then adoPrimaryRS.Fields("业务档案") = "无"

Else adoPrimaryRS.Fields("业务档案") = Text2.Text End IfadoPrimaryRS.Update MsgBox "记载成功！", vbOKOnly + vbExclamation, "

提示"End IfText1.Text = ""

Text2.Text = ""

Combo1.Text = ""

End Sub Private Sub Command2_Click() Unload Me End Sub37西北工业大学网络教育学院毕业论文Private Sub Form_Load() Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2Set adoPrimaryRS = New Recordset adoPrimaryRS.Open "select * from gwxsinfo ", db, adOpenStatic, adLockOptimistic With Combo1 For i = 1 To adoPrimaryRS.RecordCount .AddItem adoPrimaryRS.Fields("岗位编号") adoPrimaryRS.MoveNext Next i End With adoPrimaryRS.Cancel End Sub4.6 创建考勤表员工的考勤是员工工资核算的重要的组成部分之一。

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