人力资源管理课程设计报告.doc

课程设计
题 目 长虹桂林分公司人力资源管理信息系统设计
目录
0引言 1
1系统概况 2
1。1系统应用背景介绍 2
1。2系体功能分析 2
1。3系统模块设计 2
1.3.1人事管理功能模块 3
1.3。2考勤管理功能模块 3
1.3。3招聘管理功能模块 3
1.3.4工资管理功能模块 3
1.3。5培训管理功能模块 3
1。3.6系统维护功能模块 3
2数据库设计 7
2。1定义数据库 7
2.2定义业务规则 7
2。3定义域 8
2.4创建表格/字段 8
2.4。1缺勤类型表 8
2。4。2津贴表 8
2.4。3考勤表 9
2.4.4部门表 9
2。4。5岗位表 10
2.4。6医疗保险表 10
2.4。7月工资表 11
2。4.8培训表 11
2。4。9培训教师表 12
2.4。10课目表 12
2。4。11员工表 12
2。4.12年终奖表 13
2.4。13用户权限表 14
2。4。14用户具体权限表 14
2。4。15权限细则表 14
3程序预览 14
4代码分析 26
5设计总结 32
参考文献 32
20

长虹桂林分公司人力资源管理信息系统设计
摘要:人事管理系统是一套功能强大、操作简单而又实用的人事管理软件，包括人事管理、考勤管理、工资管理、招聘管理、培训管理及系统维护六大管理功能.本系统在功能设计上具有前瞻性,对国际上先进的人事管理思想加以吸收、借鉴，以适应客户不断提高的要求，增强人事管理企业的核心竞争力.主要帮助实现人员基本信息的数据输入和规范化管理,合企业高效率地完成劳动人事管理的日常业务.
关键词：人事管理 长虹 SQL
0引言
21世纪的竞争是人才的竞争，拥有优秀的人才是企业成功的基础,因此人力资源可以说是企业最重要的资源。人力资源的管理也成为关系到企业兴衰的战略性工作。虽然市场上提供了不少人力资源管理的独立软件，但都未与企业的ERP系统集成。将人力资源作为ERP系统的一个部分，可以全方位地对企业人力资源进行有效的绩效评估，同时可以方便地为产品的成本提供人工费用，提高人力资源管理的信息共享程度,加快信息的提取和统计。下面将详细地分析一个完整的具有商业竞争力的人事管理系统的实施,并讲述该程序实施的整个过程,包括需求分析、系统框架，系统建模、数据库建模、程序实现和项目实施等。
1系统概况
1.1系统应用背景介绍
本系统是为企业人事管理提供现代化技术支持的管理信息系统,该系统包括了员工管理、部门管理、用户管理、招聘管理等主要模块。其图形用户界面利用DELPHI进行开发，后台数据库使用SQL SERVER 2000，采用ADO数据访问方式.本文针对具体项目展开研究,首先进行需求分析、模块划分，对实施该课题的方案进行论证。然后对整个系统进行了详细的分析和设计，结合源代码详细的描述出整个项目的开发过程，最后对系统进行了功能测试。
本课题的实施将会促进企业的无纸化办公，避免人工管理中出现各种差错，提高企业管理效率，使得管理者能够更加方便的了解到企业内部人事状况。
人事管理系统是一套功能强大、操作简单而又实用的人事管理软件，包括人事管理、考勤管理、工资管理、招聘管理、培训管理及系统维护六大管理功能。本系统在功能设计上具有前瞻性，对国际上先进的人事管理思想加以吸收、借鉴，以适应客户不断提高的要求,增强人事管理企业的核心竞争力.主要帮助实现人员基本信息的数据输入和规范化管理,合企业高效率地完成劳动人事管理的日常业务。
本系统主要适用于中小型企业的人事管理。本系统集成了各类型人事管理软件的功能和特点来构建系统框架,因此整个系统具有的灵活性和可扩展性，能够满足客户在人事管理方面更多个性化的需求.
1.2系体功能分析
人事管理包含的功能较多，其中一些过程如招聘较为复杂，随着员工数量的增加,人事管理者所需要处理的信息量大幅上升，因此往往很难及时准确地掌握整个企业的员工信息.针对这一情况，提出开发人事管理信息系统的任务。
主发是为了实现企业的人事管理系统化、规范化和自动化,为产品的成本减少人工费用,提高人力资源管理的信息共享程度，加快信息的提取的系统。
开发意图：
为人事管理提高效率、降低成本；实现人事管理的优化,达到物流和信息流的畅通无阻；进而提供更多增值性服务，提高客户满意度。
在满足人事管理的基本功能基础上注意发挥信息系统的智能化,减轻人事管理人员和操作人员的工作负担。
1.3系统模块设计
本系统是一种功能比较完善的人事管理软件,对人事管理维护过程中的数据可以随时输入、输出、查找、报表和打印等。
需求分析是一个管理系统成功实施的基础，只有弄清楚客户的需求,才能真正开发出满足客户需求的信息系统,也才能够让整个系统发挥其应有的作用.下面就针对人事管理的总体需求做一个分析，可能有些客户有其特殊的需求，可在实际开发中继续完善。
1.3。1人事管理功能模块
主要实现人员基本信息的数据输入和规范化管理，使企业高效率地完成劳动人事管理 的日常业务，比如建立人事基本档案、离退人员档案、员工生日及合同等提醒、进行人力资源测评与分析、工服领用和文具领用等。
1.3。2考勤管理功能模块
主要实现企业的考勤管理系统化、规范化和自动化,收集时间数据,自动地对数据进行分析和处理，如计划缺使用选区勤时间、加班时间、休假时间等，通知员工以进行核对和修改，并能对员工进行休假管理。
1。3。3招聘管理功能模块
主要帮助管理者开展招聘工作,包括在因特网、报纸、杂志上动态地发布招聘广告，查询应聘情况,对应聘人员与招聘条件作比较,筛选应聘人员,自动产生录用通知书，对有关的招聘事务自动生成E-mail、传真及各种信件。
1.3。4工资管理功能模块
主要包括两方面的内容，一是工资核算，如工资计算，个人所得税、养老及医疗保险计算,住房公积金和社会福利金等的计算，工资的发放方式；二是工资管理,如制定工资计划,控制工资预算，分析市场职务价格水平,调整工资结构。
1。3。5培训管理功能模块
主要功能是对员工的职务和用途程度进行分析，为员工的升职和加薪提供信息，制定员工的培训计划，建立培训课程表，预算培训成本.同时，为每位员工建立培训记录,输入数据库。
1.3。6系统维护功能模块
主要使管理员能进行人力资源及其相关功能的管理,设置操作员账号、密码与权限，定期进行数据备份、数据清理及整理，以及出现故障时可以将数据恢复。
整个系统的功能需求可用图1-1简要表示。
人事管理系统
人事管理
考勤管理
招聘管理
工资管理
培训管理
系统维护

