《管理信息系統(tǒng)設(shè)計(jì)實(shí)踐教程》課件第8章

第8章

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

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

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

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

8.5報(bào)表設(shè)計(jì)

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

動(dòng)手做實(shí)驗(yàn)

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

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

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

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

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

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

3)員工工資的查詢

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

2.系統(tǒng)預(yù)覽

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

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

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

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

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

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

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

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

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

圖8.6“級(jí)別工資配置”窗體界面

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

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

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

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

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

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

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

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

4)報(bào)表生成模塊

8.3數(shù)

據(jù)

庫(kù)

設(shè)

計(jì)

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

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

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

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

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

(3)員工基本工資級(jí)別信息：級(jí)別編號(hào)、級(jí)別說(shuō)明，該級(jí)別的基本工資額。

(4)員工職位津貼級(jí)別信息：級(jí)別編號(hào)、級(jí)別說(shuō)明，該級(jí)別的津貼額。

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

(6)工資發(fā)放記錄：?jiǎn)T工號(hào)、發(fā)放日期、基本工資額、各種津貼額、各種扣除款項(xiàng)。

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

2.?E-R圖的生成

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

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

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

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

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

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

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

(2)新建“級(jí)別工資配置”表，見(jiàn)表8.2。

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

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

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

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

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

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

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

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

4)主界面設(shè)計(jì)

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

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

圖8.15重命名“新建組”

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

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

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

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

圖8.20切換面板管理器

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

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

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

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

圖8.25刪除“主切換面板”

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

圖8.26編輯切換面板

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

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

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

(12)運(yùn)行效果見(jiàn)圖8.32。

圖8.32運(yùn)行效果

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

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

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

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

圖8.34選擇“表:級(jí)別工資配置”表

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

圖8.35選擇字段

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

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

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

圖8.38設(shè)計(jì)視圖

以上就是以“窗體向?qū)А狈绞娇焖俳⒁粋€(gè)窗體的基本過(guò)程，窗體的運(yùn)行效果和使用見(jiàn)圖8.39。

圖8.39運(yùn)行效果

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

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

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

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

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

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

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

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

圖8.44運(yùn)行效果

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

部門信息窗體的建立過(guò)程與級(jí)別工資配置窗體的建立過(guò)程類似。

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

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

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

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

圖8.48設(shè)計(jì)視圖

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

圖8.49窗體運(yùn)行效果

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

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

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

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

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

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

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

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

圖8.54選擇“引用”

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

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

圖8.56添加代碼

(8)軟件運(yùn)行效果見(jiàn)圖8.57。

圖8.57運(yùn)行效果

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

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

圖8.58新建窗體

(2)在窗體上添加一個(gè)組合框，系統(tǒng)進(jìn)入組合框向?qū)?，?jiàn)圖8.59和圖8.60。

圖8.59添加組合框

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

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

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

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

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

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

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

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

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

PrivateSubCommand工資發(fā)放_(tái)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“請(qǐng)選擇員工ID”

DoCmd.GoToControl[員工ID]

ElseIfIsNull(月份)=TrueThen

MsgBox“請(qǐng)選擇月份ID”

DoCmd.GoToControl[月份]

Else

‘查詢計(jì)算規(guī)則

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

Setrst=NewADODB.Recordset

rst.ActiveConnection=CurrentProject.Connection

rst.CursorType=adOpenDynamic

rst.LockType=adLockOptimistic

rst.Opensql

IfNot(rst.EOF)Then

parameter_overtime=rst!加班補(bǔ)貼

parameter_onsite=rst!出差補(bǔ)貼

parameter_deduct=rst!遲到早退

parameter_absent=rst!缺勤

Else

MsgBox“沒(méi)有制定工資計(jì)算規(guī)則”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢級(jí)別、崗位和其他配置

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!基本工資級(jí)別ID

position_level=rst!崗位津貼級(jí)別ID

sectionID=rst!部門ID

Else

MsgBox“沒(méi)有該員工的級(jí)別信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢個(gè)人該月考勤情況

sql=“select*from月度出勤匯總where員工號(hào)=’”&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!請(qǐng)假天數(shù)

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

overtime_hours=rst!加班時(shí)間匯總

Else

MsgBox“沒(méi)有該員工的考勤信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘查詢級(jí)別配置

sql=“select*from級(jí)別工資配置where[級(jí)別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!級(jí)別對(duì)應(yīng)數(shù)額

Else

MsgBox“沒(méi)有該級(jí)別的工資信息”

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!職位對(duì)應(yīng)數(shù)額

Else

MsgBox“沒(méi)有該職位的工資信息”

ExitSub

EndIf

rst.Close

Setrst=Nothing

‘計(jì)算該月應(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ā)放表中添加一個(gè)記錄

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

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

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

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

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

EndWith

rst.Update

rst.Close

Setrst=Nothing

EndIf

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

MsgBoxsql

‘

Me.Visible=False

EndSub

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

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

將“窗體”的“導(dǎo)航按鈕”設(shè)置為“否”；在組合框向?qū)е校O(shè)置兩個(gè)組合框“開(kāi)始月份”和“結(jié)束月份”的屬性，“行來(lái)源屬性”設(shè)為“值列表”，見(jiàn)圖8.71。

圖8.71建立窗體

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

圖8.72添加事件

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

PrivateSubCommand個(gè)人查詢_Click()

IfIsNull([員工ID])Then

MsgBox“您必須輸入員工號(hào)?！?/p>

Else

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

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

Else

DoCmd.OpenReport“個(gè)人工資情況”，acViewPreview，，，acWindowNormal

Me.Visible=False

EndIf

EndIf

EndSub

7.個(gè)人工資情況查詢?cè)O(shè)計(jì)

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

圖8.73新建