企业人事管理系统的设计与实现

1、华东交通大学理工学院课程设计题目：企业人事管理系统的设计与实现分院：电子信息分院 专业： 计算机科学与技术 学号： 姓名： 班级： 指导老师： 提交时间： 华东交通大学理工学院课 程 设 计（ 论 文 ）任 务 书专 业 计算机科学与技术 班 级 1 班 姓名 一、课程设计（论文）题目 企业人事管理系统设计与实现 二、课程设计（论文）工作：自 2011 年 12月 20 日起至 2012 年 01 月 03 日止。三、课程设计（论文）的内容要求：1、以SQL Server 2008作为后台数据库，以VB 6.0 、VC6.0或其它开发工具作为前台开发工具，完成一个小型数据库应用系统的设计开发。

2、要求能实现基本功能，能增加信息，修改信息，查询信息，删除信息等。 2使用SQL语句和Visual Basic 的代码编程设计学生签名(手签)：_ 2011 年01 月 03 日摘 要 企业人事管理系统是九十年代才出现的新兴的信息系统，它属于人力资源管理系统的一个小的分支，是管理科学和计算机技术紧密结合的产物。随着计算机技术的迅速发展，特别是软件开发技术和开发工具的不断进步，人事管理系统的开发逐步呈现出多方位，全面的开发模式:在开发模型的系统结构方面在沿着主机/终端模型到B/S模型到多层的B/S模式、再到C/S模式，相应地系统应用体系结构也由单层结构发展到二层结构再到三层结构以至多层;面向对象技

3、术的得到广泛应用，组件技术的出现解决了传统的软件开发在分布性和重用性的一些问题，提高了软件开发的效率和质量本论文是从现代企业管理中的人事管理现状出发，针对人事管理的复杂程序，经过详细的系统调查，开发出的操作简单而且方便实用的一个人事管理系统。通过调查本地的企业，根据企业的具体情况设计企业人事管理系统。主要功能有：1） 人事档案管理：户口状况、政治面貌、生理状况、合同管理等；2） 考勤加班出差管理；3） 人事变动：新进员工登记、员工离职登记、人事变更记录；4） 考核奖惩；5） 员工培训；6） 系统维护：如数据安全管理（含备份与恢复）、操作员管理、权限设置等；本系统的前端开发工具是Visual B

4、asic 6.0，后台数据库引擎选用数据库软件Microsoft SQL 2008。关键词：查询，人事管理，数据库目 录第一章 引言41.1 设计目的41.2 设计要求41.3 设计环境41.4 同组人员及分工4第二章 概要设计52.1 系统需求分析52.2 系统结构设计62.2 功能模块设计7第三章 详细设计73.1 系统数据库设计73.2 系统主要功能模块设计93.3 各模块的主要算法对应的原代码10第四章 调试与运行结果及存在的主要问题234.1 调试、运行和存在的问题23第五章 课程设计小结245.1 课程设计所做的工作内容总结24第六章 参考文献24第一章 引言1.1 设计目的：数据

5、库技术及应用课程设计是我校信息管理与信息系统专业（本科）教学大纲要求的重要实践性环节之一，是学习完数据库技术及应用课程后进行的一次全面的综合练习。其目的在于：配合数据库技术及应用课程的教学，使学生能巩固和加深对数据库基础理论和基本知识的理解；掌握使用数据库进行软件设计的基本思想和方法；提高学生运用数据库理论解决实际问题的能力；培养学生调查研究、查阅技术文献、资料、手册以及编写技术文献的能力。1.2 设计要求：通过调查本地的企业，根据企业的具体情况设计企业人事管理系统。主要功能有：1） 人事档案管理；2） 考勤加班出差管理；3） 人事变动；4） 考核奖惩；5） 员工培训；6） 系统维护；1.3

6、设计环境：以SQL Server 2008作为后台数据库，以VB 6.0 、VC6.0或其它开发工具作为前台开发工具，完成一个小型数据库应用系统的设计开发。1.4 同组人员： 计算机科学与技术 2班 李发万 第二章 概要设计2.1系统需求分析：系统为人事管理系统，用户可以通过数据库管理员帐号登入，进行本系统的一些基本操作，对数据库的添加以及修改；在信息管理模块中可以查询公司员工的基本信息，也可对其进行修改，删除；人员管理、合同管理等其他的一些管理模块都具有以上信息管理的功能；在查询管理中亦可查询出公司所有人员的一些基本信息，这是本系统为用户提供的方便、快捷的服务，不至于用户在其他各个模块中来来

