第3題：綜合應用

設計一個文件名和表單名均為myaccount的表單。表單的標題為“外匯持有情況”，界面如圖所示。

表單中有一個選項按鈕組控件（myOption）、一個表格控件（Grid1）以及兩個命令按鈕“查詢”（Command1）和“退出”（Command2）。其中，選項按鈕組控件有兩個按鈕“現匯”（Option1）、“現鈔”（Option2）。運行表單時，在選項組控件中選擇“現鈔”或“現匯”，單擊“查詢”命令按鈕后，根據選項組控件的選擇將“外匯賬戶”表中“現鈔”或“現匯”（根據鈔匯標志字段確定）的情況顯示在表格控件中。
單擊“退出”按鈕，關閉并釋放表單。
注：在表單設計器中將表格控件Grid1的數據源類型設置為“SQL說明”。

【答案】
（1）在Visual FoxPro的命令窗口內輸入命令：create form myaccount，打開表單設計器，設置其name屬性為myaccount，設置其Caption屬性值為“外匯持有情況”。
（2）單擊主菜單“顯示�觥薄�“數據環境”命令，右擊數據環境窗口，選擇“添加”命令，在打開的對話框內選擇“外匯帳戶”表，如圖所示。

（3）單擊表單控件工具欄上的“選項按鈕”控件圖標，在表單里添加一個選項按鈕組控件，將其name屬性改為myOption，設置ButtonCount屬性為2，右鍵單擊選項按鈕組，選擇“編輯”，分別設置按鈕的Caption屬性為“現匯”和“現鈔”。
（4）單擊表單控件工具欄上的“表格”控件圖標，向表單添加一個“表格”控件，在屬性面板中將其RecordSourceType屬性改為“4-SQL說明”。
（5）單擊表單控制工具欄上的“命令按鈕”控件圖標，向表單添加兩個命令按鈕，在屬性面板中將其Caption屬性分別改為“查詢”和“退出”。
（6）雙擊“退出”命令按鈕在Click事件中輸入如下程序段：
thisform.release。
（7）雙擊“查詢”命令按鈕，在其Click事件中輸入如下程序段：
DO CASE
   CASE Thisform.myOption.option1.value=1
     Thisform.Grid1.RecordSource="SELECT 外幣代碼,金額;
       FROM  外匯賬戶;
       WHERE 鈔匯標志='現匯';
       INTO CURSOR temp"
   CASE Thisform.myOption.option2.value=1 
     Thisform.Grid1.RecordSource="SELECT 外幣代碼,金額;
       FROM  外匯賬戶;
       WHERE 鈔匯標志='現鈔';
       INTO CURSOR temp"
ENDCASE
（8）單擊工具欄上的“保存”圖標，保存表單。表單運行結果如圖所示。

【解析】
選項按鈕組屬于容器型控件，對其中的子控件進行屬性設置時，應右擊按鈕組，選擇“編輯”命令，再選擇要設置屬性的子控件，在屬性面板里設置屬性。
在表格控件中顯示查詢結果需要設置其兩個屬性值，一個是RecordSourceType，一個是RecordSource，根據題目的要求，在前者設置為SQL說明的情況下，后者應該設置為SQL查詢語句。
查詢命令按鈕的事件中使用do case分支查詢結構辨別用戶單擊了哪個選項按鈕。