第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插入查询结果。