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

　　設計一個表單名和文件名均為currency_form的表單，所有控件的屬性必

　　須在表單設計器的屬性窗口中設置。表單的標題為："外幣市值情況"。表單中

　　有兩個文本框(text1和text2)和兩個命令按鈕"查詢"(command1)和"退出"

　　(command2)。

　　運行表單時，在文本框text1中輸入某人的姓名，然后單擊"查詢"，則text2

　　中會顯示出他所持有的全部外幣相當于人民幣的價值數量。注意：某種外幣相當

　　于人民幣數量的計算公式:人民幣價值數量=該種外幣的"現鈔買入價"* 該種外幣

　　"持有數量"。

　　單擊"退出"按鈕時關閉表單。

　　本題主要考核點

　　控件的屬性的修改、如何用SQL語句進行記錄的更新、表單的退出等知識點

　　本題解題思路：

　　第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統彈出"新建"對話框，在文件類型中選擇"表單"，點擊"新建文件"按鈕

　　第二步：系統打開表單設計器;點擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"中，選中"文本框"，在表單設計器中拖動鼠標，這樣在表單上得到一個"文本框"控件text1，用同樣的方法再加入一個"文本框"控件text2;點擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"中，選中"命令按鈕"，在表單設計器中拖動鼠標，這樣在表單上得到一個"命令按鈕"對象command1，設置它的caption屬性為"查詢"，雙擊command1在打開的代碼編輯器窗口中輸入以下代碼：

　　SELECT Rate_exchange.現鈔買入價 * Currency_sl.持有數量;

　　FROM Currency_sl INNER JOIN Rate_exchange;

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

　　WHERE Currency_sl.姓名 = ALLTRIM(THISFORM.text1.VALUE);

　　GROUP BY Currency_sl.姓名;

　　INTO ARRAY sl

　　THISFORM.text2.VALUE=sl

　　用同樣的方法，在表單上放置command2對象，它的Click的事件代碼為：THISFROM.RELEASE。

　　第三步：以文件名currency_form保存表單，并且保存在考生文件夾下。