VB+access员工信息管理系统设计与实现(12)
时间:2016-12-22 10:57 来源:毕业论文 作者:毕业论文 点击:次
5）在系统窗体上实现显示报表的功能，可以添加一个命令按钮，在命令按钮的代码中输入如下的语句： DataReport1.Show 执行这个命令后，系统显示各数据报表，效果图如图3.18所示。 （a） 员工基本信息报表界面 （b） 员工考勤信息报表界面 （c） 员工薪资信息报表界面 图3.18 报表运行结果图 此窗体为报表预览窗体，在这个窗体可以打印、导出、按不同比例查看报表、查看不同页的报表等。 4 系统测试与分析 4.1 系统测试策略说明 整个系统界面窗口测试 （1）系统是否正常运行； （2）登录界面是否正常登录； （3）进入系统主界面后，下拉菜单、按钮、图标及其他控件窗口是否使用正常； （4）显示的界面程序是否正常运行，读取数据库是否出错； （5）信息查询、添加、删除、修改是否正常； 4.2 测试报告 4.2.1 欢迎界面、登录界面的测试 （1）测试目的： a）验证系统是否能正常运行； b) 不同用户是否能够成功登录； c) 主界面的下拉菜单、按钮等使用是否正常。 （2）测试结果： a）系统运行正常。与设计预想吻合，在进入登录界面前出现欢迎界面； b)用户登录正常。以不同权限登录后，进入与设计预想一样的相应界面； c)主界面的下拉菜单、按钮等使用正常。当鼠标点击主界面各下拉菜单时能自动出现，点击各按钮可以正常进入相应界面。 （3）运行界面&主要程序代码 图4.1 欢迎界面 （a）员工登录界面-正常 （b）员工登录界面-错误 图4.2 员工登录界面 图4.3 员工主界面 管理员登录界面-正常 (b) 管理员登录界面-错误 图4.4 管理员登录界面 图4.5 管理员主界面 员工登录界面验证密码部分代码： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command2_Click() End End Sub Private Sub Form_Load() If conn.State = 1 Then conn.Close End If conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\111.mdb;" & _ "Persist Security Info=False" conn.Open End Sub Private Sub Command1_Click() SQL = "select * from 口令信息 where 员工编号='" & Text1.Text & "'" & "and 密码='" & Text2.Text & "'" If rs.State = 1 Then rs.Close End If rs.Open SQL, conn, 1, 3 If rs.EOF Then MsgBox "用户名或密码错了!", 32, "警告" Text1.Text = "" Text2.Text = "" Text1.SetFocus Else 员工主界面.Show 员工主界面.Text1.Text = Text1.Text conn.Close Unload Me End If Exit Sub End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Text2.SetFocus End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) (责任编辑：qin) |