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

毕业设计论文设计题目 人事管理系统 学 号 姓 名 指导教师 职称 职称 市 校 分 校 教 学 班 08春计算机信息管理 2010年 05 月 13日 摘要随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事管理势在必行。本系统结合公司实际的人事管理制度，经过实际的需求分析，采用功能强大的Visual Basic6.0作为开发工具而开发出来的单机版人事管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，完成人事管理的全过程，包括新进员工加入时人事档案的建立、老员工的转出、职位等的变动引起职工信息的修改、员工信息查询、统计等人事管理工作以及新进员的新增、老员工修改等管理工作。经过实际使用证明，本文所设计的人事管理系统可以满足公司人事管理方面的需要。关键词： VB、数据库、窗体、测试、目 录引 言4一、课题的来源与意义4（一）本课题的来源4（二）本课题研究的目的及意义5（三）本课题的研究现状5二、开发工具的选择6（一）开发软件Access的介绍6（二）开发软件Visual Basic 6.0的介绍7三、系统分析与设计 8（一）系统分析 8（二）系统功能设计 9（三）数据库设计10四、主要功能模块设计12（一）系统架构设计12（二）控件准备和引用设置13（三）系统登陆设计14（四）主窗体的设计16五、系统测试29（一）软件测试的目标29（二）测试举例29主要参考文献30致 谢3136引 言人力资源管理是结合公司实际的人事、制度，经过实际的需求分析，采用功能强大的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 Sub3. 系统设置模块设计在该模块中，管理员可以添加新用户和初始密码，当管理员授权后，用户可以在该模块中修改自己的密码。3.1、系统界面如下：管理员添加新用户界面用户修改密码界面3.2、代码实现如下： sql = "insert into userinfo (userid,userpwd) values('" & username sql = sql & "','" & password & "')" Call transactsql(sql, "salary") MsgBox "添加成功", vbOKOnly + vbExclamation, "添加结果" username.Text = "" password.Text = "" confirmpwd.Text = "" username.SetFocus userpassword = newpwdsql = "update userinfo set userpwd='" & newpwd & "'where userid='" & strusername & "'"Call transactsql(sql, "salary")MsgBox "密码已经修改", vbOKOnly + vbExclamation, "修改结果"（四）主窗体的设计主窗体界面是显示系统主要操作功能的面板，在系统主窗体的状态栏中，可以显示当前的操作员、当前系统的日期时间、程序制作人员等信息，还可以通过菜单的列表或窗体中的按钮来控制其他功能子窗体，并且为不同的操作员赋予相应的操作权限。1.系统主窗体的功能成功登录后，进入的系统的主窗体，在主窗体中有两组按钮，第一组是表单选择按钮，通过点击相应的按钮可以在主窗体中显示不同的表单，这些表单分别是员工信息表，假条信息表，工资信息表，这组按钮和Access数据库中各表相联系。在第一组按钮中设置按钮对超级用户和一般用户所执行的情况不同。超级用户可以通过设置按钮进入用户权限窗体，而一般用户则通过设置按钮进入修改自己登录密码。第二组按钮是对各个表的操作按钮，包括编辑，删除，查询和设置。用户成功进入系统主窗体运行结果见图6所示：图6 系统主窗体的运行结果1.2. 工资信息模块设计在该模块中，用户可以完成员工出勤统计、员工工资计算、数据导出、数据维护及数据查询等操作，是整个系统关键模块。1.2.1用户界面出勤统计窗体工资计算窗体数据编辑子菜单数据查询窗体 1.2.2、代码实现 /出勤统计firstday = Year(Date) & "-" & Me.commonth.Text & "-1"days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", _ Year(Date) & "-" & Me.commonth.Text + 1 & "-1")lastday = Year(Date) & "-" & Me.commonth.Text & "-" & dayssql = "select * from attendancestatistics where recordmonth between #"sql = sql & firstday & "# and #" & lastday & "#"Set rsrecord = getrs(sql, "salary")If rsrecord.EOF = False Then MsgBox "已经统计", vbOKOnly + vbExclamation, "提示" frmaresult.Show frmaresult.ZOrder 0 rsrecord.Close Unload Me Exit Sub End If sql = "select * from attendanceinfo where adate between #" sql = sql & firstday & "# and #" & lastday & "#" Set rsrecord = getrs(sql, "person") If rsrecord.EOF = False Then sql = "select sid,sname from stuffinfo order by sid" Set rsperson = getrs(sql, "person")If strusername <> "admin" Thensql = "select sid from stuffinfo where sname='" & strusername & "'"Set rs = getrs(sql, "salary")sd = rs(0)sql = "select * from attendancestatistics where stuffid='" & sd & "'"Me.Adodc1.ConnectionString ="provider=microsoft.jet.oledb.4.0;Datasource="& App.Path & "salary.mdb"Me.Adodc1.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.RefreshElsesql = "select * from attendancestatistics"Me.Adodc1.ConnectionString="provider=microsoft.jet.oledb.4.0;Datasource="& App.Path & "salary.mdb"Me.Adodc1.RecordSource = sqlMe.Adodc1.RefreshSet Me.DataGrid1.DataSource = Me.Adodc1.RecordsetMe.DataGrid1.RefreshEnd If/计算实发工资If Me.commonth.Text = 4 Then firstday = Year(Date) & "-" & Me.commonth.Text & "-1" days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", Year(Date) & "-" & Me.commonth.Text + 1 & "-1") lastday = Year(Date) & "-" & Me.commonth.Text & "-" & days Call sumsalary(firstday, lastday) sql = "select * from salarystatistics" frmresult.SSTab1.Caption = "员工工资统计列表" Call frmresult.listtopic Call frmresult.showdata(sql) frmresult.Caption = "统计结果列表" frmresult.ZOrder 0 Unload MeElse MsgBox "这个月的工资未统计", vbOKOnly + vbExclamation, "提示"End If/查询工资If strusername = "admin" Then sql = "select stuffid from salarysetting" Set rs = getrs(sql, "salary") If rs.EOF = False Then While Not rs.EOF Me.comid.AddItem rs(0) rs.MoveNext Wend rs.Close End If Me.comid.ListIndex = 0 Select Case Me.SSTab1.Tab Case 0 sql = "select * from salarysetting" Call basictopic Call showbasic(sql) Case 1 sql = "select * from salaryother" Call othertopic Call showother(sql) Case 2 sql = "select * from salarystatistics order by id desc" Call listtopic Call showdata(sql) End Select Else sql = "select sid from stuffinfo where sname='" & strusername & "'" Set rs = getr