DataReport6.Show '打开报表
End Sub
Private Sub munpeixunchaxun_Click()
Form13.Show '打开界面
End Sub
Private Sub munpeixundel_Click()
Form14.Show '打开界面
Form14.Command2.Visible = False
Form14.Command1.Visible = True
End Sub
Private Sub munpeixunluru_Click()
Form17.Show '显示增加窗口
End Sub
Private Sub munpeixunshanchu_Click()
Form11.Show '打开界面
Form11.Command1.Visible = True
Form11.Command1.Caption = "删除"
End Sub
Private Sub munpeixunxiugai_Click()
Form11.Show '打开界面
'显示command9按键，并将CAPTION属性定义为"修改"
Form11.Command1.Visible = True
Form11.Command1.Caption = "修改"
End Sub
Private Sub munpeixunmodi_Click()
Form14.Show '打开界面
Form14.Command2.Visible = True
Form14.Command1.Visible = False
End Sub
Private Sub munshujubeifen_Click()
ss = App.Path & "\mang.mdb"
ss2 = App.Path & "\mang_bk.mdb"
Response = MsgBox("原数据库:" & ss & "备份的数据库将保存在:" & ss2, vbYesNo)
If Response = vbYes Then
DeleteFile ss2
'定义备份文件的位置,使用了相对目录
CopyFile ss, ss2, 1 '备份文件
MsgBox "成功"
Else
Exit Sub
End If
End Sub
Private Sub munshujuhf_Click()
ss = App.Path & "\mang.mdb"
ss2 = App.Path & "\mang_bk.mdb"
Response = MsgBox("是否删除原数据库？位置 :" & ss, vbYesNo)
If Response = vbYes Then
DeleteFile ss
'定义恢复文件的位置,使用了相对目录
MsgBox "备份的数据库在 :" & ss2 & " 恢复成原数据库位置 :" & ss
CopyFile ss2, ss, 1
'恢复文件
Else
Exit Sub
End If
End Sub
Private Sub munyonghu_Click()
Form10.Show '打开界面
End Sub
5.3 添加功能模块设计
图 5.2 增加员工界面
通过ADO控件连接到数据库的RS表，通过SQL语句
“SELECT rs.编号, rs.姓名, rs.年龄, rs.部门, rs.职级, rs.婚姻状况, rs.文化程度, rs.工作年数, rs.联系电话, rs.家庭住址, rs.身份证号码
FROM rs;“ 筛选出全部记录
用TEXT控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub
5.4 信息查询模块设计
图 5.3 “查询员工信息”界面
这里就列出查询源代码进行说明：
Private Sub Command6_Click()
ss= Text2.Text 设定4个变量
Adodc1.RecordSource = "SELECT * FROM RS where " + ss2 + "='" + ss4 + "' and " + ss3 + "='" + ss5 + "'"
Adodc1.Refresh
字段1=变量SS1 值=SS2 字段2=变量SS3 值=SS4
End Sub
计发工资信息模块设计
图 5.4 计发工资信息界面
通过ADO控件连接到数据库的表工资
用控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub
配置管理界面设计
图 5.5 “配置管理”界面
通过ADO控件连接到数据库的BUMEN表，通过SQL语句
筛选出全部记录。 用DATA GRID控件，将它的数据源设为ADO控件，将它的各列显示出数据库的各列。属性设为可写。
Private Sub Command1_Click()
On Error Resume Next
Adodc1.Recordset.AddNew 添加记录
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete 删除记录
End Sub
发布应用程序
在Visual Basic的集成开发环境中创建好电信人事管理信息系统后，并无意味着全部工作已完成，此时生成的应用程序只能在Visual Basic的集成环境中运行，要想使应用程序能够脱离Visual Basic的集成开发环境，首先要对电信人事管理信息程序进行编译并且生成.exe或其他类型的文件，然后调用打包和展开向导创建安装程序。
编译应用程序
编译电信人事管理信息程序就是将创建的应用程序以及它的工程文件合并成一个可执行文件。在发布电信人事管理信息应用程序之前，首先应该使用测试和调试工具对改应用程序进行前面测试，在排除了所有可能的错误后，才可以开始对应用程序进行编译。
编译应用程序的主要目的如下；
使应用程序转入和运行更快。
给发布应用程序做准备。
使用应用程序更安全。
将应用程序进行编译后，Visual Basic将工程中的所有文件进行组织并将这些工程文件转化成一个可执行的文件.exe。
Visual Basic提供APP对象来存储应用程序的有关信息属性，例如，公司名，产品名，版本以及其他相关信息。在设计中，可以通过这些属性来告诉用户一些重要的信息，在应用程序运行时用Visual Basic代码读出这些属性值，也可以在Windows资源管理器中观察应用程序对象的版本信息属性值。右击编译过的.exe文件，然后从快捷菜单中选择“属性”命令打开“属性”对话框的版本标签，就可以看到应用程序的版本信息。
当完成当前工程的APP对象的属性后，就可以编译代码了。Visual Basic6.0支持两种编译格式：P代码和本地代码。选择P代码格式编译的应用程序生成的可执行文件较小，选择本地代码编译的应用程序生成的可执行文件要大的多，但是可执行文件的运行速度比较快。
因此，电信人事管理信息系统采用的视本地代码的编译格式。
打包应用程序
创建Visual Basic应用程序后，可以将创建的电信人事管理信息应用程序通过磁盘，关盘，网络等途径自由发布，一般来说，发布应用程序必须经过下面的两个步骤：
（1）、打包
必须将应用程序文件打包为一个或多个可以部署到选定位置的.cab文件（.cab文件是一种压缩文件），对于某些类型的软件包，还必须为其创建安装程序。
（2）、部署
必须将打包的应用程序放置到适当的位置，以便用户来安装应用程序。
可以使用两种工具来打包和发布应用程序。
打包和展开向导（Package and Deployment）
Visual Basic安装软件提供的安装工具包。
打包和展开向导通过提供有关如何配置.cab文件的选项，使发布应用程序所包含的许多步骤得以自动运行，这是用户一般所采用的方法。
使用打包和展开向导进行打包的第一个步骤就是选择一个工程，然后单击打包按钮，开始创建一个可以发布的应用程序。第三步，如果没有编译工程，打包和展开向导会要求编译工程。工程编译完成后，向导询问想制作什么类型的包，我们这里使用向导制作安装程序。当向导完成制作安装包以后，它会自动生成一个带有很多重要信息的报告。
发布应用程序的步骤
将电信人事管理信息系统打包后，制作安装程序的过程并没有结束，必须将打包后的应用程序发布到一个媒体上，比如软盘，光盘等，发布电信人事管理信息系统的主要步骤如下：选择“电信人事管理信息系统”这个包，然后指定把这个包发布到rslz这个文件夹中，选择发布的媒体，就可以完成“电信人事管理信息系统”的发布工作了。
第六章 测试与分析
测试环境
本次实例测试是在电信部门的工作现场中完成的。
测试所在硬件环境：
中央处理器 奔腾4处理器
内存：128M
硬盘：40G 转速7200转/分
光驱：CD-ROM 52X
显示器： 彩色 真彩32 分辨率 1024×768
标准键盘、标准光电鼠标
打印机：HP LaserJet 5100 PCL6
测试所在软件环境：
Windows XP Professional SP2
Microsoft office 2003
测试方法
测试是一个为了寻找错误而运行程序的过程，一个好的测试用例是只可能找到迄今为止尚未发现错误的用例，一个成功的测试是揭示了迄今为止尚未发现的错误的测试。
软件测试基本可分为白盒测试和黑盒测试。两种测试方法从不同的角度出发，反映了软件的不同侧面，也适用于不同的开发环境。白盒测试又称结构测试、逻辑驱动测试或基于程序本身的测试，也可称为测试员测试，主要应用于结构化开发环境。黑盒测试又称功能测试、数据驱动测试或基于规格说明的测试，也可被称为用户测试，主要应用于快速应用开发（RAD）环境。
本例所用的是黑盒测试。在测试时，把程序看作一个不能打开的黑盆子，在完全不考虑程序内部结构和内部特性的情况下，测试者在程序接口进行测试，它只检查程序功能是否按照需求规格说明书的规定正常使用，程序是否能适当地接收输入数锯而产生正确的输出信息，并且保持外部信息（如数据库或文件）的完整性。黑盒测试方法主要有等价类划分、边值分析、因—果图、错误推测等，主要用于软件确认测试。 “黑盒”法着眼于程序外部结构、不考虑内部逻辑结构、针对软件界面和软件功能进行测试。“黑盒”法是穷举输入测试，只有把所有可能的输入都作为测试情况使用，才能以这种方法查出程序中所有的错误。实际上测试情况有无穷多个，人们不仅要测试所有合法的输入，而且还要对那些不合法但是可能的输入进行测试。
测试项目
表 6.1 测试项目表
序号 测试项目 内容和目的 测试结果
1 用户登录 输入正确帐号密码 可以登录
输入错误帐号密码 用户名不正确时显示“查无此人”；密码不正确时显示“密码不正确”。
2 用户管理 添加、删除、修改用户，并用新添加的用户登录。 操作顺利，新添加用户可以登录。
3 配置管理 添加、修改、删除部门名称及岗位名称 操作顺利，结果可以正常保存置数据库。
4 数据备份 备份现有数据库 数据库可以按照制定路径备份并保存。
5 数据恢复 恢复已备份数据库 恢复结果与原数据库相符。
6 系统初始化 进行初始化操作 初始化后数据为原是数据，且初始化后系统可正常运行。
7 增加员工 按照提示输入正确字段增加新员工 增加成功。
增加时输入错误字段 系统提示输入错误，并重新输入。
8 修改员工信息 对所选员工信息进行修改 可以修改并能提交保存
9 删除员工信息 删除指定信息 产出成功并能提交保存
10 查询员工信息 单条件查询，观察查询结果 结果正确，并可以打印到处
组合条件查询，观察查询结果 结果正确，并可以打印到处
11 档案打印 查看打印结果 正常
12 计发工资 随意选择一名员工进行工资计发操作 计发结果与实际相符
13 查询工资信息 单条件查询，观察查询结果 结果正确，并可以打印到处
组合条件查询，观察查询结果 结果正确，并可以打印到处
14 工资信息打印 查看打印结果 正常
15 增加培训信息 按照提示输入正确字段增加新培训信息 增加成功。
增加时输入错误字段 系统提示输入错误，并重新输入。
16 修改培训信息 对所选培训信息进行修改 可以修改并能提交保存
17 删除培训信息 删除指定信息 产出成功并能提交保存
18 查询培训信息 单条件查询，观察查询结果 结果正确，并可以打印到处
组合条件查询，观察查询结果 结果正确，并可以打印到处
19 职工履历打印 查看打印结果 正常
20 退出系统 进行推出系统操作 正常退出
测试结果
从以上测试项目完成情况可以看出，基本达到了设计的要求，对设计中提出的功能都能顺利的实现。
第七章 结论
软件经过测试，运行效果良好。在处理档案增加、档案修改、档案删除、工资查询、打印档案等工作中表现突出，方便快捷，能使电信人事管理者能够更专注于最需要智慧和经验的工作，大大节约了时间，因而提高电信人事管理的质量和效率。达到了预期的目的，即：
1、时间经济性。系统运行效率高，反映速度快。
2、可靠性。能连续准确的处理业务，有较强的容错能力。
3、可理解性。用户容易理解和使用该系统。
4、可维护性和适应性。系统应易于修改、易于扩充、易于维护，能够适应业务不断发展变化的需要。
5、可用性。目标系统功能齐全，能够完全满足业务需求。
6、安全保密性。保证系统的物理安全、数据存储和存取的安全与保密、数据传输的安全与保密，做好使用人员的授权管理。
在设计上，达到了面向对象的目的，使系统更加人性化，易于操作。
在数据库上，ACCESS 2000数据库能够优秀的承担中小行数据库的运行要求，保证数据库的效率和安全性。
综合考虑整套系统，从底层数据库设计、应用平台设计，到程序的发布，都能符合软件设计规范，并且达到较优化的系统运行过程。
基于VB和Access的电信人事管理系统文档(三)由毕业论文网（www.huoyuandh.com）会员上传。
