华南俳烁实业有限公司

綜合應用（1小題，計30分）

在考生文件夾下，打開SELLDB數(shù)據(jù)庫，完成如下綜合應用：

創(chuàng)建一個標題名為"部門銷售查詢"、表單名為Form1，文件名為XS的表單，如下圖所示。

表單要求如下：

在該表單中設(shè)計兩個標簽、兩個文本框、一個表格和兩個命令按鈕。

1. 兩個標簽對象標題文本分別為"部門號"(Label1)和"年度"(Label2)；兩個文本框分別用于輸入部門號(Text1)和年度(Text2)；表格控件用于顯示查詢結(jié)果(Grid1)。

2. 兩個命令按鈕的功能如下：

⑴ "查詢"按鈕(Command1)：在該按鈕的Click事件中編寫程序，根據(jù)輸入的部門號和年度，在表格控件中顯示：該部門銷售的"商品號"、"商品名"、"一季度利潤"、"二季度利潤"、"三季度利潤"和"四季度利潤"，將查詢結(jié)果存儲到以"xs+部門號"為名稱的表中(例如，部門號為02，則相應的表名為xs02.dbf)。

注意：表的字段名分別為："商品號"、"商品名"、"一季度利潤"、"二季度利潤"、"三季度利潤"和"四季度利潤"。

⑵ "退出"按鈕(Command2)：關(guān)閉并釋放表單。

注意：表格控件的RecordSourceType屬性設(shè)置為"4－SQL說明"；表單設(shè)計完成后，運行該表單，輸入部門號：02，年度：2005，單擊"查詢"按鈕進行查詢。

解題思路：

1. 新建表單. 在“表單設(shè)計器-xs.scx”中，在“屬性”的Caption處輸入“部門銷售查詢”。 在“表單設(shè)計器-xs.scx”中，添加兩個標簽，在第1個標簽Label1“屬性”的Caption處輸入“部門號”，在第2個標簽Label1“屬性”的Caption處輸入“年度”。在“表單設(shè)計器-xs.scx”中，添加兩個文本框（Text1和Text2）。在“表單設(shè)計器-xs.scx”中，添加一個表格Grid1，在其“屬性”的RecordSourceType處選擇“4 - SQL 說明”。在“表單設(shè)計器-xs.scx”中，添加兩個命令按鈕，在第1個命令按鈕“屬性”窗口的Caption處輸入“查詢”，在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。在“表單設(shè)計器”中，雙擊“查詢”命令按鈕，在“Command1.Click”編輯窗口中輸入下列語句，接著關(guān)閉編輯窗口。

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 "

在“表單設(shè)計器”中，雙擊“退出”命令按鈕，在“Command2.Click”編輯窗口中輸入

“Release Thisform”語句，接著關(guān)閉編輯窗口。