建立表单,表单文件名和表单名均为myform_a,表单标题为“商品浏览”,表单示例如图1-36所示(左图)。其他功能要求如下: ①用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品(Option2)、酒类(Op

admin2013-03-31  26

问题 建立表单,表单文件名和表单名均为myform_a,表单标题为“商品浏览”,表单示例如图1-36所示(左图)。其他功能要求如下:
    ①用选项按钮组(OptionGroup1)控件选择商品分类(饮料(Option1)、调味品(Option2)、酒类(Option3)、小家电(Option4))。
    ②单击“确定”(Commanct2)命令按钮,显示选中分类的商品,要求使用DO CASE语句判断选择的商品分类(右图)。
    ③在右图所示界面中按Esc键返回左图所示界面。
    ④单击“退出”(Command1)命令按钮,关闭并释放表单。

    注:选项按钮组控件的Value属性必须为数值型。

选项

答案步骤1:在命令窗口执行命令:CREATE FORMmyform_a,打开表单设计器新建表单。从“表单控件”工具栏中依次向表单添加一个选项按钮组和两个命令按钮控件。 步骤2:在“属性”面板的下拉框中选择表单对象,在“全部”选项卡中修改对象属性值,见表2-38。 [*] 步骤3:双击命令按钮,编写各个命令按钮的Click事件代码。各按钮代码如下: *****“确定”按钮的Click事件代码(以下SQL查询语句是通过查询设计器生成)***** DO CASE CASE THISFORM.OPTIONGROUP1.VALUE=1 SELECT商品.*; FROM 商品管理!商品 INNER JOIN商品管理!分类; ON 商品.分类编码=分类.分类编码; WHERE 分类.分类名称="饮料" CASE THISFORM.0PTIONGROUP1.VALUE=2 SELECT 商品.*; FROM 商品管理!商品 INNER JOIN商品管理!分类; ON 商品.分类编码=分类.分类编码; WHERE 分类.分类名称="调味品" CASE THISFORM.OPTIONGROUP1.VALUE=3 SELECT 商品.*; FROM 商品管理!商品 INNER JOIN 商品管理!分类; ON商品.分类编码=分类.分类编码; WHERE 分类.分类名称="酒类" CASE THISFORM.OPTIONGROUP1.VALUE=4 SELECT 商品.*, FROM 商品管理!商品 INNER JOIN 商品管理!分类; ON 商品.分类编码=分类.分类编码; WHERE分类.分类名称="小家电" ENDCASE *****“退出”按钮的Click事件代码***** THISFORM.RELEASE 步骤4:单击“常用”工具栏中的“运行”按钮查看结果,将表单文件保存到考生文件夹下。

解析 本大题考查了表单及控件的常用属性和方法的设置;程序的分支结构;SQL简单的联接查询。
    修改选项组单选按钮的标题属性值时,要注意选项组处于“编辑”状态,能单独选定选项组中的按钮,否则“属性”面板中不会出现Caption属性;选项组的ButtonCount属性用来控制选项组中单选按钮的个数,是一个非常重要的属性。
    通过DO CASE分支结构判断当前被选定的是哪个单选项,并完成该单选项所对应执行的功能;SQL程序设计部分考查的是SQL简单联接查询,属于比较简单的查询语句。
转载请注明原文地址:https://jikaoti.com/ti/bwZ0FFFM
0

最新回复(0)