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

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

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

　　姓名 字符型(6)

　　課程名 字符型(8)

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

　　然后編寫程序prog1.prg，從xuesheng表和chengji表中找出所有成績不及格(分?jǐn)?shù)小于60)的學(xué)生信息(學(xué)號(hào)、姓名、課程名和分?jǐn)?shù))，并把這些數(shù)據(jù)保存到表table3中(若一個(gè)學(xué)生有多門課程不及格，在表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)的索引)，并通過DO WHILE循環(huán)語句實(shí)現(xiàn)規(guī)定的功能。最后運(yùn)行程序。

　　本題的主要考核點(diǎn)是自由表的建立以及程序的創(chuàng)建與編寫。

　　1.建立表可以使用"文件"菜單完成，選擇文件--新建--表--新建文件，在打開的表設(shè)計(jì)器中依次輸入各字段內(nèi)容。

　　2.建立程序可以使用"文件"菜單完成，選擇文件--新建-程序--新建文件，在打開的程序文本框中輸入下列命令：

　　SET TALK OFF

　　OPEN DATABASE cj_m

　　SELECT * FROM table3 WHERE .f. INTO TABLE temp

　　SELECT 1

　　USE xuesheng

　　INDEX ON 學(xué)號(hào) TAG 學(xué)號(hào)

　　SELECT 2

　　USE chengji

　　INDEX ON 學(xué)號(hào) TAG 學(xué)號(hào)

　　SET RELATION TO 學(xué)號(hào) INTO xuesheng

　　GO TOP

　　DO WHILE .NOT.EOF()

　　IF chengji.數(shù)學(xué)<60

　　INSERT INTO temp values (xuesheng.學(xué)號(hào),xuesheng.姓名,'數(shù)學(xué)',chengji.數(shù)學(xué))

　　ENDIF

　　IF chengji.英語<60

　　INSERT INTO temp values (xuesheng.學(xué)號(hào),xuesheng.姓名,'英語',chengji.英語)

　　ENDIF

　　IF chengji.信息技術(shù)<60

　　INSERT INTO temp values (xuesheng.學(xué)號(hào),xuesheng.姓名,'信息技術(shù)',chengji.信息技術(shù))

　　ENDIF

　　SKIP

　　ENDDO

　　SELECT * FROM temp ORDER BY 分?jǐn)?shù),學(xué)號(hào) DESC INTO ARRAY arr

　　INSERT INTO table3 FROM ARRAY arr

　　CLOSE DATABASE

　　CLOSE TABLES ALL

　　DROP TABLE temp

　　SET TALK ON

　　RETURN

　　最后運(yùn)行程序(本評(píng)析僅供參考)。