第8章

工資管理系統(tǒng)8.1系統(tǒng)概述

8.2系統(tǒng)設(shè)計

8.3數(shù)據(jù)庫設(shè)計

8.4系統(tǒng)設(shè)計與開發(fā)

8.5報表設(shè)計

8.6完善主界面設(shè)計

動手做實驗

在企業(yè)不斷提高自身的競爭力和努力完成各種目標的過程中，員工工資的管理起到至關(guān)重要的作用。通過準確有效的工資管理系統(tǒng)，配合相應(yīng)的考勤和人事系統(tǒng)，可以大大提高企業(yè)的運作效率，調(diào)動員工的積極性。

一個優(yōu)秀的企事業(yè)單位的工資管理系統(tǒng)主要具有如下功能：工資數(shù)據(jù)的錄入、維護、保存、查詢，工資計算，工資表和工資條的打印，工資匯總和歷史工資數(shù)據(jù)的管理。系統(tǒng)的主要特點包括：根據(jù)需要增減工資條目，快捷定制計算公式，完整的工資報表，從而適應(yīng)變化的工資發(fā)放規(guī)則。8.1系統(tǒng)概述

1.系統(tǒng)功能與應(yīng)用背景

本章介紹的基于Access數(shù)據(jù)庫開發(fā)的企業(yè)工資管理系統(tǒng)，通過對員工工資信息的記錄和管理分析，可以提供以下主要功能：

1)工資計算規(guī)則的制定

2)員工工資的發(fā)放

3)員工工資的查詢

4)企業(yè)工資統(tǒng)計

2.系統(tǒng)預覽

某企業(yè)工資管理系統(tǒng)主窗口由三部分組成：背景圖片、標題欄和導航選項卡，如圖8.1所示。

圖8.1企業(yè)工資管理系統(tǒng)主窗口

單擊“系統(tǒng)配置”按鈕，系統(tǒng)進入“系統(tǒng)配置”界面，如圖8.2所示。圖8.2“系統(tǒng)配置”界面

單擊“返回主界面”按鈕，系統(tǒng)回到前一個界面；單擊“工資發(fā)放管理”按鈕，系統(tǒng)進入“工資發(fā)放管理”界面，如圖8.3所示。圖8.3“工資發(fā)放管理”界面

單擊“工資發(fā)放”按鈕，系統(tǒng)進入“工資發(fā)放”界面，如圖8.4所示。

圖8.4工資發(fā)放界面

單擊“返回主界面”按鈕，系統(tǒng)退回“主窗口”；單擊“統(tǒng)計查詢”按鈕，系統(tǒng)進入“統(tǒng)計查詢”界面，如圖8.5所示。

圖8.5“統(tǒng)計查詢”界面

在“系統(tǒng)配置”界面中單擊“級別工資配置”按鈕，系統(tǒng)進入相應(yīng)設(shè)置窗體，如圖8.6所示。

圖8.6“級別工資配置”窗體界面

8.2系統(tǒng)設(shè)計

要進行系統(tǒng)設(shè)計，首先要確定系統(tǒng)設(shè)計思想，然后對系統(tǒng)的功能模塊進行劃分，最后確定系統(tǒng)數(shù)據(jù)庫的設(shè)計流程。1.系統(tǒng)設(shè)計思想

首先，工資管理系統(tǒng)必須對企業(yè)當前所有員工的工資信息進行記錄，包括基本工資、獎金、加班工資等；系統(tǒng)支持統(tǒng)計查詢企業(yè)員工的工資情況，為企業(yè)管理者提供參考；最后，系統(tǒng)允許管理者對工資的規(guī)則進行修改，以適應(yīng)企業(yè)的發(fā)展。

2.系統(tǒng)功能模塊劃分

企業(yè)工資管理系統(tǒng)功能模塊可以分為四個部分：系統(tǒng)配置模塊、工資發(fā)放管理模塊、統(tǒng)計查詢模塊、報表生成模塊，每個部分根據(jù)實際應(yīng)用又可以再細分成二級功能模塊。

1)系統(tǒng)配置模塊

2)工資發(fā)放管理模塊

3)統(tǒng)計查詢模塊

