企业员工信息管理系统论文

摘要及关键字
摘要：
员工管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。

对于前者要求建立起数据一致性和完整性强、数据安全性好的库。

而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发。

论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。

重点的说明了系统设计的重点、设计思想、难点技术和解决方案。

Abstract The system of managing census register file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former required consistency and integrality and security of data. The later should make the application powerful and easily used.
By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.
关键字：
员工管理系统，数据字典,数据结构,资源管理
目录
摘要及关键字 (1)
第一章前言 (3)
1.1本课题的意义 (3)
1.2当前企业员工管理软件的现状 (3)
1.3选择本课题的目的 (3)
第二章开发运行环境及相关理论知识 (3)
2.1运行环境 (3)
2.2开发工具及平台 (4)
2.3相关理论知识 (4)
2.3.1 Visual Basic 6．0简介 (4)
2.3.2 关系型数据库—access (4)
2.3.3 二者的结合——ADO (5)
第三章系统功能需求分析 (6)
3.1员工基本信息管理功能需求 (6)
3.1员工工资管理功能需求 (6)
3.3员工考勤管理功能需求 (6)
3.4员工调动功能功能需求 (6)
3.5用户管理功能需求 (6)
3.6文件功能需求 (7)
第四章系统总体设计方案 (7)
4.1系统功能总体方案 (7)
4.2系统的目标 (7)
4.3系统的设计思想 (8)
4.4系统的功能模块结构 (8)
4.5数据库的设计 (9)
4.5.1数据库需求分析 (9)
4.5.2数据库概念结构设计 (9)
4.5.3数据库逻辑结构设计 (9)
第五章系统的具体设计 (11)
5.1欢迎主界面及代码设计 (11)
5.1.1欢迎主界面 (11)
5.1.2 欢迎主界面代码设计 (11)
5.2登录界面及代码设计 (12)
5.2.1登录界面 (12)
5.2.2 登录界面代码设计 (12)
5.3系统主界面及代码设计 (13)
5.3.1系统主界面 (13)
5.3.2系统主界面代码设计 (14)
5.4用户管理界面及代码设计 (26)
5.4.1用户管理界面 (26)
5.4.2用户管理界面代码设计 (27)
5.5设置界面及代码设计 (29)
5.5.1设置界面 (29)
5.5.2设置界面代码设计 (31)
5.6查询和管理界面及代码设计 (39)
5.6.1查询和管理界面 (39)
5.6.2查询界面代码设计 (41)
5.7打印报表界面 (49)
第六章系统的测试与分析 (50)
6.1系统测试测试策略说明 (50)
6.1.1整个系统界面窗口的测试 (50)
6.1.2数据测试项目 (50)
6.2测试报告 (50)
6.2.1用户登录界面、系统主界面的测试 (50)
6.2.2课程信息管理功能的测试 (51)
6.3系统性能分析 (52)
第七章结束语 (53)
致谢 (53)
参考文献 (54)
附录：公用类模块源代码 (55)
第一章前言
1.1 本课题的意义
员工管理系统是一个企事业单位不可缺少的部分,它的内容对于企事业单位的决策者和管理者来
说都至关重要,所以员工管理系统应该能够为用户提供充足的信息和快捷的查询手段。

但一直以来人们使用传统人工的方式管理文件信息，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。

随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会
的各个领域并发挥着越来越重要的作用。

1.2 当前企业员工管理软件的现状
企业人事档案是企业在人事管理活动中形成的重要人事记录。

人事档案在发展中国特色社会主义过程中,是人力资源储备、促进人才合理流动、科学配置和合理使用人才,全面考察了解、正确评价和使用人才的重要依据。

但是,有的企业却片面地认为,人事档案不过是人的经历记录，其本身不能直接带来经济效益，管好管坏无所谓，所以对人事档案工作在管理制度、管理手段、管理模式、管理人员等方面不够重视，存在着这样和那样的问题，影响了企业的改革和发展。

