管理.mpr

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _24i0n3i36 OF _MSYSMENU PROMPT "文件(\<F)" COLOR SCHEME 3 ;
	KEY ALT+F, ""
DEFINE PAD _24i0n3i37 OF _MSYSMENU PROMPT "编辑(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
DEFINE PAD _24i0n3i38 OF _MSYSMENU PROMPT "数据录入(\<I)" COLOR SCHEME 3 ;
	KEY ALT+I, ""
DEFINE PAD _24i0n3i39 OF _MSYSMENU PROMPT "查询(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _24i0n3i3a OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
DEFINE PAD _24i0n3i3b OF _MSYSMENU PROMPT "打印(\<P)" COLOR SCHEME 3 ;
	KEY ALT+P, ""
DEFINE PAD _24i0n3i3c OF _MSYSMENU PROMPT "退出(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
ON PAD _24i0n3i36 OF _MSYSMENU ACTIVATE POPUP _24i0k9xlx
ON PAD _24i0n3i37 OF _MSYSMENU ACTIVATE POPUP _24i0kb1ch
ON PAD _24i0n3i38 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON PAD _24i0n3i39 OF _MSYSMENU ACTIVATE POPUP _24i0jovec
ON SELECTION PAD _24i0n3i3a OF _MSYSMENU DO FORM FORMS\机票销售统计
ON PAD _24i0n3i3b OF _MSYSMENU ACTIVATE POPUP _24i0jprm2
ON PAD _24i0n3i3c OF _MSYSMENU ACTIVATE POPUP _24i0jqrtf

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

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

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

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

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

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