丁瑩巧實訓報告

衢州學院

《ERP實訓》

題 目：公司人力資源管理系統(tǒng)

作 者：嚴蘇芳

學 號：3120228112

系（部）：電氣與信息工程學院

專業(yè)班級：12信管1班

實訓時間：14－15學年第一學期10-11周

指導教師：韓雙霞

2014年11月28日

目錄

一、引言

3

1.1編寫目的

3

1.2背景

3

1.3工作分配

3

二、需求說明

4

2.1系統(tǒng)模塊劃分

4

2.2人員檔案

4

2.3人事調(diào)配

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統(tǒng)計查詢切換面板

16

3.4.1生日查詢代碼

16

3.5報表切換面板

17

3.5.1人事變更查詢代碼

17

3.5.2員工注銷

17

3.6招聘管理切換面板

18

3.6.1求職者信息查詢代碼

18

四、實訓總結(jié)

19

4.1對生產(chǎn)效率的評價

19

4.2對產(chǎn)品功能的評價

19

4.3所用時間

19

4.4進度

19

4.5總結(jié)

19

一、引言

1.1編寫目的

隨著企業(yè)的信息化和體制改革的步伐，人才競爭使企業(yè)的人力資源面臨前所未有的挑戰(zhàn)。越來越多的企業(yè)不斷地加大對員工的投資，從而更好地吸引、保留和發(fā)展所需要人才，是企業(yè)擁有持久的、強大的競爭優(yōu)勢。我們將為企業(yè)提供全面的人力資源管理解決方案，只在滿足快速成長的企業(yè)管理信息化需求，主要目的就是幫助客戶快速持續(xù)和健康成長，并且使人力資源部門借助此管理系統(tǒng)從重復煩雜的日常管理事務(wù)中解脫出來，將更多的精力投注于人力資源戰(zhàn)略規(guī)劃以支持和推動企業(yè)戰(zhàn)略目標的實現(xiàn)，不斷提升人力資源部對企業(yè)的價值，有效的提升企業(yè)的核心競爭力。

1.2背景

人力資源管理就是預測組織人力資源需求并作出人力需求計劃、招聘選擇人員并進行有效組織、考核績效支付報酬并進行有效激勵、結(jié)合組織與個人需要進行有效開發(fā)以便實現(xiàn)最優(yōu)組織績效的全過程。即運用現(xiàn)代化的科學方法，對與一定物力相結(jié)合的人力進行合理的培訓、組織和調(diào)配，使人力、物力經(jīng)常保持最佳比例，同時對人的思想、心理和行為進行恰當?shù)恼T導、控制和協(xié)調(diào)，充分發(fā)揮人的主觀能動性，使人盡其才，事得其人，人事相宜，以實現(xiàn)組織目標。

1.3工作分配

組員

工作任務(wù)

嚴蘇芳，丁瑩巧

代碼的整理與編寫

嚴蘇芳，丁瑩巧

系統(tǒng)運行測試與最終截圖

陳娟娟

程序界面設(shè)計與排版

陳娟娟

Word整理與排版

陳發(fā)站

相關(guān)內(nèi)容的查找與整理

二、需求說明

2.1系統(tǒng)模塊劃分

登入

人事結(jié)構(gòu)報表

人事變更報表

預覽報表

求職者信息記錄

求職者信息查詢

招聘管理

退出

統(tǒng)計查詢

合同到期查詢

生日查詢

人事管理

新員工登記

人事變更

院校配置

專業(yè)配置

學歷配置

部門信息

職位配置

級別配置

系統(tǒng)配置

2.2人員檔案

人員檔案是建立符合公司組織機的組織模型和完整的人事檔案庫，記錄一定范圍內(nèi)的職工和雇工的檔案信息，并且這些信息可以和績效考核的成績關(guān)聯(lián)，

方便存檔和查詢。系統(tǒng)重點圍繞數(shù)據(jù)維護、查詢和分析便捷的要求，并通過關(guān)鍵業(yè)務(wù)節(jié)點的業(yè)務(wù)流程化，提高HR業(yè)務(wù)的處理效率。

1)員工基本信息維護

記錄員工基本信息。

信息內(nèi)容：

姓名、性別、學歷、學位、部門、職務(wù)、人員狀態(tài)（在職/兼職/離職）、圖片（正裝照/身份證掃描/學歷證書掃描），除此之外，還可以選擇定義行業(yè)背景、技術(shù)特長，等等。

操作：

a)需要對基本信息進行增加、刪除、修改等操作；

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

c)各級單位可分別對本單位員工進行管理；

d)根據(jù)選擇的條件可進行快速篩選、定位所需的人員信息。

2)員工檔案管理記錄員工檔案索引信息。

檔案內(nèi)容：

檔案ID、人員ID、檔案編號、檔案名稱、內(nèi)容摘要、備注。

操作：

a)對員工檔案進行分類、分編號保存；

b)對每個員工的檔案進行分類維護(增加、刪除、編輯)。

3)員工履歷管理記錄員工履歷信息，

記錄員工，尤其是高級管理人員的個人工作信息，便于領(lǐng)導了解員工的歷史工作情況。

履歷內(nèi)容：人事變動的部門、職位、學歷、工作內(nèi)容、業(yè)績、開始和結(jié)束時間。

操作：

a)對員工履歷按照時間排序；

b)可以對每個員工履歷信息進行增加、刪除、編輯操作；

c)可以按員工姓名、編號等信息查找員工合同。

4)員工合同管理

提供標準的合同管理臺帳，便于員工勞動合同的管理和維護。