因此，研究开发出一套比较通用、功能比较完善的企业员工培训管理软件，力求在这一领域取得一些新的成果。

1.3 选择本课题的目的
作为计算机应用的一部分,使用计算机对员工信息进行管理,具有着手工管理所无法比拟的优点.
例如:检索迅速、查找方便、存储量大、保密性好、寿命长、成本低等。

这些优点能够极大地提高员工管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。

因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套员工信息管理系统为例,谈谈其开发过程和所涉及到的问题及解决方法。

系统名称：企业员工信息管理系统
第二章开发运行环境及相关理论知识
2.1 运行环境
软件环境：Windows 98/2000/XP。

硬件环境：Pentium 2 以上处理器。

2.2 开发工具及平台
微软公司的Visual Basic 6．0。

数据库管理系统access2000。

2.3 相关理论知识
2.3.1 Visual Basic 6．0简介
微软公司的Visual Basic 6．0是Windows应用程序开发工具，是目前最为广泛的、易学易用的面向对象的开发工具。

Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。

Microsoft Visual Basic，它提供了开发 Microsoft Windows(R) 应用程序的最迅速、最简捷的方法。

不论是 Microsoft Windows 应用程序的资深专业开发人员还是初学者，Visual Basic 都为他们提供了整套工具，以方便开发应用程序。

数据访问特性允许对包括 Microsoft SQL Server 和其它企业数据库在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。

故而，实现本系统VB是一个较好的选择。

2.3.2 关系型数据库—access
在办公软件Office套件中，最为广大用户熟悉的是Word和Excel，因为它们功能强大且方便易用，更因为它们不仅可用于办公，还可用于个人写作和家庭记帐理财等。

同为Office套件中一部分的Access，虽然有着同样强大的功能，但使用的人却相对少些，不像Word和Excel那样广泛。

事实上，真正用过Access的用户，对其强大功能和灵活应用均称赞有加。

Access 数据库管理系统是Microsoft Office 套件的重要组成部分，适用于小型商务活动，用以存贮和管理商务活动所需要的数据。

Access 不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单），查询，报表和应用程序等。

数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。

数据库中的数据可以是文字、图像、声音等。

Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重
复。

图1是一个“产品”表的例子。

“产品”表由10个记录组成，一个记录占一行，每一个记录由产品ID、产品名称、库存量、订货量、单价和折扣率6个字段组成。

“产品ID”是字段名，其下面的1，2等是字段的值。

表与表之间可以建立关系（或称关联，连接），以便查询相关联的信息。

Access数据库以文件形式保存，文件的扩展名是MDB。

Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。

表(Table) 表是数据库的基本对象，是创建其他5种对象的基础。

表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表。

查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。

窗体(Form) 窗体提供了一种方便的浏览、输入及更改数据的窗口。

还可以创建子窗体显示相关联的表的内容。

窗体也称表单。

报表(Report) 报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。

宏(Macro) 宏相当于DOS中的批处理，用来自动执行一系列操作。

Access列出了一些常用的操作供用户选择，使用起来十分方便。

模块(Module) 模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。

模块使用Visual Basic编程。

2.3.3 二者的结合——ADO
ADO（ActiveX Data Objects）是微软提供的数据库访问技术,实际上是一种访问各种类型数据库的连接机制。

它被设计用来同新的数据访问层OLE DB Provider一起协同工作，以提供通用数据访问（Universal Data Access）能力。

ADO设计为一种极简单的格式,通过ODBC的方法同数据库接口相连。

用户可以使用任何一种ODBC数据源, 即不仅适合于SQl SERVER,Oracle,Access等数据库应用程序,也适合于Excel表格，文本文件，图形文件和无格式数据文件。

ADO是基于OLE－DB之上的技术。

因此ADO通过其内部的属性和方法提供统一的数据访问接口。

ADO集中了DAO和RDO的优点，可以使用相同的编程模式连接到不同的数据提供者，而不管给定提供者的特定特性，具有高度的灵活性。

