07年自考“數(shù)據(jù)庫(kù)及其應(yīng)用Foxpro”實(shí)驗(yàn)題（3） -自考串講筆記

　　第3組實(shí)驗(yàn)題

　　上機(jī)步驟和操作說(shuō)明

　　（1）Windows NT用戶注冊(cè)，用戶名為個(gè)人賬號(hào)，口令欄直接按回車(chē)。

　?。?）進(jìn)入Visual FoxPro（VFP）系統(tǒng)環(huán)境，中途不要退出。

　　（3）在VFP命令窗口中鍵入以下兩條命令：

　　SET DEFAULT TO Z：\<目錄名>   （目錄名即你的賬號(hào)，目錄已建好）

　　SET SAFETY OFF

　　第一條命令的目的是設(shè)置你的缺省工作目錄，這樣，操作命令中就不要再帶路徑名。

　　（4）按題目要求創(chuàng)建數(shù)據(jù)庫(kù)，錄入數(shù)據(jù)，編寫(xiě)程序。

　?。?）在程序編輯器窗口錄入、修改程序，編輯完畢，保存后再執(zhí)行。

　　（6）第3題和第4題的各小題，都要分別保存為一個(gè)程序文件。文件名要用“賬號(hào)+題號(hào)”命名，例如：C100_3，表示是C100賬戶的第3題的程序。C108_4_2表示是C108賬戶的第4題的第（2）小題的程序。

　?。?）做題次序不限，實(shí)現(xiàn)方法不限。題目中所謂的“表”即指“數(shù)據(jù)庫(kù)文件”。為減少錄入的負(fù)擔(dān)，表名、字段名、變量名等盡量不要用漢字，可用英文或漢語(yǔ)拼音。

　　現(xiàn)有關(guān)于工資管理數(shù)據(jù)庫(kù)的模式如下：

　　職工（職工號(hào)，姓名，出生日期，職級(jí)）

　　職務(wù)（職級(jí)，職務(wù)，工資，補(bǔ)貼）

　　扣除（職工號(hào)，房租，水費(fèi)，電費(fèi)）

　　職工的收入與職級(jí)直接掛鉤。職級(jí)與職務(wù)一一對(duì)應(yīng)，假設(shè)1級(jí)干部為處長(zhǎng)，2級(jí)干部為副處長(zhǎng)，等等。每個(gè)職工收入的扣除部分每月更新一次。

　　要求完成如下操作：

　　1.按題目要求建立表結(jié)構(gòu)，各表各個(gè)字段的名字、數(shù)據(jù)類(lèi)型、長(zhǎng)度等根據(jù)語(yǔ)義和查詢的需要自行決定。根據(jù)查詢需要建立索引。               （15分）

　　2.利用你所熟悉的方法向各表錄入適量的、滿足題目需要的數(shù)據(jù)。各數(shù)據(jù)項(xiàng)的取值范圍應(yīng)該合理、有效，并與查詢要求相呼應(yīng)。               （10分）

　　3.編寫(xiě)一個(gè)工資單打印程序。假設(shè)各項(xiàng)數(shù)據(jù)已計(jì)算完畢，并存放于表payroll.dbf中。工資單格式如下。表格線可只畫(huà)橫線，不畫(huà)豎線。        （20分）

　　4.用FoxPro語(yǔ)言或SQL語(yǔ)言編寫(xiě)程序完成以下查詢。（15分、20分、20分）

　?。?）列出職工名單，要包含所有職工的全部屬性，且在最后一行顯示：

　　處級(jí)干部的平均年齡為   xx   歲。

　?。ㄌ幖?jí)干部是指職務(wù)為處長(zhǎng)、副處長(zhǎng)的職工）

　?。?）為打印工資單準(zhǔn)備好數(shù)據(jù)，存入表payroll.dbf中。其中“扣除”一欄的數(shù)據(jù)，用“扣除”關(guān)系所提供的數(shù)據(jù)來(lái)更新。

　?。?）列出按部門(mén)工資匯總清單，格式如下：

　　第3組實(shí)驗(yàn)題