图1-1 人事管理系统
人事管理功能模块可以通过图1-2说明。
人事管理
人事档案管理
离退人员档案管理
人力资源测评
员工生日等提醒
查询统计
报表打印

图1—2 人事管理
考勤管理功能模块可以通过图1—3说明.
考勤管理
考勤信息维护
员工休假管理
查询统计
报表打印

图1—3 考勤管理
招聘管理功能模块可以通过图1—4说明。
招聘管理
制定招聘计划
查询应聘情况
筛选应聘人员
应聘人信息维护
生成招聘文件

图1—4 招聘管理
工资管理功能模块可以通过图1-5说明.
工资管理
工资核算
银行转账
制定工资计划
查询统计
报表打印

图1-5 工资管理
培训管理功能模块可以通过图1-6说明。
培训管理
制定培训计划
预算培训成本
建立培训记录
制定员工发展计划

图1—6 培训管理
系统维护功能模块可以通过图1—7说明。
系统维护
操作员及权限
数据备份
数据清理
数据恢复
数据整理

图1—7系统维护
2数据库设计
根据以上的功能分析，系统中包括员工、岗位、职务、部门四个实体。其中每个职员都专职或兼职担任某个岗位的工作.而每个岗位又必然是某个部门的某个职务。系统的核心实体是员工，员工包括多方面的属性,如一些基本资料：工号、姓名、性别、学历等,同时还包含一些复杂的结构信息，如他的简历、所受过的培训、档案信息等。
以下就是生成数据库中的各类对象的代码.
2。1定义数据库
/*Database name ： 人事数据库(HRM） */
/＊DBMS name : Microsoft SQL Server 2000 */
/＊Created on : 2010-10—30 10：23：16 */
drop database 人事数据库
go
create database 人事数据库
go
use 人事数据库
go
2。2定义业务规则
语句为：create rule月工资规则as（用语言描述的业务规则）
月工资表中的津贴是通过津贴表的加班时间*单位酬劳得到的;
月工资表的扣除是通过考勤表的缺勤天数*单位金额得到的；
医疗保险和保险费是通过医疗保险表的医疗保险费用和保险费得到的。
go
create rule 月工资 as
工资表的月工资必须大于0或一定的数，比如基本工资
2.3定义域
/*Domain：名字域(NAME) ＊/
execute sp_addtype 名字域， ‘char（10)'
go
/＊Domain: 代号域(UNMBER) ＊/
execute sp_addtype 代号域， ‘char(6）’
go
/*Domain： 时间域（TIME) */
execute sp_addtype 时间域, ‘datetime’
go
2。4创建表格/字段
2.4。1缺勤类型表
Create table 缺勤类型表(
缺勤类别 char（6) not null，
缺勤名称 NAME null，
缺勤描述 char（10) null,
Constraint PK_ABSENCE primary key （缺勤类别）
)
go
create index INDEX_1 on 缺勤类型表(
缺勤类别
）
go
2。4。2津贴表
create table 津贴表（
员工代号 NUMBER not null,
加班时间 NAME not null，
加班天数 dec(2) null，
加班类别 char（10） null，
constraint PK_ALLOWANCE primary key (员工代号，加班时间）
)
go
create index INDEX_1 on 津贴表（
员工代号,
加班时间
）
go
2。4.3考勤表
create table 考勤表（
员工代号 UNMBER not null,
员工姓名 varchar（20) null，
日期 TIME not null，
上班时间 datetime null,
下班时间 datetime null，
迟到时间 int null，
是否缺勤 bit null,
缺勤类别 char（6) null,
)
constraint PK_CHECKIN primary key （员工代号,日期
）
go
create index INDEX_1 on考勤表（
员工代号，
日期
）
go
2。4。4部门表
create table 部门表（
部门代号 NUMBER not null,
部门名称 NAME null,
部门经理代号 NAME null，
部门电话 dec(8) null，
constraint PK_DEPARTMENT primary key （部门代号）
）
go
create unique index DEP_NO on 部门表（
部门代号
）
go
create index DEP_NAME on 部门表（
部门名称
)
go
2.4。5岗位表
Create table 岗位表（
岗位代号 NUMBER not null,
岗位名称 NAME null,
岗位权利 char（20） null，
岗位职责 char（20） null,
Constraint PK_JOB primary key (岗位代号）
）
Go
Create unique index INDEX_1 on 岗位表（
岗位代号
)
Go
Create index INDEX_2 on 岗位表(
岗位名称
)
Go
2。4.6医疗保险表
Create table 医疗保险表（
员工代号 NUMBER not null,
医疗报险费用 dec（10) null，
保险费 dec(8） null，
医疗保险日期 TIME not null,
Constraint PK_MEDICARE primary key （员工代号，医疗保险日期）
)
Go
Create index INDEX_1 on 医疗保险表（
员工代号）
Go
2。4。7月工资表
Create table 月工资表（
员工代号 NUMBER not null，
基本工资 dec（6） null,
津贴 dec（6) null，
扣除 dec(6) null,
医疗保险 dec（6) null,
保险费 dec（6） null,
月工资 AS （月工资表。基本工资表+月工资表.津贴+月工资表。医疗保险-月工资表.扣除—月工资表。保险费），
月工资时间 TIME not null，
Constraint PK_MONTHSAL primary key (员工代号,月工资时间）
）
Go
Create index INDEX_1 on 月工资表(
员工代号，
月工资时间
)
Go
2。4。8培训表
Create table 培训表(
培训师代号 NUMBER not null,
课目代号 NUMBER not null，
员工代号 NUMBER not null，
成绩 dec(4） null，
Constraint PK_TEACH primary key (培训师代号,课目代号,员工代号)
）
Go
Create index INDEX_1 on 培训表（
培训师代号，
课目代号,
员工代号
)
Go
2。4。9培训教师表
Create table 培训教师表（
培训师代号 NUMBER not null,
培训师名称 NAME null，
培训师职称 char(8) null，
Constraint PK_TEACHER primary key （培训师代号）
Create index INDEX_1 on 培训教师表(
培训师代号
)
Go
Create index INDEX_2 on 培训教师表（
培训师名称
)
Go
2。4。10课目表
Create table 课目表（
课目代号 NUMBER not null,
科目名称 NAME null，
教材名称 NAME null，
Constraint PK_TOPIC primary key （课目代号）
)
Go
Create index INDEX_1 on 课目表(
课目代号
)
Go
Create index INDEX_2 on 课目表（
科目名称
）
Go
2。4。11员工表
Create table 员工表(
员工代号 NUMBER not null,
员工姓名 NAME null，
员工性别 char(2) null,
岗位代号 NUMBER null，
部门代号 NUMBER null,
培训情况 char(2） null,
婚姻状况 char(2) null，
学历 char（6) null，
入公司时间 TIME not null，
Constraint PK_WORKER primary key （员工代号)
）
Go
Create unique index INDEX_1 on 员工表(
员工代号
）
Go
Create index INDEX_2 on 员工表（
员工姓名
）
Go
Create index INDEX_3 on 员工表（
入公司时间
)
Go
2.4。12年终奖表
Create table 年终奖表（
员工代号 NUMBER not null，
年份 TIME not null,
奖金总数 dec（8) null，
Constraint PK_YEARSAL primary key （员工代号,年份）
)
Go
Create index INDEX_1 on 年终奖表（
员工代号,
年份
）
Go
2。4。13用户权限表
Create table 用户权限表（
序号 int not null，
用户名 varchar(10） null,
密码 varchar(10） null，
工号 varchar（10) null，
姓名 varchar（10） null，
权限级别 int null，
Constraint PK_xuhao1 primary key (序号）
）
Go
2。4。14用户具体权限表
Create table 用户具体权限表（
序号 int not null，
用户名 varchar（10） null，
权限号 varchar（10) null，
Constraint PK_xuhao2 primary key (序号）
）
Go
/*用户具体权限，用来保存每个员工的具体权限*/
2.4。15权限细则表
Create table 权限细则表（
序号 int not null,
权限表 varchar(10) null，
权限名称 varchar(10) null，
备注 varchar（10） null,
Constraint PK_xuhao3 primary key (序号）
)
Go
3程序预览
运行本程序，首先出现如图3—1所示的主界面。
单击菜单项中系统设置—设置代码，进入设置代码窗口，如图3—2所示，可以在其中对相关的代码如部门代码、岗位代码、婚姻状况代码等进行设置。
图3—1 主界面
图3-2 设置代码
单击人事资料管理—人员信息综合管理，进入个人资料管理窗口,如图3—3所示，可以在其中对人员的基本资料以及各项信息如简历、培训、兼职等信息进行浏览和编辑.
图3—3 个人资料
在窗口中单击表格显示按钮，则会切换到表格显示的模式，如图3—4所示,在表格显示模式单击输入模式按钮，则又可切换到输入模式。
图3-4 个人资料输入
在个人资料窗口中单击更换照片按钮，则可选择更换员工的照片，如图3-5所示。
图3—5 更改照片
在个人资料窗口中单击简历按钮，则可进入编辑简历窗口，如图3—6所示.单击编辑档案信息则可进入编辑档案信息窗口,如图3-7所示。
图3—6 编辑简历
图3—7 编辑档案信息
在个人资料窗口中单击编辑兼职信息按钮则可输入员工的兼职情况,如图3—8所示.单击编辑培训信息则可输入员工的培训信息，如图3-9所示.
图3-8 编辑兼职信息
图3-9 编辑培训信息
在个人资料窗口中单击编辑职称信息按钮，则可输入员工的职称变化情况，如图3—10所示.
单击人事资料管理—人员调离,进入人员调离及离退休管理窗口，如图3—11所示,系统将会列出所有的员工的工号、姓名等资料，可以从中选择需要输人员调离或离退休的员工.选中一个员工之后,单击详细信息按钮，可显示该员工的详细个人资料.
图3-10 编辑职称信息
图3—11 人员调离及离退休管理
单击人事资料管理—人员信息综合查询，进入人员信息统计分析窗口.在人员信息统计分析窗口，系统按照各种分类对员工资料进行分类统计，并以表格（如图3—12所示）、柱状图(如图3—13所示）、饼图（如图3-14所示）形式显示，供企业决策人员参考。
图3—12 人员统计表格
图3—13 人员统计柱状图
图3—14 人员统计饼图
单击岗位管理—设置岗位,进入设置岗位编制窗口，如图3—15所示，其中可以调整企业的岗位设置。在窗口中单击设置岗位要求按钮，则可以对该岗位进行多方面的要求设置，如图3—16所示.
图3—15 设置岗位编制
图3-16 设置岗位要求
单击岗位管理—岗位查询，进入查询岗位配置窗口,如图3—17所示，其中可以查询各个岗位的人员配置情况。在岗位查询窗口中，选中一个岗位和人员配置之后，单击已配置的人员情况按钮，出现一个窗口显示该岗位可选择该岗位配置的所有人员的列表，如图3—18所示.用户从中选择一个员工之后，单击详细资料按钮,则会显示该员工的详细个人资料.在查询岗位配置窗口中，单击岗位设置情况按钮，则用户可查看该岗位设置的详细资料.
图3—17 查询岗位配置
图3—18 查询人员列表
4代码分析
unit main;
interface
uses
Windows, Messages， SysUtils, Variants， Classes， Graphics， Controls， Forms，
Dialogs, Menus， ComCtrls， ExtCtrls；
type
TfrmMain = class(TForm）
MainMenu1： TMainMenu；
N1： TMenuItem;
N2: TMenuItem；
N4： TMenuItem；
N7： TMenuItem；
N11: TMenuItem；
N12： TMenuItem；
N13： TMenuItem；
N5: TMenuItem;
N6： TMenuItem;
N8： TMenuItem;
N3： TMenuItem；
N9： TMenuItem；
N10： TMenuItem；
procedure N2Click（Sender： TObject）;
procedure N7Click（Sender： TObject）；
procedure N12Click（Sender: TObject)；
procedure N6Click（Sender： TObject);
procedure N8Click(Sender： TObject)；
procedure N3Click（Sender： TObject）；
procedure FormCloseQuery（Sender: TObject; var CanClose： Boolean）;
procedure N10Click(Sender： TObject)；
private
{ Private declarations }
public
｛ Public declarations ｝
end；
var
frmMain： TfrmMain;
implementation
uses Szdmb， szgwbz, grzl， ryxxtjfx, cxgwpz， rydl;
｛＄R ＊。dfm｝
procedure TfrmMain。N2Click（Sender： TObject）；
begin
try
frmSzdmb ：= TfrmSzdmb.Create（nil）；//创建设置代码窗口
frmSzdmb。showModal； //以模式方式显示设置代码窗口
finally
frmSzdmb。Free ； //最后必须释放窗口
end；
end；
procedure TfrmMain.N7Click（Sender： TObject)；
var
i，count:integer;
exist：boolean;
begin
exist：=false；
i:=0;
count := self。MDIChildCount ；
while （i〈 count） and not exist do //查找是否存在类名为’TfrmGrzl'的子窗口
begin
if self.MDIChildren［i］。ClassName = ’TfrmGrzl’ then
exist ：= true;
inc（i）;
end；
if not exist then //不存在则创建
begin
frmGrzl ：= TfrmGrzl.Create（self)；
end；
//以下显示该窗口
frmGrzl。Show ；
frmGrzl。WindowState ：= wsNormal；
frmGrzl。SetFocus ;
end；
procedure TfrmMain。N12Click（Sender： TObject）;
begin
try
frmSzgwbz ：= TfrmSzgwbz。Create（nil)； //创建设置岗位窗口
frmSzgwbz。showModal; //以模式方式显示设置窗口
finally
frmSzgwbz.Free ； //必须释放窗口
end；
end；
procedure TfrmMain。N6Click（Sender: TObject）;
var
i,count：integer；
exist:boolean;
begin
exist：=false；
i：=0;
count := self.MDIChildCount ；
while （i< count) and not exist do //查找系统中是否存在为'frmRyxxtjfx'的子窗口
begin
if self.MDIChildren[i].ClassName = 'TfrmRyxxtjfx’ then
exist ：= true;
inc(i）；
end；
if not exist then //不存在则创建
begin
frmRyxxtjfx := TfrmRyxxtjfx.Create（self)；
end；
//以下显示该窗口
frmRyxxtjfx.Show ;
frmRyxxtjfx。WindowState ：= wsNormal；
frmRyxxtjfx.SetFocus ;
end;
procedure TfrmMain。N8Click（Sender: TObject);
var
i，count：integer；
exist:boolean;
begin
exist：=false；
i:=0;
count := self。MDIChildCount ；
while （i〈 count） and not exist do //查找系统中是否存在为’frmCxgwpz'的子窗口
begin
if self.MDIChildren［i］。ClassName = 'TfrmCxgwpz' then
exist ：= true；
inc（i）;
end；
if not exist then //不存在则创建
begin
frmCxgwpz ：= TfrmCxgwpz。Create（self）；
end;
//以下显示该窗口
frmCxgwpz.Show ；
frmCxgwpz.WindowState ：= wsNormal；
frmCxgwpz。SetFocus ；
end；
procedure TfrmMain。N3Click(Sender： TObject）；
var
i,count：integer；
exist:boolean；
begin
exist：=false；
i：=0;
count ：= self。MDIChildCount ；
while （i〈 count） and not exist do //查找系统中是否存在为'frmRydl'的子窗口
begin
if self.MDIChildren［i]。ClassName = ’TfrmRydl' then
exist := true；
inc（i）;
end；
if not exist then //不存在则创建
begin
frmRydl := TfrmRydl。Create(self）；
end;
//以下显示该窗口
frmRydl.Show ;
frmRydl.WindowState ：= wsNormal;
frmRydl。SetFocus ；
end；
procedure TfrmMain.FormCloseQuery（Sender： TObject； var CanClose: Boolean)；
begin
if messageDlg（'退出系统吗？’，mtInformation ,
［mbYes,mbNo］，MB_YESNO） = mrYes then //用户确认是否退出系统
canClose ：= true
else
canClose ：= false;
end;
procedure TfrmMain.N10Click（Sender: TObject）；
begin
close;
end;
end。
5设计总结
本系统主要适用于中小型企业的人事管理。本系统集成了各类型人事管理软件的功能和特点来构建系统框架，因此整个系统具有的灵活性和可扩展性，能够满足客户在人事管理方面更多个性化的需求.主发是为了实现企业的人事管理系统化、规范化和自动化，为产品的成本减少人工费用，提高人力资源管理的信息共享程度，加快信息的提取的系统。
参考文献
［1］杨海东,刘海英．Delphi数据库高级实例导航［M］．科学出版社，2003
[2］席一凡．Delphi程序设计［M］．中国铁道出版社,2008
［3］王珊，萨师煊．数据库系统概论[M］．高等教育出版社,2006
［4］李代平．软件工程［M]．清华大学出版社,2002
［5]姜仁武。企业资源管理项目开发实践.科学出版社，2005