综合应用（1小题，计30分）

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

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

. 文本框控件Text1

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

程序运行时在文本框中输入部门名,然后单击“确定”命令按钮计算该部门各

年度的销售额(合计)和利润(合计)(利润为“销售额-工资额”)，按年度升序将结

果(含年度、销售额和利润3个字段)保存在以部门名命名的dbf文件的同时，在

Grid1控件中显示计算的结果。

要求：程序完成后必须运行，并分别计算"笔记本产品部"和"计算机产品部"

按年度的销售额和利润情况。

解题思路：

1.建立表单，在“表单设计器”中，在其“属性”的Name处输入“myform”。在“表单设计器”中，分别添加一个文本框Text1和表格Grid1。在“表单设计器”中，添加一个命令按钮Command1，在其命令按钮的“属性”的Caption处输入“确定”。双击“确定”按钮，在“Command1.Click”编辑窗口中输入下列程序

dn=thisform.text1.value

SELECT Sell.年度, SUM(Sell.销售额) 销售额,;

SUM(Sell.销售额)- SUM(Sell.工资额) 利润;

FROM sell where 部门号 in;

(select 部门号 from dept where 部门名=dn);

GROUP BY Sell.年度 into dbf &dn

thisform.grid1.recordsource=dn