VB+access员工信息管理系统设计与实现(13)

    If KeyCode = 13 Then
        Call Command1_Click
    End If
End Sub
4.2.2 员工基本信息模块界面的测试
（1）测试目的：
a）验证员工基本信息管理功能是否能正常运行；
b) 员工是否能够正常查看、修改自己的基本信息；
c) 管理员是否能够正常的查询、添加、修改、删除员工基本信息。
（2）测试结果：
a）该功能运行正常。登录系统后，进入主界面后点击相应按钮可以进入员工基本信息模块的一系列界面；
b)员工可以正常查看、修改自己的信息；
c)管理员可以成功查询、添加、修改、删除员工基本信息。
（3）运行界面&主要程序代码

图4.6 员工基本信息查看界面

图4.7 员工基本信息修改完成界面
修改功能部分代码：
Private Sub Command4_Click()
        Command4.Enabled = False
        Command5.Enabled = True
        Text1.Enabled = True
        Text2.Enabled = True
        Text3.Enabled = True
        Text4.Enabled = True
        Combo2.Enabled = True
        Text6.Enabled = True
        Text7.Enabled = True
        Text8.Enabled = True
        Text9.Enabled = True
        Text10.Enabled = True
        Text11.Enabled = True
        Text12.Enabled = True
        Text13.Enabled = True
        Text14.Enabled = True
        Text15.Enabled = True
        Combo3.Enabled = True
        Text17.Enabled = True
        Text18.Enabled = True
        Text19.Enabled = True
        DTPicker1.Enabled = True
        Combo1.Enabled = True
                     str1 = "select * from 员工基本信息表 where 员工编号='" & Text1.Text & "'"
        If rs.State = 1 Then
            rs.Close
        End If
        rs.Open str1, cn, 1, 3
        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("籍贯") VB+access员工信息管理系统设计与实现(13):http://www.youerw.com/jisuanji/lunwen_1399.html