2006年計算機二級VF上機題庫練習(xí)及答案(4)

第3題：綜合應(yīng)用

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

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

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

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

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