第七章 菜单设计与应用

第七章菜单设计与应用
7.1Visual Foxpro菜单系统
7.1.1 菜单结构
VF支持两种类型的菜单:条形菜单和弹出式菜单
不论是哪种类型的菜单,当用鼠标点击其中的选项时都会产生一定的动作响应,这个响应可以是执行一条命令,执行一个过程或激活另一个菜单.
典型的菜单系统是下拉式菜单,一般由一个条形菜单和一组弹出式菜单组成.其中条形菜单作为主菜单,弹出式菜单作为子菜单.
7.1.2菜单分类
VFP的菜单主要分为两大类：普通菜单和快捷菜单。

一般意义上的菜单都是普通菜单,而快捷菜单是指由鼠标右键弹出的菜单。

7.2下拉式菜单设计
可以使用菜单设计器来创建下拉式菜单系统。

激活菜单设计器并创建菜单有三种途径：
●”文件” ”新建”，选”菜单”
●在项目管理器里创建.展开项目管理器到”其他”
●用命令创建。

create menu 菜单名(用书上的modify命令也可)
菜单设计器包含：
(1)菜单名称：即在菜单系统中指定的菜单标题和菜单项。

一旦在菜单名称栏中输入了任何内容，“菜单名称”栏左边将出现一个上下双箭头按钮。

利用这个按钮可以可视化地调整菜单项之间的顺序。

(2) 结果：即用户在选择了该菜单后系统将执行的动作。

例如可以执行一个命令或打开一个子菜单等。

单击“结果”下拉列表，可以看到有4个选项，即对用户点击该菜单后的4种处理方式：
“命令”、“填充名称”、“子菜单”和“过程”。

例如，选中“命令”，在结果后的空白栏里填入do form1，那么当用户按下该菜单项后，就会调用表单form1。

如果选中的是“子菜单”，那么点后面的“创建”钮，将进入下级子菜单的设计。

(3) 菜单级：显示当前正在设计的菜单级。

在下拉列表框中还列出了当前子菜单的上级菜单名，选择上级菜单名可以返回到上一级菜单对话框。

(4) 插入：在当前行插入新的一行。

(5) 删除：删除当前行的菜单定义。

(6) 预览：显示正在创建的菜单。

完成菜单的定义后还需要生成菜单码。

选择系统主菜单中的“菜单”下的“生成”菜单项，在弹出的消息框中选择“是”，在“另存为”对话框中输入菜单名，单击“确定”按钮后显示“生成菜单”对话框。

在其中还可以更改输出文件名，系统默认扩展名为.mpr。

单击“生成”后即可生成菜单程序，到此完成菜单的创建工作。

可以使用“预览”命令来试运行菜单以观看效果。

在系统试运行菜单后，如果想切换回VFP自身的主菜单系统，只需在命令窗口输入set sysm to default。

例7.1利用菜单设计器创建一个下拉式菜单,具体要求如下(书P232) 数据维护(W) 编辑(B) 退出(R)
录入记录(CTRL+L) 剪切
修改记录(CTRL+X) 复制
浏览记录(CTRL+I) 粘贴
操作步骤如下:
(1)激活菜单设计器
(2)设置条形菜单的菜单项(图7.8)
(3)为菜单项”退出”定义过程:
SET SYSMENU NOSAVE
SET SYSMENU TO DEFAULT
(4)定义弹出式菜单wh:进入”数据维护”子菜单,为”录入记录”设置快捷键:点击后面的”选项”按钮,在”快捷方式”中按下设置的CTRL+L键.其余类推.并将结果改为”命令”,输入命令DO lr.prg.其余类推,分别调用xg.prg和ll.prg
在选择子菜单的”结果”时我们发现到有”菜单项#”这一项.注意,只有在子菜单下面的结果选项里才会出现”菜单项”这一选项.
主菜单的结果:命令,过程,子菜单,填充名称
子菜单的结果:命令,过程,子菜单,菜单项#
(5)设置弹出式菜单wh的内部名字:注意要先进入到”数据维护”子菜单下面.从”显示”菜单中选择”菜单选项”命令,打开”菜单选项”对话框,然后在”名称”框中输入wh.
(5)从”菜单级”列表框中选择”菜单栏”,返回到主菜单页.
(6)定义弹出式菜单bj:进入到子菜单下.点”插入栏”按钮,激活”插入系统菜单栏”窗口,把系统菜单添加到我们自己制作的菜单中来.
(7)用与第(5)步相同的方法为弹出式菜单bj定义内部名字
(8)保存菜单文件
(9)生成菜单代码
7.2.3在顶层表单中添加附着菜单
有关顶层表单的概念上章已经介绍了.
为顶层表单添加附着菜单的方法如下：
(1) 在设计菜单时，在“显示”中的“常规选项”对话框里选择“顶层表单”复选框（如图10-2所示）。

(2) 将表单的ShowWindow属性值设置为2，使其成为顶层表单。

(3) 在表单的Init事件代码中添加调用菜单程序的命令：
DO 菜单名.mpr WITH THIS
(4) 在表单的Destroy事件代码中添加清除菜单的命令，使得在关闭表单时同时清除菜单：RELEASE MENU <菜单名>(不要加.mpr后缀) 【例】设计一个工资管理系统，使用顶层表单附着菜单方式。

先设计好菜单应包含的菜单项：
数据维护：录入数据，修改数据，删除数据(在菜单级中返回上级)
查询统计：（略）
报表统计：（略）
系统管理：（略）
帮助：（略）
图10-2 显示菜单设计器“常规选项”对话框
然后选系统菜单中的“显示”→“常规选项”，在弹出的如图10-2的对话框中将“顶层表单”一项打勾。

设置好以后再将菜单文件保存，命名为gzgl,然后点选系统菜单中的“菜单”→“生成”以生成菜单，完成菜单制作。

接下来再完成表单制作（制作过程略），并将表单的showwindow
属性值设为2，然后在表单的Init事件代码中添加调用菜单程序的命令：
DO WITH THIS
在表单的Destroy事件代码中添加清除菜单的命令，使得在关闭表单时同时清除菜单：
RELEASE MENU gzgl
这样一个带有附着菜单的顶层表单就制作好了（如图10-3所示）。

图10-3 附着菜单的顶层表单示例
10.3.2 创建快捷菜单
在控件或对象上单击右键时弹出的菜单称为快捷方式菜单。

如何创建一个快捷菜单呢?
在项目管理器的其它选项卡中，选中“菜单”→“新建”，再选择“快捷菜单”，即可进入到“快捷菜单设计器”。

此后添加菜单项的过程与创建菜单完全相同。

创建并生成了快捷方式菜单以后，就可以将其附加到控件中，在控件的right-click事件中输入这样一行代码： do 快捷菜单文件名，即可完成快捷菜单的创建。

注意，do后面跟的文件名必须使用全名，即不能省略它的.mpr扩展名，否则会执行同名的过程文件。

注意:
(1)还需要为快捷菜单的”设置”和”清理”代码添加相关指令.方法是”显示”→”常规选项”,分别打开和清理代码窗口,分别输入以下指令:
PARAMETERS mfRef //(接收当前表单对象引用的参数) RELEASE POPUPS <快捷菜单名称> //(在内存中释放此快捷菜单) (2)由于快捷菜单属弹出式菜单,因此它的结果选项里只有四种结果:命令,过程,子菜单,菜单项#。