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

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

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

分別設置按鈕的Caption屬性分別為“飲料”、“調味品”、“酒類”和“小家電”。
（4）單擊表單控件工具欄上的“命令按鈕”控件圖標，向表單添加兩個命令按鈕，在屬性面板中將其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）單擊工具欄上的“保存”圖標，保存表單。
表單運行結果如圖所示。

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