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

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

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

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

4、好的用户界面),使设计者快速编写出符合要求的程序,并且对于数据库中数据进行的各项操作也能及时的进行保存和修改。另外,人事管理工作范围涉及整个学院,需要处理的数据量不是特别庞大复杂,所以小型的MB级DBMS如access就可以胜任此项工作,不需要选择大型的数据库系统浪费资源。因此我们选择Microsoft公司的office 20XX的access 20XX作为后端数据库的DBMS支持。(二)可行性研究此项管理系统的开发任务是作为毕业设计课题进行的,故不存在开发费用问题,可行性研究的主要方面应放在开发进度的控制上。此人事管理系统初期开发目标是能够在本学院内得到应用,其使用、管理范围仅限于学院,属中

5、小型数据库管理系统应用开发。借助Visual Basic6.0中数据库应用系统开发工具,配合后端access 20XX的支持,在毕业设计期内完成基本的增删查改以及不可少的自动化功能应该没有问题。另外,为了便于日后的系统维护以及在此基础上进行功能扩充和升级,开发过程中应保持良好的代码书写风格并注意编写详细的技术说明文档。本系统中VB和数据库access20XX连接是通过VB中的ADO实现的。ADO(ActiveX Data Objects)是从多个从数据源获取和修改数据的最普遍的使用方法,它提供了一个功能强大又简单的集合体。ADO是通用数据访问(UDA,Universal Data Access

6、)战略的核心技术之一。它就是使用一种编程方式获得任何地方的任何数据,而这些数据源往往很复杂。基于以上ADO的特性,我们选择ADO作为我们程序与数据库连接的方式。 三、总体设计(一)数据库设计人事管理系统总体设计中最重要的阶段是数据库的设计,引文数据库表项是否完备,表项间的关系是否合理直接影响到系统后期应用程序能否顺利开发。1、表数据库中的数据表分为:人事基本信息表,部门表,科室表,教学记录表,职称变动表,职务变动表,用户管理。(各表内各字段的具体设置见附录)(科室表内容如图一)(1)人事基本信息表用于保存人员的所有人事方面的信息,包括人员基本信息、联系方式、工作单位等信息以及简介、奖惩状况等信

7、息。此表是人事管理系统中最主要的表,每个人员的基本情况都在此表中都有记录。(2)部门表用于保存部门信息,包括部门编号、部门名称和部门类别。(3)科室表用于保存科室信息,包括科室编号、科室名称、所属部门名称。(4)教学记录表用于保存教学人员的教学情况,包括人员编号、人员姓名、教学时间、课程名称。(5)职称变动表用于保存教学人员的职称变动信息,包括人员姓名、时间、原现职称等信息。(6)职务变动表用于保存行政人员的职务变动信息,包括人员姓名、时间、原现职务等信息。(7)用户管理用于保存人事管理系统中使用用户的姓名、密码、用户权限。用户权限分为普通用户和管理人员。其中普通人员是可以进行查询操作和更改自

8、己密码；管理人员是可以进行查询操作,数据库中各表的添加、删除、浏览和修改等数据处理,添加、删除用户等用户信息的操作。 图 一2、权限设置用户管理表的用户权限分为管理人员和普通用户(数据库表内保存为0和1)。管理人员可以添加、修改、删除记录,可以添加或删除用户。普通用户只能进行数据查询操作。(二)功能划分通过对学院人事管理工作的特点及其需求进行认真分析,我们总结出人事管理系统的两个核心:一个是关于人事管理的各类信息的查询操作,另一个是关于人事管理中的各类数据的处理操作。基于以上分析结果,我们决定将本系统按其管理的不同方面划分成两个部分:1、查询系统对于人事管理中的所有的信息可以进行分类查询。2、

9、管理系统对于人事管理中的所有的信息可以进行浏览、增添、删除、修改等基本的管理功能。并且对于数据管理中并不是所有的另外,作为整个学院的人事管理系统,其安全性不容忽视。所以上述的两大部分的功能不能对任何使用者无条件开放。因此,系统中拟设定两类权限:普通用户和管理人员。普通用户:只拥有查询数据表中数据的权力。管理人员:拥有对数据表中数据的查询以及数据处理的权力。并且拥有添加或删除用户的权力。(三)系统流程图人事管理系统流程登陆系统，根据用户权限显示用户可以使用的功能人事管理系统基本信息模块部门信息模块科室信息模块工作变动信息模块职务变动信息模块职称变动信息模块教学信息模块查询模块数据处理用户管理数据

