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("籍贯")