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

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) VB+access员工信息管理系统设计与实现(12):http://www.youerw.com/jisuanji/lunwen_1399.html