菜单编译问题
我编写的菜单,其实很简单,但是编译后出现了一些不知道是什么的代码。请求大侠们指点!以下是自动产生的代码:
#INCLUDE [..\GBCP_APP.H]
** 菜单定义
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _30g11mmjh OF _MSYSMENU PROMPT "系统设置(\<S)" COLOR SCHEME 3 ;
KEY ALT+S, "" ;
MESSAGE "设置系统参数"
DEFINE PAD _30g11mmji OF _MSYSMENU PROMPT "用户管理(\<F)" COLOR SCHEME 3 ;
KEY ALT+F, "" ;
MESSAGE "用户添加、删除、权限设置或退出 "
DEFINE PAD _30g11mmjj OF _MSYSMENU PROMPT "数据管理(\<D)" COLOR SCHEME 3 ;
KEY ALT+D, "ALT+D" ;
MESSAGE "数据导入、导出"
DEFINE PAD _30g11mmjk OF _MSYSMENU PROMPT "退出系统(\<Q)" COLOR SCHEME 3 ;
KEY ALT+Q, "ALT+Q" ;
MESSAGE "退出系统"
ON SELECTION PAD _30g11mmjh OF _MSYSMENU do form form_xtsz
ON SELECTION PAD _30g11mmji OF _MSYSMENU do form form_user
ON PAD _30g11mmjj OF _MSYSMENU ACTIVATE POPUP 数据管理d
ON SELECTION PAD _30g11mmjk OF _MSYSMENU ;
DO _30g11mmjl ;
IN LOCFILE("\GBCP\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
DEFINE POPUP 数据管理d MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理d PROMPT "数据测评"
DEFINE BAR 2 OF 数据管理d PROMPT "数据导入"
DEFINE BAR 3 OF 数据管理d PROMPT "数据导出"
ON SELECTION BAR 1 OF 数据管理d do form form_cp2010
ON SELECTION BAR 2 OF 数据管理d do form form_input
ON SELECTION BAR 3 OF 数据管理d do form form_output
ON SELECTION MENU _MSYSMENU ;
DO _30g11mmjm ;
IN LOCFILE("\GBCP\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
* *********************************************************
* *
* * 清理代码及过程
* *
* *********************************************************
IF VERSION(2) = 0
RELEASE PAD _msm_prog OF _MSYSMENU
RELEASE POPUP _mprog EXTENDED
ENDIF
IF NOT APP_GLOBAL.lReleaseUnusedMenuItems
IF EMPTY(APP_GLOBAL.cHelpFile)
SET SKIP OF BAR 1 OF _msystem .T.
ENDIF
IF EMPTY(APP_GLOBAL.cOptionsDialogClass)
SET SKIP OF BAR 4 OF _mtools .T.
ENDIF
IF EMPTY(APP_GLOBAL.cAboutBoxClass)
SET SKIP OF BAR 3 OF _msystem .T.
ENDIF
IF EMPTY(APP_GLOBAL.cStartupFormClass)
SET SKIP OF BAR 12 OF _mfile .T.
ENDIF
IF NOT APP_GLOBAL.lUserPreferences
SET SKIP OF BAR 13 OF _mfile .T.
SET SKIP OF BAR 5 OF _mtools .T.
ENDIF
ELSE
* if you prefer
IF EMPTY(APP_GLOBAL.cOptionsDialogClass)
RELEASE BAR 4 OF _mtools
ENDIF
IF EMPTY(APP_GLOBAL.cAboutBoxClass)
RELEASE BAR 3 OF _msystem
ENDIF
IF EMPTY(APP_GLOBAL.cHelpFile)
RELEASE BAR 1 OF _msystem
RELEASE BAR 2 OF _msystem
ENDIF
IF NOT APP_GLOBAL.lUserPreferences
RELEASE BAR 13 OF _mfile
RELEASE BAR 14 OF _mfile
RELEASE BAR 5 OF _mtools
ENDIF
IF EMPTY(APP_GLOBAL.cStartupFormClass)
RELEASE BAR 12 OF _mfile
ENDIF
ENDIF
IF (NOT APP_GLOBAL.lReadEvents)
* unlikely for a Replace-style menu unless
* Top Form, but the following
* isn't safe in a non-ReadEvents environment
RELEASE BAR 1 OF _mTools
RELEASE POPUP _mMacros
ELSE
APP_GLOBAL.cMacroPopupName = "_mMacros"
APP_GLOBAL.SetMacros() && refresh to appropriately disable bar
IF EMPTY(SET("MACKEY"))
RELEASE BAR 1 OF _mMacros
ENDIF
ENDIF
IF (NOT APP_GLOBAL.lFavorites)
RELEASE PAD _msm_Fave OF _MSYSMENU
RELEASE POPUP _mfave EXTENDED
ACTI MENU _MSYSMENU NOWAIT
ELSE
APP_GLOBAL.cFavoritePopupName = "_mFave"
APP_GLOBAL.RefreshFavoritePopup()
ENDIF
*Prompt: 退出系统(Q)
PROCEDURE _30g11mmjl
close all
release all
quit
*
PROCEDURE _30g11mmjm
close all
return
清理代码及过程不知是怎么产生的,