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

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

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

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

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

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

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

　　SET SAFETY OFF

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

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

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

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

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

　　現(xiàn)有關(guān)于科研項(xiàng)目管理數(shù)據(jù)庫的模式如下：

　　項(xiàng)目（項(xiàng)目號，項(xiàng)目名，領(lǐng)域，經(jīng)費(fèi)，負(fù)責(zé)人）

　　人員（職工號，姓名，出生日期，職稱）

　　承擔(dān)（職工號，項(xiàng)目號，業(yè)績評分）

　　項(xiàng)目與人員是多對多聯(lián)系。一個(gè)項(xiàng)目只設(shè)一名負(fù)責(zé)人。一個(gè)研究領(lǐng)域可有多個(gè)研究項(xiàng)目。假設(shè)有數(shù)據(jù)倉庫（DW）、空間信息（SI）、人工智能（AI）、網(wǎng)絡(luò)（NW）等領(lǐng)域。

　　要求完成如下操作：

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

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

　　3.編寫一個(gè)按項(xiàng)目經(jīng)費(fèi)查找項(xiàng)目信息的查詢程序。允許用戶在鍵入的經(jīng)費(fèi)數(shù)值前加<、=、>三種不同的比較運(yùn)算符，以表示不同的查詢要求。如果查到，則顯示滿足條件的記錄；如果查不到，則顯示：“無滿足條件的項(xiàng)目！”。要求不退出本程序能繼續(xù)執(zhí)行查詢操作。（20分）

　　4.用FoxPro語言或SQL語言編寫程序完成以下查詢。在求解過程中有的題目可能需要建立若干臨時(shí)表。（以下三題依次為15分、20分、20分）

　?。?）列出項(xiàng)目清單，要包含所有項(xiàng)目的項(xiàng)目號、項(xiàng)目名、領(lǐng)域和經(jīng)費(fèi)信息，且在最后一行顯示：

　　數(shù)據(jù)倉庫和人工智能領(lǐng)域且經(jīng)費(fèi)在25萬元以上的項(xiàng)目有  xx  個(gè)。

　?。?）列出50歲以下的教授的職工號、姓名、出生日期和所承擔(dān)項(xiàng)目的總業(yè)績分，并按總業(yè)績分的降序排列。

　　（3）計(jì)算各個(gè)領(lǐng)域項(xiàng)目參加者的平均年齡，存入一個(gè)新表，其結(jié)構(gòu)如下：

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

　　現(xiàn)有關(guān)于科研項(xiàng)目管理數(shù)據(jù)庫的模式如下：

　　項(xiàng)目（項(xiàng)目號，項(xiàng)目名，領(lǐng)域，經(jīng)費(fèi)，負(fù)責(zé)人）

　　人員（職工號，姓名，出生日期，職稱）

　　承擔(dān)（職工號，項(xiàng)目號，業(yè)績評分）

　　項(xiàng)目與人員是多對多聯(lián)系。一個(gè)項(xiàng)目只設(shè)一名負(fù)責(zé)人。一個(gè)研究領(lǐng)域可有多個(gè)研究項(xiàng)目。假設(shè)有數(shù)據(jù)倉庫（DW）、空間信息（SI）、人工智能（AI）、網(wǎng)絡(luò)（NW）等領(lǐng)域。

　　要求完成如下操作：

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

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

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

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

　　3.編寫一個(gè)按項(xiàng)目經(jīng)費(fèi)查找項(xiàng)目信息的查詢程序。允許用戶在鍵入的經(jīng)費(fèi)數(shù)值前加<、=、>三種不同的比較運(yùn)算符，以表示不同的查詢要求。如果查到，則顯示滿足條件的記錄；如果查不到，則顯示：“無滿足條件的項(xiàng)目！”。要求不退出本程序能繼續(xù)執(zhí)行查詢操作。（20分）

　　答：程序清單如下

　　clear

　　set talk off

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

　　act=.t.

　　do while act

　　clear

　　ch=“ ”

　　n=0

　　@ 1，5 say “請輸入待查詢項(xiàng)目的經(jīng)費(fèi)信息（格式：<n或=n或>n）：”

　　@ 2，5 get ch picture “x” valid ch=“<” or ch=“=” or ch=“>”

　　@ 2，6 get n picture “9999999.99”

　　read

　　go top

　　clear

　　do case

　　case ch=“=”

　　scan for 經(jīng)費(fèi)=n

