VB+access员工信息管理系统设计与实现(13)
时间:2016-12-22 10:57 来源:毕业论文 作者:毕业论文 点击:次
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("籍贯") (责任编辑：qin) |