VB+access员工信息管理系统设计与实现(14)
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）验证员工考勤信息管理功能是否能正常运行；