　　display

　　endscan

　　case ch=“<”

　　scan for 經(jīng)費(fèi)<n

　　display

　　endscan

　　case ch=“>”

　　scan for 經(jīng)費(fèi)>n

　　display

　　endscan

　　endcase

　　go top

　　n1=經(jīng)費(fèi)

　　n2=經(jīng)費(fèi)

　　do while not eof（）

　　if n1>經(jīng)費(fèi)

　　n1=經(jīng)費(fèi)

　　endif

　　if n2<經(jīng)費(fèi)

　　n2=經(jīng)費(fèi)

　　endif

　　skip

　　enddo

　　if （n<n1） or （n>n2）

　　@ row（）+1，5 say “無滿足條件的項(xiàng)目”

　　endif

　　@ row（）+1，5 say “還繼續(xù)查找嗎（Y/N）？” get act picture “L”

　　read

　　enddo

　　use

　　clear

　　set talk on

　　return

　　4.用FoxPro語言或SQL語言編寫程序完成以下查詢。在求解過程中有的題目可能需要建立若干臨時(shí)表。（以下三題依次為15分、20分、20分）

　?。?）列出項(xiàng)目清單，要包含所有項(xiàng)目的項(xiàng)目號、項(xiàng)目名、領(lǐng)域和經(jīng)費(fèi)信息，且在最后一行顯示：

　　數(shù)據(jù)倉庫和人工智能領(lǐng)域且經(jīng)費(fèi)在25萬元以上的項(xiàng)目有  xx  個(gè)。

　　答：程序清單如下

　　clear

　　set talk off

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

　　count for （領(lǐng)域=“數(shù)據(jù)倉庫” or 領(lǐng)域=“人工智能”） and （經(jīng)費(fèi)>250000） to n1

　　list off 項(xiàng)目號，項(xiàng)目名，領(lǐng)域，經(jīng)費(fèi)

　　？ “ 數(shù)據(jù)倉庫和人工智能領(lǐng)域且經(jīng)費(fèi)在25萬元以上的項(xiàng)目有”+str（n1，2）+“個(gè)”

　　use

　　set talk on

　　return

　　（2）列出50歲以下的教授的職工號、姓名、出生日期和所承擔(dān)項(xiàng)目的總業(yè)績分，并按總業(yè)績分的降序排列。

　　答：程序清單如下

　　clear

　　set talk off

　　select B.職工號 as 職工號，B.姓名 as 姓名，b.出生日期 as 出生日期，sum（C.業(yè)績評分） as 總業(yè)績分；

　　from 第4組實(shí)驗(yàn)題答案文件夾\xiangmu A， 第4組實(shí)驗(yàn)題答案文件夾\renyuan B，；

　　第4組實(shí)驗(yàn)題答案文件夾\chengdan C；

　　where （A.項(xiàng)目號=C.項(xiàng)目號） and （C.職工號=B.職工號） and （B.職稱=“教授”） ；

　　and （year（date（））-year（B.出生日期））<50；

　　group by B.姓名；

　　into table 第4組實(shí)驗(yàn)題答案文件夾\zongfen

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

　　index on -總業(yè)績分 to 第4組實(shí)驗(yàn)題答案文件夾\zongfen0

　　list off 職工號，姓名，出生日期，總業(yè)績分

　　close databases

　　set talk on

　　return

　?。?）計(jì)算各個(gè)領(lǐng)域項(xiàng)目參加者的平均年齡，存入一個(gè)新表，其結(jié)構(gòu)如下：

　　答：程序清單如下

　　clear

　　set talk off

　　select b.職工號 as 職工號，a.領(lǐng)域 as 領(lǐng)域，（year（date（））-year（b.出生日期）） as 年齡；

　　from 第4組實(shí)驗(yàn)題答案文件夾\xiangmu a， 第4組實(shí)驗(yàn)題答案文件夾\renyuan b，；

　　第4組實(shí)驗(yàn)題答案文件夾\chengdan c；

　　where a.項(xiàng)目號=c.項(xiàng)目號 and c.職工號=b.職工號；

　　into cursor tmp

　　select tmp.領(lǐng)域 as 領(lǐng)域，avg（tmp.年齡） as 平均年齡；

　　from tmp；

　　group by tmp.領(lǐng)域；

　　into table 第4組實(shí)驗(yàn)題答案文件夾\pingjun

　　close databases

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

　　list off

　　use

　　set talk on

　　return