建立表单， 表单文件名和表单名均为 myfoFin_a， 表单标题为“商品浏览” ，表单样例如下图（ 左图） 所示。 其他功能要求如下：
（1） 用选项组（ OptionGroup1） 控件选择商品分类（ 饮料（ Option1） 、调味品（ Option2） 、 酒类（ Option3） 、 小家电（ Option4） ） 。
（2） 单击“确定” 命令按钮（ Command2） ， 显示选中分类的商品， 要求使用 DO CASE 语句判断选择的商品分类（ 如下图所示） 。
步骤 1： 通过“新建” 对话框新建一个表单文件， 并保存为“myform_a” 。
步骤 2： 在“表单设计器” 中， 修改其 Caption 属性为“商品浏览” ， 修改其 Name 属性为“myform_a” 。
步骤 3： 向表单添加一个选项按钮组 OptionGroup1， 在“属性” 的ButtonCount 处输入“4” ，并对其进行编辑，在 Optionl 的 Caption 处输入“饮料” ， 在 Optiqn2 的 Caption 处输入“调味品” ， 在 Option3 的 Caption 处输入“酒类” ， 在 Option4 的 Caption 处输入“小家电” 。
步骤 4： 添加两个命令按钮到表单中， 在第 1 个命令按钮的 Caption 属性处输入“退出” ， 在第 2 个命令按钮的 Caption 属性处输入“确定” 。
步骤 5： 双击“退出” 按钮， 在“Commandl． Click” 编辑窗口中输入“Thisform． Release” ， 然后关闭编辑窗口。
步骤 6： 双击“确定” 按钮， 在“Command2． Click” 编辑窗口中输入下列语句：
****“确定” 命令按钮的 Click****
DoCase
CaseTHISFORM． OPTl0NGROUPl． Value=l
Select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“饮料” ）
CaseTHISFORM． OPTIONGROUPl． Value=2
Select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“调味品” ） ．
CaseTHISFORM． OPTl0NGROUPl． VMue=3
Select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“酒类” ）
CaseTHISFORM． OPTl0NGROUPl． Value=4
Select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类,WHERE 分类名称=“小家电” ）
ENDCASE