本題主要考核點(diǎn)

　　控件的屬性的修改、SQL語句運(yùn)用、表單的退出等知識點(diǎn)

　　本題解題思路：

　　第一步：在Visual FoxPro主窗口中按下組合鍵Ctrl+N，系統(tǒng)彈出"新建"對話框，在文件類型中選擇"表單"，點(diǎn)擊"新建文件"按鈕(系統(tǒng)將打開表單設(shè)計(jì)器);或直接在命令窗口中輸入 crea form myform_a。

　　第二步：點(diǎn)擊工具欄按鈕"表單控件工具欄"，在彈出的"表單控件"對話框中，選中"選項(xiàng)組"控件，在表單設(shè)計(jì)器中拖動(dòng)鼠標(biāo)，這樣在表單上得到一個(gè)"選項(xiàng)組"控件optiongroup1，用類似的方法為表單再加入兩個(gè)"命令按鈕"控件command1和command2。

　　相關(guān)控件的屬性值如下：

　　對象 屬性 屬性值

　　Form1 Caption 商品瀏覽

　　Optiongroup1 ButtonCount 4

　　Optiongroup1 Value 1

　　Optiongroup1.option1 Caption 飲料

　　Optiongroup1.option2 Caption 調(diào)味品

　　Optiongroup1.option3 Caption 酒類

　　Optiongroup1.option4 Caption 小家電

　　Command1 Caption 確定

　　Command2 Caption 退出

　　***********命令按鈕command1(確定)的Click事件代碼如下************

　　DO CASE

　　CASE THISFORM.OPTIONGROUP1.VALUE=1

　　SELECT 商品.*;

　　FROM 商品管理!分類 INNER JOIN 商品管理!商品 ;

　　ON 分類.分類編碼 = 商品.分類編碼;

　　WHERE 分類.分類名稱 = "飲料"

　　CASE THISFORM.OPTIONGROUP1.VALUE=2

　　SELECT 商品.*;

　　FROM 商品管理!分類 INNER JOIN 商品管理!商品 ;

　　ON 分類.分類編碼 = 商品.分類編碼;

　　WHERE 分類.分類名稱 = "調(diào)味品"

　　CASE THISFORM.OPTIONGROUP1.VALUE=3

　　SELECT 商品.*;

　　FROM 商品管理!分類 INNER JOIN 商品管理!商品 ;

　　ON 分類.分類編碼 = 商品.分類編碼;

　　WHERE 分類.分類名稱 = "酒類"

　　CASE THISFORM.OPTIONGROUP1.VALUE=4

　　SELECT 商品.*;

　　FROM 商品管理!分類 INNER JOIN 商品管理!商品 ;

　　ON 分類.分類編碼 = 商品.分類編碼;

　　WHERE 分類.分類名稱 = "小家電"

　　ENDCASE

　　***********命令按鈕command2(退出)的Click事件代碼如下************

　　thisform.release