js_main.mpr

本软件的功能如下： 1.公司员工工资信息输入查找 2.工资计算 3.工资汇总 4.工资打印报表 5.到处数据

*       *********************************************************
*       *                                                         
*       * 05/11/03             JS_MAIN.MPR              01:45:00  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2003 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

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


#INCLUDE [..\JS_APP.H]



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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "管理(\<F)" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+F, "" ;
	MESSAGE "创建、打开、保存、打印文件或退出 "+APP_GLOBAL.cCaption
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP 管理f

DEFINE POPUP 管理f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理f PROMPT "打开编辑表单(\<N)..." ;
	MESSAGE "创建文档"
DEFINE BAR 2 OF 管理f PROMPT "\-"
DEFINE BAR 3 OF 管理f PROMPT "退出(\<X)" ;
	MESSAGE "退出 "+APP_GLOBAL.cCaption
ON SELECTION BAR 1 OF 管理f APP_GLOBAL.DoNewOpen(.T.)
ON SELECTION BAR 3 OF 管理f APP_GLOBAL.Release()

ON SELECTION POPUP 管理f 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