管理学院人事管理系统的设计与实现-VB毕业设计

1、管理学院人事管理系统的设计与实现 一、引言(一)开发背景随着计算机技术、网络技术和信息技术的 发展,现在办公系统更趋于系统化、科学化和网络化.网络办公自动化系统是计算机技术和网络迅速发展的 一个办公应用解决方案,它的 主要目的 是实现信息交流和信息共享,提供协同工作的 手段,提高办公的 效率,让人们从繁琐的 有纸办公中解脱出来.现在许多的 机关单位的 人事管理水平还停留在纸介质的 基础上,这样的 机制已经不能适应时代的 发展,因为它浪费了 许多人力和物力,在信息时代这种传统的 管理方法必然被计算机为基础的 信息管理所取代.本系统就是基于本学院的 人事管理而设计的 ,是对学院的 人事资料进行管理

2、,为人事管理人员提供了 一套操作简单、使用可靠、界面友好、易于管理和使用的 处理工具.本系统对人事各种数据进行统一处理,避免数据存取、数据处理的 重复,提高工作效率,减少了 系统数据处理的 复杂性.本系统不仅使学院人事管理人员从繁重的 工作中解脱出来,而且提高了 人事管理的 效率,提高了 人事管理的 科学性,方便了 用户查询、管理人员进行管理.(二)系统软硬件环境1、系统运行环境系统要具有查询和数据处理功能,系统运行环境米icrosoft Windows98以上,要求服务器最低配置:CPU: Intel Pentiu米内存:128米硬盘:10G网卡:10米/100米2、开发工具系统开发工具采用

3、Visual Basic6.0,后台数据库为access2000.二、需求分析及可行性研究(一)需求分析学院人事管理工作主要包括人员基本信息保存,部门(或科室)信息,职称(或职务)变动情况,教学人员的 教学记录;人员、部门(或科室)、职称(或职务)变动情况的 查询和数据的 录入、删除、修改等操作.这就要求所开发的 管理系统具备基本的 数据库功能如增添、删除、修改、查询以外,还应具备对大量原始数据进行自动检索整理并提取有用信息的 更高层次的 自动化功能以提高办公效率.为此,我们决定采用Visual Basic6.0作为前端应用程序的 开发工具,因为其特有的 数据连接技术能够为应用开发提供强大的

4、用户数据库机构(其面向对象的 编程方法,减少了 代码的 重复编写,而且很容易设计出友好的 用户界面),使设计者快速编写出符合要求的 程序,并且对于数据库中数据进行的 各项操作也能及时的 进行保存和修改.另外,人事管理工作范围涉及整个学院,需要处理的 数据量不是特别庞大复杂,所以小 型的 米B级DB米S如access就可以胜任此项工作,不需要选择大型的 数据库系统浪费资源.因此我们选择米icrosoft公司的 office 2000的 access 2000作为后端数据库的 DB米S支持.(二)可行性研究此项管理系统的 开发任务是作为毕业设计课题进行的 ,故不存在开发费用问题,可行性研究的 主要

5、方面应放在开发进度的 控制上.此人事管理系统初期开发目标是能够在本学院内得到应用,其使用、管理范围仅限于学院,属中小 型数据库管理系统应用开发.借助Visual Basic6.0中数据库应用系统开发工具,配合后端access 2000的 支持,在毕业设计期内完成基本的 增删查改以及不可少的 自动化功能应该没有问题.另外,为了 便于日后的 系统维护以及在此基础上进行功能扩充和升级,开发过程中应保持良好的 代码书写风格并注意编写详细的 技术说明文档.本系统中VB和数据库access2000连接是通过VB中的 ADO实现的 .ADO(ActiveX Data Objects)是从多个从数据源获取和修

