第3題 綜合應用

在考生文件夾下有學生成績數據庫XUESHENG3，包括如下所示三個表文件：
（1）XS.DBF（學生文件：學號C8，姓名C8，性別C2，班級C5）
（2）CJ.DBF（成績文件：學號C8，課程名C20，成績N5.1）
（3）CJB.DBF（成績表文件:學號C8，姓名C8，班級C5，課程名C12，成績N5.1）
設計一個名為XS3的菜單，菜單中有兩個菜單項“計算”和“退出”。程序運行時，單擊“計算”菜單項應完成下列操作：
將所有選修了“計算機基礎”的學生的“計算機基礎”成績，按成績由高到低的順序填充到成績表文件GJB.DBF中（事前須將文件中原有數據清空）。
單擊“退出”菜單項，程序終止運行。

【答案】
（1）在命令窗口中輸入命令：create menu XS3，單擊“菜單”圖標按鈕。
（2）按題目要求輸入主菜單名稱“計算”和“退出”，如圖所示。

（3）在“計算”菜單項的結果下拉列表中選擇“過程”，單擊“創建”按鈕，在程序編輯窗口中輸入：
SET TALK OFF
OPEN DATABASE XUESHENG3
SELECT Cj.學號,Xs.班級,Xs.姓名,Cj.課程名,Cj.成績; 
FROM XUESHENG3!Xs INNER JOIN XUESHENG3!Cj;
ON Xs.學號=Cj.學號;
WHERE Cj.課程名='計算機';
ORDER BY Cj.成績 DESC;
INTO ARRAY AFieldsValue
DELETE FROM CJB
INSERT INTO CJB FROM ARRAY AFieldsValue
CLOSE ALL
USE CJB
PACK
USE
SET TALK ON
（4）在“退出”菜單項的結果下拉列表中選擇“命令”，在命令編輯窗口中輸入：set sysmenu to default.。
（5）選擇Visual FoxPro主窗口中的“菜單”→“生成”菜單命令。
表單運行結果如圖所示。
【解析】
菜單的建立一般在菜單設計器中進行。使用命令create menu menuname新建菜單，并打開菜單設計器。
在設計過程中注意菜單項結果的選擇，“計算”菜單項應使用“過程”，而“退出”菜單項應使用“命令”結果。
在編寫計算的過程代碼中，可以先將查詢結果存入臨時數據中，使用delete from btble語句清空表，用insert into tablename from array arraryname插入查詢結果。