menumain.mpr

这是一套较为完整的能适用于酒店宾馆的各方服务系统

*       *********************************************************
*       *                                                         
*       * 06/05/06            MENUMAIN.MPR              09:34:14  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2006 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ti0kihc5 OF _MSYSMENU PROMPT "前台管理(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1ti0kihc6 OF _MSYSMENU PROMPT "客房管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1ti0kihc7 OF _MSYSMENU PROMPT "查询统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1ti0kihc8 OF _MSYSMENU PROMPT "挂帐管理(\<G)" COLOR SCHEME 3 ;
	KEY ALT+G, ""
DEFINE PAD _1ti0kihc9 OF _MSYSMENU PROMPT "基础信息设置(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1ti0kihca OF _MSYSMENU PROMPT "系统初始化(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1ti0kihcb OF _MSYSMENU PROMPT "系统维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1ti0kihcc OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1ti0kihc5 OF _MSYSMENU ACTIVATE POPUP 前台管理q
ON PAD _1ti0kihc6 OF _MSYSMENU ACTIVATE POPUP 客房管理r
ON PAD _1ti0kihc7 OF _MSYSMENU ACTIVATE POPUP 查询统计t
ON PAD _1ti0kihc8 OF _MSYSMENU ACTIVATE POPUP 挂帐管理g
ON PAD _1ti0kihc9 OF _MSYSMENU ACTIVATE POPUP 基础信息设
ON PAD _1ti0kihca OF _MSYSMENU ACTIVATE POPUP 系统初始化
ON PAD _1ti0kihcb OF _MSYSMENU ACTIVATE POPUP 系统维护w
ON PAD _1ti0kihcc OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 前台管理q MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 前台管理q PROMPT "客房预定(\<A)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 2 OF 前台管理q PROMPT "\-"
DEFINE BAR 3 OF 前台管理q PROMPT "住宿登记(\<B)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 4 OF 前台管理q PROMPT "\-"
DEFINE BAR 5 OF 前台管理q PROMPT "调房登记(\<C)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 6 OF 前台管理q PROMPT "\-"
DEFINE BAR 7 OF 前台管理q PROMPT "追加押金(\<D)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 8 OF 前台管理q PROMPT "\-"
DEFINE BAR 9 OF 前台管理q PROMPT "退宿结帐(\<E)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 10 OF 前台管理q PROMPT "\-"
DEFINE BAR 11 OF 前台管理q PROMPT "退出(\<X)" ;
	KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF 前台管理q do form kfgl\form\kfyd
ON SELECTION BAR 3 OF 前台管理q do form kfgl\form\zsdj
ON SELECTION BAR 5 OF 前台管理q do form kfgl\form\tiaofangdj
ON SELECTION BAR 7 OF 前台管理q do form kfgl\form\zjyj
ON SELECTION BAR 9 OF 前台管理q do form kfgl\form\tsjz
ON SELECTION BAR 11 OF 前台管理q quit

DEFINE POPUP 客房管理r MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 客房管理r PROMPT "客房查询(\<A)" ;
	SKIP FOR pkfgl=.f.
DEFINE BAR 2 OF 客房管理r PROMPT "\-"
DEFINE BAR 3 OF 客房管理r PROMPT "房态查看(\<B)" ;
	SKIP FOR pkfgl=.f.
ON SELECTION BAR 1 OF 客房管理r do form kfgl\form\kfquery
ON SELECTION BAR 3 OF 客房管理r do form kfgl\form\fangtaiquery

DEFINE POPUP 查询统计t MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询统计t PROMPT "预定房查询(\<A)" ;
	SKIP FOR pcxtj=.f.
DEFINE BAR 2 OF 查询统计t PROMPT "住宿查询(\<B)" ;
	SKIP FOR pcxtj=.f.
DEFINE BAR 3 OF 查询统计t PROMPT "退宿查询(\<C)" ;
	SKIP FOR pcxtj=.f.
DEFINE BAR 4 OF 查询统计t PROMPT "\-"
DEFINE BAR 5 OF 查询统计t PROMPT "宿费提醒(\<D)" ;
	SKIP FOR pcxtj=.f.
ON SELECTION BAR 1 OF 查询统计t do form kfgl\form\kfydquery
ON SELECTION BAR 2 OF 查询统计t do form kfgl\form\zsquery
ON SELECTION BAR 3 OF 查询统计t do form kfgl\form\tsquery
ON SELECTION BAR 5 OF 查询统计t do form kfgl\form\sftx

DEFINE POPUP 挂帐管理g MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 挂帐管理g PROMPT "挂帐查询(\<A)" ;
	SKIP FOR pgzgl=.f.
DEFINE BAR 2 OF 挂帐管理g PROMPT "\-"
DEFINE BAR 3 OF 挂帐管理g PROMPT "客人结帐(\<B)" ;
	SKIP FOR pgzgl=.f.
ON SELECTION BAR 1 OF 挂帐管理g do form kfgl\form\gzquery
ON SELECTION BAR 3 OF 挂帐管理g do form kfgl\form\kerenjz

DEFINE POPUP 基础信息设 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基础信息设 PROMPT "客房信息(\<A)" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 2 OF 基础信息设 PROMPT "客房类型信息(\<B)" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 3 OF 基础信息设 PROMPT "\-"
DEFINE BAR 4 OF 基础信息设 PROMPT "员工信息(\<C)" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 5 OF 基础信息设 PROMPT "挂帐单位信息(\<D)" ;
	SKIP FOR pjcinfo=.f.
ON SELECTION BAR 1 OF 基础信息设 do form kfgl\form\kfmanage
ON SELECTION BAR 2 OF 基础信息设 do form kfgl\form\kflxmanage
ON SELECTION BAR 4 OF 基础信息设 do form kfgl\form\ygmanage
ON SELECTION BAR 5 OF 基础信息设 do form kfgl\form\gzdwmanage

DEFINE POPUP 系统初始化 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统初始化 PROMPT "本单位定义(\<A)" ;
	SKIP FOR psyscsh=.f.
DEFINE BAR 2 OF 系统初始化 PROMPT "业务部门定义(\<B)" ;
	SKIP FOR psyscsh=.f.
DEFINE BAR 3 OF 系统初始化 PROMPT "\-"
DEFINE BAR 4 OF 系统初始化 PROMPT "操作员管理(\<C)" ;
	SKIP FOR psyscsh=.f.
DEFINE BAR 5 OF 系统初始化 PROMPT "权限设置(\<D)" ;
	SKIP FOR psyscsh=.f.
ON SELECTION BAR 1 OF 系统初始化 do form kfgl\form\bdwdy
ON SELECTION BAR 2 OF 系统初始化 do form kfgl\form\bmdy
ON SELECTION BAR 4 OF 系统初始化 do form kfgl\form\modifypassword
ON SELECTION BAR 5 OF 系统初始化 do form kfgl\form\fpurview

DEFINE POPUP 系统维护w MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护w PROMPT "系统初始化(\<A)" ;
	SKIP FOR psyswh=.f.
DEFINE BAR 2 OF 系统维护w PROMPT "\-"
DEFINE BAR 3 OF 系统维护w PROMPT "数据备份(\<B)" ;
	SKIP FOR psyswh=.f.
DEFINE BAR 4 OF 系统维护w PROMPT "数据恢复(\<C)" ;
	SKIP FOR psyswh=.f.
ON SELECTION BAR 1 OF 系统维护w do form kfgl\form\syscsh
ON SELECTION BAR 3 OF 系统维护w do form kfgl\form\databasebak
ON SELECTION BAR 4 OF 系统维护w do form kfgl\form\databasebackup

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "帮助(\<A)" ;
	KEY F1, "F1"
DEFINE BAR 2 OF 帮助h PROMPT "关于本软件(\<B)..."
ON SELECTION BAR 1 OF 帮助h do form kfgl\form\help
ON SELECTION BAR 2 OF 帮助h do form kfgl\form\about