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