企业人事管理系统设计

　企业 人事管理系统 设计

　摘

　要

　人力资源管理是企业管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大问题。在这种情况下，开发一个人力资源管理系统就显得非常必要。

　本系统结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的 Visual Basic 6.0 作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，本企业人事管理系统具有如下功能：员工基本信息的录入、修改、查询、删除模块，员工假条信息录入、修改、查询、删除模块，员工工资信息的录入，计算，查询，以及系统用户的设置以及系统的维护功能。为企业人事管理提供信息咨询，信息检索，信息存取等服务，基本上能够满足现代企业对人事管理的需要。本文系运用规范研究方法进行的专题研究。全文分六个部分：第一部分，是本课题的来源和课题研究的目的和意义；第二部分，是开发工具的选择，本系统主要运用的是 Visual Basic 6.0 作为系统前台应用程序开发工具，Access 作为后台数据库；第三部分，是系统的需求分析，主要是人事管理系统的需求分析；第四部分，是系统分析与实现，包括系统功能模块的设计和数据库的设计；第五部分，是代码的设计与实现，系统事件运行的主要代码；第六部分，是系统的实现，最后，是软件的测试。

　关键词：

　信息管理；人事管理；人事管理系统；Visual Basic 6.0

　- 2 -

　Abstract Human resources management is the management of an important progress with the times, companies have gradually become a huge up. How to manage internal employee information, become a big problem. In this case, the development of a human resource management system it is very necessary.

　The system combines the company"s actual personnel, systems, analysis of actual demand, the use of powerful development tools as Visual Basic6.0 and developed stand-alone version of the personnel management system governing personnel. From the whole system in line with the simple, user-friendly, flexible, practical and safety requirements, the personnel management system of the enterprises have the following functions: basic information about staff input, modify, query, delete the module, staff leave information entry, modify, query, delete module, the entry wages of information, computing, information, and users of the system settings and system maintenance functions. Personnel management for the enterprise provides information consultation, information retrieval, information access services, primarily to meet the modern enterprises to personnel management. This article is the use of norms of research methods and topical studies. The full text of six parts: Part I, is the subject of research sources and the purpose and significance; the second part of the development tools of choice, the system is mainly used as a Visual Basic6.0 future application development system tools Access database as a background; the third part of the system needs analysis, personnel management system is mainly demand analysis; fourth part of the analysis and implementation, including system design and database module of the design; the fifth part of the Design and Implementation of the code, the system is running a major event code; the sixth part of the system, finally, test the software. Key words:

　Information management; personnel management; Personnel Management System; Visual Basic 6.0

　- 3 - 目 目

　录 引

　论……………………………………………………………………………1 1

　 一、课题的来源与意义…………………………………………………………1 1

　 （一）本课题的来源……………………………………………………………………1 （二）本课题研究的目的及意义………………………………………………………2 （三）本课题的研究现状………………………………………………………………2 二、开发工具的选择 ……………………………………………………………3 3

　 （一）开发软件 Access 的介绍…………………………………………………………3 （二）开发软件 Visual Basic 6.0 的介绍……………………………………………3 三、系统分析与设计 ……………………………………………………………4 4

　 （一）系统分析…………………………………………………………………………4 （二）系统功能设计……………………………………………………………………5 （三）数据库设计………………………………………………………………………6 四、主要功 能模块设计 …………………………………………………………8 8

　 （一）系统架构设计……………………………………………………………………8 （二）控件准备和引用设置……………………………………………………………9 （三）系统登陆设计 …………………………………………………………………9 （四）主窗体的设计 …………………………………………………………………11 五、系统测试 ………………… ………………………………………………… 22

　 （一）软件测试的目标………………………………………………………………22 （二）测试举例………………………………………………………………………22 主要参考文献 …………………………………………………………………… 23

　 致

　谢 ……………………………………………………………………………错

　- 4 - 误!未定义书签。

　- 1 - 引

　论

　人力资源管理是结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的Visual Basic6.0 作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，本企业人事管理系统具有如下功能：员工基本信息的录入、修改、查询、删除模块，员工假条信息录入、修改、查询、删除模块，员工工资信息的录入，计算，查询，以及系统用户的设置以及系统的维护功能。为企业人事管理提供信息咨询，信息检索，信息存取等服务，基本上能够满足现代企业对人事管理的需要。