4)報表生成模塊

8.3數(shù)

據(jù)

庫

設(shè)

計

數(shù)據(jù)庫的設(shè)計分為三個部分，首先對企業(yè)工資管理系統(tǒng)的設(shè)計進行需求分析，確定需要在數(shù)據(jù)庫中保存的信息，然后應(yīng)用E-R圖對信息進行組織和連接，最后確定每個表的字段屬性和主鍵等數(shù)據(jù)庫信息。

1.數(shù)據(jù)庫需求分析

根據(jù)系統(tǒng)設(shè)計和數(shù)據(jù)流圖，需要存放以下信息：

(1)系統(tǒng)主切換面板和報表切換面板顯示信息：顯示名稱、對應(yīng)的處理方式、處理參數(shù)和關(guān)聯(lián)顯示的窗口或者面板。

(2)員工基本信息：員工號、姓名、性別、出生日期、畢業(yè)院校代碼、所屬級別、所屬職位、所屬部門編號、電子郵件等。

(3)員工基本工資級別信息：級別編號、級別說明，該級別的基本工資額。

(4)員工職位津貼級別信息：級別編號、級別說明，該級別的津貼額。

(5)企業(yè)部門信息：部門編號、部門名稱、部門經(jīng)理編號。

(6)工資發(fā)放記錄：員工號、發(fā)放日期、基本工資額、各種津貼額、各種扣除款項。

(7)月度考勤匯總：編號、員工姓名、員工ID、月度簽到數(shù)目、簽出數(shù)目、遲到次數(shù)、早退次數(shù)、加班時間等。

2.?E-R圖的生成

根據(jù)數(shù)據(jù)庫的需求分析，系統(tǒng)的E-R圖如圖8.7所示。圖8.7系統(tǒng)E-R圖

3.數(shù)據(jù)庫設(shè)計

1)新建數(shù)據(jù)庫

新建數(shù)據(jù)庫，指定保存位置，見圖8.8。

圖8.8新建數(shù)據(jù)庫

2)數(shù)據(jù)表設(shè)計

(1)新建“員工信息”表，見表8.1。

(2)新建“級別工資配置”表，見表8.2。

(3)新建“職位津貼配置”表，見表8.3。

(4)新建“部門信息”表，見表8.4。

(5)新建“企業(yè)工資計算規(guī)則”表，見表8.5。

(6)新建“月度出勤匯總”表，見表8.6。

(7)新建“企業(yè)工資發(fā)放記錄”表，見表8.7。

3)創(chuàng)建數(shù)據(jù)表

創(chuàng)建各個數(shù)據(jù)表，見圖8.9～圖8.11。

圖8.9創(chuàng)建數(shù)據(jù)表圖8.10創(chuàng)建員工表圖8.11創(chuàng)建部門信息表

4)主界面設(shè)計

(1)單擊“文件”菜單中的“選項”，在“自定義功能區(qū)”→“數(shù)據(jù)庫工具”界面選擇“新建選項卡”，見圖8.12～圖8.14。圖8.12“文件”菜單中的“選項”圖8.13選擇“新建選項卡”圖8.14新建選項卡

(2)選擇重命名“新建組”，見圖8.15。

圖8.15重命名“新建組”

(3)更改顯示名稱，為“工具”任選一個圖標，如圖8.16和圖8.17所示。圖8.16選擇圖標圖8.17選擇命令

(4)在“Access選項”窗口的左邊“自定義功能區(qū)”選擇“切換面板管理器”，再選擇“添加”，見圖8.18。圖8.18選擇“切換面板管理器”

此時可以看到“切換面板管理器”已添加到“工具”中，見圖8.19。圖8.19添加效果

(5)轉(zhuǎn)到切換面板管理器，見圖8.20。

圖8.20切換面板管理器

(6)單擊“是”按鈕，創(chuàng)建切換面板，見圖8.21。圖8.21創(chuàng)建切換面板

(7)選擇“新建”依次添加切換面板頁選項，如圖8.22和圖8.23所示。圖8.22添加切換面板頁選項圖8.22添加切換面板頁選項

