VB课程设计人力资源管理系统最终版1.docx
《VB课程设计人力资源管理系统最终版1.docx》由会员分享，可在线阅读，更多相关《VB课程设计人力资源管理系统最终版1.docx（40页珍藏版）》请在冰豆网上搜索。
VB课程设计人力资源管理系统最终版1
人力资源管理系统
1.设计目的
21世纪,高新技术的超速发展和全球化的市场经济导致企业之间的竞争空前激烈,但归根结底是人才的竞争,谁能有效地管理和开发人力资源,谁就能掌握知识经济时代的生产力，几乎所有的企业管理者都意识到人力资源是企业最重要最宝贵的资源。
然而,如何开发和管理人力资源,使其转化为一种现实的劳动生产力,则是众多管理者的盲点。
看似简单的人力资源管理,其实蕴涵了极为丰富的内涵。
通过对人力资源的规划、招聘、考核、培训、激励等一系列的手段,充分挖掘员工的潜力,提高他们对企业的认同感和责任感.只有这样,才能使企业拥有不断创新的活力,保证其在研发、生产、营销等各方面的领先地位,最终赢得市场的认可。
随着人力资源部门工作范围的日益扩展,人力资源经理专业要求的日益提升,使得计算机等先进技术手段的作用日益显现。
因此,开发人力资源管理系统是非常有必要的,它不仅能够完成日常繁琐的业务,而且可以准确及时地搜集各种人力资源信息以供管理者进行决策，这个系统要实现的功能包括以下几个部分，部门的添加，更改和删除，员工的信息管理，员工信息统计管理。
2.功能介绍
2.1系统功能模块划分
人力资源管理系统完成的任务虽然随着企业的不同而有所差异,但对其任务进行归纳和划分后可将系统分为几个共同的功能需求模块,人力资源管理系统主要功能需求为下列六大部分,每个部分具体的功能需求如下：
（1）部门编制管理部分：
可以进行设置、修改、删除、查看企业的组织部门信息。
（2）员工信息管理部分：
可以进行增加、修改、删除、查询企业的职员各种信息。
（3）员工信息统计部门：
可以对员工信息进行图表化的显示。
2.2系统数据库设计
（1）系统数据结构设计
针对人力资源管理系统的需求，为本系统设计如下的数据项和数据结构：
部门表结构如表1所示。
表1部门表结构表
字段
类型
长度
说明
部门序号
数字
长整型
主键
部门名称
文本
50
允许为空
业务描述
文本
50
允许为空
用户密码表结构如表2所示。
表2户密码表结构表
字段
类型
长度
说明
用户名
文本
50
主键
密码
文本
50
不允许为空
员工个人信息表结构如表3所示。
表3员工个人信息表结构表
字段
类型
长度
说明
工作证号
数字
长整型
主键
姓名
文本
50
允许为空
所属部门
文本
50
允许为空
身份证号
文本
50
允许为空
性别
文本
50
允许为空
民族
文本
50
允许为空
出生日期
日期/时间
允许为空
文化程度
文本
50
允许为空
户口所在地
文本
50
允许为空
移动电话
文本
50
允许为空
照片
文本
50
允许为空
员工考勤表结构如表4所示。
表4员工考勤表结构表
字段
类型
长度
说明
编号
数字
双精度型
主键
部门名称
文本
20
允许为空
姓名
文本
20
允许为空
工作证号
数字
双精度
允许为空
全勤
文本
10
允许为空
事假
文本
10
允许为空
病假
文本
10
允许为空
员工信息表结构如表5所示。
表5员工信息表结构表
字段
类型
长度
说明
工作证号
数字
长整型
主键
员工姓名
文本
20
允许为空
所属部门
文本
20
允许为空
到岗日期
日期/时间
允许为空
职务
文本
50
允许为空
办公电话
文本
50
允许为空
政治面貌
文本
50
允许为空
合同有效期
文本
50
允许为空
工资
数字
长整型
允许为空
奖金
数字
长整型
允许为空
（2）建立数据库
运行Access2003，建立一个空数据库，命名为人力资源管理数据库，操作界面如图1所示。
图1建立Access数据库界面图
通过设计器创建表，并插入数据在数据库的设计中，共设计了五张表。
其中包括员工信息表，密码表，部门表，员工个人信息表和员工考勤表。
部门表中设置了三个字段，分别为部门序号、部门名称和业务描述。
密码表中设置了两个字段，分别为用户名和密码。
员工个人信息表中设置了10个字段，分别为姓名、所属部门、身份证号、性别、民族、出生日期、文化程度、户口所在地、移动电话、照片。
员工考勤表中设置了7个字段，分别为编号部门名称、姓名、工作证号、全勤、事假、病假。
员工信息表中共设置了10个字段，其中包括：
工作证号、员工姓名、所属部门、到岗日期、职务、办公电话、政治面貌、合同有效期、工资、奖金。
（3）连接数据库
单击菜单“工程”，在部件对话框中，添加控件“MicrosoftADODataControl6.0”,然后点击确定按钮，具体操作对话框如图2所示。
在窗体上添加Adodc数据控件，右击Adodc，在属性窗口中，首先选择“通用”选项卡，并选择“连接字符串”，单击“生成”按钮，如图3所示。
在“提供者”选项卡中，选择“MicrosoftJet4.0OLEDBProvider”，如图4所示。
单击“测试连接”按钮。
如果显示“测试连接成功”消息框，则表示连接成功，如图5所示。
图2添加“MicrosoftADODataControl6.0”图
图3ADODC属性界面
图4添加“MicrosoftJet4.0OLEDBProvider”图
图5测试连接成功图
3.详细设计
3.1系统功能模块图
图6系统功能模块图
3.2登录模块设计
登录模块的详细设计主要是用户登录的一个界面，进入后将面对的是主界面，从而进行相关的操作。
登录的界面主要由用户名和密码的信息，确定和取消的按钮组成。
通过标题可以知道此系统的大概内容，由此，登录界面的设计完成，如图7所示。
图7登陆界面图
登陆界面窗体的控件如表6所示。
表6登录窗体控件表
控件类别
控件Name
控件Text
Label
Label1
用户名
Label2
密码
TextBox
Text1
（空）
Text2
（空）
CommandButton
Command1
确定
Command2
退出
Adodc
Adodc1
（空）
3.3“主窗体”模块详细设计
主窗体是整个系统的运行的基础。
主控制平台使用简单直观的布局，它主要实现对模块的调用和显示，提供了菜单的操作方式，对各个模块进行调用和显示，如图8所示。
图8主窗体
主窗体的菜单由菜单编辑器编辑完成，分为4个顶级菜单和若干个子菜单，具体菜单如表7所示。
表7主窗体菜单明细表
菜单名称
Text属性
功能描述
MenuItem1
基本信息管理
顶级菜单，包含子菜单
MenuItem2
部门管理
调出部门管理窗体
MenuItem3
员工管理
调出员工管理窗体
MenuItem4
退出系统
退出系统
MenuItem5
考勤考评管理
顶级菜单，包含子菜单
MenuItem6
考勤管理
调出考勤管理窗体
MenuItem7
员工信息统计
顶级菜单
MenuItem8
系统用户管理
顶级菜单，包含子菜单
MenuItem9
用户管理
调出用户管理窗体
MenuItem10
修改密码
调出修改密码窗体
3.4各项子模块详细设计
（1）基本信息管理模块
基本信息管理中又包含部门管理和员工管理两个窗体。
在基本信息管理模块中主要对员工信息和部门信息进行输入和管理，并能进行查询。
在部门管理中，主要对部门的信息进行管理，可以对部门信息进行添加，修改查找和删除的操作。
操作完成后，通过“返回”回到主界面,如图9所示。
图9部门管理模块设计图
部门管理模块窗体的控件如表8所示。
表8部门管理模块窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
添加
Command2
查找
Command3
删除
Command4
返回
Frame
Frame1
（空）
Label
Label1
部门信息
DataGrid
DataGrid1
（空）
Adodc
Adodc1
（空）
在员工信息中，可以对员工的信息进行浏览，添加，修改，查找和删除资料。
并且可以通过这个界面进如部门调转和详细个人信息界面。
其中，个人详细信息与列表中的员工信息是绑定的，当选定一个员工的信息，然后点击个人详细信息，即可显示这个员工的信息。
同时，左侧的所属部门的框中的部门信息与员工信息也是绑定的，可以通过所属部门框对员工信息进行分类查询，如图10所示。
图10员工管理模块设计图
员工管理模块窗体的控件如表9所示。
表9员工管理模块窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
详细个人信息
Command2
添加员工
Command3
查找
Command4
删除资料
Command5
部门调转
Command6
返回
Label
Label1
所属部门
Label2
员工信息
DataList
DataList1
（空）
DataGrid
DataGrid1
（空）
Adodc
Adodc1
（空）
Adodc
Adodc2
（空）
详细个人信息是每个员工的个人信息，在这个窗体中，显示与个人信息有关的内容，详细个人信息与员工信息绑定，通过员工信息窗体，可以直接显示对应的员工个人信息，不用再进行查询。
当需要添加个人信息时，点击添加按钮即可添加，点击确定保存道数据库。
对相片可以进行修改或者是添加，当点击“添加”按钮时，弹出一个文件操作的对话框，选定添加后，单击保存进行保存到数据库的操作，如图11所示。
图11员工个人信息窗体设计图
员工个人信息窗体的控件如表10所示。
表10员工个人信息窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
添加
Command2
保存
Command3
返回
Command4
添加
Command5
确定
TextBox
Text1
（空）
Text2
（空）
Text3
（空）
Text4
（空）
Text5
（空）
Text6
（空）
Text7
（空）
Text8
（空）
Text9
（空）
Text10
（空）
Label
Label1
员工个人详细信息
Label2
工作证号
Image
Image1
（空）
CommonDialog
CommonDialog1
（空）
Adodc
Adodc1
（空）
部门调转窗体可以实现对员工的工作岗位发生变化时进行部门信息的调转。
在部门调转窗体中，可以输入员工编号进行查找，当查找到相应的员工时，该员工的部分信息将会在下面的文本框中显示，以确认查找的结果，防止错误操作。
当查找到员工时，从“调转到”后面的选择下拉框中选择所要调转到的部门，点击确定即可，如图12所示。
图12部门调转窗体设计图
部门调转窗体的控件如表11所示。
表11部门调转窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
查找
Command2
返回
Command3
确定
Label
Label1
输入员工姓名
Label2
员工姓名
Label3
现在部门
Label4
调转到
DataCombo
DataCombo1
（空）
Adodc
Adodc1
（空）
Adodc2
（空）
（2）考勤管理窗体
在考勤管理窗体中。
可以实现对员工的考勤状况的显示，查询，添加，修改，删除，报表等功能。
在窗体中，可以通过员工姓名和部门名称两种查询方式进行查询。
当要选择进行某种查询时，选择对应选择框前面的按钮，即可通过后面的下拉选择框进行选择，点击查询即可进行查询,如图13所示。
图13考勤管理窗体设计图
考勤管理窗体控件如表12所示。
表12考勤管理窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
查询
Command2
添加
Command3
修改
Command4
删除
Command5
保存
Command6
返回
Command7
生成报表
Option
Option1
选择员工姓名
Option2
选择部门姓名
ComboBox
Combo
（空）
DataGrid
DataGrid
（空）
Frame
Frame
（空）
Adodc
Adodc1
（空）
（3）系统用户管理模块
在系统用户管理模块中有两个窗体，分别为用户管理和修改密码。
在用户管理模块中可以对系统用户进行添加用户和用户的密码修改操作。
用户管理窗体中，可以进行添加用户的操作。
在输入密码时，两次输入的密码要相同，不同的话系统会进行提示，必须进行再次输入。
完成后点击“确定”如图14所示。
图14用户管理窗体
用户管理窗体的控件如表13所示。
表13用户管理窗体控件表
控件类别
控件Name
控件Text
CommandButton
Command1
确定
Command2
返回
Label
Label1
员工姓名
Label2
请输入密码
Label3
再次输入密码
TextBox
Text1
（空）
Text2
（空）
Text3
（空）
Frame
Frame1
（空）
Adodc
Adodc1
（空）
修改密码窗体中，可以对当前用户的密码进行修改。
同时，两次输入的密码应该一致，不一致的话，系统会给出提示，并要求重新输入。
完成后点击“确定”。
当修改成功时，系统会给出修改成功的提示如图15所示。
图15修改密码窗体
修改密码窗体的控件如表14所示。
表14修改密码窗体控件如表
控件类别
控件Name
控件Text
CommandButton
Command1
确定
Command2
返回
Label
Label1
输入新密码
Label2
再次输入密码
TextBox
Text1
（空）
Text2
（空）
Frame
Frame1
（空）
Adodc
Adodc1
（空）
3.5系统运行及结果
在系统登录界面中输入用户名和密码，点击确实进入人力资源管理系统如图16所示。
图16系统登陆界面输入用户名和密码图
点击确定以后进入系统的主界面如图17所示
图17系统主界面图
选择基本信息管理顶级菜单中的部门管理子菜单如图18所示。
图18部门管理界面
点击查找后，弹出让用户输入部门序号进行查找的对话框，如图19所示。
图19查找对话框
点击添加后系统会自动在底端插入一行表格供用户添加部门信息使用，如图20所示。
图20添加部门信息界面
点击返回，返回主界面，然后选择基本信息管理中的员工管理子菜单，如图21所示。
图21员工管理界面
点击详细个人信息，可以显示员工的详细信息，如图22所示。
图22员工详细信息界面
点击返回，返回到员工管理界面，员工管理界面和部门管理界面一样可以进行添加、删除、和查找的操作。
点击调转部门，然后输入员工编号点击查找，显示出该编号员工的姓名和现部门，然后可以选择把该员工调到其他部门，然后点击确定就实现了员工的调转部门操作，如图23所示。
图23调转部门界面
返回到主界面后，选择考勤管理菜单，如图24所示。
图24考勤管理界面
按选择员工姓名查询，先选中选择员工姓名单选框，然后选择一个员工进行查询，如图25所示。
图25查询员工考勤情况界面
返回主界面后选择员工信息统计中的员工工资统计，如图26所示系统以柱状图呈现给用户。
图26员工工资统计图
然后选择员工学历组成比例统计，如图27所示系统以饼状图呈现给用户。
图27员工学历组成比例统计图
选择修改密码子菜单后，输入新密码，可以修改系统用户的密码如图28所示。
图28修改密码界面
4.心得体会
我们组这次设计的程序是员工系统，主要用于企事业单位的考勤，便于统计员工的出勤情况。
1．通过这一次的程序设计，使我能够进一步掌握用VB程序设计语言解决实际问题的方法，在操作当中把所学到的用于实际的编程里面去。
2．通过这一次的程序设计，使我能够提高分析问题、查阅资料、吸收新知识的能力，在分析解决问题时比以前有了很大的进步，一些常用的知识和一些常规的错误都能够解决。
3．通过这一次的程序设计和指导教师姜瑶老师的指导使我能够进一步对VB有了熟练的操作，并且在分析，编程方面比以前有了更大的提高。
4．我认为实践周的程序设计是给我们学习的一个大好机会，使我们在这样的机会里学到了一定的知识，毕竟理论要通过实践来锻炼，也只有自己参与了这样的一个锻炼，才能更好的发现自己的不足并加以改进和完善！
在这次的设计过程中，我学到的不仅是知识，我还认识到许多事情。
这次设计使我的编程水平提高了一大步，使我充分的认识到合作的可贵。
由于这次设计涉及到数据库，我也学到了不少数据库连接的知识，对数据库的操作有了进一步的了解。
这次设计对我的综合能力是一次很好的锻炼，但是我必须承认自己的能力和知识还很肤浅。
所以今后我的学习道路还是很漫长的。
最后，在这里我要衷心的感谢我们的指导老师谢谢她的耐心指导和热心帮助。
由于我水平有限，加之时间短暂，故学习数据库系统中还有许多不足之处，请老师批评指正，我会在以后的制作中不断改进，不断完善。
12：
91—150
[3]正阿奇VB实用教程[M].北京：
电子工业出版社，2000,4：
88-125
[4]郭安源教育信息化系统开发[M].北京：
人民邮电出版社，2002,5：
220-280
[5]刘天惠.VisualBasic程序设计教程[M].清华大学出版社,2006.2：
165-224
6.附录
（1）登陆窗体源代码：
Adodc1.Recordset.Find"用户名='"&Text1.Text&"'",,1
IfAdodc1.Recordset.EOFThen
MsgBox"没有此用户，请重新输入!
",,"提示"
Text1.SetFocus
Else
IfTrim（Adodc1.Recordset.Fields（"密码"））=Trim（Text2.Text）Then
userID=Text1.Text
Adodc1.Recordset.MoveFirst
UnloadMe
Form1.Show
Else
MsgBox"密码不正确！
请重新输入！
",vbOKOnly+vbExclamation,""
Text2.SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click（）
End
EndSub
PrivateSubForm_Load（）
DimaAsString
Adodc1.ConnectionString="provider=Microsoft.Jet.oledb.4.0;"&_
"datasource=renliziyuan.mdb"
Adodc1.RecordSource="密码"
cnt=0
Text2.PasswordChar="@"
EndSub
（2）主窗体源代码：
PrivateSubbmgl_Click（）
Form1.Hide
form2.Show
EndSub
PrivateSubgztj_Click（）
EndSub
PrivateSubkqgl_Click（）
Form11.Show
EndSub
PrivateSubtc_Click（）
End
EndSub
PrivateSubxgmm_Click（）
Form9.Show
EndSub
PrivateSubyggl_Click（）
Form1.Hide
Form3.Show
EndSub
PrivateSubygxxtj_Click（）
Form10.Show
EndSub
PrivateSubyhgl_Click（）
Form8.Show
EndSub
（3）部门管理窗体源代码：
PrivateSubcommand1_Click（）
Adodc1.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
DimmAsString
m=InputBox（"请输入部门序号","查找窗"）
Adodc1.Recordset.Find"部门序号='"&m&"'",,,1
IfAdodc1.Recordset.EOFThenMsgBox"无次部门！
",,"提示"
EndSub
PrivateSubCommand3_Click（）
ask=MsgBox（"是否删除？
",vbYesNo）
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
EndSub
PrivateSubCommand4_Click（）
Adodc1.Recordset.Update
Form1.Show
form2.Hide
EndSub
（4）员工管理窗体源代码：
PrivateSubcommand1_Click（）
Adodc2.Recordset.AddNew
EndSub
PrivateSubCommand2_Click（）
DimmAsString
m=InputBox（"请输入员工号","查找窗"）
Adodc2.Recordset.Find"工作证号='"&m&"'",,,1
IfAdodc2.Recordset.EOFThenMsgBox"无此员工！
",,"提示"
EndSub
PrivateSubCommand3_Click（）
ask=MsgBox
升级会员 