华南俳烁实业有限公司

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

在考生文件夾下，打開SDB數據庫，完成如下應用：

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

表單要求如下：

1. 為表單建立數據環(huán)境，向數據環(huán)境添加"學生表"。

2. 表單啟動后自動居中。

3. 在該表單中設計一個標簽、一個文本框、一個表格和兩個命令按鈕。

1) 標簽對象標題文本為"學生注冊日期"(Label1)；文本框用于輸入學生注冊日期(Text1)；表格控件用于顯示結果(Grid1)。

2) 命令按鈕的功能如下：

①"查詢"按鈕(Command1)：在該按鈕的Click事件中使用SQL的SELECT命令從"學生表"中查詢學生注冊日期等于文本框中指定的注冊日期的學生的學號、姓名、年齡、性別、班級和注冊日期，查詢結果按年齡降序排序，并將查詢結果在表格控件中顯示，同時將查詢結果存儲到表TABE中。

注意：查詢結果存儲到表TABE之前，應將表TABE中記錄清空。TABE表是已經建立好的表，它與學生表的結構不完全一樣，多兩個字段。

②"退出"按鈕(Command2)：的功能是"關閉和釋放表單"。

注意：表格控件的RecordSourceType屬性設置為"4－SQL說明"；表單設計完成后，運行該表單，查詢注冊日期等于2005年9月2日的學生信息。

解題思路：

1. 新建表單。 在“表單設計器”中，在“屬性”的Caption處輸入“查詢”，在AutoCenter處選擇“.T.- 真”。單擊“顯示\數據環(huán)境”菜單項，在“打開”對話框中雙擊表“學生表”，再單擊“關閉”來關閉“添加表或視圖”對話框。在“表單設計器-testb.scx”中，添加一個標簽Label1，在其“屬性”的Caption處輸入“學生注冊日期”。在“表單設計器-testb.scx”中，添加一個文本框Text1。在“表單設計器-testb.scx”中，添加一個表格Grid1，在其“屬性”的RecordSourceType處選擇“4 - SQL 說明”。在“表單設計器-testb.scx”中，添加兩個命令按鈕，在第1個命令按鈕“屬性”窗口的Caption處輸入“查詢”，在第2個命令按鈕“屬性”窗口的Caption處輸入“退出”。在“表單設計器”中，雙擊“查詢”命令按鈕，在“Command1.Click”編輯窗口中輸入下列語句，接著關閉編輯窗口。

ThisForm.Grid1.RecordSource = "SELECT 學號,姓名,年齡,性別,班級,注冊日期 FROM 學生表;

WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO CURSOR lsb"

SELECT 學號,姓名,年齡,性別,班級,注冊日期 FROM 學生表;

WHERE 注冊日期 = CTOD(ALLTRIM(ThisForm.Text1.Value)) ORDER BY 年齡 DESC INTO table ls

USE TABE

ZAP

APPEND FROM ls

USE

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

“Release Thisform”語句，接著關閉編輯窗口。