计算机二级VFP上机考试命令速记：综合篇(6)

　　&&表单mystu "计算"按钮，按照成绩“升序”或“降序”

　　DO CASE

　　CASE THISFORM.myOption.VALUE=1

　　SELECT 学生.学号, 选课.成绩;

　　FROM 学生!课程 INNER JOIN 学生!选课;

　　INNER JOIN 学生!学生;

　　ON 学生.学号 = 选课.学号;

　　ON 课程.课程号 = 选课.课程号;

　　WHERE AT("C语言",课程.课程名称) > 0;

　　ORDER BY 选课.成绩;

　　INTO TABLE stu_sort1

　　CASE THISFORM.myOption.VALUE=2

　　SELECT 学生.学号, 选课.成绩;

　　FROM 学生!课程 INNER JOIN 学生!选课;

　　INNER JOIN 学生!学生;

　　ON 学生.学号 = 选课.学号;

　　ON 课程.课程号 = 选课.课程号;

　　WHERE AT("C语言",课程.课程名称) > 0;

　　ORDER BY 选课.成绩 DESC;

　　INTO TABLE stu_sort2

　　ENDCASE

　　&&菜单-“查询”医院数据库doct3 医生 药品 处方

　　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)

　　&&表单myform1-“统计” 部门人数统计

　　SELECT 部门名称 FROM 部门信息;

　　WHERE 部门号=ALLT(THISFORM.combo1.DISPLAYVALUE) &&取得组合框里的值

　　INTO ARRAY temp &&将结果放到临时数组temp中

　　THISFORM.text1.VALUE=temp(1,1) &&取得结果显示到文本框text1中

　　SELECT COUNT(工号) FROM 员工 &&以下代码完全类似

　　WHERE 部门号=ALLT(THISFORM.combo1.DISPLAYVALUE)

　　INTO ARRAY temp2

　　THISFORM.text2.VALUE=temp2(1,1)

　　2011年计算机等级考试二级VFP基础教程汇总

　　2011年全国计算机等级考试二级VFP考点汇总

　　计算机等级考试二级VF八套全真预测试题及答案

　　计算机等级考试二级VFP上机操作常见错误总结