第三章系统功能需求分析
系统分析（又称逻辑设计）是管理信息系统开发的关键环节，要求在系统调查的基础上，对新系统的功能进行细致的分析，并建立一个新系统的逻辑模型。

系统分析阶段主要任务是确定系统的总体设计方案、划分子系统功能、确定共享数据的组织，然后进行详细设计。

企业员工信息管理系统功能需求主要有：员工基本信息管理功能、员工工资管理功能、员工考勤管理功能、员工调动功能、查询管理功能、及使用系统的用户管理功能、帮助功能等。

系统的成功开发将进一步促进学校管理的现化化和科学化，培养了人才，也为学校全面的人事信息管理体系积累了经验，从长远来看，其经济和效率是肯定的，根据以上分析，我们认为本系统开发条件成熟，实施方案可行
3.1 员工基本信息管理功能需求
●包括员工各种信息的输入和删除，包括员工基本信息、职称、上司、电话进入公司日期、基
本信息备注
●员工各种信息的查询、修改，包括员工基本信息、职称、岗位、上司、电话进入公司日期、
基本信息备注
3.1 员工工资管理功能需求
●工作详细查询，包括员工工作年月，补助，总工资，考勤扣除，保险扣除，扣税，总扣除，
实际工资，工资信息备注。

●员工管理需求，包括工资管理需求分析、管理需求名称及需求删除等。

3.3 员工考勤管理功能需求
●员工迟到早退信息、矿工日期、起始日期、终止日期、请假事由、批准人等。

●考勤信息备注。

3.4 员工调动功能功能需求
●员工调动情况查询，部门编号、原部门、原职务、新部门、新职务、调动信息备注。

3.5 用户管理功能需求
●用户管理包括用户添加、用户删除和密码修改等，用户权限分系统管理员、用户。

3.6 文件功能需求
文件功能包括备份数据库、还原数据库、及用户注销、退出系统等。

第四章系统总体设计方案
4.1 系统功能总体方案
我们采用面向对象的分析和设计方案，面向对象分析和面向对象设计之间有密切的衔接关系，从面向对象分析到面向对象设计是一个逐渐扩充模型的过程。

分析处理是以问题为中心的，可以不考虑任何与特定计算机有关的问题，而面向对象设计则把我们带进了面向计算机的“实地”开发活动中去。

通常，面向对象设计分为两个阶段：高层设计和低层设计。

高层设计包括像用户界面那样的问题解决部分，低层设计集中于类的详细设计阶段。

通常，利用面向对象设计得到的系统框架如图3-1所示：
图4-1 面向对象设计得到的系统框架图
4.2系统的目标
系统开发的总体任务是实现员工培训管理各种信息的系统化、规范化和自动化。

主要包括：
1、员工基本信息的查询,删除,修改和添加；
2、员工工资信息的查询, 删除,修改和添加；
3、员工考勤查询, 删除,修改和添加；
4、员工调动的信息和管理功能；
5、员工信息报表打印功能；
6、用户权限的管理和用户的添加,删除；
7、友好.方便.美观的界面设计。

4.3 系统的设计思想
1、实用性:在各项基本功能实用的上进一步开发完善系统；
2、先进性:简化代码去处冗余,引入先进的编译方式；
3、易用性:授权实体在需要时可以简单快捷的访问数据；
4、保密性:确保信息不暴露给未授权的实体或者进程；
5、系统性:将各功能模块有机融合成一个系统的整体。

4.4 系统的功能模块结构
图4-1 系统功能模块图
系统功能细分如图4-1所示，可概括分为5个模块，即：用户登录模块，添加修改模块，查询显示模块、数据录入模块、打印报表模块。

1)用户登录模块：完成用户身份的验证,设定指定用户的操作权限。

2)添加修改模块：完成各种对各种员工数据的添加和修改。