　1 1 课题的来源与意义

　1 1.1 本课题的来源

　随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。

　人事管理系统是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如:效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及， 利用计算机实现企业人事管理势在必行。合理的利用有助于企业发展的管理系统是企业改革的一种优越的体现，不仅保证了核算准确度，还成倍的提高了工作效率，而且便于查询。作为计算机应用的一部分，使用计算机对人事信息进行管理，具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。

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

　- 2 - 2 1.2 本课题研究的目的及意义

　现代信息技术的发展，在改变着我们的生活方式的同时，也改变着我们的工作方式，使传统意义上的人事管理的形式和内涵都在发生着根本性的变化。在过去，一支笔和一张绘图桌，可能就是进行办公的全部工具。今天，电脑、扫描仪和打印机等，已基本取代了旧的办公用具。如今，人事管理己完全可以通过电脑进行，并在计算机辅助下准确快速地完成许多复杂的工作。这些都大大地缩短管理的时间。而今天，人事管理的内容己经转变为对更为广泛的系统价值的追求。信息管理，如今已是一个热门话题，它已为许多企业所采用。我认为，在现代化的进程中，引入现代管理的思想，建立一套可面向企事业单位人事的信息管理系统，也是十分必要的。

　本课题基于我国企业管理信息化建设现状，结合在实际工作中所遇到的问题和收获，对企业人事管理系统在设计开发等方面进行研究，重点研究系统开发中所采用的软硬件平台规范、数据库结构设计、开发工具的选择与使用，目的是从技术手段的角度阐述如何实现企业从传统经营管理模式向信息化管理模式转变的过程，以及人事管理系统在企业管理信息化中所起到的重要作用。本课题的开发主要是要花费相当多的人力和时间，虽然开发出来的软件可能离具体产生效益还有一定的距离。但是，出于通过毕业设计来丰富自己的专业知识，并从长远利益来考虑，本课题的设计开发还是具有相当大的经济可行性的。

　3 1.3 本课题的研究现状

　目前，在国内外各大企事业单位中，人事管理系统的使用是非常广泛的。同时，有很多的软件开发商也开发了许多基于各种行业的企业人事管理学系统，其中有单机版的，也有 C/S 和 B/S 模式的。而不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。而且，企业管理信息量大、操作繁琐、传统的方式不再适应新的工作需要，开发研制适合企业的人事管理系统，使其具有整体性强、流程简单、操作方便、功能丰富和通用性强等特点，是加快企业人才管理工作办公自动化、信息资源化和管理科学化建设进程必要途径。因此建立适合企业的管理信息系统，是促进企业信息高速公路的发展，为企业的发展提供条件的重要课题。

　随着数据库技术和网络技术的发展，数据库的互连技术正成为世界计算机领域研究的热点，基于 WEB 的管理信息系统的研究正成为 MIS 研究的主流。与此同时，Internet 的发展与普及，国内许多企业已经建成有自己的企业人力资源管理软件，为企业的快速运营提供了很大方便。但是对于有些中小企业来说，不需要大量的数据库，所以我们的目标是开发一个功能使用，操作简单的人事管理系统。

　- 3 - 2 2 开发工具的选择

　现在，市场上可以选购的应用开发产品很多，流行的也有数十种。在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间；相反，如果只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用。

　本设计我将采用面向对象的方法，综合运用数据库技术、程序设计技术，结合企业人事管理知识，以 Visual Basic 6.0 作为系统前台应用程序开发工具，Access 作为后台数据库，通过 Visual Basic 6.0 中的 Data 控件使两者进行连接从而进行系统软件开发。

　1 2.1 开发软件 s Access 的介绍

　Microsoft Access 是比较流行的关系型数据库管理系统之一，其基本核心是 Microsoft Jet 数据库引擎，是一些关于某个特定主题或目的的信息集合。它的作用是用来存储，维护和检索数据。同时，提供了 VBA 编程接口，可以为用户提供各种各样的编程功能。

　一个数据库对象是由若干表，查询，窗体，报表，宏和模块等对象及对象的集合组成的，这些集合的组合丰富和增强了 Access 数据库的功能。在 Access 中，所有的对象均保存在一个“.MDB”文件中，这给数据库的维护带来了很大的方便。选择 Access 作为后台数据库，是因为 Access 在许多数据管理的系统中已经非常广泛的使用，在数据流管理方面也是比较成熟的。同时 Access 相比较 SQL 作为后台数据库，在连接方面有更为简易的表现，因此选择 Access 作为后台数据库。

