menu.mpr

进销存管理系统医药版,支持自动生成药品首写拼音字母快速查询.

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _PADData OF _MSYSMENU PROMPT "数据(\<D)" 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 "进货管理(\<I)..." ;
    PICTURE ".\images\In.bmp" ;
    MESSAGE "进货单录入、修改"
DEFINE BAR 2 OF POPData PROMPT "销货管理(\<O)" ;
    PICTURE ".\images\Out.bmp" ;
    MESSAGE "销货单录入、修改"
DEFINE BAR 3 OF POPData PROMPT "存货查询(\<K)" ;
    PICTURE ".\images\Stock.bmp" ;
    MESSAGE "存货查询"
DEFINE BAR 4 OF POPData PROMPT "财务管理(\<T)..." ;
    PICTURE ".\images\Edit.bmp" ;
    MESSAGE "应收、应付帐款、费用和利润查询"   
DEFINE BAR 5 OF POPData PROMPT "\-"      
DEFINE BAR 6 OF POPData PROMPT "系统设置(\<S)..." ;
    PICTURE ".\images\Sysset.bmp" ;
    MESSAGE "进行单位名称、操作员和供应商等设置"
DEFINE BAR 7 OF POPData PROMPT "数据备份/恢复(\<B)" ;
    PICTURE ".\images\Backup.bmp" ;
    MESSAGE "压缩备份/恢复当前系统所有数据"    
DEFINE BAR 8 OF POPData PROMPT "\-"
DEFINE BAR 9 OF POPData PROMPT "关闭(\<C)" ;
    MESSAGE "关闭系统"

ON SELECTION BAR 1 OF POPData DoForm("frmIn")
ON SELECTION BAR 2 OF POPData DoForm("frmOut")
ON SELECTION BAR 3 OF POPData DoForm("frmStock")
ON SELECTION BAR 4 OF POPData DoForm("frmFinance")
ON SELECTION BAR 6 OF POPData DoForm("frmSysSet")
ON SELECTION BAR 7 OF POPData DoForm("frmBackup")
ON SELECTION BAR 9 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")