华南俳烁实业有限公司

　　綜合應(yīng)用(1小題，計(jì)30分)

　　利用表設(shè)計(jì)器在考生目錄下建立表table3，表結(jié)構(gòu)如下：

　　學(xué)號(hào) 字符型(10)

　　姓名 字符型(6)

　　課程名 字符型(8)

　　分?jǐn)?shù) 數(shù)值型(5,1)

　　然后編寫(xiě)程序prog1.prg，從xuesheng表和chengji表中找出所有成績(jī)不及格(分?jǐn)?shù)小于60)的學(xué)生信息(學(xué)號(hào)、姓名、課程名和分?jǐn)?shù))，并把這些數(shù)據(jù)保存到表table3中(若一個(gè)學(xué)生有多門(mén)課程不及格，在表table3中就會(huì)有多條記錄)。表table3中的各記錄應(yīng)該按分?jǐn)?shù)升序排序，分?jǐn)?shù)相同則按學(xué)號(hào)降序排序。要求在程序中用SET RELATION命令建立chengji表和xuesheng表之間的關(guān)聯(lián)(同時(shí)用INDEX命令建立相關(guān)的索引)，并通過(guò)DO WHILE循環(huán)語(yǔ)句實(shí)現(xiàn)規(guī)定的功能。最后運(yùn)行程序。

　　解題思路：

　　一、建立表文件，首先建立一個(gè)題目中要求的表。然后新建一個(gè)程序文件，編寫(xiě)如下的程序代碼，最后保存為prog1.prg并運(yùn)行，代碼如下：(同學(xué)們?nèi)绻�記不住，代碼可以不寫(xiě)了，不過(guò)你必須要把前面的兩大題給全部練熟)

　　clear

　　close all

　　select 0

　　use table3

　　dele all

　　pack

　　copy to ttt

　　select 0

　　use ttt

　　select 0

　　use xuesheng

　　index on 學(xué)號(hào) tag 學(xué)號(hào)

　　select 0

　　use chengji

　　set relation to 學(xué)號(hào) into xuesheng

　　go top

　　do while .not.eof()

　　if 數(shù)學(xué)<60

　　select ttt

　　append blank

　　replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名

　　replace 課程名 with "數(shù)學(xué)",分?jǐn)?shù) with chengji.數(shù)學(xué)

　　select chengji

　　endif

　　if 英語(yǔ)<60

　　select ttt

　　append blank

　　replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名

　　replace 課程名 with "英語(yǔ)",分?jǐn)?shù) with chengji.英語(yǔ)

　　select chengji

　　endif

　　if 信息技術(shù)<60

　　select ttt

　　append blank

　　replace 學(xué)號(hào) with xuesheng.學(xué)號(hào),姓名 with xuesheng.姓名

　　replace 課程名 with "信息技術(shù)",分?jǐn)?shù) with chengji.信息技術(shù)

　　select chengji

　　endif

　　skip

　　enddo

　　select ttt

　　sort on 分?jǐn)?shù),學(xué)號(hào)/d to ttt1

　　select table3

　　append from ttt1

　　close all