　 2 2.2 开发软件 Visual Basic

　6 6 ．0 0 的介绍

　Visual Basic 6.0 是微软公司推出的可视化编成工具，它提供了非常简单、快捷的开发方法，无论是初学者还是专业开发人员，只要稍有语言基础就可以快速掌握并精通。Basic是 Beginner’s All-purpose Symbolic Instruction Code（初学者通用符号指令代码）的缩写，它诞生于 20 世纪 60 年代初期，因其简单易学、使用方便。

　1991 年，Microsoft 公司首先推出了建立在 Windows 开发平台基础上的开发工具——Visual Basic 1.0，Visual Basic 是基于 Basic 语言基础上的一种可视化程序设计语言。之后Microsoft 公司相继推出了 Visual Basic 3.0 （1993 年）、Visual Basic 4.0 （1995 年）、Visual Basic 5.0（1997 年），1998 年推出了 Visual Basic 6.0 版，使得 Visual Basic 在开发环境、功能上进一步完善和扩充，在数据库管理、网络编成等方面得到了更广泛的应用。

　当然, 使用单一的一个工具去完成一个中大型的应用系统的需求分析, 是不可能成功

　- 4 - 的。因为社会在发展, 用户的需求也在改变, 如何把握住用户的需求是需要时间的, 面向对象的方法有时也会忽略外在的与表层的要求, 不仅仅是要获得关键的需求, 其他更多的需求往往要等到用户在使用后才知道, 然而等到用户使用是不现实的, 作为原型开发模型中的原型也是收集用户需求, 描述与解释需求的一类相当有效的方法与工具。

　在我们的开发过程中, 为了更好地让用户了解我们的系统和我们的设计方案, 让用户在见面会上更有方向性与针对性, 我们对用户进行需求分析，从而在真正的分析与设计时就能更加符合用户的要求。总之, 软件需求分析方法和工具的使用, 对我们软件开发过程影响是很深远的, 选用高效能的正确的方法与工具, 可以使我们的软件更加正确地反映现实需求, 更加具有可用性、可扩展性和可维护性; 降低了软件项目的风险。

　3 3 系统分析与设计

　1 3.1 系统分析

　3. 1.1 1 系统需求分析

　随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对人事信息进行管理，具有着手工管理所无法比拟的优点。这些优点能够极大地提高人事管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。根据以上情况，决定实施建立人事信息管理系统， 因为人事信息管理是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。可以解决一直以来人们使用传统人工的方式管理文件档案存在着的许多缺点，如:效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算实现企业人事档案的管理势在必行。当前企业信息管理系统正在从US结构向B/S结构转移，但是由于安全性等方面的因素，C/S结构的管理信息系统仍然占据企业管理信息系统的主流。人事管理系统是现代企业管理工作不可缺少的一部分，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件。人事信息管理系统是针对企业人事处的大量业务处理工作用计算机进行全面现代化管理，他必须具备以下基本功能：

　（1）人事档案管理数据库及表的操作。实现对人事档案管理数据库及表的创建，表中数据的维护。

　（2）人事档案信息的管理。实现人事信息的添加，保存，修改和删除等。

　（3）人事档案信息的应用。实现人事信息的查询，统计，人事资源的利用等。

　2 3.1.2 可行性分析

　- 5 - 人事管理系统后台数据库采用目前应用十分广泛的桌面型关系数据库Microsoft Office Access 2003，由于其具有快速、方便、灵活和可移植性等特点被大多数软件开发者所使用；前台采用Visual Basic 6.0作为主要的开发工具，其可与Access 2003数据库无缝衔接。

　2 3.2 系统功能设计

　1 3.2.1 系统的功能分析

　人事信息管理系统是一个典型的数据库开发应用程序，它由员工信息管理、工资管理、假条信息管理、系统用户管理等模块组成，具体规划如下：

　（1）系统用户管理：

　对使用系统的用户进行管理，为他们分配一定的权限，使他们规范的使用系统。本系统的用户分为两类：管理员和一般用户。管理员可以对系统的各个模块进行添加，删除，修改，查询；而一般用户只能对各模块进行简单的查询，从而了解相关的信息。

　（2）职工信息管理：