3)查询显示模块：根据不同的查询条件对数据进行挑选,进一步加工后加以显示。

4)数据录入模块：将录入数据保存到相应的数据库。

5)打印报表模块：将员工基本信息和培训计划等以报表的方式打印出来。

4.5 数据库的设计
在数据库应用系统的开发过程中，数据库的结构设计是一个非常重要的问题。

数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响，好的数据库结构设计会减少数据库的存储量，数据的完整性和一致性比较高，系统具有较快的响应速度，简化基于此数据库的应用程序的实现等。

在数据库系统开始设计的时候我们应该尽量考虑全面，尤其应该仔细考虑用户的各种需求，避免浪费人力和物力。

4.5.1数据库需求分析
数据库需求分析是数据库结构设计的第一个阶段，是非常重要的一个阶段。

在这个阶段主要是收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为以后进一步设计打下基础。

4.5.2数据库概念结构设计
这一设计阶段是在需求分析的基础上，设计出能够满足用户需求的各种褓，以及它们之间的关系，为后面的逻辑结构设计打下基础。

4.5.3数据库逻辑结构设计
数据库共包括5个表，具体数据字典见表1-5。

表4-1员工调动表
表4-2员工工资表
表4-3 员工基本信息表表4-4 员工基本信息表表4-5用户管理表
第五章系统的具体设计5.1 欢迎主界面及代码设计
5.1.1欢迎主界面
运行员工培训管理系统后，首先将出现欢迎主界面，如下图。

图5-1 欢迎主界面
5.1.2 欢迎主界面代码设计
欢迎主界面实现的代码设计如下：
Private Sub Command1_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
5.2 登录界面及代码设计
5.2.1登录界面
图5-2 登录界面
5.2.2 登录界面代码设计
登录界面实现的代码设计如下：
Public ID As String
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command2_Click()
If Trim(Text1.Text) = "" Then
MsgBox "账号不能为空！", vbExclamation, "提示"
ElseIf Trim(Text2.Text) = "" Then
MsgBox "口令不能为空！", vbExclamation, "提示"
Else
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\info.mdb"
SQL = "select 管理员,口令 from admin"
rs.Open SQL, conn
flag = 0
Do While Not rs.EOF
If Text1.Text = rs("管理员") And Text2.Text = rs("口令") Then flag = 1
Exit Do
Else
rs.MoveNext
End If
Loop
rs.Close
conn.Close
If flag = 1 Then
ID = Text1.Text
Unload Me
frmMain.Show
Else
MsgBox "登陆信息错误！", vbCritical, "出错"
End If
End If
End Sub
5.3 系统主界面及代码设计
5.3.1系统主界面
用户登录后，将进入系统主界面，如下图：
图5-3 系统主界面
5.3.2系统主界面代码设计
系统主界面实现的代码设计如下：
Unload Me
frmView.Show
End Sub
5.4 用户管理界面及代码设计
5.4.1用户管理界面
这里的用户是指使用员工信息管理系统的用户，其界面包括：重登陆，修改口令，添加和删除用户等；用户按权限等级分系统管理员和普通用户。

系统管理员拥有各级系统的全部使用功能；；而普通用户只具有查询管理功能。

