【正确答案】正确答案:本题的主要考核点是:表单控件的属性的修改、SQL语句运用、菜单的建立、顶层表单的设置等知识点。 表单控件名用Name属性设置,标题用Caption设置。表格的PecordSourceType属性用来指明表格数据源的类型。 为顶层表单添加下拉式菜单,应先在“菜单设计器”中按要求设计下拉式菜单,然后做两个设置:一是在"显示”菜单下的“常规选项”对话框中选择“项层表单”复选框,记明该菜单应用在顶层菜单中,二是将表单的ShowWirdow属性值设置成“2—作为顶层表单”,使其成为顶层表单在菜单设计时,“小家电”、“饮料”,和“酒类”,3个菜单项对应的操作应该由过程实现,分别通过SQL语句编写3个查询,并将查询赋值给表格Gridl的Recrdsurce属性。这里注意:查询的select语句要用引号引起来。 在顶层表单中运行菜单,格式为: DOWITH This[, “”] 其中丈件名指定为被调用的菜单程序文件,扩展名.mpr能省略。This表示当前表单对象的引用。通过可以为被添加的下拉式菜单的条形菜单指定一个内部名字,也可以省略。 在顶层表单的菜单中关闭表单,应该引用表单的名称(Name值),并使用Release方法关闭表单:.Release。 【操作步骤】 步骤1:在命令窗口执行命令:CREATE FORMmvform,打开表单设计器新建表单。从“表单控件”工具栏中向表单添加一个表格控件。 步骤2:在“属性”面板的下拉框中选择表单对象.在“全部”选项卡中修改对象属性值;表单及控件属性设置见表4.11。

步骤3:在命令窗口执行命令:CREATEMENUmvmenu。在弹出的“新建菜单”对话框中单击“菜单”图标按钮,打开菜单设计器。 步骤4:存菜单设计器“菜单名称”列的文本框中依次输入“商品分类”和“退出”两个主菜单名,“商品分类”菜单命令的“结果”下拉框中选择为“子菜单”,单击“创建”按钮进入下级菜单设计,在“菜单名称”列的第1、2、3行文本框中依次输入子菜单名“小家电”、“饮料”和“酒类”,将3个了菜单的“结果”都设置为“过程”,分别单击3个过程后面的“创建”按钮打开过程编辑器,编写过程代码。 步骤5:三个过程代码如下: “小家电”菜单命令的过程代码: myform.Gridl.RecordSource="SELECT products"FROM Droduccts,cateqory WHERE category.分类编码=Droducts.分类编码AND分类名称='小家电'INTOCURSOR lsb". “饮料”菜单命令的过程代码: myfrorm:Gridl.RecordSource="SELECT products"FROM products,cateqory NHERE category.分类编码=Droducts.分类编码AND分类名称='饮料'INTO,CURSOR lsb。 “酒类”菜单命令的过程代码: myform .Gridl.RecordSource="SELECT products"FOEM products,category.WHERE category分类编码:products.分类编码AND分类名称=‘酒类’ INToCURSOR lsb”。 步骤6:通过“菜单级”下拉框返回主菜单项设计界面,设置“退出”菜单项的“结果”列为“过程”,并通过单击“创建”按钮打开一个窗口来添加“退出”菜单项要执行的命令:myform,release。 步骤7:执行【显示】→【常规选项】菜单命令,在弹出的“常规选项”对话框中勾选“顶层表单”复选框,然后单击“确定”按钮,保存修改。如图4—27所示。