　职工信息管理包括对职工基本信息和情况的记录进行查询、添加、删除和修改。主要由管理员进行。

　（3）职工工资管理：

　职工工资管理主要是对职工工资的综合的核算，建立合理，规范的企业工资核算制度，保障职工的合法权利。

　（4）职工假条管理：

　职工假条管理是对职工的出勤进行管理，方便人事处管理员对职工工资的核算，方便随时了解最新，最全面工作情况，从而合理的完成工作。

　2 3.2.2 系统功能结构

　系统功能结构图主要从功能的角度描述了系统的结构。

　人事管理的系统功能结构如图 1 所示：

　- 6 - 图 图 1

　系统功能结构图

　3 3.3 数据库设计

　人事管理系统的数据库采用 Access ，系统数据库的名称为“data”。数据库 data 中包含了 4 张数据表。下面分别给出数据表概要说明和主要数据表的结构。

　（1）职工信息数据表：用于储存职工的基本信息。职工信息表见表 1 所示：

　表 表 1

　职工基本信息表

　字段 字段名 类型 宽度 Nulls 1 职工编号 数值型 11 否 2 姓名 字符型 20 否 3 身份证号 字符型 18 否 4 民族 字符型 10 否 5 性别 字符型 4 否 6 出生日期 字符型 20 否 7 毕业学校 字符型 20 否 8 学历 字符型 20 否 9 部门 字符型 20 否 10 职称 字符型 20 否 11 上司 字符型 20 否 12 电话 字符型 20 否 13 EMAIL 字符型 20 否 14 EDIT 数值型 11 否 15 EDITTIME 日期型 8 否 人事管理系统 用户登录 员工信息管理 假条信息管理 工资管理 系统设置 帮助 用户管理 退出系统

　设置

　删除

　添 加

　删除

　添 加

　查找

　设置

　删除

　添 加

　查找

　设置

　删除

　添 加

　查找

　帮助

　关于

　- 7 - （2）工资信息数据表：用来存储职工的工资情况，包括姓名，职称，工资等信息。工资信息表见表 2 所示：

　表 表 2

　工资信息表

　字段 字段名 类型 宽度 Nulls 1 工资编号 字符型 50 否 2 职工编号 数值型 11 否 3 年份 数值型 6 否 4 月份 数值型 6 否 5 基本工资 数值型 11 否 6 加班工资 数值型 11 否 7 交通补助 数值型 11 否 8 总工资 数值型 11 否 9 考勤扣除 数值型 11 否 10 保险扣除 数值型 11 否 11 扣税 数值型 11 否 12 总扣除 数值型 11 否 13 实际工资 数值型 11 否 14 EDIT 数值型 11 否 15 EDITTIME 日期型 8 否 16 备注 备注型 10 否

　（3）假条信息数据表：存储假条相关信息。假条信息表见表 3 所示：

　 表 表 3

　假条信息表

　字段 字段名 类型 宽度 Nulls 1 假条编号 字符型 6 否 2 职工编号 数值型 11 否 3 起始日期 字符型 20 否 4 中止日期 字符型 20 否 5 天数 数值型 6 否 6 原由 字符型 50 否 7 状态 字符型 20 否 8 批准人 字符型 20 否 9 EDIT 数值型 11 否 10 EDITTIME 日期型 8 否 11 备注 备注型 10 否

　（4）用户信息表，用于储存用户信息。用户信息表见表 4 所示：

　- 8 - 表 表 4

　用户信息表

　字段名称 数据类型 长度 用户名（主键）

　文本 20 密码 文本 20 4 4 主要功能模块设计

　1 4.1 系统架构设计

　人事管理系统的架构分为窗体和模块两个部分。在窗体的部分有以下几个窗体，他们的作用分别是：

　“frmAbout”是关于窗口，是对系统的说明；

　 “frmEdit.frm”是编辑窗口，可以对员工信息进行添加，删除的操作； “frmHelp.frm”是帮助窗体，对新用户提供帮助； “frmLogin.frm”是用户的登陆窗口，启动系统时就会出现这个窗口；

