丁莹巧实训报告

衢州学院

《ERP实训》

题 目：公司人力资源管理系统

作 者：严苏芳

学 号：3120228112

系（部）：电气与信息工程学院

专业班级：12信管1班

实训时间：14－15学年第一学期10-11周

指导教师：韩双霞

2014年11月28日

目录

一、引言

3

1.1编写目的

3

1.2背景

3

1.3工作分配

3

二、需求说明

4

2.1系统模块划分

4

2.2人员档案

4

2.3人事调配

6

三、运行程序

7

3.1登入界面

7

3.1.1登入界面代码

7

3.2主切换面板

9

3.2.1主切换面板代码

10

3.3人事管理切换面板

13

3.3.1新员工登记代码

13

3.3.2人事变更代码

14

3.4统计查询切换面板

16

3.4.1生日查询代码

16

3.5报表切换面板

17

3.5.1人事变更查询代码

17

3.5.2员工注销

17

3.6招聘管理切换面板

18

3.6.1求职者信息查询代码

18

四、实训总结

19

4.1对生产效率的评价

19

4.2对产品功能的评价

19

4.3所用时间

19

4.4进度

19

4.5总结

19

一、引言

1.1编写目的

随着企业的信息化和体制改革的步伐，人才竞争使企业的人力资源面临前所未有的挑战。越来越多的企业不断地加大对员工的投资，从而更好地吸引、保留和发展所需要人才，是企业拥有持久的、强大的竞争优势。我们将为企业提供全面的人力资源管理解决方案，只在满足快速成长的企业管理信息化需求，主要目的就是帮助客户快速持续和健康成长，并且使人力资源部门借助此管理系统从重复烦杂的日常管理事务中解脱出来，将更多的精力投注于人力资源战略规划以支持和推动企业战略目标的实现，不断提升人力资源部对企业的价值，有效的提升企业的核心竞争力。

1.2背景

人力资源管理就是预测组织人力资源需求并作出人力需求计划、招聘选择人员并进行有效组织、考核绩效支付报酬并进行有效激励、结合组织与个人需要进行有效开发以便实现最优组织绩效的全过程。即运用现代化的科学方法，对与一定物力相结合的人力进行合理的培训、组织和调配，使人力、物力经常保持最佳比例，同时对人的思想、心理和行为进行恰当的诱导、控制和协调，充分发挥人的主观能动性，使人尽其才，事得其人，人事相宜，以实现组织目标。

1.3工作分配

组员

工作任务

严苏芳，丁莹巧

代码的整理与编写

严苏芳，丁莹巧

系统运行测试与最终截图

陈娟娟

程序界面设计与排版

陈娟娟

Word整理与排版

陈发站

相关内容的查找与整理

二、需求说明

2.1系统模块划分

登入

人事结构报表

人事变更报表

预览报表

求职者信息记录

求职者信息查询

招聘管理

退出

统计查询

合同到期查询

生日查询

人事管理

新员工登记

人事变更

院校配置

专业配置

学历配置

部门信息

职位配置

级别配置

系统配置

2.2人员档案

人员档案是建立符合公司组织机的组织模型和完整的人事档案库，记录一定范围内的职工和雇工的档案信息，并且这些信息可以和绩效考核的成绩关联，

方便存档和查询。系统重点围绕数据维护、查询和分析便捷的要求，并通过关键业务节点的业务流程化，提高HR业务的处理效率。

1)员工基本信息维护

记录员工基本信息。

信息内容：

姓名、性别、学历、学位、部门、职务、人员状态（在职/兼职/离职）、图片（正装照/身份证扫描/学历证书扫描），除此之外，还可以选择定义行业背景、技术特长，等等。

操作：

a)需要对基本信息进行增加、删除、修改等操作；

b)各部门可自行定义其他人事信息子集；

c)各级单位可分别对本单位员工进行管理；

d)根据选择的条件可进行快速筛选、定位所需的人员信息。

2)员工档案管理记录员工档案索引信息。

档案内容：

档案ID、人员ID、档案编号、档案名称、内容摘要、备注。

操作：

a)对员工档案进行分类、分编号保存；

b)对每个员工的档案进行分类维护(增加、删除、编辑)。

3)员工履历管理记录员工履历信息，

记录员工，尤其是高级管理人员的个人工作信息，便于领导了解员工的历史工作情况。

履历内容：人事变动的部门、职位、学历、工作内容、业绩、开始和结束时间。

操作：

a)对员工履历按照时间排序；

b)可以对每个员工履历信息进行增加、删除、编辑操作；

c)可以按员工姓名、编号等信息查找员工合同。

4)员工合同管理

提供标准的合同管理台帐，便于员工劳动合同的管理和维护。

合同内容：合同ID、人员ID、合同编号、

合同的开始日期、结束日期、岗位、合同内容等以及上传合同的电子文档。