　　現(xiàn)有關(guān)于工資管理數(shù)據(jù)庫(kù)的模式如下：

　　職工（職工號(hào)，姓名，出生日期，職級(jí)）

　　職務(wù)（職級(jí)，職務(wù)，工資，補(bǔ)貼）

　　扣除（職工號(hào)，房租，水費(fèi)，電費(fèi)）

　　職工的收入與職級(jí)直接掛鉤。職級(jí)與職務(wù)一一對(duì)應(yīng)，假設(shè)1級(jí)干部為處長(zhǎng)，2級(jí)干部為副處長(zhǎng)，等等。每個(gè)職工收入的扣除部分每月更新一次。

　　要求完成如下操作：

　　1.按題目要求建立表結(jié)構(gòu)，各表各個(gè)字段的名字、數(shù)據(jù)類(lèi)型、長(zhǎng)度等根據(jù)語(yǔ)義和查詢的需要自行決定。根據(jù)查詢需要建立索引。（15分）

　　答：見(jiàn)第3組實(shí)驗(yàn)題答案文件夾。

　　2.利用你所熟悉的方法向各表錄入適量的、滿足題目需要的數(shù)據(jù)。各數(shù)據(jù)項(xiàng)的取值范圍應(yīng)該合理、有效，并與查詢要求相呼應(yīng)。（10分）

　　答：見(jiàn)第3組實(shí)驗(yàn)題答案文件夾。

　　3.編寫(xiě)一個(gè)工資單打印程序。假設(shè)各項(xiàng)數(shù)據(jù)已計(jì)算完畢，并存放于表payroll.dbf中。工資單格式如下。表格線可只畫(huà)橫線，不畫(huà)豎線。（20分）

　　答：程序清單如下

　　clear

　　set talk off

　　use 第3組實(shí)驗(yàn)題答案文件夾\payroll

　　@ 0，1 say “─────────────────────────────”

　　@ 1，1 say “部門(mén)號(hào)”

　　@ 1，8 say “職工號(hào)”

　　@ 1，15 say “姓名”

　　@ 1，23 say “工資”

　　@ 1，33 say “補(bǔ)貼”

　　@ 1，43 say “扣除”

　　@ 1，52 say “實(shí)發(fā)工資”

　　@ 2，1 say “─────────────────────────────”

　　i=1

　　scan

　　i=i+2

　　@ i，1 get 部門(mén)號(hào)

　　@ i，8 get 職工號(hào)

　　@ i，15 get 姓名

　　@ i，23 get 工資

　　@ i，33 get 補(bǔ)貼

　　@ i，43 get 扣除

　　@ i，52 get 實(shí)發(fā)工資

　　@ i+1，1 say “─────────────────────────────”

　　endscan

　　use

　　set talk on

　　return

　　4.用FoxPro語(yǔ)言或SQL語(yǔ)言編寫(xiě)程序完成以下查詢。（15分、20分、20分）

　?。?）列出職工名單，要包含所有職工的全部屬性，且在最后一行顯示：

　　處級(jí)干部的平均年齡為   xx   歲。

　?。ㄌ幖?jí)干部是指職務(wù)為處長(zhǎng)、副處長(zhǎng)的職工）

　　答：程序清單如下

　　clear

　　set talk off

　　select 2

　　use 第3組實(shí)驗(yàn)題答案文件夾\zhiwu index 第3組實(shí)驗(yàn)題答案文件夾\zhiwu0

　　select 1

　　use 第3組實(shí)驗(yàn)題答案文件夾\zhigong index 第3組實(shí)驗(yàn)題答案文件夾\zhigong1

　　set relation to 職級(jí) into b

　　average date（）-出生日期 for 職級(jí)=“1級(jí)” or 職級(jí)=“2級(jí)” to ave

　　list 職工號(hào)，姓名，出生日期，職級(jí)，b.職務(wù)，b.工資，b.補(bǔ)貼

　　？ “             處級(jí)干部的平均年齡為”+str（ave/365，2）+“歲”

　　close databases

　　set talk on

　　return