　“frmmain.frm”是系统主界面，用户可以选择要执行的任务； “frmPsw.frm” 是密码修改，用户可以在此修改自己的密码； “frmSearch.frm” 是寻找窗口，用户可以进行模糊查询和逻辑查询； “frmSetup.frm”是设置条目的窗口，管理员可以把可以对外公布的设置为显示条目， 而对少数人公布的设置为隐藏条目，从而达到不同的使用者具有不同的使用权限； “frmSys.frm” 是关于用户窗体，在这个窗体中可以添加新用户，可以设置密码，也可以对用户权限进行授权，这个窗体和数据库也有密切的联系，可以在这里更新用户信息； “frmTable.frm”是桌面窗体，它罗列了员工学历和部门的信息，同时可以进行添加，编辑和删除的操作。系统架构说明见图 2 所示：

　 图 图 2

　系统架构图

　- 9 - 2 4.2 控件准备和引用设置

　控件准备和引用设置是目前制作应用程序的前提条件，在 Visual Basic 6.0 默认的工具箱中，很多使用的部件没有显示，所以要将我们需要的部件添加进工具箱。另外，包括一些库文件的函数，也是没有被引用，我们要先将这些具有特定功能的函数引用。

　1 4.2.1 控件准备

　人事管理系统中需要通过“工程”→“部件”命令添加到工具箱中的“ActiveX”部件，见图 3 所示。

　图 图 3

　人事管理系统的控件准备图

　2 4.2.2 引用设置

　人事管理系统中需要通过“工程”→“引用”命令引用库文件内的函数，来完成数据库的连接，见图 4 所示。

　 图 图 4

　人事管理系统的引用设置

　3 4.3 系统登陆设计

　- 10 - 系统用户登录模块主要用于完成对登录系统的用户的验证，只有合法的用户才可以进入系统。运行用户登陆模块，其结果见图 5 所示：

　图 图 5

　用户登录的运行结果

　1 4.3.1 系统登陆窗体的功能

　登录窗体是用户进入系统的钥匙，只有合法的登录才是有效的登录。在本系统中预设了两种用户：root 超级用户和 any 一般用户，超级用户对一般用户有管理的功能。超级用户和一般用户对系统的员工信息，假条信息，工资信息都有编辑，删除，查询，设置的功能。而超级用户对一般用户有权限的管理，一般用户是超级用户授权了的用户，它不能对其他用户进行干预，它只能对修改自己的密码的功能。超级用户也可添加登录用户，也可对其设置权限。

　2 4.3.2 系统登陆的代码设计

　（1）登陆窗体代码设计 窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表。其程序如下：

　Private Sub Form_Load() Dim i As Integer

　 If App.PrevInstance Then

　MsgBox ("程序已经运行，不能再次装载。"), vbExclamation

　Unload Me

　 End If

　 "本段代码用于判定本程序是否已经装载于内存中，以避免程序的多重启动

　i = 0

　- 11 -

　Open App.Path + "\user.ini" For Input As #1

　 Do While Not EOF(1)

　Input #1, user(i), pws(i), state(i), Emplo(i)

　 If state(i) = "A" Then

　 Combo1.AddItem user(i)

　End If

　 i = i + 1

　 Loop

　Close #1

　 Combo1.ListIndex = 1

　"在窗口装载阶段读取用户设置文件获取用户信息 并装载于用户列表框中 End Sub （2）“取消”按钮是退出登录界面，退出系统的。其代码如下：

　Private Sub CmdCancel_Click()

　Unload Me

　 End

　End Sub （3）“确定”按钮代码设计 “确定”按钮代码主要实现了用户登陆时，用户名和密码的认证，当用户名或密码错误时，系统提示错误。其程序如下：

　Private Sub cmdOK_Click()

　If txtPassword = pws(Combo1.ListIndex) Then

　 CurId = Combo1.ListIndex

　 EmploID = Emplo(CurId)

　 CurUser = user(CurId)

　 CurPsw = pws(CurId)

　Me.Hide

　"Load FrmMain

　 FrmMain.Show

　Else

　 MsgBox "Invalid Password, try again!", , "Login"

　 txtPassword.SetFocus

　 SendKeys "{Home}+{End}"

　 End If

　End Sub 4 4.4 主窗体的设计

　主窗体界面是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示当

　- 12 - 前的操作员、当前系统的日期时间、程序制作人员等信息，还可以通过菜单的列表或窗体中的按钮来控制其他功能子窗体，并且为不同的操作员赋予相应的操作权限。

　1 4.4.1 系统主窗体的功能