常用操作：

a)对每个员工合同信息进行增加、删除、编辑操作；

b)对员工合同按照时间排序；

c)可以按员工姓名、编号等信息查找员工合同；

d)可以将公司相关协议纳入合同管理，如：补充协议等。

5)奖惩管理

奖惩内容：获奖人员、奖惩时间、奖惩标题、奖惩内容、奖金类别。

常用操作：

a)对每个员工奖惩信息进行增加、删除、编辑操作；

b)对员工奖惩信息按照时间排序；

c)可以按员工姓名、编号等信息查找员工奖惩信息；

d)可灵活设定奖惩类型，并记录奖惩情况。

6)员工基本信息查询可按照人员的各种情况组合条件查询。比如：按照人员年龄、性别、

文化结构、职称结构、技术等级结构等信息。

2.3人事调配

针对人事调动（调入、调出）、内部调动、晋升、降职等人事变动业务的处理和查询。

1)人事调动管理对员工的职称信息、员工岗位、人事调动进行管理。

操作：

a)查询员工职称信息：对员工职称信息按照取得时间排序，可以按员工姓名、编号等信息查找员工。

b)可以根据职工定员、缺员信息及员工职称信息，对员工岗位进行调配。

c)根据员工年度职称评定信息和年度考核结果，确定员工职称信息是否有效，只有有效的职称才可以被聘任，同一时间只有一种职称被聘任。

d)对员工人事调动信息按照时间排序，可以对每个员工人事调配信息进行增加、删除、编辑操作。可以按员工姓名、编号等信息查找员工。

2)新进员工管理

对于新进员工的相应信息（员工档案、合同台帐等），系统自动进行增加处理。

3)离退员工管理

用户可根据实际情况，检查系统中每个在职人员的年龄，列出符合退休标准的人员，生成退休人员预测表作为人员退休的参考。设定离职类型和离职原因，以便后续的统计分析。针对员工离职，记录其离职类型、原因和时间，便于日后的分析处理以便进一步提出相关对策，同时其相关信息自动转入离职人员档案。可方便地查询离职人员的各种信息，并提供离职人员和离职原因的统计分析。

4)职称聘任记录

记录员工职称聘任历史信息，包括聘任职称，聘任时间等信息。对员工职称聘任信息按照取得时间排序，可以对每个员工职称聘任信息进行增加、删除、编辑操作。可以按员工姓名、编号等信息查找员工。

三、运行程序

3.1登入界面

3.1.1登入界面代码

OptionCompareDatabase

PrivateSubForm_Load()

Me.Caption="示例管理系统"

EndSub

PrivateSubForm_Open(CancelAsInteger)

Me.ShortcutMenu=False'屏蔽右键菜单

EndSub

PrivateSubUserName_AfterUpdate()

IfDCount("id","UserList","Username='"&UserName&"'")>0Then

Me.password.SetFocus

Me.password=Null

Me.Popedom=Me.UserName.Column(1)

EndIf

EndSub

PrivateSubPopedom_GotFocus()

Me.password.SetFocus

EndSub

PrivateSubUsername_GotFocus()

Me.UserName.Requery

EndSub

PrivateSub登录系统_Click()

IfIsNull(UserName)Then

MsgBox"用户名不能为空，请重新选择！",vbExclamation+vbOKOnly,"提醒您！"

Me.UserName.SetFocus

Else

IfIsNull(password)Then

MsgBox"注意，您忘了输入密码！",vbExclamation+vbOKOnly,"提醒您！"

Me.password.SetFocus

Else

IfDLookup("Password","UserList","Username='"&UserName&"'")=[password]Then

Me.Visible=False

Me.password=Null

MsgBox"登录成功！",vbExclamation,"提醒您"

'登录成功则打开指定的窗体代码如下:

DoCmd.OpenForm"主切换面板"

Else

MsgBox"您输入的密码有误，请重新输入，注意大小写！",vbExclamation+vbOKOnly,"提醒您！"

Me.password=Null

Me.password.SetFocus

EndIf

EndIf

EndIf

EndSub

PrivateSub退出_Click()

OnErrorGoToErr_退出_Click

IfMsgBox("你真的要退出社会抚养费征收管理系统吗？",vbQuestion+vbYesNo+vbDefaultButton2,"提醒您！")=vbYesThen

DoCmd.CloseacForm,"登录窗体"

DoCmd.Quit

Else

Me.Visible=True

EndIf

Exit_退出_Click:

ExitSub

Err_退出_Click:

MsgBoxerr.Description

ResumeExit_退出_Click

EndSub

PrivateSub取消登录_Click()

DoCmd.Quit

EndSub

3.2主切换面板

3.2.1主切换面板代码

OptionCompareDatabase

PrivateSubForm_Open(CancelAsInteger)

