综合应用（1小题，计30分）

基于数据库pdtmng建立如图所示顶层表单应用，表单文件名为myform.scx，表单控件名为goods，表单标题为"商品"；

1. 表单内含一表格控件Grid1（默认控件名），当表单运行时，该控件将按用户的选择（单击菜单）来显示products.dbf中某一类商品数据，RecordSourceType的属性为4（SQL说明）；

2. 建立如图所示的菜单(菜单文件名为mymenu.mnx), 其条形菜单的菜单项为"商品分类"和"退出"，"商品分类"的下拉菜单为"小家电"、"饮料"和"酒类"；单击下拉菜单中任何一个菜单命令后，表格控件均会显示该类商品；

3. 在表单的Load事件中执行菜单程序mymenu.mpr；

4. 菜单项"退出"的功能是关闭表单并返回到系统菜单（在过程中完成）。

解题思路：

一、建立表单

1. 建立表单，在“表单设计器”中，在其“属性”的Name处输入“goods”，在Caption处输入“商品”，在ShowWindow处选择“2-作为顶层表单”，双击“Load Event”，在“goods.Load”编辑窗口中输入“do mymenu.mpr”。在“属性”中，双击“Init Event”，在“myform.Init”编辑窗口中输入“do mymenu.mprwith this ,'xxx'”，启动菜单命令。在“属性”中，双击“Destroy Event，在“myform.Destroy”编辑窗口中输入“release menu xxx extended”，在表单退出时释放菜单。在“表单设计器”中，添加一个表格控件Grid1，在其“属性”的 RecordSourceType处选择“4-SQL说明”。

二、建立菜单

1. 单击“文件\新建”命令项。在“新建”对话框中选择“菜单”单选钮，再按“新建文件”按钮。在“新建菜单”对话框中选择“菜单”按钮，在菜单设计器中的“菜单名称”中依次输入“商品分类”和“退出”这两个主菜单项，然后选择“商品分类”菜单项，在“结果”中选择“子菜单”，单击“创建”按钮，在“菜单设计器”中，输入两个子菜单项“小家电”、“饮料”和“酒类”。在“小家电”子菜单的“结果”选择“过程”并输入命令下列语句myform.grid1.recordsource="select * from products where 分类编码='4001' into cursor lsb"

在“饮料”子菜单的“结果”选择“过程”并输入命令下列语句myform.grid1.recordsource="select * from products where 分类编码='1001' into cursor lsb"

在“酒类”子菜单的“结果”选择“过程”并输入命令下列语句myform.grid1.recordsource="select * from products where 分类编码='3001' into cursor lsb"

在“退出”主菜单的“结果”选择“过程”并输入下列命令

myform.release

set sysmenu to default

单击“显示/常规选项”，在“常规选项”对话框中选中“顶层表单”。单击工具栏上“保存”按钮，在弹出“保存”对话框中输入“mymenu”即可。在“菜单设计器”窗口下，单击“菜单”菜单栏，选择“生成”菜单项，生成“mymenu.mpr”文件。