　成功登录后，进入的系统的主窗体，在主窗体中有两组按钮，第一组是表单选择按钮，通过点击相应的按钮可以在主窗体中显示不同的表单，这些表单分别是员工信息表，假条信息表，工资信息表，这组按钮和 Access 数据库中各表相联系。在第一组按钮中设置按钮对超级用户和一般用户所执行的情况不同。超级用户可以通过设置按钮进入用户权限窗体，而一般用户则通过设置按钮进入修改自己登录密码。第二组按钮是对各个表的操作按钮，包括编辑，删除，查询和设置。用户成功进入系统主窗体运行结果见图 6 所示：

　 图 图 6

　系统主窗体的运行结果

　2 4.4.2 系统主窗体的主要代码设计

　主窗体是由两组按钮实现的，它们分别是窗体选择的单击事件按钮和命令事件按钮。

　（1）窗体选择的单击事件代码设计 窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设置模块等/其程序如下：

　Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

　 Select Case Button.Index

　- 13 -

　 Case 1

　Call showemployee

　 ‘显示员工信息模块

　 Case 2

　Call showleave

　 ‘显示假条信息模块

　 Case 3

　Call showsalary

　‘显示工资信息模块

　Case 4

　 If frmLogin.CurUser = "root" Then

　 FrmSys.Show

　 Else

　FrmPsw.Show

　Pwin = "Frmmain"

　FrmMain.Enabled = False

　 End If

　 End Select End Sub （2）命令按钮的单击事件代码设计 命令按钮的代码主要实现了进入本系统部分主要模块的功能，这里有以下几个功能，它们分别是编辑，删除，查询，设置。其程序如下：

　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

　 Select Case Button.Index

　 Case 1

　 "edit

　FrmEdit.Show

　FrmMain.Enabled = False

　 Case 2

　"del

　 If DBGA.SelBookmarks.Count = 1 Then

　 If MsgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.Delete

　cuAp = 0

　 Else

　MsgBox "请选择要删除的条目！"

　 End If

　 Case 3

　"seek

　 FrmSearch.Show

　 Case 4

　"setup

　 FrmSetup.Show

　 End Select

　- 14 - End Sub 3 4.3 员工信息模块的功能

　把员工信息表作为主窗体的默认表，所示主窗体的运行结果也是员工信息表的运行结果。在员工信息表中可以对员工信息进行编辑，删除，查询和设置。

　（1）员工信息的编辑是可以对新员工进行添加录入，对在职员工的信息进行修改，也可进行相应的删除操作。员工信息编辑窗体运行结果见图 7 所示：

　图 图 7

　员工编辑窗体的运行结果

　（2）员工信息的删除是删除所有该员工的信息，在删除需要选择所要删除的员工，在没有选择的情况下会出现要求选择员工的窗体，在选中的情况下是会出现确定窗体。选择条目窗体见图 8 所示，确定窗体见图 9 所示：

　 图 图 8

　选择条目窗体

　图 图 9

　确定窗体

　（3）员工信息的查询是用户可以通过员工信息表中员工的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到相应的员工。用户可以通过员工信息查询信息。员工信息

　- 15 - 查询窗体见图 10 所示：

　图 图 10

　员工信息查询窗体

　（4）员工信息设置是对员工的相关信息的显示与隐藏的设置，本系统可以对员工信息进行显示条目和隐藏条目的设置。员工信息设置窗体见图 11 所示：

　图 图 11

　员工信息设置窗体

　4.4 4 假条信息模块功能

　点击假条信息按钮，在主窗体上就会显示假条信息表，假条信息是员工的离职情况的记录，包括离职日期和中止日期，请假天数，和原由等情况，是员工出勤情况的侧面反映，是核算工资的重要依据，必须详细，准确记录，用户可以通过下面的一组按钮可以对假条信息进行编辑，删除，查询和设置。假条信息的窗体见图 12 所示：

　- 16 -

　 图 图 12

　假条信息窗体

　（1）假条信息的编辑是可以对新假条信息进行添加录入，对已有的信息进行修改，也可进行相应的删除操作。假条信息编辑窗体运行结果见图 13 所示：

　 图 图 13

　假条信息编辑窗体

　（2）假条信息的查询是用户可以通过假条信息表中的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到所需要的信息。假条信息查询窗体见图 14 所示：

　- 17 -

　图 图 14

　假条信息查询窗体