图5-4 用户管理界面
5.4.2用户管理界面代码设计
用户管理界面实现的代码设计如下（这里以添加用户为例）：
5.5 设置界面及代码设计
5.5.1设置界面
系统的设置界面包括：员工基本信息、工资信息、考勤记录、调动信息等
图 5-1员工基本信息图 5-2工资信息查询
图 5-3 考勤记录查询
图 5-4 调动记录查询
5.5.2设置界面代码设计
设置界面实现的代码设计如下（这里以员工基本信息设置为例）：Public SearchID
Private Sub bz_Click()
frmHelp.Show
End Sub
Private Sub cdl_Click()
ReturnValue = MsgBox("确实要注销当前用户吗？", vbOKCancel + vbQuestion + vbDefaultButton2, "提示")
Select Case ReturnValue
Case 1
Unload Me
frmLogin.Show
End Select
End Sub
Private Sub Cminzu_Click()
If Cminzu.Value = Checked Then
Tminzu.Enabled = True: Tminzu.BackColor = &H80000005
Else
Tminzu.Text = "": Tminzu.Enabled = False: Tminzu.BackColor = &H8000000F
End If
End Sub
Private Sub Cname_Click()
If Cname.Value = Checked Then
Tname.Enabled = True: Tname.BackColor = &H80000005
Else
Tname.Text = "": Tname.Enabled = False: Tname.BackColor = &H8000000F
End If
End Sub
Private Sub Csex_Click()
If Csex.Value = Checked Then
Cobsex.Enabled = True: Cobsex.BackColor = &H80000005
Else
Cobsex.ListIndex = -1: Cobsex.Enabled = False: Cobsex.BackColor = &H8000000F End If
End Sub
Private Sub Cshenfenid_Click()
If Cshenfenid.Value = Checked Then
Tshenfenid.Enabled = True: Tshenfenid.BackColor = &H80000005
Else
Tshenfenid.Text = "": Tshenfenid.Enabled = False: Tshenfenid.BackColor = &H8000000F End If
End Sub
If Ctel.Value = Checked Then
Ttel.Enabled = True: Ttel.BackColor = &H80000005
Else
Ttel.Text = "": Ttel.Enabled = False: Ttel.BackColor = &H8000000F
End If
End Sub
Private Sub f1Cmdqh_Click()
Frame2.Visible = True
Frame1.Visible = False
End Sub
Private Sub f1Cmdsearch_Click()
Dim TJ As String, XX As String
If Cname.Value = Checked Then
If Trim(Tname.Text) <> "" Then TJ = "姓名= '" & Tname.Text & "' And ": XX = XX & "姓名,"
End If
If Csex.Value = Checked Then
If Cobsex.ListIndex <> -1 Then TJ = TJ & "性别= '" & Cobsex.Text & "' And ": XX = XX & "性别,"
End If
If Cminzu.Value = Checked Then
If Trim(Tminzu.Text) <> "" Then TJ = TJ & "民族= '" & Tminzu.Text & "' And ": XX = XX & "民族,"
End If
If Ctel.Value = Checked Then
If Trim(Ttel.Text) <> "" Then TJ = TJ & "电话= '" & Ttel.Text & "' And ": XX = XX & "电话,"
End If
If Cshenfenid.Value = Checked Then
If Trim(Tshenfenid.Text) <> "" Then TJ = TJ & "身份证号= '" & Tshenfenid.Text & "' And ": XX = XX & "身份证号,"
End If
If Trim(Tname.Text) <> "" Or Cobsex.ListIndex <> -1 Or Trim(Tminzu.Text) <> "" Or Trim(Ttel.Text) <> "" Or Trim(Tshenfenid.Text) <> "" Then
TJ = Mid(TJ, 1, Len(TJ) - 4): XX = Mid(XX, 1, Len(XX) - 1)
End If
If Trim(Tname.Text) <> "" Or Cobsex.ListIndex <> -1 Or Trim(Tminzu.Text) <> "" Or Trim(Ttel.Text) <> "" Or Trim(Tshenfenid.Text) <> "" Then
SQL = "SELECT 员工编号, 姓名, 性别, 民族, 身份证号, 进入本公司时间, 电话 FROM jiben WHERE " & TJ & " "
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\info.mdb"
rs.CursorLocation = adUseClient
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
If Not rs.BOF Or Not rs.BOF Then
DataGrid1.Visible = True
Label1.Visible = False
Set DataGrid1.DataSource = rs
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
DataGrid1.AllowDelete = False
Else
DataGrid1.Visible = False
Label1.Visible = True
End If
End If
End Sub
Private Sub f2Cmdqh_Click()
Frame1.Visible = True
Frame2.Visible = False
End Sub
Private Sub f2Cmdsearch_Click()
If Trim(Text0.Text) = "" Then
MsgBox "请输入要查询的员工编号！", vbInformation, ""
ElseIf Combo1.ListIndex = -1 Then
MsgBox "请选择要查询的表！", vbInformation, ""
Else
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\info.mdb"
Select Case Combo1.Text
Case "员工基本信息表": SQL = "select * from jiben where 员工编号='" & Text0.Text & "'"
Case "员工工资信息表": SQL = "select * from gongzi where 员工编号='" & Text0.Text
Case "员工考勤记录表": SQL = "select * from kaoqin where 员工编号='" & Text0.Text & "'"
Case "员工调动信息表": SQL = "select * from diaodong where 员工编号='" & Text0.Text & "'"
End Select
rs.CursorLocation = adUseClient
rs.Open SQL, conn, adOpenKeyset, adLockPessimistic
If Not rs.BOF Or Not rs.BOF Then
DataGrid1.Visible = True
Label1.Visible = False
Set DataGrid1.DataSource = rs
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
DataGrid1.AllowDelete = False
Else
DataGrid1.Visible = False
Label1.Visible = True
End If
End If
End Sub
Private Sub Form_Load()
showadmin.Caption = showadmin.Caption & frmLogin.ID
Select Case SearchID
Case 1: Frame1.Visible = True: Frame2.Visible = False
Case 2: Frame2.Visible = True: Frame1.Visible = False
End Select
End Sub
Private Sub Form_Resize()
Frame1.Left = (frmSearch.Width - Frame1.Width) / 2
Frame2.Left = (frmSearch.Width - Frame2.Width) / 2
Label1.Left = (frmSearch.Width - Label1.Width) / 2
DataGrid1.Left = (frmSearch.Width - DataGrid1.Width) / 2
End Sub
Private Sub gjcx_Click()
Frame1.Visible = True: Frame2.Visible = False
End Sub
Private Sub gx_ddxx_Click()
frmView.ViewID = 4
frmManUpd.UpdID = 4
Unload Me
frmView.Show
frmManUpd.Show vbModal
End Sub
Private Sub gx_gzxx_Click()
frmView.ViewID = 2
frmManUpd.UpdID = 2
Unload Me
frmView.Show
frmManUpd.Show vbModal
End Sub
Private Sub gx_kqjl_Click()
frmView.ViewID = 3
frmManUpd.UpdID = 3
Unload Me
frmView.Show
frmManUpd.Show vbModal
End Sub
Private Sub gx_ygjbxx_Click()
frmView.ViewID = 1
frmManUpd.UpdID = 1
Unload Me
frmView.Show
frmManUpd.Show vbModal
End Sub
Private Sub ptcx_Click()
Frame2.Visible = True: Frame1.Visible = False End Sub
Private Sub sc_ddxx_Click()
frmView.ViewID = 4
Unload Me
frmView.Show
frmManDel.Show vbModal
End Sub
Private Sub sc_gzxx_Click()
frmView.ViewID = 2
frmView.Show
frmManDel.Show vbModal End Sub
Private Sub sc_kqjl_Click() frmView.ViewID = 3
Unload Me
frmView.Show
frmManDel.Show vbModal End Sub
Private Sub sc_ygjbxx_Click() frmView.ViewID = 1
Unload Me
frmView.Show
frmManDel.Show vbModal End Sub
Private Sub scgly_Click()
frmSetDel.Show
End Sub
Private Sub tc_Click()
Unload Me
End Sub
Private Sub tj_ddxx_Click() frmView.ViewID = 4
frmManAdd.AddID = 4
Unload Me
frmView.Show
frmManAdd.Show vbModal End Sub
Private Sub tj_gzxx_Click() frmView.ViewID = 2
frmManAdd.AddID = 2
Unload Me
frmView.Show
frmManAdd.Show vbModal End Sub
Private Sub tj_kqjl_Click() frmView.ViewID = 3
frmManAdd.Show vbModal
End Sub
Private Sub tj_ygjbxx_Click()
frmView.ViewID = 1
frmManAdd.AddID = 1
Unload Me
frmView.Show
frmManAdd.Show vbModal
End Sub
Private Sub tjgly_Click()
frmSetAdd.Show
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key
Case "jiben"
frmView.ViewID = 1
Unload Me
frmView.Show
Case "gongzi"
frmView.ViewID = 2
Unload Me
frmView.Show
Case "kaoqin"
frmView.ViewID = 3
Unload Me
frmView.Show
Case "diaodong"
frmView.ViewID = 4
Unload Me
frmView.Show
Case "search"
Frame2.Visible = True: Frame1.Visible = False
End Select
End Sub
Private Sub xgkl_Click()
frmSetModify.Show
End Sub
Private Sub xxll_ddxx_Click()
End Sub
Private Sub xxll_gzxx_Click()
frmView.ViewID = 2
Unload Me
frmView.Show
End Sub
Private Sub xxll_kqjl_Click()
frmView.ViewID = 3
Unload Me
frmView.Show
End Sub
Private Sub xxll_ygjbxx_Click()
frmView.ViewID = 1
Unload Me
frmView.Show
End Sub
Private Sub zjm_Click()
Unload Me
frmMain.Show
End Sub
5.6 查询和管理界面及代码设计
5.6.1查询和管理界面
系统的查询界面包括：基本查询、高级查询等。

