顶层表单菜单项目不见了?
我顶层表单的菜单大概如下:*************************************************************************
LPARAMETER oFormRef,getMenuName
LOCAL cMenuName && 菜单名称
IF TYPE("m.oFormRef") # "O" OR LOWER(m.oFormRef.BaseClass) # 'form' OR m.oFormRef.ShowWindow # 2
WAIT "此菜单只能被顶层表单调用!" window at 18,40 TIMEOUT 3
RETURN
ENDIF
m.cMenuName = IIF(TYPE("m.getMenuName")="C",m.getMenuName,SYS(2015))
IF TYPE("m.getMenuName")="L" AND m.getMenuName
m.oFormRef.Name = m.cMenuName
ENDIF
DEFINE MENU (m.cMenuName) IN (m.oFormRef.Name) BAR
*****************************************************************
**上面的代码是需要增加的代码,是带菜单的表单所要的。
*****************************************************************
STORE .t. TO P11,P12,P13,P14,P15 &&故意在这里重新赋值
DEFINE PAD _系统 OF (m.cMenuName) PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _数据 OF (m.cMenuName) PROMPT "数据" COLOR SCHEME 3
ON PAD _系统 OF (m.cMenuName) ACTIVATE POPUP 系统
ON PAD _数据 OF (m.cMenuName) ACTIVATE POPUP 数据
DEFINE POPUP 系统 MARGIN RELATIVE SHADOW COLOR SCHEME 4
IF P11=.t.
DEFINE BAR 1 OF 系统 PROMPT "登陆1"
ON SELECTION BAR 1 OF 系统 DO FORM FORM\LOGIN.SCX
ENDIF
IF P12=.t.
DEFINE BAR 2 OF 系统 PROMPT "登陆2"
ON SELECTION BAR 2 OF 系统 DO FORM FORM\LOGIN.SCX
ENDIF
IF P13=.T. OR P14=.T.
DEFINE BAR 3 OF 系统 PROMPT "\-"
ENDIF
IF P13=.t.
DEFINE BAR 4 OF 系统 PROMPT "登陆3"
ON SELECTION BAR 4 OF 系统 DO FORM FORM\LOGIN.SCX
ENDIF
IF P14=.t.
DEFINE BAR 5 OF 系统 PROMPT "登陆4"
ON SELECTION BAR 5 OF 系统 DO FORM FORM\LOGIN.SCX
ENDIF
IF P15=.T.
DEFINE BAR 6 OF 系统 PROMPT "\-"
DEFINE BAR 7 OF 系统 PROMPT "登陆5"
ON SELECTION BAR 7 OF 系统 DO FORM FORM\LOGIN.SCX
ENDIF
DEFINE POPUP 数据 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据 PROMPT "钞表"
ON SELECTION BAR 1 OF 数据 DO FORM FORM\抄表单.SCX
*****************************************************************
**上面两行星之间的是由向导作出菜单进编译后生成的MPR的文件部分SET SYSMENU TO和SET SYSMENU AUTOMATIC两行,
**可从生成的MPR文件中复制出再粘贴过来,注意变量 (m.cMenuName) 是菜单是名称,向导作出的一般为 _MSYSMENU,
**可用查找替换法进行替换。
**下面的代码是需要增加的代码,是带菜单的表单所要的。
ACTIVATE MENU (m.cMenuName) NOWAIT
*****************************************************************
正常界面
问题界面