7、复复查询。数据库模式E-R图如下：.户人事档案员工号姓名性别户籍生理状况政治面貌合同管理图2.1.1 人事档案E-R图考勤管理员工号缺勤加班出差图2.1.2 考勤管理1E-R图人事变更管理员工号当前职务人事变更员工培训图2.1.3 人事变动E-R图奖惩管理员工号奖惩图2.1.4 奖惩管理E-R图2.2 系统结构设计：1.人事档案管理：户口状况、政治面貌、生理状况、合同管理等；2.考勤加班出差管理：员工号，考勤，加班，出差；3.人事变动：新进员工登记、员工离职登记、人事变更记录、员工培训；4.考核奖惩：奖励，惩罚；5.系统维护：如数据安全管理（含备份与恢复）、操作员管理、权限设置等；2.3 功能

8、模块设计：开始登入界面人事档案考勤管理人事变动考核奖罚员工培训系统维护退出查询修改图 功能模块设计图第三章 详细设计一、系统数据库设计数据库名称：企业人事管理系统系统表：人事档案、考勤管理、人事变更管理、奖惩管理、管理员；关系模式：人事档案：员工号、姓名、性别、户籍、政治面貌、生理状况、合同管理；考勤管理：员工号、缺勤、加班、出差；人事变更管理：员工号、当前职务、人事变更、员工培训；奖惩管理：员工号、奖惩；管理员：name、password；数据库设计图如下：图3.1.1 管理员表设计图图 奖惩管理表设计图图 考勤管理表设计图图 人事变更管理表设计图图3.1.5 人事档案表设计图二、系统主要功

9、能模块设计在功能模块设计中有本系统的详细构造，在信息模块中我们添加了三个基本控件，分别是“查询”、“退出”、“修改”，通过输入查询的条件和查询字段，点击“查询”按纽开始查询。所查询的数据都是来自后台的数据库系统，从中我们便可以很清楚的知道你所要查询对象的一些数据。同样，通过出入要修改的条件和字段，点击“修改”按钮开始修改数据。三、各模块的主要算法对应的原代码图3.3.1 welcome界面运行图开始界面（代码）:Private Sub Command1_Click()Welcome.HidefrmLogin.ShowEnd SubPrivate Sub Command2_Click()Dim

10、aa = MsgBox(是否要退出企业人事管理系统？ , vbYesNo, 提示 )If a = vbYes Then EndElse Exit SubEnd IfEnd Sub图3.3.2 登陆界面运行图登陆界面（代码）：Option ExplicitPublic LoginSucceeded As BooleanPrivate Sub cmdCancel_Click()Dim aa = MsgBox(是否要退出企业人事管理系统？ , vbYesNo, 提示 )If a = vbYes Then EndElse Exit SubEnd IfEnd SubPrivate Sub cmdOK_C

11、lick()Dim r As IntegerDim rr As Integer 判断用户名是否为空 If Me.txtUserName.Text = Then r = MsgBox(请输入用户名！, , 提示) txtUserName.SetFocus Exit Sub End If 判断密码是否为空 If Me.txtPassword.Text = Then rr = MsgBox(请输入密码！, , 提示) txtPassword.SetFocus Exit Sub End If 连接数据库 Dim cn As New ADODB.Connection Dim rs As New ADOD

12、B.Recordset cn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=企业人事管理系统;Data Source=CODE-PC Set rs = New ADODB.Recordset Dim s1_Sql As String 判断用户是否存在 s1_Sql = SELECT * FROM 管理员 WHERE name= & Trim(txtUserName.Text) & and password= & Trim(Me.txtPassword.T

13、ext) & rs.Open s1_Sql, cn, adOpenStatic, adLockOptimistic On Error Resume Next rs.MoveFirst 移到第一条记录 If Err = 3021 Then r = MsgBox(用户名或密码错误，请重新检查！, , 提示) 加一个错误处理 Exit Sub End If menu.Show Unload MeEnd Sub图3.3.3 菜单界面运行图菜单界面（代码）：Private Sub Command2_Click()menu.Hide人事档案.ShowEnd SubPrivate Sub Command3_

14、Click()menu.Hide奖惩管理.ShowEnd SubPrivate Sub Command4_Click()menu.Hide人事管理.ShowEnd SubPrivate Sub Form_Load() Picture1.AutoRedraw = True Me.Picture1.Picture = LoadPicture(C:UserscodePictures额62062d82jw1dmr2zg14u8j.jpg) Picture1.Print hello SavePicture Me.Picture1.Image, C:UserscodePictures额123312.jpg

