原创力文档- 1、本文档共18页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
VFP79套上机试卷答案VFP79套上机试卷答案
1 三菜单计算项
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
2 三 菜单统计项
SET TALK OFF
SET SAFETY OFF
OPEN DATABASE ck3.dbc
USE CK
SELECT * FROM CK WHERE 仓库号 NOT IN;
(SELECT 仓库号 FROM ZG WHERE 工资=1220);
AND 仓库号 IN (SELECT 仓库号 FROM ZG);
ORDER BY 面积;
INTO TABLE wh1.dbf
CLOSE ALL
SET SAFETY ON
SET TALK ON
3 三 菜单统计项
set talk off
open DATABASE WAGE3.DBC
SELECT 仓库号,AVG(工资) AS AvgGZ FROM ZG;
GROUP BY 仓库号 INTO CURSOR CurTable
SELECT ZG.* FROM ZG,CurTable;
WHERE ZG.仓库号=CurTable.仓库号 AND ZG.工资CurTable.AvgGZ;
ORDER BY zg.仓库号,zg.职工号 INTO TABLE EMP1
set talk on
4 三 菜单查询项
SET TALK OFF
OPEN DATABASE CHAXUN3
SELECT Dgd.*;
FROM chaxun3!zg INNER JOIN chaxun3!dgd;
INNER JOIN chaxun3!gys ;
ON Dgd.供应商号 = Gys.供应商号 ;
ON Zg.职工号 = Dgd.职工号;
WHERE Zg.工资 1230;
AND Gys.地址 = 北京;
ORDER BY Dgd.总金额 DESC;
INTO TABLE ord1
CLOSE DATABASE
SET TALK ON
5 三 菜单查询项
SET TALK OFF
OPEN DATABASE GZ3
SELECT DISTINC Zg.职工号, Zg.工资;
FROM gz3!zg INNER JOIN gz3!dgd ;
ON Zg.职工号 = Dgd.职工号;
WHERE Dgd.供应商号 IN;
(S7,S4,S6);
GROUP BY Zg.职工号 HAVING COUNT(DISTINCT 供应商号)=3;
ORDER BY Zg.工资 DESC;
INTO ARRAY TEMP
INSERT INTO GJ3 FROM ARRAY TEMP
CLOSE DATABASE
SET TALK ON
6 菜单查询
SET TALK OFF
SET SAFETY OFF
SELECT 姓名,年龄,处方号,药名,生产厂;
FROM yisheng,yao,chufang ;
WHERE CHUFANG.药编号=YAO.药编号 AND CHUFANG.职工号=YISHENG.职工号 AND 药名 IN (感冒);
ORDER BY 处方号;
INTO TABLE JG9
SELECT * FROM JG9 GROUP BY 姓名 INTO CURSOR CurTable
COUNT TO J
INSERT INTO JG9 (处方号) VALUES (J)
SET SAFETY ON
SET TALK ON
7 三 表单计算
set talk off
open data books
update score set 学分=0
update score set 学分=学分+2 where 物理=60
update score set 学分=学分+3 where 高数=60
update score set 学分=学分+4 where 英语=60
sele * from score order by 学分,学号 desc into table xf.dbf
set talk on
8 三 菜单计算
SET TALK OFF
SET SAFETY
文档评论（0）