| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 576 人关注过本帖
标题:菜单编译问题
只看楼主 加入收藏
lxd1260
Rank: 1
来 自:湖北武汉
等 级:新手上路
帖 子:31
专家分:0
注 册:2010-8-20
结帖率:50%
收藏
 问题点数:0 回复次数:0 
菜单编译问题
我编写的菜单,其实很简单,但是编译后出现了一些不知道是什么的代码。请求大侠们指点!
以下是自动产生的代码:

#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


清理代码及过程不知是怎么产生的,
搜索更多相关主题的帖子: 编译 菜单 
2010-08-22 17:42
快速回复:菜单编译问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016725 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved