End If
End Sub
4.2.5 系统管理界面的测试
（1）测试目的：
a）验证员工/管理员的系统管理功能是否能正常运行；
b) 员工是否能够正常文护自己的密码信息和提交意见建议；
c) 管理员是否能够正常文护自己的密码信息和查看意见建议。
（2）测试结果：
a）该功能运行正常。登录系统后，进入主界面后点击相应按钮可以进入系统管理模块的一系列界面；
b)员工可以成功文护自己的密码信息、提交意见建议；
c)管理员可以成功文护自己的密码信息、查看员工所提交的意见建议。
（3）运行界面
 
图4.12 查看意见建议界面
 
图4.13 提交意见建议界面
 
5 数据库在Microsoft Visual Basic 6.0软件下的应用
5.1 VB支持的数据库
数据库编程语言一般都有自己特定格式的数据库。VB默认的数据库格式是Microsoft Access 数据库。
VB可以对其他多种格式的数据库进行操作和处理。支持的数据库有以下三类：
(1)VB本地数据库，与Microsoft Access格式相同；
(2)外部数据库，如dbase, Microsoft FoxPro等；
(3)ODBC数据库。
其中Access 数据库以简单、实时性好、易学等特点,应用比较广泛。
5.2 ADO  Data控件的常用属性及方法
5.2.1 ADO Data控件的常用属性
(1)Name:名称。默认名称：Adodc1,Adodc2等。
(2)Caption:设置显示在控件上的标题。
(3)ConnectionString:设置到数据源的连接信息。
(4)CommandType:设置返回记录集的类型。CommandType的值用于指明RecordSource的类型。
(5)RecordSource：记录源。返回或设置RecordSet的生成方式，可以是SQL语句，表名，查询名等。
(6)RecordSet：记录集对象。
5.2.2 ADO Data控件的Refresh方法
（1）功能：重新读取数据库，刷新记录集。
（2）使用格式：Adodc1.Refresh
（3）Refresh方法可用于ADO Data控件的数据源连接发生变化时，使ADO Data控件重新连接数据库。也可在执行AddNew方法后，新数据尚未写入数据库时，调用Refresh方法，清除用户所做的添加修改。
5.3 RecordSet对象的常用属性及方法
5.3.1 RecordSet对象的常用属性
ADO Data控件将数据库中指定数据提取出来，并放在一个记录集中，RecordSet即记录集对象，指当前数据库中的一系列记录。其主要属性如下：
EOF和BOF属性
这两个属性是反映记录指针是否到记录头和记录为的标志。如果记录指针位于最后一条记录之后，则EOF=True,否则EOF=False。
EOF和BOF属性具有以下特点：(1)如果记录集是空的，则EOF和BOF的值都是True;(2)如果EOF和BOF的值成为True之后，只有当记录指针移动到实际存在的记录上，二者的值才会变为False。
(1)RecordCount属性
反映记录集中的记录总数。例如要在Adodc1控件上显示记录总数，可用以下语句：
Adodc1.Caption = Adodc1.Recordset.RecordCount
(2)AbsolutePosition属性
反映当前记录的位置。若当前显示的是第一条记录，则AbsolutePosition = 1
5.4 建立连接
 (1) 先在Microsoft Access中建立一个库名为"111 "的数据库将其保存为：C:\Users\Administrator\Desktop\毕设三稿\111.mdb,并在Access数据库中建立一个表名为“口令信息”的表，在字段名称处分别键入“管理员编号”，“员工编号”，“密码”，数据类型均为“文本”，保存该表。（“员工基本信息表”、“员工考勤信息表”、“员工薪资信息表”、“意见建议”的表的详情见2.3）
 (2) 在Visual Basic6.0中输入以下指令： VB+access员工信息管理系统设计与实现(18):http://www.751com.cn/jisuanji/lunwen_1399.html