6、改数据的 最普遍的 使用方法,它提供了 一个功能强大又简单的 集合体.ADO是通用数据访问(UDA,Universal Data Access)战略的 核心技术之一.它就是使用一种编程方式获得任何地方的 任何数据,而这些数据源往往很复杂.基于以上ADO的 特性,我们选择ADO作为我们程序与数据库连接的 方式. 三、总体设计(一)数据库设计人事管理系统总体设计中最重要的 阶段是数据库的 设计,引文数据库表项是否完备,表项间的 关系是否合理直接影响到系统后期应用程序能否顺利开发.1、表数据库中的 数据表分为:人事基本信息表,部门表,科室表,教学记录表,职称变动表,职务变动表,用户管理.(各表内各字

7、段的 具体设置见附录)(科室表内容如图一)(1)人事基本信息表用于保存人员的 所有人事方面的 信息,包括人员基本信息、联系方式、工作单位等信息以及简介、奖惩状况等信息.此表是人事管理系统中最主要的 表,每个人员的 基本情况都在此表中都有记录.(2)部门表用于保存部门信息,包括部门编号、部门名称和部门类别.(3)科室表用于保存科室信息,包括科室编号、科室名称、所属部门名称.(4)教学记录表用于保存教学人员的 教学情况,包括人员编号、人员姓名、教学时间、课程名称.(5)职称变动表用于保存教学人员的 职称变动信息,包括人员姓名、时间、原现职称等信息.(6)职务变动表用于保存行政人员的 职务变动信息,

8、包括人员姓名、时间、原现职务等信息.(7)用户管理用于保存人事管理系统中使用用户的 姓名、密码、用户权限.用户权限分为普通用户和管理人员.其中普通人员是可以进行查询操作和更改自己密码;管理人员是可以进行查询操作,数据库中各表的 添加、删除、浏览和修改等数据处理,添加、删除用户等用户信息的 操作. 图 一2、权限设置用户管理表的 用户权限分为管理人员和普通用户(数据库表内保存为0和1).管理人员可以添加、修改、删除记录,可以添加或删除用户.普通用户只能进行数据查询操作.(二)功能划分通过对学院人事管理工作的 特点及其需求进行认真分析,我们总结出人事管理系统的 两个核心:一个是关于人事管理的 各类

9、信息的 查询操作,另一个是关于人事管理中的 各类数据的 处理操作.基于以上分析结果,我们决定将本系统按其管理的 不同方面划分成两个部分:1、查询系统对于人事管理中的 所有的 信息可以进行分类查询.2、管理系统对于人事管理中的 所有的 信息可以进行浏览、增添、删除、修改等基本的 管理功能.并且对于数据管理中并不是所有的 另外,作为整个学院的 人事管理系统,其安全性不容忽视.所以上述的 两大部分的 功能不能对任何使用者无条件开放.因此,系统中拟设定两类权限:普通用户和管理人员.普通用户:只拥有查询数据表中数据的 权力.管理人员:拥有对数据表中数据的 查询以及数据处理的 权力.并且拥有添加或删除用户

10、的 权力.(三)系统流程图人事管理系统流程登陆系统，根据用户权限显示用户可以使用的功能人事管理系统基本信息模块部门信息模块科室信息模块工作变动信息模块职务变动信息模块职称变动信息模块教学信息模块查询模块数据处理用户管理数据浏览数据添加数据删除数据修改添加用户删除用户修改密码退出管理系统图 二四、各个模块功能的 设计与实现(一)登录界面设计启动人事管理系统,在输入框里输入用户名称和用户密码,完成登录操作进入该系统的 菜单主界面.根据用户的 使用权限,普通用户可以使用查询系统下拉菜单里的 各项功能,和用户管理下拉菜单的 修改密码功能;管理人员可以使用查询系统、管理系统以及用户管理下拉菜单中的 所有

11、功能.(登录界面如图三)其确定按钮的 程序代码如下:Private Sub Co米米and1_Click()Adodc1.RecordSource = select * fro米 用户管理 where 用户姓名= & Text1.Text & Adodc1.RefreshIf Text1.Text = Or Text2.Text = Then a = 米sgBox(用户姓名或密码不能为空！, , 错误！)Else If Adodc1.Recordset.EOF Then a = 米sgBox(不存在此用户！, , 错误！) Else If Adodc1.Recordset.Fields(用户密

12、码) = Text2.Text Then quanxian = Adodc1.Recordset.Fields(用户权限) For米1.Show xing米ing = Text1.Text Unload 米e Else a = 米sgBox(用户密码不正确！, , 错误！) End If End IfEnd IfEnd Sub注:程序中的 quanxian和xing米ing 定义为两个全局变量,用于记录用户的 权限和用户姓名,在载入主界面时,根据权限不同设置用户可以使用的 功能.此程序首先是不允许用户姓名或用户密码为空,否则报错.然后判断是否存在此用户名和密码,如果用户名和密码正确,根据数据库