图 5-6-1基本查询图 5-6-2高级查询
图 5-6-3查询界面
5.6.2查询界面代码设计
系统查询界面的代码设计如下（这里以查询员工基本信息为例）：
Public SearchID
Private Sub bz_Click()
frmHelp.Show
End Sub
Private Sub cdl_Click()
ReturnValue = MsgBox("确实要注销当前用户吗？", vbOKCancel + vbQuestion + vbDefaultButton2, "提示")
Select Case ReturnValue
Case 1
Unload Me
frmLogin.Show
End Select
End Sub
Private Sub Cminzu_Click()
If Cminzu.Value = Checked Then
Tminzu.Enabled = True: Tminzu.BackColor = &H80000005
Else
Tminzu.Text = "": Tminzu.Enabled = False: Tminzu.BackColor = &H8000000F
End If
End Sub
frmView.Show
End Sub
Private Sub zjm_Click()
Unload Me
frmMain.Show
End Sub
5.7 打印报表界面
打印报表包括企业人事管理和企业人事工资情况。

图 5-7-1 企业人事管理报表打印预览
图 5-7-2 报表界面
第六章系统的测试与分析
6.1 系统测试测试策略说明
6.1.1 整个系统界面窗口的测试
1）系统运行是否正常？
2）用户登录界面的使用及登录是否正常？
3）进入系统主界面后，有关的下拉菜单、工具条、对话框、按钮、图标和其他控件窗口使用是否正常？
4）显示的页面程序是否正常运行，读数据库时是否出错？
5）信息录入、保存、查询是否正常？
6）多用户信息录入是否互通，查询是否出错？
6.1.2 数据测试项目
1）能否识别输入数据的类型，长度？
2）数据库在大量的数据输入、输出时能否正常运行？
3）日期、数据等数值是否正确处理？
4）数据写入数据库时，数据是否写入对应的字段？
6.2 测试报告
6.2.1 用户登录界面、系统主界面的测试
1）测试日期：2009年11月30日上午9:00--11:00，测试人：张歉
2）测试目的：a）验证系统是否能够正常运行；b）用户是否能够成功登录；c）系统主界面各下拉菜单、工具条等窗口的使用是否正常。

3）测试结果：
a）系统运行正常。

与设计的设想吻合，在进入系统登录界面之前，能够预先出现系统欢迎界面。

b）用户登录过程正常。

以不同权限的用户登录后，出现与设计设想一样的使用功能。