10、浏览数据添加数据删除数据修改添加用户删除用户修改密码退出管理系统图 二四、各个模块功能的设计与实现(一)登录界面设计启动人事管理系统,在输入框里输入用户名称和用户密码,完成登录操作进入该系统的菜单主界面。根据用户的使用权限,普通用户可以使用查询系统下拉菜单里的各项功能,和用户管理下拉菜单的修改密码功能；管理人员可以使用查询系统、管理系统以及用户管理下拉菜单中的所有功能。(登录界面如图三)其确定按钮的程序代码如下:Private Sub Command1_Click()Adodc1.RecordSource = select * from 用户管理 where 用户姓名= & Text1.Tex

11、t & Adodc1.RefreshIf Text1.Text = Or Text2.Text = Then a = MsgBox(用户姓名或密码不能为空！, , 错误！)Else If Adodc1.Recordset.EOF Then a = MsgBox(不存在此用户！, , 错误！) Else If Adodc1.Recordset.Fields(用户密码) = Text2.Text Then quanxian = Adodc1.Recordset.Fields(用户权限) Form1.Show xingming = Text1.Text Unload Me Else a = MsgB

12、ox(用户密码不正确！, , 错误！) End If End IfEnd IfEnd Sub注:程序中的quanxian和xingming 定义为两个全局变量,用于记录用户的权限和用户姓名,在载入主界面时,根据权限不同设置用户可以使用的功能。此程序首先是不允许用户姓名或用户密码为空,否则报错。然后判断是否存在此用户名和密码,如果用户名和密码正确,根据数据库中用户管理表中记录的用户权限显示用户可以使用的系统功能。如果用户姓名或是用户密码错误,否则报错。 图 三(二)运行主界面设计我们在进行菜单主界面设计时,采用下拉菜单式。主要分为三个功能模块:查询系统、管理系统、用户管理。其中查询系统根据查询的

13、内容分别设计成个人信息、单位信息、教学情况；管理系统中分数据处理、人员基本信息录入、职务变动录入和职称变动录入；用户管理中设添加用户、删除用户、修改密码、注销和退出几部分。(主界面如图四)因为在人事管理系统中,人事基本信息是整个人事管理的主要部分,所以人员信息的录入是重要而且工作量较大的工作。所以人员信息的录入我们专门做成一个菜单选项可以进行单独操作,使得大量的人员信息录入操作简单方便。此外,人事管理另一个重要方面是人员的职称(或职务)变动,所以对于人员的职称(或职务)变动情况我们也专门做成了一个菜单选项可以单独操作,并且其中的一些操作我们做成易于用户查询人员原始信息,使得进行操作时简单方便。

14、图 四(三)查询系统设计该功能模块包括个人信息、单位信息和教学情况三个部分,其中个人信息包括个人基本信息、教学记录、职务变动、职称变动几个查询；单位信息包括部门表和科室表的查询；教学情况是查询课程信息的。(例:图五为按所属部门编号查询科室信息)1、个人信息查询个人基本信息查询中可以选择人员编号,或是人员姓名、性别、职称、具体科室等不同的一个条件或几个条件组合查询,然后在输入框里输入想要查询的条件,按确定按钮就可以查询出人事基本信息表中符合条件的人的所有信息,查询结果将在本界面下方显示。教学记录查询是通过选择人员姓名或人员编号,输入想要查询的信息,按确定按钮,查询出符合条件的教学人员的教学记录,

15、查询结果在本界面下方显示。职务变动查询和职称变动查询可以分别通过选择人员姓名、单位、职务(或职称)、时间等某一条件进行查询,输入查询条件,然后按确定按钮查询结果将在界面下方显示。2、单位信息查询可以通过输入部门(或科室)名称、编号等方式,然后输入查询条件,查询出部门信息(或科室信息)将在本界面下方显示。3、教学情况可以通过输入课程名称或课程时间进行查询,查询结果将在本界面下方显示。 图 五(四)管理系统设计管理系统模块中包括数据处理,人员信息录入,职务变动录入,职称变动录入。其中数据处理是可以对人员基本信息表进行浏览和部门表、科室表、教学记录表进行数据处理的。人员信息录入是人员基本信息的录入,

16、记录将保存在数据库的人员基本信息表里。职务(或职称)变动录入是将有职务(或职称)变动的人员的信息保存在数据库的职务(或职称)表中的。因为职务(或职称)变动表中的信息不允许删除、修改,所以没有做关于职务(或职称)的删除和修改功能的操作。1、数据处理管理人员可以通过管理系统中的数据处理对数据库中人员基本信息表、部门表、科室表、教学记录表这几个表中的数据进行处理,处理包括对表或是表内某一记录的浏览,在表中添加记录,对表中某一记录进行修改或是删除的操作。其中人员基本信息表是只允许浏览表和浏览、删除记录而不允许添加记录和修改记录,人员基本信息表的添加记录的操作在人员信息录入中完成。进行操作时首先要选择所