　（3）假条信息设置是对假条信息中的相关信息的显示与隐藏的设置，本系统可以对假条信息进行显示条目和隐藏条目的设置。假条信息设置窗体见图 15 所示：

　图 图 15

　假条信息查询窗体

　5 4.5 工资信息模块功能

　点击工资信息按钮，在主窗体上就会显示工资信息表，工资信息是员工发放薪酬的依据，通过输入基本工资，加班工资，交通补助等一些应得工资，减去考勤扣除，保险扣除，扣税等总扣除项，从而得到员工的实际工资。用户可以通过下面的一组按钮可以对工资信息进行编辑，删除，查询和设置。

　工资信息的窗体见图 16 所示：

　- 18 -

　图 图 16

　工资信息窗体

　（1）工资信息的编辑是可以对新员工的工资信息进行添加录入，对已有的信息进行修改，也可进行相应的删除操作。工资信息编辑窗体运行结果见图 17 所示：

　 图 图 17

　工资信息编辑窗体

　- 19 - （2）工资信息的查询是用户可以通过工资信息表中的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到所需要的信息。工资信息查询窗体见图 18 所示：

　 图 图 18

　工资信息查询窗体

　（3）工资信息设置是对工资信息中的相关信息的显示与隐藏的设置，本系统可以对工资信息进行显示条目和隐藏条目的设置。工资信息设置窗体见图 19 所示：

　图 图 19

　工资信息设置窗体

　6 4.6 系统用户管理模块

　 系统用户管理分为用户管理和口令修改两个部分。

　（1）用户管理的设计 用户管理是人事信息管理系统中的比较重要的部分，它可以帮助管理员管理用户信息。在本系统中系统用户管理可以为不同的用户设置不同的权限，系统管理者可以添加、删除用户，但是普通用户则不可以操作，所有的用户都可以修改自己的口令。用户信息管理模块只有系统管理者才能进入。

　- 20 - 在本系统中超级用户可以对一般用户进行授权，用户权限窗体见图 20 所示：

　 图 图 20

　用户权限设置窗体

　（2）口令修改的窗体设计 口令修改是人事信息管理系统中的比较重要的部分，它可以帮助用户修改自己的密码。首先用户要正确输入自己的旧密码，两次输入自己的新密码，否则系统便会抱错。口令修改模块的运行结果见图 8 所示：

　 图 图 21

　用户管理模块的运行结果

　（3）口令修改的主要代码设计 “确定”按钮的代码主要实现了用户密码的修改功能，当旧密码错误或两次新密码输入不一致时，系统会提示错误。其程序如下：

　Private Sub cmdOK_Click()

　 Dim fil, i, Usercount As Integer

　 If TxtNew1.Text <> TxtNew2.Text Then

　 MsgBox "two times no yizhi"

　 TxtNew1.SetFocus

　 TxtNew2.Text = ""

　 SendKeys "{Home}+{End}"

　- 21 -

　 Exit Sub

　 ElseIf Txtold.Text <> frmLogin.CurPsw Then

　MsgBox "old password wrong"

　 Txtold.SetFocus

　 TxtNew1.Text = ""

　 TxtNew2.Text = ""

　 SendKeys "{Home}+{End}"

　 Exit Sub

　Else

　fil = FreeFile()

　 Open App.Path + "\user.ini" For Input As #fil

　i = 0

　Do While Not EOF(fil)

　 Input #fil, user(i), pws(i)

　 Input #fil, state(i), Emplo(i)

　 i = i + 1

　Loop

　Usercount = i

　 Close #fil

　 pws(frmLogin.CurId) = TxtNew1.Text

　 frmLogin.CurPsw = TxtNew1.Text

　 fil = FreeFile()

　 Open App.Path + "\user.ini" For Output As #fil

　 For i = 0 To Usercount - 1

　Print #fil, user(i); ","; pws(i); ","; state(i); ","; Emplo(i)

　Next i

　Close #fil

　Txtold.Text = ""

　 TxtNew1.Text = ""

　 TxtNew2.Text = ""

　Me.Hide

　 If FrmMain.Pwin = "Frmmain" Then

　 FrmMain.Enabled = True

　 FrmMain.SetFocus

　 Else

　Call FrmSys.ActiveAll

　 FrmSys.SetFocus

　End If

　End If

　 End Sub

　- 22 - 5 5 系统测试

