menu.mpr

来自「山泉的早期工资管理VB程序.可以一看,不错的」· MPR 代码 · 共 169 行

*       *********************************************************
*       *                                                         
*       * 2002.12.24             MENU.MPR               10:07:22  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2002 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _msm_file OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	NEGOTIATE  LEFT, NONE ;
	KEY ALT+F, "" ;
	MESSAGE "Creates, opens, saves, prints files or quits Visual FoxPro"
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+E, "" ;
	MESSAGE "Edits text or current selection"
DEFINE PAD _msm_view OF _MSYSMENU PROMPT "报表(\<R)" COLOR SCHEME 3 ;
	NEGOTIATE  NONE, LEFT ;
	KEY ALT+V, "" ;
	MESSAGE "Changes display options"
DEFINE PAD _0uc0lp3ev OF _MSYSMENU PROMPT "其它(\<O)" COLOR SCHEME 3 ;
	KEY DEL, "DEL"
ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _msm_view OF _MSYSMENU ACTIVATE POPUP 报表r
ON PAD _0uc0lp3ev OF _MSYSMENU ACTIVATE POPUP 其它o

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件f PROMPT "\<E 退出" ;
	PICTRES _mfi_quit ;
	MESSAGE "Quits Visual FoxPro"
ON SELECTION BAR 1 OF 文件f clear events

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑e PROMPT "\<Undo" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	PICTRES _med_undo ;
	MESSAGE "Undoes the last command or action"
DEFINE BAR _med_redo OF 编辑e PROMPT "Re\<do" ;
	KEY CTRL+R, "Ctrl+R" ;
	PICTRES _med_redo ;
	MESSAGE "Repeats the last command or action"
DEFINE BAR _med_sp100 OF 编辑e PROMPT "\-" ;
	PICTRES _med_sp100
DEFINE BAR _med_cut OF 编辑e PROMPT "Cu\<t" ;
	KEY CTRL+X, "Ctrl+X" ;
	PICTRES _med_cut ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF 编辑e PROMPT "\<Copy" ;
	KEY CTRL+C, "Ctrl+C" ;
	PICTRES _med_copy ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF 编辑e PROMPT "\<Paste" ;
	KEY CTRL+V, "Ctrl+V" ;
	PICTRES _med_paste ;
	MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR _med_pstlk OF 编辑e PROMPT "Paste \<Special..." ;
	PICTRES _med_pstlk ;
	MESSAGE "Pastes the Clipboard contents as a linked object, embedded object, or other object type"
DEFINE BAR _med_clear OF 编辑e PROMPT "Cle\<ar" ;
	PICTRES _med_clear ;
	MESSAGE "Removes the selection and does not place it onto the Clipboard"
DEFINE BAR _med_sp200 OF 编辑e PROMPT "\-" ;
	PICTRES _med_sp200
DEFINE BAR _med_slcta OF 编辑e PROMPT "Se\<lect All" ;
	KEY CTRL+A, "Ctrl+A" ;
	PICTRES _med_slcta ;
	MESSAGE "Selects all text or items in the current window"
DEFINE BAR _med_sp300 OF 编辑e PROMPT "\-" ;
	PICTRES _med_sp300
DEFINE BAR _med_find OF 编辑e PROMPT "\<Find..." ;
	KEY CTRL+F, "Ctrl+F" ;
	PICTRES _med_find ;
	MESSAGE "Searches for specified text"
DEFINE BAR _med_repl OF 编辑e PROMPT "R\<eplace..." ;
	KEY CTRL+L, "Ctrl+L" ;
	PICTRES _med_repl ;
	MESSAGE "Replaces specified text with different text"
DEFINE BAR _med_sp400 OF 编辑e PROMPT "\-" ;
	PICTRES _med_sp400
DEFINE BAR _med_listmembers OF 编辑e PROMPT "List \<Members" ;
	KEY CTRL+ENTER, "Ctrl+J" ;
	PICTRES _med_listmembers ;
	MESSAGE "List members of the selected object"
DEFINE BAR _med_quickinfo OF 编辑e PROMPT "\<Quick Info" ;
	KEY CTRL+I, "Ctrl+I" ;
	PICTRES _med_quickinfo ;
	MESSAGE "Quick information on the selected object"