17、要操作的表,选定表后可以进行浏览表和添加记录的操作(例:图六为修改教学记录表中某一条记录)。要对表中某条记录进行操作可以按界面提示选择出符合条件的记录进行浏览、删除和修改的操作。其选择记录按钮、确定按钮、删除记录按钮、修改记录按钮的程序代码如下:(1)选定表,选择要操作的字段名称 Private Sub Command3_Click() Adodc1.RecordSource = select * from & Combo1.Text & Adodc1.Refresh a = Combo2.ListCount If a 0 Then For i = 0 To a - 1 Combo2.Remo

18、veItem 0 Next i End If For Each i In Adodc1.Recordset.Fields Combo2.AddItem i.Name Next i 把表中的字段名称列在combo2里End Sub注:代码中条件循环是用于在用户进行第二次操作时清除前面操作所显示的内容。(2)选定字段后,选择所需记录Private Sub Command4_Click() Dim zd As String zd = Combo2.Text Adodc1.RecordSource = select & zd & from & Combo1.Text & Adodc1.Refresh

19、a = Combo3.ListCount If a 0 Then For i = 0 To a - 1 Combo3.RemoveItem 0 Next i End If While Not Adodc1.Recordset.EOF Combo3.AddItem Adodc1.Recordset.Fields(zd) Adodc1.Recordset.MoveNext Wend 把记录列在combo3里End Sub(3)删除记录Private Sub Command6_Click() a = MsgBox(确实要删除此条纪录吗？, 1, a) If a = 1 Then Adodc1.Rec

20、ordSource = select *from & Combo1.Text & where & Combo2.Text & = & Combo3.Text & Adodc1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = True DataGrid1.AllowUpdate = True Adodc1.Recordset.Delete End IfEnd Sub(4)修改记录Private Sub Command7_Click() If Combo1.Text = 人事基本信息表 Then a = MsgBox(人事

21、基本信息表不允许修改记录！, , 注意！) Else DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = True End IfEnd Sub注:如果选择的是人事基本信息表则不允许进行修改记录。只允许进行前边的浏览和删除操作。因为人事基本信息表中的很多项内容是不允许随便修改的。例如职务(或职称)变动是不能在人事基本信息表中直接修改的,而是在职务(或职称)变动表中记录后再在人事基本信息表中自动更改。图 六2、人员基本信息录入因为人员基本信息内容太多,所以按类别设计成分页的形式,这样

22、从外观上看比较清楚,而且输入内容时也方便、清晰。人员基本信息中性别、部门名称、科室名称、职务名称、职称名称和是否是合同制设计成列表的形式。用户可以根据人员的情况选择列表中的内容,但不允许自己输入信息,以防止输入的信息不正确或是不符合规定。3、职务(或职称)变动录入 职务(或职称)变动录入是通过人员姓名或人员编号选择出职务(或职称)变动的人员,按确定按钮后人员的职务(或职称)信息会自动的显示出来,然后输入新的信息,按保存按钮后人员的职务(或职称)变动信息将保存在职务(或职称)变动表里,并且更改后的信息也将自动保存在人员基本信息表里,。(例:图七为职务变动录入)其中确定按钮和保存按钮的程序代码如下

23、:(1)确定Private Sub Command1_Click() If Option2.Value = True Then Adodc1.RecordSource = select * from 人事基本信息表 where 人员编号= & Combo2.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.Fields(职务名称) Then Text1.Text = Adodc1.Recordset.Fields(职务名称) Text2.Text = Adodc1.Recordset.Fields(任命时间) End If Else Ad

