menu
<命令名>
比如:modify
menu
caidanmnx
修改或者编辑完了,点vfp主菜单中的“菜单”下拉选项,选择其中的“生成”,在跳出来的生成菜单对话框中点击生成确认按钮就可以了
执行菜单要用:
do
<菜单名mpr>
例如:do
caidanmpr
1 最好是选用菜单设计器来做比较容易理解
2。刚好相反 除了“退出” 使用命令以外, 其他都是使用过程。
3。READ EVENTS 写在 菜单建立以后, 退出有QUIT 命令就可以忽略clea events
SET TALK ON &&环境设置写在安装里
菜单定义
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _2xi12wtna OF _MSYSMENU PROMPT "新建" COLOR SCHEME 3
DEFINE PAD _2xi12wtnb OF _MSYSMENU PROMPT "录入" COLOR SCHEME 3
DEFINE PAD _2xi12wtnc OF _MSYSMENU PROMPT "修改" COLOR SCHEME 3
DEFINE PAD _2xi12wtnd OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _2xi12wtne OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _2xi12wtnf OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _2xi12wtna OF _MSYSMENU do 新建prg
ON SELECTION PAD _2xi12wtnb OF _MSYSMENU do 录入prg
ON SELECTION PAD _2xi12wtnc OF _MSYSMENU do 修改prg
ON SELECTION PAD _2xi12wtnd OF _MSYSMENU do 统计prg
ON SELECTION PAD _2xi12wtne OF _MSYSMENU do 查询prg
ON SELECTION PAD _2xi12wtnf OF _MSYSMENU quit
清除代码和过程
READ EVENTS &&
READ EVENTS 写在 清理里
1、首先将该表单的showwindows设置为2—顶层表单。2、建立的菜单,需要在菜单的常规选项对话框中将:“顶层表单”复选框给选中。
3、在需要调用的表单的Init事件代码中调用菜单即可,代码为:do
菜单文件名mpr
with
this,"变量名"以下帮你做了个菜单框架示例,请根据你的实际需求进行修改之后,把这个保存到一个“MPR”文件中直接调用即可产生自己的系统主菜单了。至于每个子菜单调用什么命令,请你自己根据里面的示例进行修改吧(注意语句后带&&符号的,除了系统的QUIT,其余的示例“指令”不要直接使用,那只是个例子而已,请改成自己的有效的程序指令):----------------------------------------------SET SYSMENU TO
SET SYSMENU AUTOMATICDEFINE PAD m_File OF _MSYSMENU PROMPT "文件" COLOR SCHEME 3
DEFINE PAD m_Edit OF _MSYSMENU PROMPT "编辑" COLOR SCHEME 3
DEFINE PAD m_SQL OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD m_Total OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD m_Output OF _MSYSMENU PROMPT "输出" COLOR SCHEME 3
ON PAD m_File OF _MSYSMENU ACTIVATE POPUP sub_File
ON PAD m_Edit OF _MSYSMENU ACTIVATE POPUP sub_Edit
ON PAD m_SQL OF _MSYSMENU ACTIVATE POPUP sub_SQL
ON PAD m_Total OF _MSYSMENU ACTIVATE POPUP sub_Total
ON PAD m_Output OF _MSYSMENU ACTIVATE POPUP sub_OutputDEFINE POPUP sub_File MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_File PROMPT "文件打开"
DEFINE BAR 2 OF sub_File PROMPT "文件关闭"
DEFINE BAR 3 OF sub_File PROMPT "退出系统"
ON SELECTION BAR 3 OF sub_File QUIT && 示例:选择“退出系统”则执行命令“QUIT”DEFINE POPUP sub_Edit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Edit PROMPT "输入"
DEFINE BAR 2 OF sub_Edit PROMPT "修改"
DEFINE BAR 3 OF sub_Edit PROMPT "删除"
DEFINE BAR 4 OF sub_Edit PROMPT "退出"
ON SELECTION BAR 2 OF sub_Edit EDIT && 示例:选择“修改”则执行命令“EDIT”
ON SELECTION BAR 3 OF sub_Edit DELETE && 示例:选择“删除”则执行命令“DELETE”
ON SELECTION BAR 4 OF sub_Edit EXIT && 示例:选择“退出”则执行命令“EXIT”DEFINE POPUP sub_SQL MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_SQL PROMPT "学生成绩查询"
DEFINE BAR 2 OF sub_SQL PROMPT "全班成绩查询"DEFINE POPUP sub_Total MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Total PROMPT "成绩计算"
DEFINE BAR 2 OF sub_Total PROMPT "成绩显示"DEFINE POPUP sub_Output MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF sub_Output PROMPT "学生成绩"
DEFINE BAR 2 OF sub_Output PROMPT "班级成绩"用“菜单设计器”定义好下拉菜单。
在“显示”子菜单中选择“常规选项”,把"顶层表单"带上对钩
打开表单文件,将ShowWindow属性设置为2
在表单的Init事件中添加调用菜单程序的命令,例:
Do
菜单文件名
WITH
THIS,'xxx'
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)