VFP79套上机试卷答案.docVIP

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