计算机等级考试二级VFP上机试题及解题思路(68)

　　三、综合应用(1小题，计30分)

　　建立一个文件名和表单名均为myform的表单文件，表单上有：

　　. 表格控件grid1(RecordSourceType属性手工设置为"别名")

　　. 文本框控件Text1

　　. 命令按钮控件Command1(文本为"确定")

　　程序运行时在文本框中输入部门名，然后单击"确定"命令按钮计算该部门各年度的销售额(合计)和利润(合计)(利润为"销售额-工资额")，按年度升序将结果(含年度、销售额和利润3个字段)保存在以部门名命名的dbf文件的同时，在Grid1控件中显示计算的结果。

　　要求：程序完成后必须运行，并分别计算"笔记本产品部"和"计算机产品部"按年度的销售额和利润情况。

　　本题主要考核点：建立表单及SQL的使用等知识点。

　　本题解题思路：

　　1、以myform为表单名创建表单，文件名为myform。

　　2、按要求添加表格控件grid1、文本框控件、命令按钮控件Command1。设置grid1的RecordSourceType属性为"别名"，Command1名称为"确定"。

　　3、在"确定"按钮的CLICK事件代码中输入x="SELECT Sell.年度, sum(Sell.销售额) as 销售额,sum(Sell.销售额 - Sell.工资额) as 利润"

　　x=x+" FROM test_db!sell where 部门号 in (select 部门号 FROM DEPT.DBF WHERE 部门名='"+myform.text1.value+"')"

　　x=x+" GROUP BY Sell.年度"

　　x=x+" ORDER BY Sell.年度"

　　x=x+" INTO TABLE "+myform.text1.value

　　&x

　　myform.Grid1.recordsource=myform.text1.value

　　保存后，按题面要求输入相应部门名运行此表单。