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

　　&&表单-“查询”输入学号

　　xuehao=alltrim(thisform.text1.value)

　　close all

　　use score1

　　locate for 学号=xuehao

　　if found()

　　SELECT Score1.学号, Course.课程名, Score1.成绩;

　　FROM score_manager!score1 INNER JOIN score_manager!course ;

　　ON Score1.课程号 = Course.课程号;

　　WHERE Score1.学号 = xuehao;

　　INTO CURSOR cc

　　thisform.grid1.recordsource="cc"

　　else

　　wait "学号不存在，请重新输入学号"

　　endif

　　&&表单-“计算”员工 部门

　　SELECT *, 月薪+津贴+奖金-医疗保险-养老保险 as 实得工资;

　　FROM 公司管理!员工;

　　GROUP BY 员工.员工号;

　　INTO TABLE table1.dbf

　　SELECT 部门.部门号, 部门.部门名称 AS 部门名,;

　　sum(月薪+津贴+奖金-医疗保险-养老保险) as 实发工资总额;

　　FROM 公司管理!部门 INNER JOIN 公司管理!员工 ;

　　ON 部门.部门号 = 员工.部门号;

　　GROUP BY 部门.部门号;

　　INTO TABLE table2.dbf

　　&& 菜单-“计算”股票管理数据库stock_6

　　SET TALK OFF

　　SET SAFETY OFF

　　OPEN DATABASE stock_6

　　SELECT 股票代码,COUNT(*) AS 买入次数,MAX(单价) AS 最高价;

　　FROM stock_mm;

　　WHERE 买卖标记;

　　GROUP BY 股票代码;

　　ORDER BY 股票代码;

　　INTO ARRAY AFieldsValue

　　DELETE FROM stock_cs

　　INSERT INTO stock_cs FROM ARRAY AFieldsValue

　　PACK

　　USE

　　SELECT * TOP 1 FROM stock_cs ORDER BY 买入次数 DESC INTO TABLE stock_x

　　SET SAFETY ON

　　SET TALK ON

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

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

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

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