合同內(nèi)容：合同ID、人員ID、合同編號、

合同的開始日期、結(jié)束日期、崗位、合同內(nèi)容等以及上傳合同的電子文檔。

常用操作：

a)對每個員工合同信息進行增加、刪除、編輯操作；

b)對員工合同按照時間排序；

c)可以按員工姓名、編號等信息查找員工合同；

d)可以將公司相關(guān)協(xié)議納入合同管理，如：補充協(xié)議等。

5)獎懲管理

獎懲內(nèi)容：獲獎人員、獎懲時間、獎懲標題、獎懲內(nèi)容、獎金類別。

常用操作：

a)對每個員工獎懲信息進行增加、刪除、編輯操作；

b)對員工獎懲信息按照時間排序；

c)可以按員工姓名、編號等信息查找員工獎懲信息；

d)可靈活設(shè)定獎懲類型，并記錄獎懲情況。

6)員工基本信息查詢可按照人員的各種情況組合條件查詢。比如：按照人員年齡、性別、

文化結(jié)構(gòu)、職稱結(jié)構(gòu)、技術(shù)等級結(jié)構(gòu)等信息。

2.3人事調(diào)配

針對人事調(diào)動（調(diào)入、調(diào)出）、內(nèi)部調(diào)動、晉升、降職等人事變動業(yè)務(wù)的處理和查詢。

1)人事調(diào)動管理對員工的職稱信息、員工崗位、人事調(diào)動進行管理。

操作：

a)查詢員工職稱信息：對員工職稱信息按照取得時間排序，可以按員工姓名、編號等信息查找員工。

b)可以根據(jù)職工定員、缺員信息及員工職稱信息，對員工崗位進行調(diào)配。

c)根據(jù)員工年度職稱評定信息和年度考核結(jié)果，確定員工職稱信息是否有效，只有有效的職稱才可以被聘任，同一時間只有一種職稱被聘任。

d)對員工人事調(diào)動信息按照時間排序，可以對每個員工人事調(diào)配信息進行增加、刪除、編輯操作?？梢园磫T工姓名、編號等信息查找員工。

2)新進員工管理

對于新進員工的相應(yīng)信息（員工檔案、合同臺帳等），系統(tǒng)自動進行增加處理。

3)離退員工管理

用戶可根據(jù)實際情況，檢查系統(tǒng)中每個在職人員的年齡，列出符合退休標準的人員，生成退休人員預測表作為人員退休的參考。設(shè)定離職類型和離職原因，以便后續(xù)的統(tǒng)計分析。針對員工離職，記錄其離職類型、原因和時間，便于日后的分析處理以便進一步提出相關(guān)對策，同時其相關(guān)信息自動轉(zhuǎn)入離職人員檔案?？煞奖愕夭樵冸x職人員的各種信息，并提供離職人員和離職原因的統(tǒng)計分析。

4)職稱聘任記錄

記錄員工職稱聘任歷史信息，包括聘任職稱，聘任時間等信息。對員工職稱聘任信息按照取得時間排序，可以對每個員工職稱聘任信息進行增加、刪除、編輯操作?？梢园磫T工姓名、編號等信息查找員工。

三、運行程序

3.1登入界面

3.1.1登入界面代碼

OptionCompareDatabase

PrivateSubForm_Load()

Me.Caption="示例管理系統(tǒng)"

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登錄系統(tǒng)_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("你真的要退出社會撫養(yǎng)費征收管理系統(tǒng)嗎？",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)

'最小化數(shù)據(jù)庫窗體并初始化該窗體.

OnErrorGoToForm_Open_Err

'最小化數(shù)據(jù)庫窗體.

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()

'顯示切換框中的列表.

'按鈕數(shù)量.

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

'關(guān)閉數(shù)據(jù)集合和數(shù)據(jù)庫

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

'退出應(yīng)用程序

CaseconCmdExitApplication

CloseCurrentDatabase

'運行宏.

CaseconCmdRunMacro

DoCmd.RunMacrors![Argument]

'運行代碼.

CaseconCmdRunCode

Application.Runrs![Argument]

'打開一個數(shù)據(jù)存取頁面

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"執(zhí)行命令時出錯。",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([專業(yè)名稱])Then

MsgBox"請選擇專業(yè)名稱"

DoCmd.GoToControl"專業(yè)名稱"

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("注意:員工注銷過程不可逆轉(zhuǎn),是否注銷?",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統(tǒng)計查詢切換面板

3.4.1生日查詢代碼

OptionCompareDatabase

PrivateSub查詢_Click()

IfIsNull([開始日期])OrIsNull([結(jié)束日期])Then

MsgBox"您必須輸入開始日期和結(jié)束日期。"

DoCmd.GoToControl"開始日期"

Else

If[開始日期]>[結(jié)束日期]Then

MsgBox"結(jié)束日期必須大于開始日期。"

DoCmd.GoToControl"開始日期"

Else

DoCmd.OpenReport"員工生日情況",acViewPreview,,,acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

3.5報表切換面板

3.5.1人事變更查詢代碼

PrivateSub查詢_Click()

IfIsNull([開始日期])OrIsNull([結(jié)束日期])Then

MsgBox"您必須輸入開始日期和結(jié)束日期。"

DoCmd.GoToControl"開始日期"

Else

If[開始日期]>[結(jié)束日期]Then

MsgBox"結(jié)束日期必須大于開始日期。"

DoCmd.GoToControl"開始日期"

Else

DoCmd.OpenReport"人事變更情況",acViewPreview,,,acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

3.5.2員工注銷

OptionCompareDatabase

PrivateSub注銷_Click(