15、End SubPrivate Sub Command1_Click()menu.Hide考勤管理.ShowEnd SubPrivate Sub Command5_Click()Dim aa = MsgBox(是否要退出企业人事管理系统？ , vbYesNo, 提示 )If a = vbYes Then EndElse Exit SubEnd IfEnd Sub图3.3.4 考勤管理界面运行图考勤界面（代码）：Private Sub cmbField_Click()cmbName.ClearAdodc1.RecordSource = select * from 考勤管理Adodc1.Refres

16、hcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)LoopcmbName.Text = cmbName.List(0)End SubPrivate Sub cmbName_Click()Dim conditionAdodc1.Refreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 考勤管理 where & condition & = & cmbName.Text & ElseAdodc

17、1.RecordSource = select * from 考勤管理 where & condition & = & cmbName.TextEnd IfAdodc1.Refresh缺勤.Text = Adodc1.Recordset.Fields(缺勤)加班.Text = Adodc1.Recordset.Fields(加班)出差.Text = Adodc1.Recordset.Fields(出差)员工号.Text = Adodc1.Recordset.Fields(员工号)End SubPrivate Sub cmdedit_Click()On Error GoTo errorhandl

18、erIf 员工号.Text ThenAdodc1.RecordSource = select * from 考勤管理 where 员工号= & 员工号.Text & Adodc1.RefreshAdodc1.Recordset.Fields(员工号) = 员工号.TextAdodc1.Recordset.Fields(缺勤) = 缺勤.TextAdodc1.Recordset.Fields(加班) = 加班.TextAdodc1.Recordset.Fields(出差) = 出差.TextElseMsgBox (员工号是主索引，不能为空 & 错误提示)End IfExit Suberrorha

19、ndler:MsgBox (员工号是主索引，不能重复 & 错误提示)End SubPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSource = select * from 考勤管理Adodc1.RefreshSet DataGrid1.DataSource = Adodc1cmbField.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1cmbField.AddItem Adodc1.Recordset.Fields(i).NameNext icmbField.Text = cmb

20、Field.List(0)End SubPrivate Sub Command1_Click()考勤管理.Hidemenu.ShowEnd Sub图3.3.5 人事档案管理界面运行图人事档案管理界面（代码）：Private Sub cmbField_Click()cmbName.ClearAdodc1.RecordSource = select * from 人事档案Adodc1.RefreshcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)LoopcmbName.Text = cmbName.List(0)End SubPrivat

21、e Sub cmbName_Click()Dim conditionAdodc1.Refreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 人事档案 where & condition & = & cmbName.Text & ElseAdodc1.RecordSource = select * from 人事档案 where & condition & = & cmbName.TextEnd IfAdodc1.Refresh员工号.Text =

22、 Adodc1.Recordset.Fields(员工号)姓名.Text = Adodc1.Recordset.Fields(姓名)性别.Text = Adodc1.Recordset.Fields(性别)年龄.Text = Adodc1.Recordset.Fields(年龄)户籍.Text = Adodc1.Recordset.Fields(户籍)政治面貌.Text = Adodc1.Recordset.Fields(政治面貌)生理状况.Text = Adodc1.Recordset.Fields(生理状况)合同管理.Text = Adodc1.Recordset.Fields(合同管理)

23、End SubPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSource = select * from 人事档案Adodc1.RefreshSet DataGrid1.DataSource = Adodc1cmbField.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1cmbField.AddItem Adodc1.Recordset.Fields(i).NameNext icmbField.Text = cmbField.List(0)End SubPrivate Sub cm

24、dadd_Click()On Error GoTo errorhandlerIf 员工号.Text ThenAdodc1.Recordset.Fields(员工号) = 员工号.TextAdodc1.Recordset.Fields(姓名) = 姓名.TextAdodc1.Recordset.Fields(性别) = 性别.TextAdodc1.Recordset.Fields(年龄) = 年龄.TextAdodc1.Recordset.Fields(户籍) = 户籍.TextAdodc1.Recordset.Fields(政治面貌) = 政治面貌.TextAdodc1.Recordset.F

25、ields(生理状况) = 生理状况.TextAdodc1.Recordset.Fields(合同管理) = 合同管理.TextcmbName.ClearAdodc1.RecordSource = select * from 人事档案Adodc1.RefreshcmbName.AddItem Adodc1.Recordset.Fields(1)LoopcmbField_Clickcmdclear_ClickElseMsgBox 员工号是主索引，不能为空, vbInformation, 错误提示End IfExit Suberrorhandler:MsgBox 员工号是主索引，不能重复, vbI

26、nformation, 错误提示End SubPrivate Sub cmddel_Click()If 员工号.Text ThenAdodc1.RecordSource = select * from 人事档案 where 员工号 = & 员工号.Text & Adodc1.RefreshcmbName.ClearcmbField_ClickEnd IfEnd SubPrivate Sub cmdedit_Click()On Error GoTo errorhandlerIf 员工号.Text ThenAdodc1.RecordSource = select * from 人事档案 where

