?? 管理_main.bak
字號:
* *********************************************************
* *
* * 05/01/02 文件管理_MAIN.MPR 12:00:42
* *
* *********************************************************
* *
* * 作者名稱
* *
* * 版權所有 (C) 2002 公司名稱
* * 地址
* * 城市, 郵編
* * 國家
* *
* * 說明:
* * 此程序由 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 _msm_file OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
NEGOTIATE LEFT, NONE ;
KEY ALT+F, "" ;
MESSAGE "創建、打開、保存、打印文件或退出 "+APP_GLOBAL.cCaption
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "編輯(\<E)" COLOR SCHEME 3 ;
KEY ALT+E, "" ;
MESSAGE "編輯文本或當前所選部分"
DEFINE PAD _msm_tools OF _MSYSMENU PROMPT "工具(\<T)" COLOR SCHEME 3 ;
KEY ALT+T, ""
DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "程序(\<P)" COLOR SCHEME 3 ;
NEGOTIATE MIDDLE, NONE ;
KEY ALT+P, "" ;
MESSAGE "運行、調試、編譯和掛起程序"
DEFINE PAD _msm_fave OF _MSYSMENU PROMPT "收藏夾(\<A)" COLOR SCHEME 3 ;
KEY ALT+A, "ALT+A" ;
MESSAGE "便捷訪問“收藏夾”文檔"
DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "窗口(\<W)" COLOR SCHEME 3 ;
NEGOTIATE RIGHT, NONE ;
KEY ALT+W, ""
DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "幫助(\<H)" COLOR SCHEME 3 ;
KEY ALT+H, ""
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
ON PAD _msm_tools OF _MSYSMENU ACTIVATE POPUP _mtools
ON PAD _msm_prog OF _MSYSMENU ACTIVATE POPUP _mprog
ON PAD _msm_fave OF _MSYSMENU ACTIVATE POPUP _mfave
ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP _msystem
DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mfile PROMPT "新建(\<N)..." ;
MESSAGE "創建文檔"
DEFINE BAR 2 OF _mfile PROMPT "打開(\<O)..." ;
MESSAGE "打開文檔"
DEFINE BAR 3 OF _mfile PROMPT "關閉(\<C)" ;
SKIP FOR TYPE("_SCREEN.Activeform") # "O" OR _SCREEN.ActiveForm.ShowWindow = 2 ;
MESSAGE "關閉活動表單"
DEFINE BAR 4 OF _mfile PROMPT "\-"
DEFINE BAR 5 OF _mfile PROMPT "保存(\<S)" ;
SKIP FOR EMPTY(AUSED(latemp)) ;
MESSAGE "保存當前表單或表單集上的編輯結果"
DEFINE BAR 6 OF _mfile PROMPT "恢復(\<R)" ;
SKIP FOR EMPTY(AUSED(latemp)) ;
MESSAGE "恢復當前表單或表單集上的編輯結果"
DEFINE BAR 7 OF _mfile PROMPT "\-"
DEFINE BAR 8 OF _mfile PROMPT "打印(\<T)..." ;
SKIP FOR EMPTY(AUSED(latemp)) ;
MESSAGE "打印當前數據"
DEFINE BAR 9 OF _mfile PROMPT "打印報表(\<P)..." ;
MESSAGE "選擇報表"
DEFINE BAR 10 OF _mfile PROMPT "打印設置(\<I)...."
DEFINE BAR 11 OF _mfile PROMPT "\-"
DEFINE BAR 12 OF _mfile PROMPT "快速啟動(\<Q)..." ;
MESSAGE "選擇要運行的表單或報表文檔"
DEFINE BAR 13 OF _mfile PROMPT "用戶登錄(\<U)..." ;
MESSAGE "以其他用戶身份登錄"
DEFINE BAR 14 OF _mfile PROMPT "\-"
DEFINE BAR 15 OF _mfile PROMPT "退出(\<X)" ;
MESSAGE "退出 "+APP_GLOBAL.cCaption
ON SELECTION BAR 1 OF _mfile APP_GLOBAL.DoNewOpen(.T.)
ON SELECTION BAR 2 OF _mfile APP_GLOBAL.DoNewOpen()
ON SELECTION BAR 3 OF _mfile IIF(APP_GLOBAL.QueryDataSessionUnload(),APP_GLOBAL.ReleaseForm(),.T.)
ON SELECTION BAR 5 OF _mfile APP_GLOBAL.DataUpdate()
ON SELECTION BAR 6 OF _mfile APP_GLOBAL.DataRevert()
ON SELECTION BAR 8 OF _mfile APP_GLOBAL.DoTableOutput()
ON SELECTION BAR 9 OF _mfile APP_GLOBAL.DoReportDialog()
ON SELECTION BAR 10 OF _mfile SET PRINTER TO NAME (SYS(1037))
ON SELECTION BAR 12 OF _mfile APP_GLOBAL.DoStartupForm()
ON SELECTION BAR 13 OF _mfile IIF(APP_GLOBAL.ReleaseForms(),IIF(APP_GLOBAL.SetCurrentUser(.T.),.T., APP_GLOBAL.Release()),.T.)
ON SELECTION BAR 15 OF _mfile APP_GLOBAL.Release()
DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _medit PROMPT "撤消(\<U)" ;
KEY CTRL+Z, "Ctrl+Z" ;
MESSAGE "撤消上一個命令或動作"
DEFINE BAR _med_redo OF _medit PROMPT "重做(\<D)" ;
KEY CTRL+R, "Ctrl+R" ;
MESSAGE "重復上一個命令或動作"
DEFINE BAR _med_sp100 OF _medit PROMPT "\-"
DEFINE BAR _med_cut OF _medit PROMPT "剪切(\<U)" ;
KEY CTRL+X, "Ctrl+X" ;
MESSAGE "刪除選定部分并將其放到剪貼板上"
DEFINE BAR _med_copy OF _medit PROMPT "復制(\<C)" ;
KEY CTRL+C, "Ctrl+C" ;
MESSAGE "將所選部分復制到剪貼板"
DEFINE BAR _med_paste OF _medit PROMPT "粘貼(\<P)" ;
KEY CTRL+V, "Ctrl+V" ;
MESSAGE "粘貼剪貼板上的內容"
DEFINE BAR _med_clear OF _medit PROMPT "清除(\<A)" ;
MESSAGE "刪除選定部分而不將其放到剪貼板上"
DEFINE BAR _med_sp200 OF _medit PROMPT "\-"
DEFINE BAR _med_slcta OF _medit PROMPT "全部選定(\<L)" ;
KEY CTRL+A, "Ctrl+A" ;
MESSAGE "選定所有當前窗口中的文字或數據項"
DEFINE BAR _med_sp300 OF _medit PROMPT "\-"
DEFINE BAR _med_find OF _medit PROMPT "查找(\<F)..." ;
KEY CTRL+F, "Ctrl+F" ;
MESSAGE "查找指定文字"
DEFINE BAR _med_finda OF _medit PROMPT "查找下一個(\<G)" ;
KEY CTRL+G, "Ctrl+G" ;
MESSAGE "重復上一次搜索"
DEFINE BAR _med_repl OF _medit PROMPT "替換(\<E)..." ;
KEY CTRL+L, "Ctrl+L" ;
MESSAGE "替換指定文字"
DEFINE POPUP _mtools MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mtools PROMPT "宏(\<A)..." ;
MESSAGE "創建、刪除或修正鍵宏"
DEFINE BAR 2 OF _mtools PROMPT "錯誤記錄(\<E)"
DEFINE BAR 3 OF _mtools PROMPT "\-"
DEFINE BAR 4 OF _mtools PROMPT "選項(\<O)..."
DEFINE BAR 5 OF _mtools PROMPT "更改口令(\<C)..."
ON BAR 1 OF _mtools ACTIVATE POPUP _mmacros
ON BAR 2 OF _mtools ACTIVATE POPUP _merrorlog
ON SELECTION BAR 4 OF _mtools APP_GLOBAL.DoOptionsDialog()
ON SELECTION BAR 5 OF _mtools APP_GLOBAL.DoChangePassword()
DEFINE POPUP _mmacros MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mmacros PROMPT "錄制宏(\<R)"
DEFINE BAR 2 OF _mmacros PROMPT "清除宏(\<C)"
DEFINE BAR 3 OF _mmacros PROMPT "保存宏為默認值(\<S)"
DEFINE BAR 4 OF _mmacros PROMPT "還原默認宏(\<D)"
ON SELECTION BAR 1 OF _mmacros KEYBOARD ("{"+SET("MACKEY")+"}")
ON SELECTION BAR 2 OF _mmacros CLEAR MACROS
ON SELECTION BAR 3 OF _mmacros APP_GLOBAL.SetMacros(.T.)
ON SELECTION BAR 4 OF _mmacros APP_GLOBAL.SetMacros()
DEFINE POPUP _merrorlog MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _merrorlog PROMPT "顯示錯誤日志(\<D)"
DEFINE BAR 2 OF _merrorlog PROMPT "導出日志(\<E)"
DEFINE BAR 3 OF _merrorlog PROMPT "清空日志(\<P)"
ON SELECTION BAR 1 OF _merrorlog APP_GLOBAL.DisplayErrorLog()
ON SELECTION BAR 2 OF _merrorlog APP_GLOBAL.ExportErrorLog()
ON SELECTION BAR 3 OF _merrorlog APP_GLOBAL.PurgeErrorLog()
DEFINE POPUP _mprog MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mpr_do OF _mprog PROMPT "執行(\<D)..." ;
MESSAGE "運行程序、應用程序、表單、報表、查詢或菜單"
DEFINE BAR _mpr_cancl OF _mprog PROMPT "取消(\<C)" ;
MESSAGE "停止運行當前程序"
DEFINE BAR _mpr_resum OF _mprog PROMPT "重新運行(\<R)" ;
MESSAGE "重新運行當前掛起的程序"
DEFINE BAR _mpr_suspend OF _mprog PROMPT "掛起(\<S)" ;
MESSAGE "掛起當前正在運行的程序"
DEFINE BAR _mpr_compl OF _mprog PROMPT "編譯(\<O)..." ;
MESSAGE "編譯當前的或選定的程序"
DEFINE BAR 6 OF _mprog PROMPT "\-"
DEFINE BAR 7 OF _mprog PROMPT "調試器(\<U)"
DEFINE BAR 8 OF _mprog PROMPT "數據工作期(\<A)"
DEFINE BAR 9 OF _mprog PROMPT "命令窗口(\<M)"
DEFINE BAR 10 OF _mprog PROMPT "\-"
DEFINE BAR _mtl_browser OF _mprog PROMPT "類瀏覽器(\<B)" ;
MESSAGE "運行類瀏覽器"
ON SELECTION BAR 7 OF _mprog DEBUG
ON SELECTION BAR 8 OF _mprog APP_GLOBAL.ActivateSystemWindow("View")
ON SELECTION BAR 9 OF _mprog APP_GLOBAL.ActivateSystemWindow("Command")
DEFINE POPUP _mfave MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mfave PROMPT "添加至“收藏夾”(\<A)..." ;
MESSAGE "添加至“收藏夾”菜單"
DEFINE BAR 2 OF _mfave PROMPT "清除“收藏夾”(\<C)" ;
MESSAGE "清除“收藏夾”列表"
DEFINE BAR 3 OF _mfave PROMPT "\-"
ON SELECTION BAR 1 OF _mfave APP_GLOBAL.DoStartupForm(.T.)
ON SELECTION BAR 2 OF _mfave APP_GLOBAL.ClearFavorites()
DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _mwindow PROMPT "層疊(\<C)"
DEFINE BAR _mwi_arran OF _mwindow PROMPT "全部重排(\<A)" ;
MESSAGE "重排窗口為標題不重疊"
DEFINE BAR _mwi_rotat OF _mwindow PROMPT "循環(\<Y)" ;
KEY CTRL+F1, "CTRL+F1"
ON SELECTION BAR 1 OF _mwindow APP_GLOBAL.CascadeAll()
DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _msystem PROMPT "幫助(\<H)" ;
KEY F1, "F1"
DEFINE BAR 2 OF _msystem PROMPT "\-"
DEFINE BAR 3 OF _msystem PROMPT "關于 "+APP_GLOBAL.cCaption+"(\<A)..."
ON SELECTION BAR 1 OF _msystem APP_GLOBAL.DoHelp()
ON SELECTION BAR 3 OF _msystem APP_GLOBAL.DoAboutBox()
ON SELECTION POPUP _mfile MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _mtools MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _merrorlog MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _mprog MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _mfave MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _mwindow MESSAGEBOX(APP_FEATURE_NOT_AVAILABLE_LOC,0,APP_GLOBAL.cCaption)
ON SELECTION POPUP _msystem 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -