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

Then MsgBox "基本工资不能为空！", vbOKOnly + vbExclamation, "警告"30西北工业大学网络教育学院毕业论文Text11.SetFocus Exit Sub End IfDim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=rsgz.mdb;"

Set adoPrimaryRS = New Recordset a = Text1.Text adoPrimaryRS.Open "select * from ygInfo where 员工编号="

&

a &

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

Exit Sub Else adoPrimaryRS.AddNew adoPrimaryRS.Fields("员工编号") = Text1.Text adoPrimaryRS.Fields("姓名") = Text2.Text adoPrimaryRS.Fields("性别") = Combo1.Text adoPrimaryRS.Fields("部门") = Combo2.Text adoPrimaryRS.Fields("民族") = Text3.Text adoPrimaryRS.Fields("出生年月") = Text4.Text adoPrimaryRS.Fields("面貌") = Combo3.Text adoPrimaryRS.Fields("家庭住址") = Text5.Text adoPrimaryRS.Fields("联系电话") = Text6.Text31西北工业大学网络教育学院毕业论文adoPrimaryRS.Fields("毕业学校") = Text7.Text adoPrimaryRS.Fields("最高") = Combo4.Text adoPrimaryRS.Fields("所学") = Text8.Text If Text9.Text = ""

Then adoPrimaryRS.Fields("职务") = "无"

Else adoPrimaryRS.Fields("职务") = Text9.Text End If adoPrimaryRS.Fields("技术职称") = Combo5.Text adoPrimaryRS.Fields("职称时间") = Text10.Text adoPrimaryRS.Fields("基本工资") = Text11.Text If Text12.Text = ""

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