24、odc1.RecordSource = select * from 人事基本信息表 where 人员姓名= & Combo1.Text & Adodc1.Refresh If Not IsNull(Adodc1.Recordset.Fields(职务名称) Then Text1.Text = Adodc1.Recordset.Fields(职务名称) Text2.Text = Adodc1.Recordset.Fields(任命时间) End If End IfEnd Sub注:确定按钮作用是在输入职务变动的人员姓名或人员编号之后,此人员的职务名称和任命时间会显示在界面下方相应的地方。(2)保

25、存Private Sub Command3_Click() Adodc1.Recordset.Fields(职务名称) = Text3.Text Adodc1.Recordset.Fields(开始时间) = Text4.Text ming = Adodc1.Recordset.Fields(人员姓名) bianhao = Adodc1.Recordset.Fields(人员编号) Adodc1.Recordset.Update Adodc1.Recordset.Close 把改动后的信息保存在人事基本信息表里 Adodc1.RecordSource = select * from 职务变动表

26、 where 人员编号= & bianhao & Adodc1.Refresh If Adodc1.Recordset.EOF Then Adodc1.Recordset.AddNew End If Adodc1.Recordset.Fields(人员编号) = bianhao Adodc1.Recordset.Fields(人员姓名) = ming Adodc1.Recordset.Fields(开始时间) = Text2.Text Adodc1.Recordset.Fields(结束时间) = Text4.Text Adodc1.Recordset.Fields(原职务名称) = Text

27、1.Text Adodc1.Recordset.Fields(现职务名称) = Text3.Text Adodc1.Recordset.Update 把改动后的信息保存在职务变动表里 a = MsgBox(记录已保存！, , 成功！)End Sub注:代码中ming 和bianhao 是保存人员姓名和人员编号的变量。代码前一段是更改人事基本信息表此人员的职务信息,后一段是把此次更改的记录保存在职务变动表中。在职务变动表中首先通过人员编号判断是否有此人员记录,如果没有则在表中添加一条新记录,如果有则更改这条记录。在职务变动表中人员编号和人员姓名的赋值是通过ming和bianhao 来保存的。职务

28、变动表中只保存某个人员的最后一次职务变动信息。职称变动表的程序代码与此类似。 图 七(五)用户管理设计用户管理包括添加用户、删除用户、修改密码、注销、退出部分,其中添加用户和删除用户是管理人员才可以使用的功能。修改密码、注销和退出部分是允许普通用户操作的。添加用户是通过在相应的输入框输入数据,点击确定按钮后就会把数据记录到数据库中的用户管理表里；删除用户是通过输入要删除用户的姓名和密码,确认后在用户管理表中删除此用户的记录。修改密码是用户修改密码的界面,其中用户的姓名是自动显示在界面上的,用户只需要输入原来密码和新密码就可以修改密码了。注销是更换用户的操作界面；退出是退出人事管理系统。(例:图

29、八为添加用户)添加用户的确定按钮的程序代码如下:Private Sub Command1_Click() If Text1.Text = Or Text2.Text = Then 用户姓名密码判断是否为空 a = MsgBox(用户姓名或用户密码不能为空, , 错误！) Else Adodc1.RecordSource = select * from 用户管理 where 用户姓名= & Text1.Text & 查询输入的用户姓名是否已经存在 Adodc1.Refresh If Adodc1.Recordset.EOF Then 不存在此用户名,添加新用户 If Option2.Value

30、= True Then 选择普通用户 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户姓名) = Text1.Text Adodc1.Recordset.Fields(用户密码) = Text2.Text Adodc1.Recordset.Fields(用户权限) = 1 Adodc1.Recordset.Update a = MsgBox(用户添加成功！, , 操作成功！) Else 选择管理人员 Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(用户姓名) = Text1.Text Adodc

31、1.Recordset.Fields(用户密码) = Text2.Text Adodc1.Recordset.Fields(用户权限) = 0 Adodc1.Recordset.Update a = MsgBox(用户添加成功！, , 操作成功！) End If Else a = MsgBox(已有此用户纪录！, , 错误！) End If End If End Sub 图 八五、结束语本系统经过耐心测试,整体运行正常,基本实现了总体设计阶段提出的各项功能要求,并做到了人机界面友好,功能布局合理美观,操作简便,易于使用等特点。同时源代码书写规范,通俗易懂,便于日后进行系统升级和功能扩充。由于设

32、计时间有限,本系统只设计成单机使用,以后有机会可以设计成可以联机使用版。本系统设计过程考虑的比较简单,其中的一些细节的问题没有考虑的很全面,还有一些缺陷。有机会应进行修改和完善。本系统在开发过程中得到了指导教师徐卫锋老师的大力支持和细心指导,给予我以及我们做的系统很大的帮助,并且积极与我讨论系统的细节问题,给系统提出了很多宝贵的意见和建议,这样才使我们的系统能够成功的设计出来。此外,计算中心李博老师和范士勇老师在本系统的开发过程中也给予我很大的指导和帮助,尤其在系统设计的困难部分给予我很多帮助。在此向几位老师表示衷心的感谢。另外,学院机房的龙老师和贾老师以及新区计算中心的王雷老师提供场地和毕业设计用机。在此也向他们表示衷心感谢。参考文献:1、美Mike Gunderloy 著 张光霞、孙月琴、刘钊 等译, Visual Basic开发指南ADO篇,电子工业出版社,20XX.72、美詹宁斯(Jennings.R)著 前导工作室译,Visual Basic 6 数据库开发人员指南,机械