VB+access员工信息管理系统设计与实现(14)
时间:2016-12-22 10:57 来源:毕业论文 作者:毕业论文 点击:次
Text11.Text = rs("文化程度") Text12.Text = rs("毕业院校") Text13.Text = rs("家庭住址") Text14.Text = rs("手机号码") Text15.Text = rs("E-mail地址") Combo3.Text = rs("工作状态") Text17.Text = rs("所获荣誉") & "" Text18.Text = rs("所受惩处") & "" Text19.Text = rs("其他") & "" DTPicker1.Value = rs("出生年月") Combo1.Text = rs("部门名称") c = MsgBox("您确认要修改该记录吗?", 32 + 4, "特别提示") If c = vbYes Then rs.Update End If End Sub Private Sub Command5_Click() str1 = "select * from 员工基本信息表 where 员工编号='" & Text1.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 rs("员工编号") = Text1.Text rs("员工名字") = Text2.Text rs("年龄") = Text3.Text rs("职务名称") = Text4.Text rs("性别") = Combo2.Text rs("婚姻状况") = Text6.Text rs("身体状况") = Text7.Text rs("身份证号") = Text8.Text rs("政治面貌") = Text9.Text rs("籍贯") = Text10.Text rs("文化程度") = Text11.Text rs("毕业院校") = Text12.Text rs("家庭住址") = Text13.Text rs("手机号码") = Text14.Text rs("E-mail地址") = Text15.Text rs("工作状态") = Combo3.Text rs("所获荣誉") = Text17.Text rs("所受惩处") = Text18.Text rs("其他") = Text19.Text rs("出生年月") = DTPicker1.Value rs("部门名称") = Combo1.Text rs.Update MsgBox "修改成功", 64, "信息提示" Command4.Enabled = True End Sub 4.2.3 员工考勤信息模块界面的测试 （1）测试目的： a）验证员工考勤信息管理功能是否能正常运行； (责任编辑：qin) |