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

　　第3組實驗題

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

　?。?）Windows NT用戶注冊，用戶名為個人賬號，口令欄直接按回車。

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

　?。?）在VFP命令窗口中鍵入以下兩條命令：

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

　　SET SAFETY OFF

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

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

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

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

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

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

　　職工（職工號，姓名，出生日期，職級）

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

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

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

　　要求完成如下操作：

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

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

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

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

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

　　處級干部的平均年齡為   xx   歲。

　?。ㄌ幖壐刹渴侵嘎殑?wù)為處長、副處長的職工）

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

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

　　第3組實驗題

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

　　職工（職工號，姓名，出生日期，職級）

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

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

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

　　要求完成如下操作：

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

　　答：見第3組實驗題答案文件夾。

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

　　答：見第3組實驗題答案文件夾。

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

　　答：程序清單如下

　　clear

　　set talk off

　　use 第3組實驗題答案文件夾\payroll

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

　　@ 1，1 say “部門號”

　　@ 1，8 say “職工號”

　　@ 1，15 say “姓名”

　　@ 1，23 say “工資”

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

　　@ 1，43 say “扣除”

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

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

　　i=1

　　scan

　　i=i+2

　　@ i，1 get 部門號

　　@ i，8 get 職工號

　　@ i，15 get 姓名

　　@ i，23 get 工資

　　@ i，33 get 補(bǔ)貼

　　@ i，43 get 扣除

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

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

　　endscan

　　use

　　set talk on

　　return

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

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

　　處級干部的平均年齡為   xx   歲。

　?。ㄌ幖壐刹渴侵嘎殑?wù)為處長、副處長的職工）

　　答：程序清單如下

　　clear

　　set talk off

　　select 2

　　use 第3組實驗題答案文件夾\zhiwu index 第3組實驗題答案文件夾\zhiwu0

　　select 1

　　use 第3組實驗題答案文件夾\zhigong index 第3組實驗題答案文件夾\zhigong1

　　set relation to 職級 into b

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

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

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

　　close databases

　　set talk on

　　return