毕业设计（论文）-VB人事管理系统.doc

摘 要人力资源管理是企业管理中的一个重要内容，随着时代的进步，企业也逐渐变得庞大起来。如何管理好企业内部员工的信息，成为企业管理中的一个大问题。在这种情况下，开发一个人力资源管理系统就显得非常必要。本系统结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的Visual Basic 6.0作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，本企业人事管理系统具有如下功能：员工基本信息的录入、修改、查询、删除模块，员工假条信息录入、修改、查询、删除模块，员工工资信息的录入，计算，查询，以及系统用户的设置以及系统的维护功能。为企业人事管理提供信息咨询，信息检索，信息存取等服务，基本上能够满足现代企业对人事管理的需要。本文系运用规范研究方法进行的专题研究。全文分六个部分：第一部分，是本课题的来源和课题研究的目的和意义；第二部分，是开发工具的选择，本系统主要运用的是Visual Basic 6.0作为系统前台应用程序开发工具，Access作为后台数据库；第三部分，是系统的需求分析，主要是人事管理系统的需求分析；第四部分，是系统分析与实现，包括系统功能模块的设计和数据库的设计；第五部分，是代码的设计与实现，系统事件运行的主要代码；第六部分，是系统的实现，最后，是软件的测试。关键词：信息管理；人事管理；人事管理系统；Visual Basic 6.0目 录引 论1一、课题的来源与意义1（一）本课题的背景1（二）本课题研究的目的及意义2（三）本课题的研究现状2二、开发工具的选择3（一）开发软件Access的介绍3（二）开发软件Visual Basic 6.0的介绍3三、系统分析与设计4（一）系统分析4（二）系统功能设计5（三）数据库设计6四、主要功能模块设计8（一）系统架构设计8（二）控件准备和引用设置9（三）系统登陆设计 10（四）主窗体的设计 12五、系统测试22（一）软件测试的目标22（二）测试举例22六、小结23 (一)工作的评价23 （二）收获、存在的问题以及建议23七、主要参考文献23- 3 -引 论人力资源管理是结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版人事管人事理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，本企业人事管理系统具有如下功能：员工基本信息的录入、修改、查询、删除模块，员工假条信息录入、修改、查询、删除模块，员工工资信息的录入，计算，查询，以及系统用户的设置以及系统的维护功能。为企业人事管理提供信息咨询，信息检索，信息存取等服务，基本上能够满足现代企业对人事管理的需要。一、课题的背景与意义（一）本课题的背景随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。对于大中型企业来说，利用计算机支持企业高效率完成劳动人事管理的日常事务，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件；计算机管理所无法比拟的优点检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。人事管理系统是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点，如:效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及， 利用计算机实现企业人事管理势在必行。合理的利用有助于企业发展的管理系统是企业改革的一种优越的体现，不仅保证了核算准确度，还成倍的提高了工作效率，而且便于查询。作为计算机应用的一部分，使用计算机对人事信息进行管理，具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事劳资管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。因此，开发这样一套适用的人事管理软件成为很有必要的事情，在下面的各章中我们将以开发一套人事管理系统为例，谈谈其开发过程和所涉及到的问题及解决方法。（二）本课题研究的目的及意义现代信息技术的发展，在改变着我们的生活方式的同时，也改变着我们的工作方式，使传统意义上的人事管理的形式和内涵都在发生着根本性的变化。在过去，一支笔和一张绘图桌，可能就是进行办公的全部工具。今天，电脑、扫描仪和打印机等，已基本取代了旧的办公用具。如今，人事管理己完全可以通过电脑进行，并在计算机辅助下准确快速地完成许多复杂的工作。这些都大大地缩短管理的时间。而今天，人事管理的内容己经转变为对更为广泛的系统价值的追求。信息管理，如今已是一个热门话题，它已为许多企业所采用。我认为，在现代化的进程中，引入现代管理的思想，建立一套可面向企事业单位人事的信息管理系统，也是十分必要的。本课题基于我国企业管理信息化建设现状，结合在实际工作中所遇到的问题和收获，对企业人事管理系统在设计开发等方面进行研究，重点研究系统开发中所采用的软硬件平台规范、数据库结构设计、开发工具的选择与使用，目的是从技术手段的角度阐述如何实现企业从传统经营管理模式向信息化管理模式转变的过程，以及人事管理系统在企业管理信息化中所起到的重要作用。本课题的开发主要是要花费相当多的人力和时间，虽然开发出来的软件可能离具体产生效益还有一定的距离。但是，出于通过毕业设计来丰富自己的专业知识，并从长远利益来考虑，本课题的设计开发还是具有相当大的经济可行性的。（三）本课题的研究现状目前，在国内外各大企事业单位中，人事管理系统的使用是非常广泛的。同时，有很多的软件开发商也开发了许多基于各种行业的企业人事管理学系统，其中有单机版的，也有C/S和B/S模式的。而不同的企业具有不同的人事管理制度，这就决定了不同的企业需要不同的人事管理系统。而且，企业管理信息量大、操作繁琐、传统的方式不再适应新的工作需要，开发研制适合企业的人事管理系统，使其具有整体性强、流程简单、操作方便、功能丰富和通用性强等特点，是加快企业人才管理工作办公自动化、信息资源化和管理科学化建设进程必要途径。因此建立适合企业的管理信息系统，是促进企业信息高速公路的发展，为企业的发展提供条件的重要课题。随着数据库技术和网络技术的发展，数据库的互连技术正成为世界计算机领域研究的热点，基于WEB的管理信息系统的研究正成为MIS研究的主流。与此同时，Internet的发展与普及，国内许多企业已经建成有自己的企业人力资源管理软件，为企业的快速运营提供了很大方便。但是对于有些中小企业来说，不需要大量的数据库，所以我们的目标是开发一个功能使用，操作简单的人事管理系统。二、开发工具的选择现在，市场上可以选购的应用开发产品很多，流行的也有数十种。在目前市场上这些众多的程序开发工具中，有些强调程序语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只强调程序语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间；相反，如果只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的优点失去了作用。本设计我将采用面向对象的方法，综合运用数据库技术、程序设计技术，结合企业人事管理知识，以Visual Basic 6.0作为系统前台应用程序开发工具，Access作为后台数据库，通过Visual Basic 6.0中的Data控件使两者进行连接从而进行系统软件开发。（一）开发软件Access的介绍Microsoft Access是比较流行的关系型数据库管理系统之一，其基本核心是Microsoft Jet 数据库引擎，是一些关于某个特定主题或目的的信息集合。它的作用是用来存储，维护和检索数据。同时，提供了VBA 编程接口，可以为用户提供各种各样的编程功能。一个数据库对象是由若干表，查询，窗体，报表，宏和模块等对象及对象的集合组成的，这些集合的组合丰富和增强了Access数据库的功能。在Access中，所有的对象均保存在一个“.MDB”文件中，这给数据库的维护带来了很大的方便。选择Access作为后台数据库，是因为Access在许多数据管理的系统中已经非常广泛的使用，在数据流管理方面也是比较成熟的。同时Access相比较SQL作为后台数据库，在连接方面有更为简易的表现，因此选择Access作为后台数据库。. （二）开发软件Visual Basic 60的介绍Visual Basic 6.0是微软公司推出的可视化编成工具，它提供了非常简单、快捷的开发方法，无论是初学者还是专业开发人员，只要稍有语言基础就可以快速掌握并精通。Basic是Beginners 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在开发环境、功能上进一步完善和扩充，在数据库管理、网络编成等方面得到了更广泛的应用。当然, 使用单一的一个工具去完成一个中大型的应用系统的需求分析, 是不可能成功的。因为社会在发展, 用户的需求也在改变, 如何把握住用户的需求是需要时间的, 面向对象的方法有时也会忽略外在的与表层的要求, 不仅仅是要获得关键的需求, 其他更多的需求往往要等到用户在使用后才知道, 然而等到用户使用是不现实的, 作为原型开发模型中的原型也是收集用户需求, 描述与解释需求的一类相当有效的方法与工具。在我们的开发过程中, 为了更好地让用户了解我们的系统和我们的设计方案, 让用户在见面会上更有方向性与针对性, 我们对用户进行需求分析，从而在真正的分析与设计时就能更加符合用户的要求。总之, 软件需求分析方法和工具的使用, 对我们软件开发过程影响是很深远的, 选用高效能的正确的方法与工具, 可以使我们的软件更加正确地反映现实需求, 更加具有可用性、可扩展性和可维护性; 降低了软件项目的风险。.三、系统分析与设计（一）系统分析1.系统需求分析随着科学技术的不断提高，计算机科学日渐成熟，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对人事信息进行管理，具有着手工管理所无法比拟的优点。这些优点能够极大地提高人事管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。根据以上情况，决定实施建立人事信息管理系统， 因为人事信息管理是一个企业单位不可缺少的部分，它的内容对于企业的决策者和管理者来说都至关重要，所以人事信息管理系统应该能够为用户提供充足的信息和快捷的查询手段。可以解决一直以来人们使用传统人工的方式管理文件档案存在着的许多缺点，如:效率低、保密性差，另外时间一长，将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难。随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算实现企业人事档案的管理势在必行。当前企业信息管理系统正在从US结构向B/S结构转移，但是由于安全性等方面的因素，C/S结构的管理信息系统仍然占据企业管理信息系统的主流。人事管理系统是现代企业管理工作不可缺少的一部分，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件。.人事信息管理系统是针对企业人事处的大量业务处理工作用计算机进行全面现代化管理，他必须具备以下基本功能：（1）人事档案管理数据库及表的操作。实现对人事档案管理数据库及表的创建，表中数据的维护。（2）人事档案信息的管理。实现人事信息的添加，保存，修改和删除等。（3）人事档案信息的应用。实现人事信息的查询，统计，人事资源的利用等。2.可行性分析人事管理系统后台数据库采用目前应用十分广泛的桌面型关系数据库Microsoft Office Access 2003，由于其具有快速、方便、灵活和可移植性等特点被大多数软件开发者所使用；前台采用Visual Basic 6.0作为主要的开发工具，其可与Access 2003数据库无缝衔接。（二）系统功能设计1.系统的功能分析人事信息管理系统是一个典型的数据库开发应用程序，它由员工信息管理、工资管理、假条信息管理、系统用户管理等模块组成，具体规划如下：（1）系统用户管理：对使用系统的用户进行管理，为他们分配一定的权限，使他们规范的使用系统。本系统的用户分为两类：管理员和一般用户。管理员可以对系统的各个模块进行添加，删除，修改，查询；而一般用户只能对各模块进行简单的查询，从而了解相关的信息。（2）职工信息管理：职工信息管理包括对职工基本信息和情况的记录进行查询、添加、删除和修改。主要由管理员进行。（3）职工工资管理：职工工资管理主要是对职工工资的综合的核算，建立合理，规范的企业工资核算制度，保障职工的合法权利。（4）职工假条管理：职工假条管理是对职工的出勤进行管理，方便人事处管理员对职工工资的核算，方便随时了解最新，最全面工作情况，从而合理的完成工作。2.系统功能结构系统功能结构图主要从功能的角度描述了系统的结构。人事管理的系统功能结构如图1所示：人事管理系统用户登录员工信息管理假条信息管理工资管理系统设置帮助用户管理退出系统设置删除添加删除添加查找设置删除添加查找设置删除添加查找帮助关于图1 系统功能结构图（三）数据库设计人事管理系统的数据库采用Access ，系统数据库的名称为“data”。数据库data中包含了4张数据表。下面分别给出数据表概要说明和主要数据表的结构。（1）职工信息数据表：用于储存职工的基本信息。职工信息表见表1所示：表1 职工基本信息表字段字段名类型宽度Nulls1职工编号数值型11否2姓名字符型20否3身份证号字符型18否4民族字符型10否5性别字符型4否6出生日期字符型20否7毕业学校字符型20否8学历字符型20否9部门字符型20否10职称字符型20否11上司字符型20否12电话字符型20否13EMAIL字符型20否14EDIT数值型11否15EDITTIME日期型8否（2）工资信息数据表：用来存储职工的工资情况，包括姓名，职称，工资等信息。工资信息表见表2所示：表2 工资信息表字段字段名类型宽度Nulls1工资编号字符型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否14EDIT数值型11否15EDITTIME日期型8否16备注备注型10否（3）假条信息数据表：存储假条相关信息。假条信息表见表3所示：表3 假条信息表字段字段名类型宽度Nulls1假条编号字符型6否2职工编号数值型11否3起始日期字符型20否4中止日期字符型20否5天数数值型6否6原由字符型50否7状态字符型20否8批准人字符型20否9EDIT数值型11否10EDITTIME日期型8否11备注备注型10否（4）用户信息表，用于储存用户信息。用户信息表见表4所示：表4 用户信息表字段名称数据类型长度用户名（主键）文本20密码文本20四、主要功能模块设计（一）系统架构设计人事管理系统的架构分为窗体和模块两个部分。在窗体的部分有以下几个窗体，他们的作用分别是：“frmAbout”是关于窗口，是对系统的说明； “frmEdit.frm”是编辑窗口，可以对员工信息进行添加，删除的操作；“frmHelp.frm”是帮助窗体，对新用户提供帮助；“frmLogin.frm”是用户的登陆窗口，启动系统时就会出现这个窗口； “frmmain.frm”是系统主界面，用户可以选择要执行的任务；“frmPsw.frm” 是密码修改，用户可以在此修改自己的密码；“frmSearch.frm” 是寻找窗口，用户可以进行模糊查询和逻辑查询；“frmSetup.frm”是设置条目的窗口，管理员可以把可以对外公布的设置为显示条目， 而对少数人公布的设置为隐藏条目，从而达到不同的使用者具有不同的使用权限；“frmSys.frm” 是关于用户窗体，在这个窗体中可以添加新用户，可以设置密码，也可以对用户权限进行授权，这个窗体和数据库也有密切的联系，可以在这里更新用户信息；“frmTable.frm”是桌面窗体，它罗列了员工学历和部门的信息，同时可以进行添加，编辑和删除的操作。系统架构说明见图2所示：图2 系统架构图（二）控件准备和引用设置控件准备和引用设置是目前制作应用程序的前提条件，在Visual Basic 6.0默认的工具箱中，很多使用的部件没有显示，所以要将我们需要的部件添加进工具箱。另外，包括一些库文件的函数，也是没有被引用，我们要先将这些具有特定功能的函数引用。1.控件准备人事管理系统中需要通过“工程”“部件”命令添加到工具箱中的“ActiveX”部件，见图3所示。图3 人事管理系统的控件准备图2.引用设置人事管理系统中需要通过“工程”“引用”命令引用库文件内的函数，来完成数据库的连接，见图4所示。图4 人事管理系统的引用设置（三）系统登陆设计系统用户登录模块主要用于完成对登录系统的用户的验证，只有合法的用户才可以进入系统。运行用户登陆模块，其结果见图5所示：图5 用户登录的运行结果1.系统登陆窗体的功能登录窗体是用户进入系统的钥匙，只有合法的登录才是有效的登录。在本系统中预设了两种用户：root超级用户和any一般用户，超级用户对一般用户有管理的功能。超级用户和一般用户对系统的员工信息，假条信息，工资信息都有编辑，删除，查询，设置的功能。而超级用户对一般用户有权限的管理，一般用户是超级用户授权了的用户，它不能对其他用户进行干预，它只能对修改自己的密码的功能。超级用户也可添加登录用户，也可对其设置权限。2.系统登陆的代码设计（1）登陆窗体代码设计窗体代码主要实现了连接数据库的功能，这里用于连接用户信息表。其程序如下：Private Sub Form_Load()Dim i As Integer If App.PrevInstance Then MsgBox (程序已经运行，不能再次装载。), vbExclamation Unload Me End If 本段代码用于判定本程序是否已经装载于内存中，以避免程序的多重启动 i = 0 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（四）主窗体的设计主窗体界面是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示当前的操作员、当前系统的日期时间、程序制作人员等信息，还可以通过菜单的列表或窗体中的按钮来控制其他功能子窗体，并且为不同的操作员赋予相应的操作权限。1.系统主窗体的功能成功登录后，进入的系统的主窗体，在主窗体中有两组按钮，第一组是表单选择按钮，通过点击相应的按钮可以在主窗体中显示不同的表单，这些表单分别是员工信息表，假条信息表，工资信息表，这组按钮和Access数据库中各表相联系。在第一组按钮中设置按钮对超级用户和一般用户所执行的情况不同。超级用户可以通过设置按钮进入用户权限窗体，而一般用户则通过设置按钮进入修改自己登录密码。第二组按钮是对各个表的操作按钮，包括编辑，删除，查询和设置。用户成功进入系统主窗体运行结果见图6所示：图6 系统主窗体的运行结果2.系统主窗体的主要代码设计主窗体是由两组按钮实现的，它们分别是窗体选择的单击事件按钮和命令事件按钮。（1）窗体选择的单击事件代码设计窗体选择的单击事件代码主要实现了进入本系统所有模块的功能，这里有以下几个模块，它们分别是员工信息模块，假条信息模块，工资管理模块，用户设置模块等/其程序如下：Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index 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 SelectEnd 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 SelectEnd Sub3.员工信息模块的功能把员工信息表作为主窗体的默认表，所示主窗体的运行结果也是员工信息表的运行结果。在员工信息表中可以对员工信息进行编辑，删除，查询和设置。（1）员工信息的编辑是可以对新员工进行添加录入，对在职员工的信息进行修改，也可进行相应的删除操作。员工信息编辑窗体运行结果见图7所示：图7 员工编辑窗体的运行结果（2）员工信息的删除是删除所有该员工的信息，在删除需要选择所要删除的员工，在没有选择的情况下会出现要求选择员工的窗体，在选中的情况下是会出现确定窗体。选择条目窗体见图8所示，确定窗体见图9所示： 图8 选择条目窗体图9 确定窗体（3）员工信息的查询是用户可以通过员工信息表中员工的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到相应的员工。用户可以通过员工信息查询信息。员工信息查询窗体见图10所示：图10 员工信息查询窗体（4）员工信息设置是对员工的相关信息的显示与隐藏的设置，本系统可以对员工信息进行显示条目和隐藏条目的设置。员工信息设置窗体见图11所示：图11 员工信息设置窗体4.假条信息模块功能点击假条信息按钮，在主窗体上就会显示假条信息表，假条信息是员工的离职情况的记录，包括离职日期和中止日期，请假天数，和原由等情况，是员工出勤情况的侧面反映，是核算工资的重要依据，必须详细，准确记录，用户可以通过下面的一组按钮可以对假条信息进行编辑，删除，查询和设置。假条信息的窗体见图12所示：图12 假条信息窗体（1）假条信息的编辑是可以对新假条信息进行添加录入，对已有的信息进行修改，也可进行相应的删除操作。假条信息编辑窗体运行结果见图13所示：图13 假条信息编辑窗体（2）假条信息的查询是用户可以通过假条信息表中的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到所需要的信息。假条信息查询窗体见图14所示：图14 假条信息查询窗体（3）假条信息设置是对假条信息中的相关信息的显示与隐藏的设置，本系统可以对假条信息进行显示条目和隐藏条目的设置。假条信息设置窗体见图15所示：图15 假条信息查询窗体5.工资信息模块功能点击工资信息按钮，在主窗体上就会显示工资信息表，工资信息是员工发放薪酬的依据，通过输入基本工资，加班工资，交通补助等一些应得工资，减去考勤扣除，保险扣除，扣税等总扣除项，从而得到员工的实际工资。用户可以通过下面的一组按钮可以对工资信息进行编辑，删除，查询和设置。工资信息的窗体见图16所示：图16 工资信息窗体（1）工资信息的编辑是可以对新员工的工资信息进行添加录入，对已有的信息进行修改，也可进行相应的删除操作。工资信息编辑窗体运行结果见图17所示：图17 工资信息编辑窗体（2）工资信息的查询是用户可以通过工资信息表中的相关信息进行模糊查询和逻辑查询，可以帮用户快速找到所需要的信息。工资信息查询窗体见图18所示：图18 工资信息查询窗体（3）工资信息设置是对工资信息中的相关信息的显示与隐藏的设置，本系统可以对工资信息进行显示条目和隐藏条目的设置。工资信息设置窗体见图19所示：图19 工资信息设置窗体6.系统用户管理模块 系统用户管理分为用户管理和口令修改两个部分。（1）用户管理的设计用户管理是人事信息管理系统中的比较重要的部分，它可以帮助管理员管理用户信息。在本系统中系统用户管理可以为不同的用户设置不同的权限，系统管理者可以添加、删除用户，但是普通用户则不可以操作，所有的用户都可以修改自己的口令。用户信息管理模块只有系统管理者才能进入。在本系统中超级用户可以对一般用户进行授权，用户权限窗体见图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 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五、系统测试为了确保本系统能够正常运行，需要在发布之后做一次较全面的测试。（一）软件测试的目标(1)测试是为了发现程序中的错误而执行的过程；(2)好的测试方案实际可能发现迄今为止尚为发现的错误的测试方案；成功的测试是发