　为了确保本系统能够正常运行，需要在发布之后做一次较全面的测试。

　1 5.1 软件测试的目标

　(1)测试是为了发现程序中的错误而执行的过程； (2)好的测试方案实际可能发现迄今为止尚为发现的错误的测试方案；成功的测试是发现了至今为止尚未发现的错误测试。

　2 5.2 测试举例

　（1）测试用户登陆是否成功 打开人事管理系统，在“用户名”里填入 root，“密码”框里我们填入 root 作为用户登录密码。填写完成点击“确定”按钮，将会出现操作程序页面，即该用户已经登陆成功了。再运行程序，会有提示页面出现：程序已经运行，不能再次装载！

　（2）测试其他用户是否能够登录 打开人事管理系统登录页面，输入任意密码，点击“登录”按钮。将出现密码出错提示页面。然后点“确定”返回人事管理系统登录页面。

　（3）测试编辑功能是否成功

　编辑功能：在登录成功之后，即可进入相应的管理页面，点击“编辑”，即出现编辑页面，即可以修改和删除员工的个人信息资料。最后保存。

　（4）测试查询功能是否成功 查询功能：在登录成功之后，点击“查询”，在弹出的文本框，在里面输入想要查找的资料，点击“查询”按钮，成功即可出现结果页面，页面内显示查询出来的员工资料内容，表示测试成功。

　（5）用户登出系统的测试 在管理操作已全部完成，需要退出程序的时候，在系统页面“系统设置”下拉菜单的有一个“退出”的选项，点击之后便可退出。也可以点“关闭”退出。

　（6）测试密码更改 在以超级用户登录的情况下，在程序中打密码设置，弹出文本框，显示用户列表。可以添加新的普通用户，也可以删除和禁止普通用户使用程序。在以普通用户登陆情况下，打开密码设置选项，系统会提示该用户为普通用户，只可以修改自己的密码。

　- 23 - 主要参考文献

　[1] 杜彦炜,智育平,周占峰.基于VB 的企业人事管理系统设计与实现.西安工业大学机电程学院硕士学位论文.2006:55-60. [2] 龚沛增. Visual Basic 程序设计教程.第3版. 北京:清华大学出版社.2004:150-189. [3] 郭琦.Visual Basic数据库开发技术.第1版.北京:人民邮电出版社.2003:156-198. [4] 何文俊，马杰. Visual Basic 6.0 编程实例精解.第 1 版.北京: 北京希望电子出版社.2000:11-35.

　[5] 姜乃春.潍坊学院人事管理系统的设计与实现.大连理工大学硕士学位文.2007:10-23.

　[6] 邹方磊.企业人事管理系统的设计与开发.北京邮电大学硕士学位论文.2005:11-43.

　[7] 李潇.企业人事管理系统的设计.重庆工商大学计信学院本科学位论文.2007:41-42.

　[8] 李国禄.青海民族学院人事管理系统的设计和实现.大连理工大学硕士论文.2007:12-45.

　[9] 邱尼卡.人事信息管理系统.同济大学硕士学位论文.2006:4-5.

　[10]尚晖,张其亮.一个企业人事管理系统的设计与实现.浙江工贸职业技术学院本科学位论文.2008:153-155. [11]王春才.Visual Basic 数据库系统开发完全手册.第1版.北京:人民邮电出版社出版社.2006:170-171. [12]杨升平,程春喜.中小企业人事管理系统的设计与实现.株洲职业技术学院本科论文.2004:80-120. [13]邹方磊.企业人事管理系统的设计与开发.北京邮电大学硕士学位论文.2005:11-43 [14]朱莉,阳桑,金双平.企业人事管理系统的设计与实现.江西城市职业学院计算机学院硕士学位论文.2007:45-60. [15]张超,左瑾.基于.Net 的高校人事管理系统的设计与实现. 广州市沙太路南方医科大学硕士学位论文.2005:144-150. [16]Codd E F.A Data Base Sublanguage Founded on the Relational Calculus.Proceedings of ACM SIGFIDET Workshop on Data Description.Access and Control,1977:145-160. [17]Furtado A L,Kerschberg L.An Algebra of Quotient Relation.Proceedings of ACM SIGMOD International Conference on Management of Data,1977:156-186. [18]Lacroix M,Pirotte A.ILL:An English Structured Query Language for Relational Data Bases.in Nijssen,1977:169-176.