sysmenu.mpr

VC数据库编程综合应用。订单的管理

*       *********************************************************
*       *                                                         
*       * 2002.02.02            SYSMENU.MPR             14:20:41  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 红虎                                                    
*       *                                                         
*       * 版权所有 (C) 2002 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _0lb0uqv1g OF _MSYSMENU PROMPT "客户资料(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _0lb0uqv1p OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _0lb0uqv1q OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _0lb0uqv1g OF _MSYSMENU ACTIVATE POPUP 客户资料g
ON PAD _0lb0uqv1p OF _MSYSMENU ACTIVATE POPUP 编辑e
ON PAD _0lb0uqv1q OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 客户资料g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 客户资料g PROMPT "新增(\<N)"
DEFINE BAR 2 OF 客户资料g PROMPT "\-"
DEFINE BAR 3 OF 客户资料g PROMPT "浏览(\<B)" ;
	SKIP FOR !plManageMode
DEFINE BAR 4 OF 客户资料g PROMPT "报表(\<P)" ;
	SKIP FOR !plManageMode
DEFINE BAR 5 OF 客户资料g PROMPT "\-"
DEFINE BAR 6 OF 客户资料g PROMPT "系统设置(\<S)"
DEFINE BAR 7 OF 客户资料g PROMPT "\-"
DEFINE BAR 8 OF 客户资料g PROMPT "退出(\<X)"
ON SELECTION BAR 1 OF 客户资料g do form frm_newguest
ON SELECTION BAR 3 OF 客户资料g do form frm_brow
ON SELECTION BAR 4 OF 客户资料g do ShowForm  with "frm_report","oReportForm"
ON SELECTION BAR 6 OF 客户资料g do form frm_setup name oSystemData
ON SELECTION BAR 8 OF 客户资料g quit

DEFINE POPUP 编辑e MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF 编辑e PROMPT "撤消\<U）" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "Undoes the last command or action"
DEFINE BAR 2 OF 编辑e PROMPT "\-"
DEFINE BAR _med_cut OF 编辑e PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "Removes the selection and places it onto the Clipboard"
DEFINE BAR _med_copy OF 编辑e PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "Copies the selection onto the Clipboard"
DEFINE BAR _med_paste OF 编辑e PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "Pastes the contents of the Clipboard"
DEFINE BAR 6 OF 编辑e PROMPT "\-"
DEFINE BAR _med_clear OF 编辑e PROMPT "清除(\<R)" ;
	MESSAGE "Removes the selection and does not place it onto the Clipboard"

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "给作者发信(\<W)"
DEFINE BAR 2 OF 帮助h PROMPT "访问红虎工作室主页(\<P)"
DEFINE BAR 3 OF 帮助h PROMPT "\-"
DEFINE BAR 4 OF 帮助h PROMPT "关于(\<A)..."
ON SELECTION BAR 1 OF 帮助h openurl("mailto:[e-mail]?subject=about_guest_info")
ON SELECTION BAR 2 OF 帮助h openurl("http://www.honghoo.net")
ON SELECTION BAR 4 OF 帮助h do form frm_about