我做了一个菜单名为‘功能菜单’有一个登陆框进入一个空的表单,在表单的过程输入 do 功能菜单 with this,.t. 一运行就提示找不到菜单,
我就去运行菜单 就出现这个结果
整个菜单的代码如下:
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _23b03ztdw OF _MSYSMENU PROMPT "资料维护" COLOR SCHEME 3
DEFINE PAD _23b03ztdx OF _MSYSMENU PROMPT "查询档案" COLOR SCHEME 3
DEFINE PAD _23b03ztdy OF _MSYSMENU PROMPT "打印资料" COLOR SCHEME 3
DEFINE PAD _23b03ztdz OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _23b03zte0 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _23b03ztdw OF _MSYSMENU ACTIVATE POPUP 资料维护
ON PAD _23b03ztdx OF _MSYSMENU ACTIVATE POPUP 查询档案
ON PAD _23b03ztdy OF _MSYSMENU ACTIVATE POPUP 打印资料
ON PAD _23b03ztdz OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _23b03zte0 OF _MSYSMENU ACTIVATE POPUP 退出
DEFINE POPUP 资料维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 资料维护 PROMPT "个人资料维护"
DEFINE BAR 2 OF 资料维护 PROMPT "部门资料维护"
ON BAR 1 OF 资料维护 ACTIVATE POPUP 个人资料维
ON BAR 2 OF 资料维护 ACTIVATE POPUP 部门资料维
DEFINE POPUP 个人资料维 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 个人资料维 PROMPT "新员工入职"
DEFINE BAR 2 OF 个人资料维 PROMPT "离职员工删除"
DEFINE BAR 3 OF 个人资料维 PROMPT "\-"
DEFINE BAR 4 OF 个人资料维 PROMPT "员工资料修改"
DEFINE POPUP 部门资料维 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 部门资料维 PROMPT "部门新增"
DEFINE BAR 2 OF 部门资料维 PROMPT "部门删除"
DEFINE BAR 3 OF 部门资料维 PROMPT "\-"
DEFINE BAR 4 OF 部门资料维 PROMPT "部门员工维护"
DEFINE POPUP 查询档案 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询档案 PROMPT "个人资料查询"
DEFINE BAR 2 OF 查询档案 PROMPT "全体人员资料查询"
DEFINE BAR 3 OF 查询档案 PROMPT "\-"
DEFINE BAR 4 OF 查询档案 PROMPT "部门资料查询"
DEFINE POPUP 打印资料 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印资料 PROMPT "个人资料打印"
DEFINE BAR 2 OF 打印资料 PROMPT "全体员工资料打印"
DEFINE BAR 3 OF 打印资料 PROMPT "\-"
DEFINE BAR 4 OF 打印资料 PROMPT "部门资料打印"
DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "增加管理员"
DEFINE BAR 2 OF 系统维护 PROMPT "修改密码"
DEFINE BAR 3 OF 系统维护 PROMPT "\-"
DEFINE BAR 4 OF 系统维护 PROMPT "权限设置"
DEFINE POPUP 退出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出 PROMPT "\-"
DEFINE BAR _mif_save OF 退出 PROMPT "保存" ;
KEY CTRL+S, "CTRL+S"
DEFINE BAR _mif_quit OF 退出 PROMPT "退出系统" ;
KEY CTRL+Q, "CTRL+Q"