设计一个名为 form_book 的表单， 表单的控件名为 form1， 文件名为form_book， 表单的标题为“图书情况统计” 。 表单中有一个组合框（ 名称为Combo、 一个文本框（ 名称为 Text、 两个命令按钮“统计” 和“退出” （ 名称为Command1 和 Command。
运行表单时， 组合框中有 3 个条目“清华” 、 “北航” 、 “科学” （ 只有 3个出版社名称， 不能输入新的） 可供选择， 在组合框中选择出版社名称后， 如果单击“统计” 命令按钮， 则文本框显示出“book” 表中该出版社图书的总数。
单击“退出” 按钮关闭表单。
注意： 完成表单设计后要运行表单的所有功能。
步骤 1： 通过“新建” 对话框新建一个表单文件， 并保存为“myform_a” 。
步骤 2： 在“表单设计器” 中， 修改其 Caption 属性为“商品浏览” ， 修改其 Name 属性为“myform_a” 。
步骤 3： 向表单添加一个选项按钮组 OptionGroupl， 在“属性” 的ButtonCoum 处输入“4” ，并对其进行编辑，在 Optionl 的 Caption 处输入“饮料” ， 在 Option2 的 Caption 处输入“调味品” ， 在 Option3 的 Caption 处输入“酒类” ， 在 Option4 的 Caption 处输入“小家电” 。
步骤 4： 添加两个命令按钮到表单中， 在第 1 个命令按钮的 Caption 属性处输入“退出” ， 在第 2 个命令按钮的 Caption 属性处输入“确定” 。
步骤 5： 双击“退出” 按钮， 在“Commandl． Click” 编辑窗口中输入“Thisform． Release” ， 然后关闭编辑窗口。
步骤 6： 双击“确定” 按钮， 在“Command2． Click” 编辑窗口中输入下列语句：
****“确定” 命令按钮的 Click****
DoCase
CaseTHISFORM． OPTIONGROUPl． Value=1
selePt*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“饮料” ）
CaseTHISFORM． OPTIONGROUP1． Value=2
Select$FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=” 调味品” ）
CaseTHISFORM． OPTIONGROUP1． VMue=3
select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“酒类” ）
CaseTHISFORM． OPTIONGRCUP1． Value=4
Select*FROM 商品 WHERE 分类编码=ANY（ Select 分类编码 FROM 分类WHERE 分类名称=“小家电” ） ENDCASE