menumain.mpr

这是一个采用VFP实现的宾馆管理系统

*       *********************************************************
*       *                                                         
*       * 05/20/06            MENUMAIN.MPR              13:30:27  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2006 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1t20sy970 OF _MSYSMENU PROMPT "前台管理(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1t20sy976 OF _MSYSMENU PROMPT "客房管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _1t20sy977 OF _MSYSMENU PROMPT "查询统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1t20sy978 OF _MSYSMENU PROMPT "基础信息设置(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1t20sy979 OF _MSYSMENU PROMPT "系统初始化(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1t20sy97a OF _MSYSMENU PROMPT "系统维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _1t20sy97b OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _1t20sy970 OF _MSYSMENU ACTIVATE POPUP 前台管理q
ON PAD _1t20sy976 OF _MSYSMENU ACTIVATE POPUP 客房管理r
ON PAD _1t20sy977 OF _MSYSMENU ACTIVATE POPUP 查询统计t
ON PAD _1t20sy978 OF _MSYSMENU ACTIVATE POPUP 基础信息设
ON PAD _1t20sy979 OF _MSYSMENU ACTIVATE POPUP 系统初始化
ON PAD _1t20sy97a OF _MSYSMENU ACTIVATE POPUP 系统维护w
ON PAD _1t20sy97b 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 "退宿结帐(\<E)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 6 OF 前台管理q PROMPT "\-"
DEFINE BAR 7 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\tsjz
ON SELECTION BAR 7 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.
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

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.
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

DEFINE POPUP 系统初始化 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统初始化 PROMPT "操作员管理(\<C)" ;
	SKIP FOR psyscsh=.f.
DEFINE BAR 2 OF 系统初始化 PROMPT "权限设置(\<D)" ;
	SKIP FOR psyscsh=.f.
ON SELECTION BAR 1 OF 系统初始化 do form kfgl\form\modifypassword
ON SELECTION BAR 2 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.
ON SELECTION BAR 1 OF 系统维护w do form kfgl\form\syscsh
ON SELECTION BAR 3 OF 系统维护w do form kfgl\form\databasebak

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