管理_top.mpr

VFP编程118例1.rar 是学习VFP编程好例子

DEFINE BAR _med_sp100 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_cut OF (a_menupops[2]) PROMPT "剪切(\<U)" ;
	KEY CTRL+X, "Ctrl+X"
DEFINE BAR _med_copy OF (a_menupops[2]) PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C"
DEFINE BAR _med_paste OF (a_menupops[2]) PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V"
DEFINE BAR _med_clear OF (a_menupops[2]) PROMPT "清除(\<A)"
DEFINE BAR _med_sp200 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_slcta OF (a_menupops[2]) PROMPT "全部选定(\<L)" ;
	KEY CTRL+A, "Ctrl+A"
DEFINE BAR _med_sp300 OF (a_menupops[2]) PROMPT "\-"
DEFINE BAR _med_find OF (a_menupops[2]) PROMPT "查找(\<F)..." ;
	KEY CTRL+F, "Ctrl+F"
DEFINE BAR _med_finda OF (a_menupops[2]) PROMPT "查找下一个(\<G)" ;
	KEY CTRL+G, "Ctrl+G"
DEFINE BAR _med_repl OF (a_menupops[2]) PROMPT "替换(\<E)..." ;
	KEY CTRL+L, "Ctrl+L"

DEFINE POPUP (a_menupops[3]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[3]) PROMPT "宏(\<A)..."
DEFINE BAR 2 OF (a_menupops[3]) PROMPT "错误记录(\<E)"
DEFINE BAR 3 OF (a_menupops[3]) PROMPT "\-"
DEFINE BAR 4 OF (a_menupops[3]) PROMPT "选项(\<O)..."
DEFINE BAR 5 OF (a_menupops[3]) PROMPT "更改口令(\<C)..."
ON BAR 1 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[4])
ON BAR 2 OF (a_menupops[3]) ACTIVATE POPUP (a_menupops[5])
ON SELECTION BAR 4 OF (a_menupops[3]) APP_GLOBAL.DoOptionsDialog()
ON SELECTION BAR 5 OF (a_menupops[3]) APP_GLOBAL.DoChangePassword()

DEFINE POPUP (a_menupops[4]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[4]) PROMPT "录制宏(\<R)"
DEFINE BAR 2 OF (a_menupops[4]) PROMPT "清除宏(\<C)"
DEFINE BAR 3 OF (a_menupops[4]) PROMPT "保存宏为默认值(\<S)"
DEFINE BAR 4 OF (a_menupops[4]) PROMPT "还原默认宏(\<D)"
ON SELECTION BAR 1 OF (a_menupops[4]) KEYBOARD ("{"+SET("MACKEY")+"}")
ON SELECTION BAR 2 OF (a_menupops[4]) CLEAR MACROS
ON SELECTION BAR 3 OF (a_menupops[4]) APP_GLOBAL.SetMacros(.T.)
ON SELECTION BAR 4 OF (a_menupops[4]) APP_GLOBAL.SetMacros()

DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "显示错误日志(\<D)"
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "导出日志(\<E)"
DEFINE BAR 3 OF (a_menupops[5]) PROMPT "清空日志(\<P)"
ON SELECTION BAR 1 OF (a_menupops[5]) APP_GLOBAL.DisplayErrorLog()
ON SELECTION BAR 2 OF (a_menupops[5]) APP_GLOBAL.ExportErrorLog()
ON SELECTION BAR 3 OF (a_menupops[5]) APP_GLOBAL.PurgeErrorLog()

DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mpr_do OF (a_menupops[6]) PROMPT "执行(\<D)..."
DEFINE BAR _mpr_cancl OF (a_menupops[6]) PROMPT "取消(\<C)"
DEFINE BAR _mpr_resum OF (a_menupops[6]) PROMPT "重新运行(\<R)"
DEFINE BAR _mpr_suspend OF (a_menupops[6]) PROMPT "挂起(\<S)"
DEFINE BAR _mpr_compl OF (a_menupops[6]) PROMPT "编译(\<O)..."
DEFINE BAR 6 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 7 OF (a_menupops[6]) PROMPT "调试器(\<U)"
DEFINE BAR 8 OF (a_menupops[6]) PROMPT "数据工作期(\<A)"
DEFINE BAR 9 OF (a_menupops[6]) PROMPT "命令窗口(\<M)"
DEFINE BAR 10 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR _mtl_browser OF (a_menupops[6]) PROMPT "类浏览器(\<B)"
ON SELECTION BAR 7 OF (a_menupops[6]) DEBUG
ON SELECTION BAR 8 OF (a_menupops[6]) APP_GLOBAL.ActivateSystemWindow("View")
ON SELECTION BAR 9 OF (a_menupops[6]) APP_GLOBAL.ActivateSystemWindow("Command")

DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "添加至“收藏夹”(\<A)..."
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "清除“收藏夹”(\<C)"
DEFINE BAR 3 OF (a_menupops[7]) PROMPT "\-"
ON SELECTION BAR 1 OF (a_menupops[7]) APP_GLOBAL.DoStartupForm(.T.)
ON SELECTION BAR 2 OF (a_menupops[7]) APP_GLOBAL.ClearFavorites()

DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "层叠(\<C)"
DEFINE BAR _mwi_arran OF (a_menupops[8]) PROMPT "全部重排(\<A)"
DEFINE BAR _mwi_rotat OF (a_menupops[8]) PROMPT "循环(\<Y)" ;
	KEY CTRL+F1, "CTRL+F1"
ON SELECTION BAR 1 OF (a_menupops[8]) APP_GLOBAL.CascadeAll()

DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "帮助(\<H)" ;
	KEY F1, "F1"
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "\-"
DEFINE BAR 3 OF (a_menupops[9]) PROMPT "关于 "+APP_GLOBAL.cCaption+"(\<A)..."
ON SELECTION BAR 1 OF (a_menupops[9]) APP_GLOBAL.DoHelp()
ON SELECTION BAR 3 OF (a_menupops[9]) APP_GLOBAL.DoAboutBox()

ON SELECTION POPUP (a_menupops[1]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[2]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[3]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[5]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[6]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[7]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[8]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP (a_menupops[9]) MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF


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

*!*		a_menupops[1]="_mfile"
*!*		a_menupops[2]="_medit"
*!*		a_menupops[3]="_mtools"
*!*		a_menupops[4]="_mmacros"
*!*		a_menupops[5]="_merrorlog"
*!*		a_menupops[6]="_mprog"
*!*		a_menupops[7]="_mfave"
*!*		a_menupops[8]="_mwindow"
*!*		a_menupops[9]="_msystem"

IF VERSION(2) = 0
   RELEASE PAD _msm_prog OF (m.cMenuName)
   RELEASE POPUP (a_menupops[6]) 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 (a_menupops[9]) .T.
  ENDIF

  IF EMPTY(APP_GLOBAL.cOptionsDialogClass)
     SET SKIP OF BAR 4 OF (a_menupops[3]) .T.
  ENDIF

  IF EMPTY(APP_GLOBAL.cAboutBoxClass)
     SET SKIP OF BAR 3 OF (a_menupops[9]) .T.
  ENDIF

  IF EMPTY(APP_GLOBAL.cStartupFormClass)
     SET SKIP OF BAR 12 OF (a_menupops[1]) .T.
  ENDIF

  IF NOT APP_GLOBAL.lUserPreferences
     SET SKIP OF BAR 13 OF (a_menupops[1]) .T.
     SET SKIP OF BAR 5 OF (a_menupops[3]) .T.
  ENDIF


ELSE

  * if you prefer

  IF EMPTY(APP_GLOBAL.cOptionsDialogClass)
     RELEASE BAR 4 OF (a_menupops[3])
  ENDIF

  IF EMPTY(APP_GLOBAL.cAboutBoxClass)
     RELEASE BAR 3 OF (a_menupops[9])
  ENDIF

  IF EMPTY(APP_GLOBAL.cHelpFile)
     RELEASE BAR 1 OF (a_menupops[9])
     RELEASE BAR 2 OF (a_menupops[9])
  ENDIF

  IF NOT APP_GLOBAL.lUserPreferences
     RELEASE BAR 13 OF (a_menupops[1])
     RELEASE BAR 14 OF (a_menupops[1])
     RELEASE BAR 5 OF (a_menupops[3])
  ENDIF

  IF EMPTY(APP_GLOBAL.cStartupFormClass)
     RELEASE BAR 12 OF (a_menupops[1])
  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 (a_menupops[3])
   RELEASE POPUP (a_menupops[4])
ELSE
   APP_GLOBAL.cMacroPopupName = (a_menupops[4])
   APP_GLOBAL.SetMacros() && refresh to appropriately disable bar
   IF EMPTY(SET("MACKEY"))
      RELEASE BAR 1 OF (a_menupops[4])
   ENDIF
ENDIF


IF (NOT APP_GLOBAL.lFavorites)
  RELEASE PAD _msm_Fave OF (m.cMenuName)
  RELEASE POPUP (a_menupops[7]) EXTENDED
  ACTI MENU (m.cMenuName) NOWAIT
ELSE
  APP_GLOBAL.cFavoritePopupName = (a_menupops[7])
  APP_GLOBAL.RefreshFavoritePopup()
ENDIF