menu.mpr

固定资产管理系统源码..用于企业资产管理,用VFP编码

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _PADData OF _MSYSMENU PROMPT "数据(\<F)" COLOR SCHEME 3 ;
    KEY ALT+F, ""
DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
    KEY ALT+E, ""
DEFINE PAD _PADView OF _MSYSMENU PROMPT "查看(\<V)" COLOR SCHEME 3 ;
    KEY ALT+V, ""
DEFINE PAD _PADHelp OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
    KEY ALT+H, ""
ON PAD _PADData OF _MSYSMENU ACTIVATE POPUP POPData
ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _MEDIT
ON PAD _PADView OF _MSYSMENU ACTIVATE POPUP POPView
ON PAD _PADHelp OF _MSYSMENU ACTIVATE POPUP POPHelp

DEFINE POPUP POPData MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF POPData PROMPT "固定资产管理(\<M)..." ;
    PICTURE ".\images\Edit.bmp" ;
    MESSAGE "固定资产的验收、维修、出借/归还、转移及报废管理"
DEFINE BAR 2 OF POPData PROMPT "\-"
DEFINE BAR 3 OF POPData PROMPT "维修记录查询(\<X)" ;
    PICTURE ".\images\Fix.bmp" ;
    MESSAGE "查询固定资产的维修/修复记录"
DEFINE BAR 4 OF POPData PROMPT "借出/归还记录查询(\<R)" ;
    PICTURE ".\images\Borrow.bmp" ;
    MESSAGE "查询固定资产的借出/归还记录"   
DEFINE BAR 5 OF POPData PROMPT "转移记录查询(\<O)" ;
    PICTURE ".\images\Move.bmp" ;
    MESSAGE "查询固定资产的转移记录" 
DEFINE BAR 6 OF POPData PROMPT "\-"      
DEFINE BAR 7 OF POPData PROMPT "系统设置(\<S)..." ;
    PICTURE ".\images\Sysset.bmp" ;
    MESSAGE "进行单位名称、使用部门和用户权限等设置"
DEFINE BAR 8 OF POPData PROMPT "切换用户重新登录(\<L)" ;
    MESSAGE "在不退出系统的情况下切换用户"
DEFINE BAR 9 OF POPData PROMPT "\-"
DEFINE BAR 10 OF POPData PROMPT "数据备份/还原(\<B)" ;
    PICTURE ".\images\Backup.bmp" ;
    MESSAGE "备份或还原数据库"    
DEFINE BAR 11 OF POPData PROMPT "\-"
DEFINE BAR 12 OF POPData PROMPT "关闭(\<C)" ;
    MESSAGE "关闭系统"

ON SELECTION BAR 1 OF POPData DoForm("frmEdit")
ON SELECTION BAR 3 OF POPData DoForm("frmQueryFix")
ON SELECTION BAR 4 OF POPData DoForm("frmQueryBorrow")
ON SELECTION BAR 5 OF POPData DoForm("frmQueryMove")
ON SELECTION BAR 7 OF POPData DoForm("frmSysSet")
ON SELECTION BAR 8 OF POPData DoForm("frmRelogin")
ON SELECTION BAR 10 OF POPData DoForm("frmBackup")
ON SELECTION BAR 12 OF POPData cancel 

DEFINE POPUP _MEDIT MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _MEDIT PROMPT "撤消(\<U)    ";
    KEY CTRL+Z, "Ctrl+Z" ;
    PICTURE ".\images\undo.bmp" ;
    MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF _MEDIT PROMPT "重作(\<D)    ";
    KEY CTRL+Z, "Ctrl+R" ;
    PICTURE ".\images\redo.bmp" ;
    MESSAGE "重复上一次命令或操作"
DEFINE BAR _med_sp100 OF _MEDIT PROMPT "\-"

DEFINE BAR _med_cut OF _MEDIT PROMPT "剪切(\<T)    " ;
    KEY CTRL+X, "Ctrl+X" ;
    PICTURE ".\images\Cut.bmp" ;
    MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF _MEDIT PROMPT "复制(\<C)    " ;
    KEY CTRL+C, "Ctrl+C" ;
    PICTURE ".\images\Copy.bmp" ;
    MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF _MEDIT PROMPT "粘贴(\<P)    " ;
    KEY CTRL+V, "Ctrl+V" ;
    PICTURE ".\images\Paste.bmp" ;
    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 POPUP POPView MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF POPView PROMPT "工具栏(\<T)..." ;
    MESSAGE "显示或隐藏工具栏"
ON SELECTION BAR 1 OF POPView do gjxz

DEFINE POPUP POPHelp MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF POPHelp PROMPT "帮助(\<H)         " ;
    KEY F1, "F1" ;
    PICTURE ".\images\Help.bmp" ;
    MESSAGE "打开使用帮助"
DEFINE BAR 2 OF POPHelp PROMPT "关于(\<A)" ;
    PICTURE ".\images\About.bmp" ;
    MESSAGE "关于注册版权"
ON SELECTION BAR 1 OF POPHelp HELP 
ON SELECTION BAR 2 OF POPHelp DoForm("frmAbout")