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

在考生文件夹下，打开SELLDB数据库，完成如下综合应用：

创建一个标题名为"部门销售查询"、表单名为Form1，文件名为XS的表单，如下图所示。

表单要求如下：

在该表单中设计两个标签、两个文本框、一个表格和两个命令按钮。

1. 两个标签对象标题文本分别为"部门号"(Label1)和"年度"(Label2)；两个文本框分别用于输入部门号(Text1)和年度(Text2)；表格控件用于显示查询结果(Grid1)。

2. 两个命令按钮的功能如下：

⑴ "查询"按钮(Command1)：在该按钮的Click事件中编写程序，根据输入的部门号和年度，在表格控件中显示：该部门销售的"商品号"、"商品名"、"一季度利润"、"二季度利润"、"三季度利润"和"四季度利润"，将查询结果存储到以"xs+部门号"为名称的表中(例如，部门号为02，则相应的表名为xs02.dbf)。

注意：表的字段名分别为："商品号"、"商品名"、"一季度利润"、"二季度利润"、"三季度利润"和"四季度利润"。

⑵ "退出"按钮(Command2)：关闭并释放表单。

注意：表格控件的RecordSourceType属性设置为"4－SQL说明"；表单设计完成后，运行该表单，输入部门号：02，年度：2005，单击"查询"按钮进行查询。

解题思路：

1. 新建表单. 在“表单设计器-xs.scx”中，在“属性”的Caption处输入“部门销售查询”。 在“表单设计器-xs.scx”中，添加两个标签，在第1个标签Label1“属性”的Caption处输入“部门号”，在第2个标签Label1“属性”的Caption处输入“年度”。在“表单设计器-xs.scx”中，添加两个文本框（Text1和Text2）。在“表单设计器-xs.scx”中，添加一个表格Grid1，在其“属性”的RecordSourceType处选择“4 - SQL 说明”。在“表单设计器-xs.scx”中，添加两个命令按钮，在第1个命令按钮“属性”窗口的Caption处输入“查询”，在第2个命令按钮“属性”窗口的Caption处输入“退出”。在“表单设计器”中，双击“查询”命令按钮，在“Command1.Click”编辑窗口中输入下列语句，接着关闭编辑窗口。

X1 = ALLTRIM(ThisForm.Text1.Value)

X2 = ALLTRIM(ThisForm.Text2.Value)

ThisForm.Grid1.RecordSource = "SELECT 销售表.商品号, 商品名, 一季度利润, 二季度利润, 三季度利润, 四季度利润 FROM 销售表 JOIN 商品代码表 ON 销售表.商品号 = 商品代码表.商品号 WHERE 部门号 = X1 AND 年度 = X2 INTO TABLE xs&X1 "

在“表单设计器”中，双击“退出”命令按钮，在“Command2.Click”编辑窗口中输入

“Release Thisform”语句，接着关闭编辑窗口。