通讯录管理系统_main.mpr

一个实用的通讯录管理系统

*       *********************************************************
*       *                                                         
*       * 01/24/06       通讯录管理系统_MAIN.MPR        22:06:38  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

* This file is a generated, framework-enabling component
* created by APPBUILDER
* (c) Microsoft Corporation


#INCLUDE [..\通讯录管理系统_APP.H]



*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1pu1be2a6 OF _MSYSMENU PROMPT "数据维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1pu1be2a7 OF _MSYSMENU PROMPT "数据查询(\<C)" COLOR SCHEME 3 ;
	KEY ALT+C, ""
DEFINE PAD _1pu1be2a8 OF _MSYSMENU PROMPT "报表预览(\<Y)" COLOR SCHEME 3 ;
	KEY ALT+Y, ""
DEFINE PAD _1pu1be2a9 OF _MSYSMENU PROMPT "退出(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
ON PAD _1pu1be2a6 OF _MSYSMENU ACTIVATE POPUP 数据维护w
ON PAD _1pu1be2a7 OF _MSYSMENU ACTIVATE POPUP 数据查询c
ON PAD _1pu1be2a8 OF _MSYSMENU ACTIVATE POPUP 报表预览y
ON SELECTION PAD _1pu1be2a9 OF _MSYSMENU QUIT

DEFINE POPUP 数据维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据维护w PROMPT "新增记录" ;
	KEY CTRL+N, "CTRL+N"
DEFINE BAR 2 OF 数据维护w PROMPT "修改记录" ;
	KEY CTRL+M, "CTRL+M"
DEFINE BAR 3 OF 数据维护w PROMPT "删除记录" ;
	KEY CTRL+D, "CTRL+D"
ON SELECTION BAR 1 OF 数据维护w do form 新增记录
ON SELECTION BAR 2 OF 数据维护w do form 修改记录
ON SELECTION BAR 3 OF 数据维护w do form 删除记录

DEFINE POPUP 数据查询c MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据查询c PROMPT "按编号查询" ;
	KEY CTRL+B, "CTRL+B"
DEFINE BAR 2 OF 数据查询c PROMPT "按姓名查询" ;
	KEY CTRL+X, "CTRL+X"
DEFINE BAR 3 OF 数据查询c PROMPT "按宅电查询" ;
	KEY CTRL+Z, "CTRL+Z"
DEFINE BAR 4 OF 数据查询c PROMPT "按手机查询" ;
	KEY CTRL+S, "CTRL+S"
ON SELECTION BAR 1 OF 数据查询c do form 按编号查询
ON SELECTION BAR 2 OF 数据查询c do form 按姓名查询
ON SELECTION BAR 3 OF 数据查询c do form 按宅电查询
ON SELECTION BAR 4 OF 数据查询c do form 按手机查询

DEFINE POPUP 报表预览y MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表预览y PROMPT "预览报表" ;
	KEY CTRL+Y, "CTRL+Y"
ON SELECTION BAR 1 OF 报表预览y report form 通讯录 preview

ON SELECTION POPUP 数据维护w MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP 报表预览y MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)

*       *********************************************************
*       *                                                         
*       *                      清理代码及过程                     
*       *                                                         
*       *********************************************************
*

*  none of these statements will work
* in exactly this way in a Top menu --
* we'll use the array elements

IF VERSION(2) = 0
   RELEASE PAD _msm_prog OF _MSYSMENU
   RELEASE POPUP _mprog EXTENDED
ENDIF

* the program pad items, above, always get
* get released in runtime, but some items
* specific to application state may be
* released or disabled as you choose:
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