'最小化数据库窗体并初始化该窗体.

OnErrorGoToForm_Open_Err

'最小化数据库窗体.

DoCmd.SelectObjectacForm,"主切换面板",True

DoCmd.Minimize

'显示默认的选项.

Me.Filter="[ItemNumber]=0AND[Argument]='默认'"

Me.FilterOn=True

Form_Open_Exit:

ExitSub

Form_Open_Err:

MsgBoxerr.Description

ResumeForm_Open_Exit

EndSub

PrivateSubForm_Current()

'更新标题并显示列表.

Me.Caption=Nz(Me![ItemText],"")

FillOptions

EndSub

PrivateSubFillOptions()

'显示切换框中的列表.

'按钮数量.

ConstconNumButtons=8

DimconAsObject

DimrsAsObject

DimstSqlAsString

DimintOptionAsInteger

Me![Option1].SetFocus

ForintOption=2ToconNumButtons

Me("Option"&intOption).Visible=False

Me("OptionLabel"&intOption).Visible=False

NextintOption

'打开表SwitchboardItems

Setcon=Application.CurrentProject.Connection

stSql="SELECT*FROM[SwitchboardItems]"

stSql=stSql&"WHERE[ItemNumber]>0AND[SwitchboardID]="&Me![SwitchboardID]

stSql=stSql&"ORDERBY[ItemNumber];"

Setrs=CreateObject("ADODB.Recordset")

rs.OpenstSql,con,1'1=adOpenKeyset

If(rs.EOF)Then

Me![OptionLabel1].Caption="此切换面板页上无项目。"

Else

While(Not(rs.EOF))

Me("Option"&rs![ItemNumber]).Visible=True

Me("OptionLabel"&rs![ItemNumber]).Visible=True

Me("OptionLabel"&rs![ItemNumber]).Caption=rs![ItemText]

rs.MoveNext

Wend

EndIf

'关闭数据集合和数据库

rs.Close

Setrs=Nothing

Setcon=Nothing

EndSub

PrivateFunctionHandleButtonClick(intBtnAsInteger)

'处理按钮click事件

ConstconCmdGotoSwitchboard=1

ConstconCmdNewForm=2

ConstconCmdExitApplication=3

ConstconCmdOpenReport=4

ConstconCmdRunMacro=8

ConstconCmdRunCode=9

ConstconCmdOpenPage=10

ConstconErrDoCmdCancelled=2501

DimconAsObject

DimrsAsObject

DimstSqlAsString

OnErrorGoToHandleButtonClick_Err

Setcon=Application.CurrentProject.Connection

Setrs=CreateObject("ADODB.Recordset")

stSql="SELECT*FROM[SwitchboardItems]"

stSql=stSql&"WHERE[SwitchboardID]="&Me![SwitchboardID]&"AND[ItemNumber]="&intBtn

rs.OpenstSql,con,1'1=adOpenKeyset

If(rs.EOF)Then

MsgBox"读取SwitchboardItems表时出错。"

rs.Close

Setrs=Nothing

Setcon=Nothing

ExitFunction

EndIf

SelectCasers![Command]

'进入另一个切换面板

CaseconCmdGotoSwitchboard

Me.Filter="[ItemNumber]=0AND[SwitchboardID]="&rs![Argument]

'打开一个新窗体

CaseconCmdNewForm

DoCmd.OpenFormrs![Argument]

'打开报表

CaseconCmdOpenReport

DoCmd.OpenReportrs![Argument],acPreview

'退出应用程序

CaseconCmdExitApplication

CloseCurrentDatabase

'运行宏.

CaseconCmdRunMacro

DoCmd.RunMacrors![Argument]

'运行代码.

CaseconCmdRunCode

Application.Runrs![Argument]

'打开一个数据存取页面

CaseconCmdOpenPage

DoCmd.OpenDataAccessPagers![Argument]

'未定义的选项.

CaseElse

MsgBox"未知选项。"

EndSelect

'Closetherecordsetandthedatabase.

rs.Close

HandleButtonClick_Exit:

OnErrorResumeNext

Setrs=Nothing

Setcon=Nothing

ExitFunction

HandleButtonClick_Err:

If(err=conErrDoCmdCancelled)Then

ResumeNext

Else

MsgBox"执行命令时出错。",vbCritical

ResumeHandleButtonClick_Exit

EndIf

EndFunction

3.3人事管理切换面板

3.3.1新员工登记代码

DimconAsObject

DimrsAsObject

DimstSqlAsString

DimsSQLAsString

DimdbCheckAsDatabase

DimEmployeeAsRecordset

DimrstAsRecordset

SetdbCheck=CurrentDb()

SetEmployee=_

dbCheck.OpenRecordset("员工信息",dbOpenDynaset)

IfIsNull([员工ID])Then

MsgBox"请输入员工号"

