基于数据库pdtmng建立如图所示顶层表单应用,表单文件名为myform.scx,表单控件名为goods,表单标题为"商品"。 (1)表单内含一表格控件Grid1(默认控件名),当表单运行时,该控件将按用户的选择(单击菜单)来显示products.dbf中

admin2013-10-25  33

问题 基于数据库pdtmng建立如图所示顶层表单应用,表单文件名为myform.scx,表单控件名为goods,表单标题为"商品"。
(1)表单内含一表格控件Grid1(默认控件名),当表单运行时,该控件将按用户的选择(单击菜单)来显示products.dbf中某一类商品数据,RecordSourceType的属性为4-SQL说明);
(2)建立如图所示的菜单(菜单文件名为mymenu.mnx),其条形菜单的菜单项为"商品分类"和"退出","商品分类"的下拉菜单为"小家电"、"饮料"和"酒类"(在过程中实现);单击下拉菜单中任何一个菜单命令后,表格控件均会显示该类商品;
(3)在表单的Load事件中执行菜单程序mymenu.mpr;
(4)菜单项"退出"的功能是关闭表单并返回到系统菜单(在过程中完成)。
   

选项

答案【操作步骤】 步骤1:单击常用工具栏中的"新建"按钮,文件类型选择"表单",打开表单设计器。单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"myform"即可。 步骤2:在"表单设计器"中,在其"属性"对话框的Name处输入"goods",在Caption处输入"商品",在ShowWindow处选择"2-作为顶层表单",双击"Load Event",在"goods.Load"编辑窗口中输入"do mymenu.mpr"。双击"Init Event",在"myform.Init"编辑窗口中输入"do mymenu.mpr with this ,’xxx’",启动菜单命令。双击Destroy Event,在"myform.Destroy"编辑窗口中输入"release menu xxx extended",在表单退出时释放菜单。 步骤3:在"表单设计器"中,添加一个表格控件Grid1,在其"属性"对话框的 RecordSourceType处选择"4-SQL说明"。 步骤4:单击常用工具栏中的"新建"按钮,文件类型选择"菜单",在"新建菜单"对话框中选择"菜单"按钮,在菜单设计器中的"菜单名称"中依次输入"商品分类"和"退出"这两个主菜单项,然后选择"商品分类"菜单项,在"结果"中选择"子菜单",单击"创建"按钮,在"菜单设计器"中,输入三个子菜单项"小家电"、"饮料"和"酒类"。 步骤5:在"小家电"子菜单的"结果"中选择"过程"并输入命令下列语句: myform.grid1.recordsource="select * from products where 分类编码=’4001’ into cursor lsb" 步骤6:在"饮料"子菜单的"结果"中选择"过程"并输入命令下列语句: myform.grid1.recordsource="select * from products where 分类编码=’1001’ into cursor lsb" 步骤7:在"酒类"子菜单的"结果"中选择"过程"并输入命令下列语句: myform.grid1.recordsource="select * from products where 分类编码=’3001’ into cursor lsb" 步骤8:在"退出"主菜单的"结果"中选择"过程"并输入下列命令: myform.release set sysmenu to default 步骤9:选择"显示"菜单中"常规选项"命令,在"常规选项"对话框中选中"顶层表单"复选框。 步骤10:单击工具栏上"保存"按钮,在弹出"保存"对话框中输入"mymenu"即可。 步骤11:在"菜单设计器"窗口下,单击"菜单"菜单中的"生成"命令,生成"mymenu.mpr"文件。

解析
转载请注明原文地址:https://kaotiyun.com/show/9Aop777K
0

最新回复(0)