管理菜单.bak

一个简单的航空售票系统：登录

*       *********************************************************
*       *                                                         
*       * 07/04/07            管理菜单.MPR              08:48:48  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2007 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

&&SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _24i0iw24r OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _24i0iw24s OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _24i0iw24t OF _MSYSMENU PROMPT "数据录入(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _24i0iw24u OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _24i0iw24v OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _24i0iw24w OF _MSYSMENU PROMPT "退出(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
ON PAD _24i0iw24r OF _MSYSMENU ACTIVATE POPUP 文件f
ON PAD _24i0iw24s OF _MSYSMENU ACTIVATE POPUP _24e18oqee
ON PAD _24i0iw24t OF _MSYSMENU ACTIVATE POPUP 数据录入i
ON PAD _24i0iw24u OF _MSYSMENU ACTIVATE POPUP 查询q
ON PAD _24i0iw24v OF _MSYSMENU ACTIVATE POPUP 打印p
ON PAD _24i0iw24w OF _MSYSMENU ACTIVATE POPUP 退出t

DEFINE POPUP 文件f MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _mfi_new OF 文件f PROMPT "新建(\<N)..." ;
	KEY CTRL+N, "Ctrl+N" ;
	MESSAGE "创建新文件"
DEFINE BAR _mfi_open OF 文件f PROMPT "打开(\<O)..." ;
	KEY CTRL+O, "Ctrl+O" ;
	MESSAGE "打开已有文件"
DEFINE BAR _mfi_close OF 文件f PROMPT "关闭(\<C)" ;
	MESSAGE "关闭当前文件"
DEFINE BAR _mfi_save OF 文件f PROMPT "保存(\<S)" ;
	KEY CTRL+S, "Ctrl+S" ;
	MESSAGE "保存当前改动了的文件"
DEFINE BAR _mfi_savas OF 文件f PROMPT "另存为(\<A)..." ;
	MESSAGE "用新文件名保存当前改动了的文件"

DEFINE POPUP _24e18oqee MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR _med_undo OF _24e18oqee PROMPT "撤消(\<U)" ;
	KEY CTRL+Z, "Ctrl+Z" ;
	MESSAGE "撤消上一次命令或操作"
DEFINE BAR _med_redo OF _24e18oqee PROMPT "重做(\<D)" ;
	KEY CTRL+R, "Ctrl+R" ;
	MESSAGE "重复上一次命令或操作"
DEFINE BAR _med_cut OF _24e18oqee PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去选定内容并将其放入剪贴板"
DEFINE BAR _med_copy OF _24e18oqee PROMPT "复制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "将选定内容复制到剪贴板上"
DEFINE BAR _med_paste OF _24e18oqee PROMPT "粘贴(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘贴剪贴板上的内容"

DEFINE POPUP 数据录入i MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据录入i PROMPT "录入航班信息"
DEFINE BAR 2 OF 数据录入i PROMPT "录入座位与票价信息"
DEFINE BAR 3 OF 数据录入i PROMPT "录入售票情况"
DEFINE BAR 4 OF 数据录入i PROMPT "录入乘客信息"
DEFINE BAR 5 OF 数据录入i PROMPT "录入用户信息"
ON SELECTION BAR 1 OF 数据录入i DO FORM FORMS\航班
ON SELECTION BAR 2 OF 数据录入i DO FORM FORMS\座位与票价
ON SELECTION BAR 3 OF 数据录入i DO FORM FORMS\售票情况
ON SELECTION BAR 4 OF 数据录入i DO FORM FORMS\乘客信息
ON SELECTION BAR 5 OF 数据录入i DO FORM FORMS\用户

DEFINE POPUP 查询q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询q PROMPT "航班查询"
ON SELECTION BAR 1 OF 查询q DO FORM FORMS\航班查询

DEFINE POPUP 打印p MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印p PROMPT "打印机票"
DEFINE BAR 2 OF 打印p PROMPT "打印座位与票价"
ON SELECTION BAR 1 OF 打印p REPORT FORM REPORTS\打印机票.frx PREVIEW
ON SELECTION BAR 2 OF 打印p REPORT FORM REPORTS\座位与票价.frx PREVIEW

DEFINE POPUP 退出t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出t PROMPT "返回"
DEFINE BAR 2 OF 退出t PROMPT "退出"
ON SELECTION BAR 1 OF 退出t SET SYSMENU TO DEFAULT
ON SELECTION BAR 2 OF 退出t QUIT