DoCmd.GoToControl"员工ID"

ElseIfIsNull([部门ID])Then

MsgBox"请输入部门号"

DoCmd.GoToControl"部门ID"

ElseIfIsNull([姓名])Then

MsgBox"请输入姓名"

DoCmd.GoToControl"姓名"

ElseIfIsNull([出生日期])Then

MsgBox"请输入出生日期"

DoCmd.GoToControl"出生日期"

ElseIfIsNull([级别名称])Then

MsgBox"请选择级别名称"

DoCmd.GoToControl"级别名称"

ElseIfIsNull([职位名称])Then

MsgBox"请选择职位名称"

DoCmd.GoToControl"职位名称"

ElseIfIsNull([学历名称])Then

MsgBox"请选择学历名称"

DoCmd.GoToControl"学历名称"

ElseIfIsNull([院校名称])Then

MsgBox"请选择院校名称"

DoCmd.GoToControl"院校名称"

ElseIfIsNull([专业名称])Then

MsgBox"请选择专业名称"

DoCmd.GoToControl"专业名称"

ElseIfIsNull([加入日期])Then

MsgBox"请输入加入日期"

DoCmd.GoToControl"加入日期"

ElseIfIsNull([电子邮件])Then

MsgBox"请输入电子邮件"

DoCmd.GoToControl"电子邮件"

Else

'添加记录

'AddNewEmployeeEmployee

EndIf

EndSub

3.3.2人事变更代码

OptionCompareDatabase

PrivateSubForm_Load()

Me!职位变更.Visible=False

Me!级别变更.Visible=False

Me!部门变更.Visible=False

EndSub

PrivateSub类型说明_Change()

SelectCase[类型说明]

Case2

Me!级别变更.Visible=True

Me!职位变更.Visible=False

Me!部门变更.Visible=False

Case3

Me!级别变更.Visible=False

Me!职位变更.Visible=True

Me!部门变更.Visible=False

Case4

Me!级别变更.Visible=False

Me!职位变更.Visible=False

Me!部门变更.Visible=True

Case1

Me!职位变更.Visible=False

Me!级别变更.Visible=False

Me!部门变更.Visible=False

EndSelect

EndSub

PrivateSub提交_Click()

DimyesornoAsInteger

IfIsNull([员工ID])Then

MsgBox"您必须输入员工号。"

DoCmd.GoToControl"员工ID"

ElseIfIsNull([登记日期])Then

MsgBox"您必须输入登记日期。"

DoCmd.GoToControl"登记日期"

ElseIfIsNull([类型说明])Then

MsgBox"您必须选择类型说明。"

DoCmd.GoToControl"类型说明"

Else

SelectCase[类型说明]

Case1

yesorno=MsgBox("注意:员工注销过程不可逆转,是否注销?",vbExclamation+vbOKCancel)

Ifyesorno=vbOKThen

DeleteEmployeeRecord[员工ID]

AddChangeRecord[员工ID],Date,[类型说明]

Me.Visible=False

Else

DoCmd.GoToControl"类型说明"

EndIf

Case2

'MsgBox"员工级别变更"

UpdateEmployeeRecord[员工ID],Me![级别变更]![变更级别],2

AddChangeRecord[员工ID],Date,[类型说明]

Me.Visible=False

Case3

'MsgBox"员工职位"

UpdateEmployeeRecord[员工ID],Me![职位变更]![变更职位],3

AddChangeRecord[员工ID],Date,[类型说明]

Me.Visible=False

Case4

'MsgBox"员工部门变更"

UpdateEmployeeRecord[员工ID],Me![部门变更]![变更部门],4

AddChangeRecord[员工ID],Date,[类型说明]

Me.Visible=False

EndSelect

EndIf

EndSub

3.4统计查询切换面板

3.4.1生日查询代码

OptionCompareDatabase

PrivateSub查询_Click()

IfIsNull([开始日期])OrIsNull([结束日期])Then

MsgBox"您必须输入开始日期和结束日期。"

DoCmd.GoToControl"开始日期"

Else

If[开始日期]>[结束日期]Then

MsgBox"结束日期必须大于开始日期。"

DoCmd.GoToControl"开始日期"

Else

DoCmd.OpenReport"员工生日情况",acViewPreview,,,acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

3.5报表切换面板

3.5.1人事变更查询代码

PrivateSub查询_Click()

IfIsNull([开始日期])OrIsNull([结束日期])Then

MsgBox"您必须输入开始日期和结束日期。"

DoCmd.GoToControl"开始日期"

Else

If[开始日期]>[结束日期]Then

MsgBox"结束日期必须大于开始日期。"

DoCmd.GoToControl"开始日期"

Else

DoCmd.OpenReport"人事变更情况",acViewPreview,,,acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

3.5.2员工注销

OptionCompareDatabase

PrivateSub注销_Click(