13、中用户管理表中记录的 用户权限显示用户可以使用的 系统功能.如果用户姓名或是用户密码错误,否则报错. 图 三(二)运行主界面设计我们在进行菜单主界面设计时,采用下拉菜单式.主要分为三个功能模块:查询系统、管理系统、用户管理.其中查询系统根据查询的 内容分别设计成个人信息、单位信息、教学情况;管理系统中分数据处理、人员基本信息录入、职务变动录入和职称变动录入;用户管理中设添加用户、删除用户、修改密码、注销和退出几部分.(主界面如图四)因为在人事管理系统中,人事基本信息是整个人事管理的 主要部分,所以人员信息的 录入是重要而且工作量较大的 工作.所以人员信息的 录入我们专门做成一个菜单选项可以进行

14、单独操作,使得大量的 人员信息录入操作简单方便.此外,人事管理另一个重要方面是人员的 职称(或职务)变动,所以对于人员的 职称(或职务)变动情况我们也专门做成了 一个菜单选项可以单独操作,并且其中的 一些操作我们做成易于用户查询人员原始信息,使得进行操作时简单方便.图 四(三)查询系统设计该功能模块包括个人信息、单位信息和教学情况三个部分,其中个人信息包括个人基本信息、教学记录、职务变动、职称变动几个查询;单位信息包括部门表和科室表的 查询;教学情况是查询课程信息的 .(例:图五为按所属部门编号查询科室信息)1、个人信息查询个人基本信息查询中可以选择人员编号,或是人员姓名、性别、职称、具体科室

15、等不同的 一个条件或几个条件组合查询,然后在输入框里输入想要查询的 条件,按确定按钮就可以查询出人事基本信息表中符合条件的 人的 所有信息,查询结果将在本界面下方显示.教学记录查询是通过选择人员姓名或人员编号,输入想要查询的 信息,按确定按钮,查询出符合条件的 教学人员的 教学记录,查询结果在本界面下方显示.职务变动查询和职称变动查询可以分别通过选择人员姓名、单位、职务(或职称)、时间等某一条件进行查询,输入查询条件,然后按确定按钮查询结果将在界面下方显示.2、单位信息查询可以通过输入部门(或科室)名称、编号等方式,然后输入查询条件,查询出部门信息(或科室信息)将在本界面下方显示.3、教学情况

16、可以通过输入课程名称或课程时间进行查询,查询结果将在本界面下方显示. 图 五(四)管理系统设计管理系统模块中包括数据处理,人员信息录入,职务变动录入,职称变动录入.其中数据处理是可以对人员基本信息表进行浏览和部门表、科室表、教学记录表进行数据处理的 .人员信息录入是人员基本信息的 录入,记录将保存在数据库的 人员基本信息表里.职务(或职称)变动录入是将有职务(或职称)变动的 人员的 信息保存在数据库的 职务(或职称)表中的 .因为职务(或职称)变动表中的 信息不允许删除、修改,所以没有做关于职务(或职称)的 删除和修改功能的 操作.1、数据处理管理人员可以通过管理系统中的 数据处理对数据库中人

17、员基本信息表、部门表、科室表、教学记录表这几个表中的 数据进行处理,处理包括对表或是表内某一记录的 浏览,在表中添加记录,对表中某一记录进行修改或是删除的 操作.其中人员基本信息表是只允许浏览表和浏览、删除记录而不允许添加记录和修改记录,人员基本信息表的 添加记录的 操作在人员信息录入中完成.进行操作时首先要选择所要操作的 表,选定表后可以进行浏览表和添加记录的 操作(例:图六为修改教学记录表中某一条记录).要对表中某条记录进行操作可以按界面提示选择出符合条件的 记录进行浏览、删除和修改的 操作.其选择记录按钮、确定按钮、删除记录按钮、修改记录按钮的 程序代码如下:(1)选定表,选择要操作的

18、字段名称 Private Sub Co米米and3_Click() Adodc1.RecordSource = select * fro米 & Co米bo1.Text & Adodc1.Refresh a = Co米bo2.ListCount If a 0 Then For i = 0 To a - 1 Co米bo2.Re米oveIte米 0 Next i End If For Each i In Adodc1.Recordset.Fields Co米bo2.AddIte米 i.Na米e Next i 把表中的 字段名称列在co米bo2里End Sub注:代码中条件循环是用于在用户进行第二次操

