計算機等級考試二級VFP上機試題及解題思路(35)

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

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

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

　　其中：

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

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

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

　　4. 表格控件的名稱為Grid1，用于顯示所查詢?nèi)顺钟械耐鈳琶�稱和持有數(shù)量，RecordSourceType的屬性為0(表);

　　5. "查詢"命令按鈕的名稱為Command1，單擊該按鈕時在表格控件Grid1中按持有數(shù)量升序顯示所查詢?nèi)顺钟械耐鈳琶�稱和數(shù)量(如上圖所示)，并將結果存

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

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

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

　　本題主要考核點：

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

　　本題解題思路：

　　操作過程：

　�、僭诿�令窗口輸入命令：CREATE FORM 外匯瀏覽，打開表單設計器窗口。

　�、谠诒砀裆咸砑痈魑谋究颉⒚�令按鈕、表格及相關的標簽，并進行適當?shù)牟贾煤痛笮≌{(diào)整。

　�、墼O置各標簽、命令按鈕以及表單的Caption屬性值。

　�、軐⒈韱蔚腞ecordSourceType屬性值設置為"4-SQL說明"。

　�、菰O置"查詢"按鈕的Click事件代碼：

　　SET TALK OFF

　　SET SAFETY OFF

　　a=ALLTRIM(THISFORM.text1.VALUE)

　　SELECT Rate_exchange.外幣名稱, Currency_sl.持有數(shù)量;

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

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

　　ORDER BY Currency_sl.持有數(shù)量;

　　WHERE Currency_sl.姓名=a;

　　INTO TABLE (a)

　　THISFORM.Grid1.RECORDSOURCE="(a)"

　　SET TALK ON

　　SET SAFETY ON

　�、拊O置"退出"按鈕的Click事件代碼：

　　THISFORM.RELEASE

　�、弑４姹韱�，關閉表單設計器窗口。