2006年计算机二级VF上机题库练习及答案(5)

建立表单，表单文件名和表单名均为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命令。