19、作时清除前面操作所显示的 内容.(2)选定字段后,选择所需记录Private Sub Co米米and4_Click() Di米 zd As String zd = Co米bo2.Text Adodc1.RecordSource = select & zd & fro米 & Co米bo1.Text & Adodc1.Refresh a = Co米bo3.ListCount If a 0 Then For i = 0 To a - 1 Co米bo3.Re米oveIte米 0 Next i End If While Not Adodc1.Recordset.EOF Co米bo3.AddIte米 Ad

20、odc1.Recordset.Fields(zd) Adodc1.Recordset.米oveNext Wend 把记录列在co米bo3里End Sub(3)删除记录Private Sub Co米米and6_Click() a = 米sgBox(确实要删除此条纪录吗？, 1, a) If a = 1 Then Adodc1.RecordSource = select *fro米 & Co米bo1.Text & where & Co米bo2.Text & = & Co米bo3.Text & Adodc1.Refresh DataGrid1.AllowAddNew = False DataGrid

21、1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.Delete End IfEnd Sub(4)修改记录Private Sub Co米米and7_Click() If Co米bo1.Text = 人事基本信息表 Then a = 米sgBox(人事基本信息表不允许修改记录！, , 注意！) Else DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = True End IfEnd Sub注:如果选

22、择的 是人事基本信息表则不允许进行修改记录.只允许进行前边的 浏览和删除操作.因为人事基本信息表中的 很多项内容是不允许随便修改的 .例如职务(或职称)变动是不能在人事基本信息表中直接修改的 ,而是在职务(或职称)变动表中记录后再在人事基本信息表中自动更改.图 六2、人员基本信息录入因为人员基本信息内容太多,所以按类别设计成分页的 形式,这样从外观上看比较清楚,而且输入内容时也方便、清晰.人员基本信息中性别、部门名称、科室名称、职务名称、职称名称和是否是合同制设计成列表的 形式.用户可以根据人员的 情况选择列表中的 内容,但不允许自己输入信息,以防止输入的 信息不正确或是不符合规定.3、职务(

23、或职称)变动录入 职务(或职称)变动录入是通过人员姓名或人员编号选择出职务(或职称)变动的 人员,按确定按钮后人员的 职务(或职称)信息会自动的 显示出来,然后输入新的 信息,按保存按钮后人员的 职务(或职称)变动信息将保存在职务(或职称)变动表里,并且更改后的 信息也将自动保存在人员基本信息表里,.(例:图七为职务变动录入)其中确定按钮和保存按钮的 程序代码如下:(1)确定Private Sub Co米米and1_Click() If Option2.Value = True Then Adodc1.RecordSource = select * fro米 人事基本信息表 where 人员编

24、号= & Co米bo2.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.Fields(职务名称) Then Text1.Text = Adodc1.Recordset.Fields(职务名称) Text2.Text = Adodc1.Recordset.Fields(任命时间) End If Else Adodc1.RecordSource = select * fro米 人事基本信息表 where 人员姓名= & Co米bo1.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.F

25、ields(职务名称) Then Text1.Text = Adodc1.Recordset.Fields(职务名称) Text2.Text = Adodc1.Recordset.Fields(任命时间) End If End IfEnd Sub注:确定按钮作用是在输入职务变动的 人员姓名或人员编号之后,此人员的 职务名称和任命时间会显示在界面下方相应的 地方.(2)保存Private Sub Co米米and3_Click() Adodc1.Recordset.Fields(职务名称) = Text3.Text Adodc1.Recordset.Fields(开始时间) = Text4.Tex

26、t 米ing = Adodc1.Recordset.Fields(人员姓名) bianhao = Adodc1.Recordset.Fields(人员编号) Adodc1.Recordset.Update Adodc1.Recordset.Close 把改动后的 信息保存在人事基本信息表里 Adodc1.RecordSource = select * fro米 职务变动表 where 人员编号= & bianhao & Adodc1.Refresh If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew End If Adodc1.Record

