[毕业设计精品]公司人事管理系统论文.doc

目 录公司人事管理系统2第1章 导论3第2章 系统需求分析42.1 统设计背景介绍42.2 系统功能分析4第3章 公司人事管理系统总体设计53.1 系统设计53.1.1系统功能分析53.1.2 用户功能模块设计63.1.3 数据流程图73.1.4 说明73.2 据库设计7第4章 详细设计104.1 数据模块的创建104.2 用户登录模块设计104.3 公司人事管理系统主界面设计104.4 信息管理-添加、查询、修改、删除的实现114.5 工信息管理-添加、查询、修改、删除的实现134.6 勤信息管理-添加、查询、修改、删除的实现134.7 工工资管理-添加、查询、修改、删除的实现144.8 系统维护15第5章 系统功能测试185.1 系统测试环境185.2 测试内容185.3 测试结果18结束语19参考文献20附录21公司人事管理系统 摘要：公司人事管理系统是典型的管理信息系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,本人使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技术和解决方案。关键字： Visual Basic 6.0 Access2000 窗体 第1章 导论随着信息技术的飞速发展，特别是数据库技术的发展，计算机已经成为当今信息时代的关键工具。数据库技术是计算机应用技术中的一个重要组成部分，对于大量的数据，使用数据库来存储管理将比通过文件来存储管理更高效。数据库技术在经过几代变革以后，出现了以关系数据库产品为主流的数据库时代。Access 2000是微软公司推出的关系数据库产品。作为Microsoft的office套件产品之一,Access已经卖出了近700万份,成为世界上最流行的桌面数据库系统。Access与许多优秀的关系数据库一样，可以让你很容易地连接相关的信息而且还对其他的数据库系统有所补充。Visual Basic作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。Visual Basic提供了强有力的数据库存取能力，将Windows的各种先进特性与强大的数据库管理功能有机地结合在一起。本次毕业设计公司人事管理系统是运用ADO技术设计开发的，使用大量地SQL语句进行添加、查询、删除等操作。本系统使用Access 2000作为后台数据库，利用Visual Basic 6.0提供的数据库开发平台开发前台部分。第2章 系统需求分析2.1 统设计背景介绍管理信息系统就是我们常说的MIS (Management Information System)，在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的管理方式，企业的管理人员、技术人员、统计人员等各部门员工就能从大量烦琐的资料和数据中解脱出来，只需对自己需要的数据和内容进行必须的处理，而不用对每个环节都了如指掌。这在一定程度上能够节省人力物力，同时也大大加强了对数据处理的及时性和准确性。本次的开发内容公司人事管理系统就是信息管理与现代化办公设备相结合的例子。开发本系统希望使人事管理人员可以从年复一年的输入、计算、统计等工作中解脱出来，由于人事方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。2.2 系统功能分析热网管理系统主要有以下几项功能要求：*按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。第3章 公司人事管理系统总体设计3.1 系统设计3.1.1系统功能分析 *按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。部门信息管理员工信息管理考勤信息管理用 户 登 陆查 询 记 录 修 改 记 录添 加 用 户 修 改 密 码 删 除 用 户 删 除 记 录添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录员工工资管理 数 据 备 份 数 据 恢 复系 统 维 护退 出 系 统 添 加 记 录3.1.2 用户功能模块设计 图 3.13.1.3 数据流程图 用户登陆是否管理员是否录入数据是否修改数据录入数据修改数据是否进行查询输入查询条件是否删除数据删除数据退出系统 是 否 是 是 否 否是是 图3.23.1.4 说明本次设计主要利ADO技术，界面友好。能自动生产编号，根据用户输入的数据检查其合法性，确保数据正确输入。登陆系统时对用户的请求进行身份验证，经验证合法后允许用户登陆系统，进行相应权限对数据的处理，本系统能对用户进行管理，能进行数据库备份和恢复，确保数据的安全。本次设计选择了Access 2000作为后台数据库，利用Visual Basic 6.0提供的数据库开发平台开发前台部分。3.2 据库设计在Access 2000数据库中创建表：根据设计要求，需要5个数据表：部门基本情况表、员工基本信息表、员工考勤信息表、员工工资信息表、口令信息表。这5个数据表的结构如下各表：(1) 部门基本情况表字段名称数据类型长度主键允许空部门编号文本6True否部门名称文本30是备注文本255是表3.1(2)员工基本信息表字段名称数据类型长度主键允许空员工编号文本6True否员工姓名文本10否性别文本2是出生日期日期/时间短日期否民族文本10是政治面貌文本10是最后学历文本10是所学专业文本20是联系电话文本20是毕业学校文本30是籍贯文本50是家庭住址文本50是进入公司时间日期/时间短日期否部门名称文本30是职务名称文本30是备注文本255是表3.2(3)员工考勤信息表字段名称数据类型长度主键允许空员工编号文本6是员工姓名文本10是考勤日期文本6否部门名称文本50是出勤天数数字整型是假日加班数字整型是其它加班数字整型是出差天数数字整型是补休天数数字整型是请假次数数字整型是旷工天数数字整型是迟到次数数字整型是早退次数数字整型是备注文本255是 表3.3(4)员工工资信息表字段名称数据类型长度主键允许空员工编号文本6True是员工姓名文本10是计发日期文本6否部门名称文本50是底薪数字单精度型是奖金数字单精度型是补贴数字单精度型是加班费数字单精度型是房帖费数字单精度型是扣考核数字单精度型是养老金数字单精度型是医疗保险数字单精度型是住房公积金数字单精度型是税前小计数字单精度型是所得税数字单精度型是实发工资数字单精度型是 表3.4(5)口令信息表字段名称数据类型长度主键允许空用户名文本20True是密码文本10是权限文本6是 表3.4第4章 详细设计4.1 数据模块的创建 将数据库连接、数据表和数据源等运行期不可见的组件都放在窗体设计界面上，虽然在调用时比较直观，但却为界面布局设计带来的麻烦，而且也不利于数据的统一管理。因此，在设计时，我选择使用ADO来控制管理数据库。 在程序模块中定义记录集，并在各个窗体中定义记录集变量，使输入数据能与数据库连接，并都用程序进行控制，这样不用数据控件都用代码控制大大提高了程序运行效率。 部分有关代码如下：Dim rc As New ADODB.Recordset '定义记录集变量Cnndb.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "公司人事管理系统.mdb" '确定数据库位置Dim rc As New ADODB.Recordset '定义记录集变量If rc.State = 1 Then rc.Close 判断当前表的状态是否打开，是则关闭rc.Open SQL, Cnndb, 3, 2 打开当前表4.2 用户登录模块设计(1) 设计思路每个用户登录系统都须经过身份验证。只有用户名和密码相对应才能进入系统。因为在系统设置中已经对系统使用权限进行了规定，所以，在用户登录的同时也决定了用户对系统使用的权限。当登录者是管理员身份时，他可以使用系统提供的所有功能，并能对所有用户进行管理。登录者是操作员可以使用所有对数据的编辑功能，而如果登录者是一般用户时只能利用系统进行资料查询功能。(2) 用户登录界面设计 图4.14.3 公司人事管理系统主界面设计根据系统模块结构，建立系统主界面。用户登录到系统后进入的就是该界面，所有功能一目了然。当不同权限的用户登录到该界面时功能有所不同，其控制由“用户登录”界面控制。图4.2在此界面中对用户的权限进行了设置，若是以一般用户登录时只能修改自己的密码且只能浏览所有的人事管理信息，以管理员身份进入时可以对所有一般用户的密码进行设置，还可删除一般用户！能对人事信息进行编辑删除，修改等操作4.4 信息管理-添加、查询、修改、删除的实现<1>编辑部门信息作为编辑部门信息这一项，所实现的功能是对公司各部门资料信息的存储与编辑，部门信息包括：部门编号（两位）、部门名称、备注。部门编号与部门名称都具有唯一性，不能重复。作为部门信息与员工信息有着密切的关系，每一名员工都从属一个部门。图4.3(1)数据添加 当操作员进入系统，根据设计要求，需要添加新的部门信息时，在编辑部门信息窗体上按添加按钮，便进入添加状态，文本框自动清空，添加按钮变为确定按钮，光标会停留在部门编号文本框上，此时系统已自动生成一个新的部门编号，只需输入部门名称和备注信息即可完成部门信息编辑操作，在按窗体上的确定按钮即可检查该部门信息是否合法并存入数据库，否则按取消按钮。再点击添加按钮，用户可再次添部门信息记录。(2)数据查询当操作员需要对某个部门进行查询时，可以在编辑部门信息窗体下部中找到查询按钮。先在对应的文本框中输入要进行数据查询的条件，输入完查询条件后，点击查询按钮进行确定，系统便会查询出满足条件的部门记录，并列到数据表格中，无满足条件的部门记录时，则弹出对话框提示“查无此记录！”。 (3)数据修改当操作员需要对某个部门进行修改时，可以在编辑部门信息窗体下部中找到修改按钮。由于修改记录不可能在大量的数据中盲目的寻找，因此数据修改应该与数据添加按钮结合使用，先用查询功能进行对要修改记录的搜索，再在数据表格中选中要修改的部门记录，便把此部门记录读入文本框中，只需在文本框中直接进行数据修改便可，修改完后按修改按钮进行确定，系统并对修改后的数据进行合法性检测，合法则修改成功。 (4)数据删除当操作员需要对某个或多个部门进行删除时，可以在编辑部门信息窗体下部中找到删除按钮。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会列出满足删除条件的部门记录，并提示是否删除满足条件的全部部门记录，也可以一条一条删除部门记录，只要在数据表格中选中要删除的部门记录，在按一下删除按钮即可删除数据。 (5)清空清空按钮的作用可使所有文本框清空，方便用户进行其它操作。在下面各界面设置操作与上相同不再重复说明。清空输入信息代码：Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(n, 0) = "" Next nEnd Sub<2>浏览部门信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能从此窗体中了解各部门现有人数，这是在编辑部门信息中无法获得的信息。图4.44.5 工信息管理-添加、查询、修改、删除的实现<1>编辑员工信息作为编辑员工信息这一项，所实现的功能是对公司员工资料信息的存储与编辑，方便对员工的分类与管理。员工编号具有唯一性，不能重复。在此窗体中输入的信息都进过合法性检测，判断员工编号是否出现重复，位数是否为6位（前两位为部门编号，后四位为员工自身编号）等。图4.5 <2>浏览员工信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、出生日期、来到公司工作的时间进行员工信息查询。图4.64.6 勤信息管理-添加、查询、修改、删除的实现<1>编辑考勤信息作为编辑考勤信息这一项，所实现的功能是对公司员工考勤资料信息的存储与编辑，方便对员工工作的考察。对员工进行按月考勤，考核员工出勤、加班、迟到和早退等一些信息。 图4.7<2>浏览考勤信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、考勤日期进行员工考勤信息查询。图4.84.7 工工资管理-添加、查询、修改、删除的实现<1>编辑工资信息作为编辑工资信息这一项，所实现的功能是对公司员工工资信息的存储、计算与编辑，方便对员工工资的管理。对员工工资进行按月分组，计算员工各种工资项目和个人所得税款等一些信息。图4.9<2>浏览工资信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、工资计发日期进行员工工资信息查询。图4.104.8 系统维护系统维护选项里包括密码设置、用户管理、数据备份和数据恢复四个选项。用户管理功能只对管理员开放，管理员能在用户管理窗体中添加新的用户，对已有的用户进行用户名和密码修改，或者将原有用户删除。当一般用户和操作员进入时，菜单栏中无该项。<1> 密码设置图4.11该界面比较简单，能让登陆的用户修改自己的密码，但不能更改用户名，此项对所有权限的用户都适用。一进入此窗体便会显示此用户名，在旧密码框中输入原始密码，在新密码框中输入想更改的新密码，再在密码确定中进行新密码确认，按更改按钮便可修改用户密码。<2> 用户管理图4.12该功能只针对管理员有效，用于对所有权限用户口令的管理。能对所有用户进行用户名、密码、权限修改，不但能更改而且还能进行用户添加和删除。<3> 数据备份数据备份就是复制数据库的数据文件到其他地方，一面在数据库遇到意外破坏的时候能够恢复数据库，从而减少破坏造成的损失。在此系统中只把数据库备份到软盘中。图4.13<4> 数据恢复数据恢复就是将数据库备份文件复制到当前数据库上，一面在数据库遇到意外破坏的时候能够恢复数据库，从而减少破坏造成的损失。在此系统中只从软盘中恢复数据库文件。图4.14第5章 系统功能测试5.1 系统测试环境1. 硬件环境：PIII 800 128MB内存 40G硬盘2. 软件环境：操作系统：WINDOWS Xp 数据库：Access 2000程序开发工具： Visual Basic 6.05.2 测试内容 测试了部门信息管理-添加、查询、修改、删除测试了员工信息管理-添加、查询、修改、删除测试了考勤信息管理-添加、查询、修改、删除 测试了员工工资管理-添加、查询、修改、删除 测试了系统维护密码设置、用户管理、数据备份、数据恢复5.3 测试结果 测试结果软件运行一切正常。结束语本次的公司人事管理系统是基于Visual Basic 的ADO技术设计的。选择了Access 2000作为后端开发工具，开发数据库功能，并选择了Visual Basic 6.0作为界面前台开发工具。在该系统开发中我通过建立数据库，以及对各种信息库的开发（如：添加、查询、修改、删除资料）及设计系统维护安全部分，完成了此次对公司人事管理系统的设计。在本次的开发过程中，我意识到最重要的环节在于对系统的流程、功能模块、框架结构等方面的把握和设计。在需求分析结束以后，我们对一个系统需要具有哪些功能已经有了一定的认识，而如何以一个简洁、合理的系统结构去实现用户要求的功能就成为系统开发的关键环节。在这方面我可以说是深有体会。由于有些急于求成，在对ADO技术不是很了解的情况下就开始着手程序开发，所以当有时间静下来仔细理一下思路的时候发现走了很大的弯路，可以说是整个思路和设计要求有着非常大的差异。值得庆幸的是，发现的比较及时，还有足够的时间让我转变思路，从头开始。因此，通过这次公司人事管理系统的开发，我深刻认识到系统分析，以及对整个系统的总体设计的重要性。只有走好了这一步，整个系统的开发才能事半功倍，否则就会是“棋差一着，满盘皆输”。同时，在这次的系统开发中我也看到了自己在新知识的学习，新工具的应用方面的不足。开始时，我对Visual Basic和Access可以说只是停留在书面上的了解，还不够深入透彻。系统的开发过程也就成为我对这两种开发工具的深入透彻学习的过程。正因为这样，所以在设计过程中往往会被一些问题卡住。在原地徘徊了一段时间后，我通过查找参考资料，和同学交流，利用互联网向有经验的编程人员请教等各种方式试着克服在设计过程中遇到的困难。随着开发设计的深入，我也逐渐掌握了一部分编程技巧，了解了一些关于编程方面的规律，一些困难也就迎刃而解了。总之，这次的公司人事管理系统开发过程对我来说不仅仅是一次毕业设计，这也是我一次有意义的学习、提高的过程。通过这次系统开发，我不但初步掌握了两种数据库系统开发工具，也让我看到了自己知识结构、知识储备、学习和应用能力上的不足。我想，在今后的学习和工作中，我将针对这些发现的问题，不断努力和提高自身各方面的素质，为社会作出自己应有的贡献本人事管理系统的顺利完成，还要感谢老师的大力帮助与细心指导！ 参考文献1 袭沛曾 陆慰民 杨志强编著. Visual Basic 程序设计教程（6.0版）M.北京:高等教育出版社.2000年2 肖建 薛凤武 吴静编著. Visual Basic 6.0 基础教程M.北京:中国电力出版社.2002年3 张大年 廖智勇 刘检锋编著. Visual Basic数据库应用开发与实例M.北京：清华大学出版社.2002年4 杨宗志编著. Visual Basic数据库程序设M. 北京：清华大学出版社.2001年5 陈豫龙 何旭洪编著. Visual Basic 6.0数据库开发实例导航M.上海：人民邮电出版.2002年6 黄明 梁旭编著. Visual Basic 6.0 时尚编程百例M.重庆：机械工业出版社 2001年7 飞思科技产品研发中心 Access 2000 数据处理技术M. 北京: 电子工业出版.2001年附录部分窗体程序代码:1用户登陆Dim rc As New ADODB.Recordset '定义记录集变量Dim i As Integer '检测输入口令的次数Dim DLYongHuMing As StringDim DLQuanXian As StringPrivate Sub DataSave() '数据存储 Dim SQL As String SQL = "" SQL = "insert into 登陆日志" & Space$(1) SQL = SQL & "(" SQL = SQL & "登陆日期" SQL = SQL & ",登陆时间" SQL = SQL & ",用户名" SQL = SQL & ",权限" SQL = SQL & " )" SQL = SQL & " values (" SQL = SQL & "'" & Date & "'" SQL = SQL & ",'" & Time & "'" SQL = SQL & ",'" & DLYongHuMing & "'" SQL = SQL & ",'" & DLQuanXian & "'" SQL = SQL & ")" Cnndb.Execute (SQL)End SubPrivate Sub DataFind() '数据查找 Dim SQL As String If TxtYhm.Text = "" Then SQL = "select * from 口令信息 where 用户名='' or 用户名 is null" Else SQL = "select * from 口令信息 where 用户名='" & TxtYhm.Text & "'" End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox "用户名不存在!", vbInformation TxtYhm.SetFocus i = i + 1 If i = 5 Then End End If Exit Sub Else If TxtYhm.Text = "" And TxtMm.Text = "" Then SQL = "select * from 口令信息 where (用户名 ='' or 用户名 is null) and (密码 = '' or 密码 is null)" ElseIf TxtYhm = "" And TxtMm <> "" Then SQL = "select * from 口令信息 where (用户名 ='' or 用户名 is null) and 密码 ='" & TxtMm.Text & "'" ElseIf TxtYhm <> "" And TxtMm = "" Then SQL = "select * from 口令信息 where 用户名 ='" & TxtYhm.Text & "' and (密码 = '' or 密码 is null)" Else SQL = "select * from 口令信息 where 用户名 ='" & TxtYhm.Text & "' and 密码 ='" & TxtMm.Text & "'" End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox "密码不正确!", vbInformation TxtMm.SetFocus i = i + 1 If i = 5 Then End End If Exit Sub Else DLYongHuMing = rc.Fields("用户名").Value DLQuanXian = rc.Fields("权限").Value If rc.Fields("权限").Value = "管理员" Then QuanXian = " (管理员)" End If If rc.Fields("权限").Value = "操作员" Then QuanXian = " (操作员)" 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End If If rc.Fields("权限").Value = "一般用户" Then QuanXian = " (一般用户)" 主窗体.Men_Bjbmxx.Visible = False 主窗体.Men_Bjygxx.Visible = False 主窗体.Men_Bjkqxx.Visible = False 主窗体.Men_Bjgzxx.Visible = False 主窗体.Men_Sjbf.Visible = False 主窗体.Men_Sjhf.Visible = False 主窗体.Men_Gng.Visible = False 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End If YongHuMing = TxtYhm.Text MiMa = TxtMm.Text Call DataSave Unload Me 主窗体.Show End If End IfEnd SubPrivate Sub CmdAdd_Click() Call DataFindEnd SubPrivate Sub CmdExit_Click() EndEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 CmdAdd_Click Case vbKeyF2 CmdExit_Click End SelectEnd SubPrivate Sub Form_Load() Me.Top = (Screen.Height - Me.Height) / 2 Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Txtmm_KeyPress(KeyAscii As I