(8)設(shè)置“企業(yè)人力資源管理系統(tǒng)”為默認面板，見圖8.24。圖8.24設(shè)置默認面板

(9)刪除“主切換面板”，見圖8.25。

圖8.25刪除“主切換面板”

(10)編輯“企業(yè)人力資源管理系統(tǒng)”切換面板頁，見圖8.26。

圖8.26編輯切換面板

(11)選擇“新建”，依次按圖8.27～圖8.31操作。

圖8.27新建圖8.28系統(tǒng)配置圖8.29新建項目

圖8.30退出系統(tǒng)圖8.31設(shè)置完成

(12)運行效果見圖8.32。

圖8.32運行效果

8.4系統(tǒng)設(shè)計與開發(fā)

1.級別工資配置功能設(shè)計

(1)在Access中新建一個窗體，在“新建窗體”對話框中選擇“窗體向?qū)А边x項，單擊“確定”按鈕，見圖8.33。圖8.33新建窗體

(2)系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄氨?字段”設(shè)置窗口，在“表/查詢”下拉列表中選擇“表:級別工資配置”表，選擇全部字段，見圖8.34。

圖8.34選擇“表:級別工資配置”表

(3)用鼠標左鍵單擊選擇字段，如圖8.35所示。

圖8.35選擇字段

(4)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄安季帧贝翱谠O(shè)置，選擇“縱欄表”單選框，見圖8.36。圖8.36“布局”設(shè)置

(5)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄皹祟}”設(shè)置窗口，輸入“級別工資配置”，接受其他默認選項，見圖8.37。圖8.37制定標題

(6)單擊“完成”按鈕，系統(tǒng)轉(zhuǎn)入窗體設(shè)計視圖，可以對窗體顯示的標簽和文本框進行修改，見圖8.38。

圖8.38設(shè)計視圖

以上就是以“窗體向?qū)А狈绞娇焖俳⒁粋€窗體的基本過程，窗體的運行效果和使用見圖8.39。

圖8.39運行效果

2.職位津貼配置窗體功能設(shè)計

職位津貼配置窗體功能設(shè)計與級別工資配置功能設(shè)計類似。

(1)系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄氨?字段”設(shè)置窗口，在“表/查詢”下拉列表中選擇“表：職位津貼配置”表，選擇全部字段，見圖8.40。

(2)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄安季帧痹O(shè)置窗口，選擇“縱欄表”單選框，見圖8.41。

圖8.40選擇“表：職位津貼配置”表圖8.41“布局”設(shè)置

(3)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄皹祟}”設(shè)置窗口，輸入“職位津貼配置”，選中“修改窗體設(shè)計”單選框，見圖8.42。圖8.42制定標題

(4)單擊“完成”按鈕，系統(tǒng)轉(zhuǎn)入窗體設(shè)計視圖，可以對窗體顯示的標簽和文本框進行修改，見圖8.43。圖8.43設(shè)計視圖

(5)運行窗體，效果如圖8.44所示。

圖8.44運行效果

3.部門信息窗體設(shè)計

部門信息窗體的建立過程與級別工資配置窗體的建立過程類似。

(1)系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄氨?字段”設(shè)置窗口，在“表/查詢”下拉列表中選擇“表：部門信息”表，選擇全部字段，見圖8.45。

(2)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄安季帧痹O(shè)置窗口，選擇“縱欄表”單選框，見圖8.46。圖8.45選擇“表：部門信息”表圖8.46“布局”設(shè)置

(3)單擊“下一步”按鈕，系統(tǒng)轉(zhuǎn)入“窗體向?qū)А薄皹祟}”設(shè)置窗口，輸入“部門信息”，選中“修改窗體設(shè)計”單選框，見圖8.47。圖8.47為窗體制定標題

(4)單擊“完成”按鈕，系統(tǒng)轉(zhuǎn)入窗體設(shè)計視圖，可以對窗體顯示的標簽和文本框進行修改，見圖8.48。

圖8.48設(shè)計視圖

(5)運行窗體，效果如圖8.49所示。

圖8.49窗體運行效果

4.企業(yè)工資計算規(guī)則制定窗體設(shè)計

