1…在考生文件夹下有学生成绩数据库 xuesheng3,包括如下所示 3 个表文件以及相关的索引文
件:
1)xs.dbf(学生文件: 学号 C8,姓名 C8,性别 C2,班级 C5;另有索引文件 XS.IDX,索
引键:学号)
2)cj.dbf(成绩文件: 学号 C8,课程名 C20,成绩 N5.1;另有索引文件 CJ.IDX,索引键:
学号)
3)cjb.dbf(成绩表文件:学号 C8,姓名 C8,班级 C5,课程名 C12,成绩 N5.1)
设计一个名为 XS3 的菜单,菜单中有两个菜单项"计算"和"退出"。
程序运行时, 单击"计算"菜单项应完成下列操作:
将所有选修了"计算机基础"的学生的"计算机基础"成绩,按成绩由高到低的顺序填到成绩表
文件 CJB.DBF 中(首先须将文件中原有数据清空)。
单击"退出"菜单项,程序终止运行。
(注:相关数据表文件存在于考生文件夹下)
**********"计算"菜单命令的程序设计**********
SET TALK OFF
OPEN DATABASE xuesheng3
SELECT cj.学号, xs.班级, xs.姓名, cj.课程名, c.成绩;
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
**********************************************
在"退出"菜单项的"命令"文本框中编写程序代码:SET SYSMENU TO DEFAULT。
选择菜单命令"菜单"-"生成",生成一个菜单文件"xs3.mpr"。关闭设计窗口,在命令窗口输入
命令:DO xs3.mpr,看到 Visual FoxPro 的菜单栏被新建的菜单所代替,单击"退出"菜单命令将
恢复系统菜单。
在考生文件夹下完成下列操作:
(1)利用 SQL SELECT 命令将表 stock_sl.dbf 复制到 stock_bk.dbf。
(2)利用SQL INSERT命令插入记录("600028",4.36, 4.60, 5500)到 stock_bk.dbf表。
(3)利用 SQL UPDATE 命令将 stock_bk.dbf 表中"股票代码"为"600007"的股票"现价"改为 8.88。
(4)利用 SQL DELETE 命令删除 stock_bk.dbf 表中"股票代码"为"600000"的股票。
【答案】
请查看 sql_a1.txt 文件,其中的 4 条语句分别为:
(1)SELECT * FROM stock_s1 INTO TABLE stock_bk
(2)INSERT INTO stock_bk VALUE("600028",4.36,4.60,5500)
(3)UPDATE stock_bk SET 现价=8.88 WHERE 股票代码="600007"
(4)DELETE FROM stock_bk WHERE 股票代码="600000"
3. 在考生文件夹下有仓库数据库 ck3,包括如下所示两个表文件:
ck(仓库号 C(4),城市 C(8),面积 N(4))