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

建立表單，表單文件名和表單名均為myform_a，表單標(biāo)題為“商品瀏覽”，表單樣例如圖所示。
 
其他功能要求如下：
（1）用選項按鈕組（OptionGroup1）控件選擇商品分類（飲料Option1）、調(diào)味品（Option2）、酒類（Option3）、小家電（Option4）；
（2）單擊“確定”（Command2）命令按鈕，顯示選中分類的商品，要求使用DO CASE語句判斷選擇的商品分類（如右圖所示）；

（3）在右圖所示界面中按Esc鍵返回左圖所示界面。
（4）單擊“退出”（Command1）命令按鈕，關(guān)閉并釋放表單。
注：選項按鈕組控件的Value屬性必須為數(shù)值型。

【答案】
（1）在Visual FoxPro的命令窗口內(nèi)輸入命令：create form myform_a，打開表單設(shè)計器，設(shè)置其Name屬性為myform_a，Caption屬性值為“商品瀏覽”。
（2）單擊主菜單“顯示”→“數(shù)據(jù)環(huán)境”命令，右擊數(shù)據(jù)環(huán)境窗口，選擇“添加”命令，在打開的對話框內(nèi)選擇“分類”表和“商品”表。
（3）單擊表單控件工具欄上的“選項按鈕”控件圖標(biāo)，在表單里添加一個選項按鈕組控件，設(shè)置其屬性ButtonCount為4，右鍵單擊選項按鈕組，選擇“編輯”對四個按鈕進行編輯，如圖所示。

分別設(shè)置按鈕的Caption屬性分別為“飲料”、“調(diào)味品”、“酒類”和“小家電”。
（4）單擊表單控件工具欄上的“命令按鈕”控件圖標(biāo)，向表單添加兩個命令按鈕，在屬性面板中將其Caption屬性分別改為“確定”和“退出”。雙擊“退出”命令按鈕在Click事件中輸入如下程序段：thisform.release。雙擊“確定”命令按鈕，在其Click事件中輸入如下程序段：
DO CASE
CASE Thisform.Optiongroup1.Value=1
  SELECT * FROM 商品 WHERE 分類編碼="1001"
 CASE Thisform.Optiongroup1.Value=2
  SELECT * FROM 商品 WHERE 分類編碼="2001"
 CASE Thisform.Optiongroup1.Value=3
  SELECT * FROM 商品 WHERE 分類編碼="3001"
 CASE Thisform.Optiongroup1.Value=4
  SELECT * FROM 商品 WHERE 分類編碼="4001"
ENDCASE
（5）單擊工具欄上的“保存”圖標(biāo)，保存表單。
表單運行結(jié)果如圖所示。

【解析】
在命令按鈕中使用SQL查詢語句，則執(zhí)行表單時將以表格形式顯示查詢結(jié)果，按Esc鍵返回。選項按鈕組的Value屬性默認(rèn)為數(shù)值型，所以不需要特別設(shè)置。
在“確定”按鈕的事件中使用do case語句，判斷用戶選擇了哪個選項命令按鈕。
退出表單使用release命令。