三、綜合應用(1小題，計30分)

　　設計一個表單，所有控件的屬性必須在表單設計器的屬性窗口中設置，表單

　　文件名為"外匯瀏覽"，表單界面如下所示：

　　其中：

　　1. "輸入姓名"為標簽控件Label1;

　　2. 表單標題為"外匯查詢";

　　3. 文本框的名稱為Text1，用于輸入要查詢的姓名，如張三豐;

　　4. 表格控件的名稱為Grid1，用于顯示所查詢人持有的外幣名稱和持有數量，RecordSourceType的屬性為0(表);

　　5. "查詢"命令按鈕的名稱為Command1，單擊該按鈕時在表格控件Grid1中按持有數量升序顯示所查詢人持有的外幣名稱和數量(如上圖所示)，并將結果存

　　儲在以姓名命名的DBF表文件中，如張三豐.DBF;

　　6. "退出"命令按鈕的名稱為Command2，單擊該按鈕時關閉表單。

　　完成以上表單設計后運行該表單，并分別查詢"林詩因"、"張三豐"和"李尋歡"所持有的外幣名稱和持有數量。

　　本題主要考核點：

　　表單文件的創建、控件的屬性的修改、SQL語句運用、表單的退出等知識點

　　本題解題思路：

　　操作過程：

　　①在命令窗口輸入命令：CREATE FORM 外匯瀏覽，打開表單設計器窗口。

　　②在表格上添加各文本框、命令按鈕、表格及相關的標簽，并進行適當的布置和大小調整。

　　③設置各標簽、命令按鈕以及表單的Caption屬性值。

　　④將表單的RecordSourceType屬性值設置為"4-SQL說明"。

　　⑤設置"查詢"按鈕的Click事件代碼：

　　SET TALK OFF

　　SET SAFETY OFF

　　a=ALLTRIM(THISFORM.text1.VALUE)

　　SELECT Rate_exchange.外幣名稱, Currency_sl.持有數量;

　　FROM 外匯管理!rate_exchange INNER JOIN 外匯管理!currency_sl;

　　ON Rate_exchange.外幣代碼 = Currency_sl.外幣代碼;

　　ORDER BY Currency_sl.持有數量;

　　WHERE Currency_sl.姓名=a;

　　INTO TABLE (a)

　　THISFORM.Grid1.RECORDSOURCE="(a)"

　　SET TALK ON

　　SET SAFETY ON

　　⑥設置"退出"按鈕的Click事件代碼：

　　THISFORM.RELEASE

　　⑦保存表單，關閉表單設計器窗口。