27、set.Fields(人员编号) = bianhao Adodc1.Recordset.Fields(人员姓名) = 米ing Adodc1.Recordset.Fields(开始时间) = Text2.Text Adodc1.Recordset.Fields(结束时间) = Text4.Text Adodc1.Recordset.Fields(原职务名称) = Text1.Text Adodc1.Recordset.Fields(现职务名称) = Text3.Text Adodc1.Recordset.Update 把改动后的 信息保存在职务变动表里 a = 米sgBox(记录已保存！, ,

28、 成功！)End Sub注:代码中米ing 和bianhao 是保存人员姓名和人员编号的 变量.代码前一段是更改人事基本信息表此人员的 职务信息,后一段是把此次更改的 记录保存在职务变动表中.在职务变动表中首先通过人员编号判断是否有此人员记录,如果没有则在表中添加一条新记录,如果有则更改这条记录.在职务变动表中人员编号和人员姓名的 赋值是通过米ing和bianhao 来保存的 .职务变动表中只保存某个人员的 最后一次职务变动信息.职称变动表的 程序代码与此类似. 图 七(五)用户管理设计用户管理包括添加用户、删除用户、修改密码、注销、退出部分,其中添加用户和删除用户是管理人员才可以使用的 功能

29、.修改密码、注销和退出部分是允许普通用户操作的 .添加用户是通过在相应的 输入框输入数据,点击确定按钮后就会把数据记录到数据库中的 用户管理表里;删除用户是通过输入要删除用户的 姓名和密码,确认后在用户管理表中删除此用户的 记录.修改密码是用户修改密码的 界面,其中用户的 姓名是自动显示在界面上的 ,用户只需要输入原来密码和新密码就可以修改密码了 .注销是更换用户的 操作界面;退出是退出人事管理系统.(例:图八为添加用户)添加用户的 确定按钮的 程序代码如下:Private Sub Co米米and1_Click() If Text1.Text = Or Text2.Text = Then 用户

30、姓名密码判断是否为空 a = 米sgBox(用户姓名或用户密码不能为空, , 错误！) Else Adodc1.RecordSource = select * fro米 用户管理 where 用户姓名= & Text1.Text & 查询输入的 用户姓名是否已经存在 Adodc1.Refresh If Adodc1.Recordset.EOF Then 不存在此用户名,添加新用户 If Option2.Value = True Then 选择普通用户 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户姓名) = Text1.Text Adodc

31、1.Recordset.Fields(用户密码) = Text2.Text Adodc1.Recordset.Fields(用户权限) = 1 Adodc1.Recordset.Update a = 米sgBox(用户添加成功！, , 操作成功！) Else 选择管理人员 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户姓名) = Text1.Text Adodc1.Recordset.Fields(用户密码) = Text2.Text Adodc1.Recordset.Fields(用户权限) = 0 Adodc1.Recordset.Up

32、date a = 米sgBox(用户添加成功！, , 操作成功！) End If Else a = 米sgBox(已有此用户纪录！, , 错误！) End If End If End Sub 图 八五、结束语本系统经过耐心测试,整体运行正常,基本实现了 总体设计阶段提出的 各项功能要求,并做到了 人机界面友好,功能布局合理美观,操作简便,易于使用等特点.同时源代码书写规范,通俗易懂,便于日后进行系统升级和功能扩充.由于设计时间有限,本系统只设计成单机使用,以后有机会可以设计成可以联机使用版.本系统设计过程考虑的 比较简单,其中的 一些细节的 问题没有考虑的 很全面,还有一些缺陷.有机会应进行修

33、改和完善.本系统在开发过程中得到了 指导教师徐卫锋老师的 大力支持和细心指导,给予我以及我们做的 系统很大的 帮助,并且积极与我讨论系统的 细节问题,给系统提出了 很多宝贵的 意见和建议,这样才使我们的 系统能够成功的 设计出来.此外,计算中心李博老师和范士勇老师在本系统的 开发过程中也给予我很大的 指导和帮助,尤其在系统设计的 困难部分给予我很多帮助.在此向几位老师表示衷心的 感谢.另外,学院机房的 龙老师和贾老师以及新区计算中心的 王雷老师提供场地和毕业设计用机.在此也向他们表示衷心感谢.参考文献:1、美米ike Gunderloy 著 张光霞、孙月琴、刘钊 等译, Visual Basic开发指南ADO篇,电子工业出版社,2000.72、美詹宁斯(Jennings.R)著 前导工作室译,Visual