27、 员工号= & 员工号.Text & Adodc1.RefreshAdodc1.Recordset.Fields(员工号) = 员工号.TextAdodc1.Recordset.Fields(姓名) = 姓名.TextAdodc1.Recordset.Fields(性别) = 性别.TextAdodc1.Recordset.Fields(年龄) = 年龄.TextAdodc1.Recordset.Fields(户籍) = 户籍.TextAdodc1.Recordset.Fields(政治面貌) = 政治面貌.TextAdodc1.Recordset.Fields(生理状况) = 生理状况.Te

28、xtAdodc1.Recordset.Fields(合同管理) = 合同管理.TextElseMsgBox (员工号是主索引，不能为空 & 错误提示)End IfExit Suberrorhandler:MsgBox (员工号是主索引，不能重复 & 错误提示)End SubPrivate Sub Command5_Click()人事档案.Hidemenu.ShowEnd Sub图3.3.6 奖惩管理界面运行图奖惩管理界面（代码）：Private Sub Command1_Click()奖惩管理.Hidemenu.ShowEnd SubPrivate Sub cmbField_Click()cm

29、bName.ClearAdodc1.RecordSource = select * from 奖惩管理Adodc1.RefreshcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)LoopcmbName.Text = cmbName.List(0)End SubPrivate Sub cmbName_Click()Dim conditionAdodc1.Refreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = sel

30、ect * from 奖惩管理 where & condition & = & cmbName.Text & ElseAdodc1.RecordSource = select * from 奖惩管理 where & condition & = & cmbName.TextEnd IfAdodc1.Refresh奖惩.Text = Adodc1.Recordset.Fields(奖惩)员工号.Text = Adodc1.Recordset.Fields(员工号)End SubPrivate Sub cmdedit_Click()On Error GoTo errorhandlerIf 员工号.T

31、ext ThenAdodc1.RecordSource = select * from 奖惩管理 where 员工号= & 员工号.Text & Adodc1.RefreshAdodc1.Recordset.Fields(员工号) = 员工号.TextAdodc1.Recordset.Fields(奖惩) = 奖惩.TextElseMsgBox (员工号是主索引，不能为空 & 错误提示)End IfExit Suberrorhandler:MsgBox (员工号是主索引，不能重复 & 错误提示)End SubPrivate Sub Command2_Click()考勤管理.ShowEnd Su

32、bPrivate Sub Form_Load()Dim i As IntegerAdodc1.RecordSource = select * from 奖惩管理Adodc1.RefreshSet DataGrid1.DataSource = Adodc1cmbField.ClearFor i = 0 To Adodc1.Recordset.Fields.Count - 1cmbField.AddItem Adodc1.Recordset.Fields(i).NameNext icmbField.Text = cmbField.List(0)End Sub图3.3.7 人事管理界面运行图人事管理

33、界面（代码）：Private Sub Command1_Click()人事管理.Hidemenu.ShowEnd SubPrivate Sub cmbField_Click()cmbName.ClearAdodc1.RecordSource = select * from 人事变更管理Adodc1.RefreshcmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)LoopcmbName.Text = cmbName.List(0)End SubPrivate Sub cmbName_Click()Dim conditionAdodc1.R

34、efreshcondition = Trim(cmbField.Text)If VarType(condition) = 8 ThenAdodc1.RecordSource = select * from 人事变更管理 where & condition & = & cmbName.Text & ElseAdodc1.RecordSource = select * from 考勤管理 where & condition & = & cmbName.TextEnd IfAdodc1.Refresh员工号.Text = Adodc1.Recordset.Fields(员工号)当前职务.Text =

35、 Adodc1.Recordset.Fields(当前职务)人事变更.Text = Adodc1.Recordset.Fields(人事变更)员工培训.Text = Adodc1.Recordset.Fields(员工培训)End SubPrivate Sub cmdedit_Click()On Error GoTo errorhandlerIf 员工号.Text ThenAdodc1.RecordSource = select * from 人事变更管理 where 员工号= & 员工号.Text & Adodc1.RefreshAdodc1.Recordset.Fields(员工号) = 员工号.TextAdodc1.Recordset.Fields(当前职务) = 当前职务.TextAdodc1.Recordset.Fields(人事变更) = 人事变更.TextAdodc1.Recordset.Fields(员工培训) = 员工培训.TextElseMsgBox (员工号是主索引，不能为空 & 错误提示)End IfExit Suberrorhandler:MsgBox (员工号是主索引，不能重复 & 错误提示)End SubPriv