DEFINE BAR _med_sp500 OF 编辑e PROMPT "\-" ;
	PICTRES _med_sp500
DEFINE BAR 18 OF 编辑e PROMPT "\<Bookmarks" ;
	PICTRES _mbk_togtask ;
	MESSAGE "Bookmark options"
DEFINE BAR 19 OF 编辑e PROMPT "\-"
DEFINE BAR _med_insob OF 编辑e PROMPT "\<Insert Object..." ;
	PICTRES _med_insob ;
	MESSAGE "Embeds an object in a General field type"
DEFINE BAR _med_obj OF 编辑e PROMPT "\<Object..." ;
	PICTRES _med_obj ;
	MESSAGE "Edits the selected object"
DEFINE BAR _med_link OF 编辑e PROMPT "Lin\<ks..." ;
	PICTRES _med_link ;
	MESSAGE "Opens linked files or changes links"
DEFINE BAR 23 OF 编辑e PROMPT "\-"
DEFINE BAR _med_pref OF 编辑e PROMPT "Prope\<rties..." ;
	PICTRES _med_pref ;
	MESSAGE "Set editor properties"
ON BAR 18 OF 编辑e ACTIVATE POPUP _med_bkmks

DEFINE POPUP _med_bkmks MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mbk_togtask OF _med_bkmks PROMPT "Toggle Task List \<Shortcut" ;
	KEY ALT+F2, "Alt+F2" ;
	PICTRES _mbk_togtask ;
	MESSAGE "Adds a Shortcut for current line"
DEFINE BAR _mbk_togbkmk OF _med_bkmks PROMPT "Toggle \<Bookmark" ;
	KEY SHIFT+ALT+F2, "Alt+Shift+F2" ;
	PICTRES _mbk_togbkmk ;
	MESSAGE "Toggles bookmark for current line"
DEFINE BAR _mbk_bkmknext OF _med_bkmks PROMPT "\<Next Shortcut/Bookmark" ;
	KEY F2, "F2" ;
	PICTRES _mbk_bkmknext ;
	MESSAGE "Go to the next bookmark or shortcut in the file"
DEFINE BAR _mbk_bkmkprev OF _med_bkmks PROMPT "\<Previous Shortcut/Bookmark" ;
	KEY SHIFT+F2, "Shift+F2" ;
	PICTRES _mbk_bkmkprev ;
	MESSAGE "Go to the previous bookmark or shortcut in the file"

DEFINE POPUP 报表r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表r PROMPT "材料采购表"
DEFINE BAR 2 OF 报表r PROMPT "仪器、设备采购表"
DEFINE BAR 3 OF 报表r PROMPT "设备工程维修报表"
DEFINE BAR 4 OF 报表r PROMPT "综合月报表"
ON SELECTION BAR 1 OF 报表r do form c:\maejsb\forms\材料采购表.scx
ON SELECTION BAR 2 OF 报表r do form c:\maejsb\forms\仪器采购表.scx
ON SELECTION BAR 3 OF 报表r do form c:\maejsb\forms\设备工程维修报表.scx
ON SELECTION BAR 4 OF 报表r do form c:\maejsb\forms\综合月报表.scx

DEFINE POPUP 其它o MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 其它o PROMPT "修改当前操作员口令"
DEFINE BAR 2 OF 其它o PROMPT "操作员权限设置" ;
	SKIP FOR NOT UPPER(gc_Operator)='SYSTEM'
DEFINE BAR 3 OF 其它o PROMPT "\-"
DEFINE BAR 4 OF 其它o PROMPT "数据备份"
DEFINE BAR 5 OF 其它o PROMPT "数据恢复"
ON SELECTION BAR 1 OF 其它o do form c:\maejsb\forms\editpass.scx
ON SELECTION BAR 2 OF 其它o do form c:\maejsb\forms\right.scx
ON SELECTION BAR 4 OF 其它o do form c:\maejsb\forms\backup.scx
ON SELECTION BAR 5 OF 其它o do form c:\maejsb\forms\restore.scx