企業(yè)工資計算規(guī)則制定窗體提供了對企業(yè)工資的計算規(guī)則進行設(shè)置的功能，用戶可以確定除了基本工資和崗位津貼以外的各種補貼和扣除款項。詳細建立過程如下：

(1)在Access中新建一個空白窗體，在“新建窗體”對話框中選擇“設(shè)計視圖”選項，單擊“確定”按鈕，見圖8.50。圖8.50新建窗體

(2)在空白窗體上面添加四個文本框和一個按鈕，編輯窗體大小，分別設(shè)置四個文本框標簽的內(nèi)容為“加班補貼(元/小時)”、“出差補貼(元/天)”、“違紀扣除(元/次)”和“缺勤(元/天)”。設(shè)置按鈕的名稱和標題為“提交”，見圖8.51。圖8.51編輯窗體

(3)設(shè)置“窗體”的“導航按鈕”屬性為“否”，見圖8.52。

圖8.52設(shè)置“導航按鈕”屬性

(4)單擊“提交”按鈕，添加事件，見圖8.53。圖8.53添加事件窗口

(5)在VBA編輯器環(huán)境下，選擇“工具”菜單中的“引用”，見圖8.54。

圖8.54選擇“引用”

(6)添加“MicrosoftActiveXDataObjects2.1”，見圖8.55。圖8.55添加“MicrosoftActiveXDataObjects2.1”

(7)在按鈕單擊事件過程中添加代碼，見圖8.56。

圖8.56添加代碼

(8)軟件運行效果見圖8.57。

圖8.57運行效果

5.工資發(fā)放窗體設(shè)計

(1)工資發(fā)放窗體提供了計算企業(yè)所有員工上月應(yīng)得工資總額和添加員工領(lǐng)取工資記錄的功能，首先在Access中新建一個窗體，見圖8.58。

圖8.58新建窗體

(2)在窗體上添加一個組合框，系統(tǒng)進入組合框向?qū)В妶D8.59和圖8.60。

圖8.59添加組合框

(3)單擊“下一步”按鈕，在“表”或“查詢”列表中選中“表：員工信息”表，見圖8.61。

圖8.60確定獲取數(shù)值的方式圖8.61選擇“表：員工信息”表

(4)單擊“下一步”按鈕，在可用字段中選中“員工ID”，單擊“完成”按鈕，見圖8.62至圖8.66。

圖8.62選擇“員工ID”圖8.63確定排序方式圖8.64指定列的寬度圖8.65指定標簽圖8.66布局視圖

(5)添加一個組合框，在向?qū)е羞x擇“自行鍵入所需的值”單選框，單擊“下一步”按鈕，在編輯框中添加相應(yīng)的值，見圖8.67。圖8.67選擇“自行鍵入所需的值”

(6)單擊“下一步”按鈕，輸入“列數(shù)”，再單擊“完成”按鈕；在“請為組合框指定標簽”窗格中輸入“月份”，然后單擊“完成”按鈕，見圖8.68和圖8.69。圖8.68輸入“月份”圖8.69指定標簽

(7)添加“工資發(fā)放”按鈕，設(shè)置屬性“名稱”和“標題”，見圖8.70。

圖8.70添加“工資發(fā)放”按鈕

(8)右鍵單擊“工資發(fā)放”按鈕，選擇“事件生成器”→“代碼生成器”，添加如下代碼：

PrivateSubCommand工資發(fā)放_Click()

Dimparameter_overtimeAsInteger

Dimparameter_onsiteAsInteger

Dimparameter_deductAsInteger

Dimparameter_absentAsInteger

Dimbasic_levelAsInteger

Dimposition_levelAsInteger

DimsectionIDAsString

Dimbasic_rateAsInteger

Dimposition_rateAsInteger

Dimlate_timesAsInteger

Dimearly_timesAsInteger

Dimonsite_daysAsInteger

Dimabsent_daysAsInteger

Dimovertime_hoursAsInteger

DimtotalmonthAsInteger

DimsqlAsString

DimrstAsADODB.Recordset

IfIsNull(員工ID)=TrueThen

MsgBox“請選擇員工ID”

DoCmd.GoToControl[員工ID]

ElseIfIsNull(月份)=TrueThen

MsgBox“請選擇月份ID”

DoCmd.GoToControl[月份]

Else

‘查詢計算規(guī)則

sql=“select*from企業(yè)工資計算規(guī)則”

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

parameter_overtime=rst!加班補貼

parameter_onsite=rst!出差補貼

parameter_deduct=rst!遲到早退

parameter_absent=rst!缺勤

Else

MsgBox“沒有制定工資計算規(guī)則”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢級別、崗位和其他配置

sql=“select*from員工信息where[員工ID]=’”&Me![員工ID]&“‘;”

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

basic_level=rst!基本工資級別ID

position_level=rst!崗位津貼級別ID

sectionID=rst!部門ID

Else

MsgBox“沒有該員工的級別信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢個人該月考勤情況

sql=“select*from月度出勤匯總where員工號=’”&Me![員工ID]&“‘”

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

late_times=rst!遲到次數(shù)

early_times=rst!早退次數(shù)

absent_days=rst!請假天數(shù)

onsite_days=rst!出差天數(shù)

overtime_hours=rst!加班時間匯總

Else

MsgBox“沒有該員工的考勤信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢級別配置

sql=“select*from級別工資配置where[級別ID]=”&basic_level

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

basic_rate=rst!級別對應(yīng)數(shù)額

Else

MsgBox“沒有該級別的工資信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢崗位配置

sql=“select*from職位津貼配置where[職位ID]=”&position_level

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

position_rate=rst!職位對應(yīng)數(shù)額

Else

MsgBox“沒有該職位的工資信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘計算該月應(yīng)得工資額

TotalMonth=basic_rate_

+position_rate_

-(late_times+early_times)*parameter_deduct_

-(absent_days*parameter_absent)_

+(onsite_days*parameter_onsite)_

+(overtime_hours*parameter_overtime)

MsgBoxTotalMonth

‘在工資發(fā)放表中添加一個記錄

sql=“select*from企業(yè)工資發(fā)放記錄”

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.LockType=adLockOptimistic

rst.CursorType=adOpenKeyset

rst.Opensql

Withrst

.AddNew

!年份=Me![年份]

!月份=Me![月份]

!日期=Date

!員工ID=Me![員工ID]

!基本工資數(shù)額=basic_rate

!崗位津貼數(shù)額=position_rate

!加班補貼數(shù)額=overtime_hours*parameter_overtime

!出差補貼數(shù)額=onsite_days*parameter_onsite

!違紀扣除數(shù)額=(late_times+early_times)*parameter_deduct

!實際應(yīng)發(fā)數(shù)額=TotalMonth

EndWith

rst.Update

rst.Close

Setrst=Nothing

EndIf

sql=“實際發(fā)放工資額=”&TotalMonth

MsgBoxsql

‘

Me.Visible=False

EndSub

6.工資查詢窗體設(shè)計

(1)建立一個窗體，然后添加相應(yīng)的組合框和按鈕。以下是該窗體特定的設(shè)置。

將“窗體”的“導航按鈕”設(shè)置為“否”；在組合框向?qū)е?，設(shè)置兩個組合框“開始月份”和“結(jié)束月份”的屬性，“行來源屬性”設(shè)為“值列表”，見圖8.71。

圖8.71建立窗體

(2)單擊“個人查詢”按鈕，系統(tǒng)調(diào)用“個人工資情況”報表，添加相應(yīng)的代碼，見圖8.72。

圖8.72添加事件

(3)單擊“個人查詢”按鈕，系統(tǒng)調(diào)用“個人工資情況”報表，其相應(yīng)的代碼如下：

PrivateSubCommand個人查詢_Click()

IfIsNull([員工ID])Then

MsgBox“您必須輸入員工號。”

Else

If[開始月份]>[結(jié)束月份]Then

MsgBox“結(jié)束月份必須大于開始月份?！?/p>

Else

DoCmd.OpenReport“個人工資情況”，acViewPreview，，，acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

7.個人工資情況查詢設(shè)計

(1)個人工資情況查詢用于查詢指定時間段內(nèi)的個人工資情況。新建查詢見圖8.73。

圖8.73新建