VB+access员工信息管理系统设计与实现(17)
时间:2016-12-22 10:57 来源:毕业论文 作者:毕业论文 点击:次
Text7.Text = Adodc1.Recordset.Fields(7) Text8.Text = Adodc1.Recordset.Fields(8) Text9.Text = Adodc1.Recordset.Fields(9) Text10.Text = Adodc1.Recordset.Fields(10) Text11.Text = Adodc1.Recordset.Fields(11) Text12.Text = Adodc1.Recordset.Fields(12) Combo1.Text = Adodc1.Recordset.Fields(4) End If End Sub Private Sub Command6_Click() 管理员主界面.Show cn.Close Unload Me End Sub 4.2.4 员工薪资信息模块界面的测试 （1）测试目的： a）验证员工薪资信息管理功能是否能正常运行； b) 员工是否能够正常查看自己的薪资信息； c) 管理员是否能够正常的查询、添加、修改、删除员工薪资信息。 （2）测试结果： a）该功能运行正常。登录系统后，进入主界面后点击相应按钮可以进入员工薪资信息模块的一系列界面； b)员工可以正常查看自己的薪资信息； c)管理员可以成功查询、添加、修改、删除员工薪资信息。 （3）运行界面&主要程序代码 图4.10 员工薪资信息查看界面 图4.11 员工薪资信息界面 删除功能部分代码： Private Sub Command3_Click() If Adodc1.Recordset.EOF = False Then c = MsgBox("您确认要删除该记录吗?", 32 + 4, "特别提示") X = Adodc1.Recordset.Fields(0) If c = vbYes Then str1 = "select * from 员工薪资信息表 where 计发编号='" & X & "'" If rs.State = 1 Then rs.Close End If rs.Open str1, cn, 1, 3 Adodc1.Recordset.Delete Adodc1.CommandType = adCmdText Adodc1.RecordSource = "select * from 员工薪资信息表" Adodc1.Refresh MsgBox "该员工所有信息成功删除", 64, "信息提示" Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" DTPicker1.Value = Now End If Else MsgBox "当前数据库中已经没有可删除的记录", 64, "警告" (责任编辑：qin) |