menumain.mpr

小型客房管理系统

*       *********************************************************
*       *                                                         
*       * 01/07/08            MENUMAIN.MPR              14:27:17  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2008 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _29r0uzcjb OF _MSYSMENU PROMPT "住宿管理(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _29r0uzcjc OF _MSYSMENU PROMPT "客房管理(\<R)" COLOR SCHEME 3 ;
	KEY ALT+R, ""
DEFINE PAD _29r0uzcjd OF _MSYSMENU PROMPT "查询统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _29r0uzcje OF _MSYSMENU PROMPT "信息设置(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _29r0uzcjf OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _29r0uzcjg OF _MSYSMENU PROMPT "系统维护(\<W)" COLOR SCHEME 3 ;
	KEY ALT+W, ""
DEFINE PAD _29r0uzcjh OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _29r0uzcjb OF _MSYSMENU ACTIVATE POPUP 住宿管理q
ON PAD _29r0uzcjc OF _MSYSMENU ACTIVATE POPUP 客房管理r
ON PAD _29r0uzcjd OF _MSYSMENU ACTIVATE POPUP 查询统计t
ON PAD _29r0uzcje OF _MSYSMENU ACTIVATE POPUP 信息设置b
ON PAD _29r0uzcjf OF _MSYSMENU ACTIVATE POPUP 系统管理s
ON PAD _29r0uzcjg OF _MSYSMENU ACTIVATE POPUP 系统维护w
ON PAD _29r0uzcjh 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 form\kfyd.scx
ON SELECTION BAR 3 OF 住宿管理q do form form\zsdj.scx
ON SELECTION BAR 5 OF 住宿管理q do form form\tiaofangdj.scx
ON SELECTION BAR 7 OF 住宿管理q do form form\zjyj.scx
ON SELECTION BAR 9 OF 住宿管理q do form form\tsjz.scx
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 form\kfquery.scx
ON SELECTION BAR 3 OF 客房管理r do form form\fangtaiquery.scx

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 form\kfydquery.scx
ON SELECTION BAR 2 OF 查询统计t do form form\zsquery.scx
ON SELECTION BAR 3 OF 查询统计t do form form\tsquery.scx
ON SELECTION BAR 5 OF 查询统计t do form form\sftx.scx

DEFINE POPUP 信息设置b MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 信息设置b PROMPT "客房信息(\<A)" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 2 OF 信息设置b PROMPT "客房类型信息(\<B)" ;
	SKIP FOR pjcinfo=.f.
DEFINE BAR 3 OF 信息设置b PROMPT "\-"
DEFINE BAR 4 OF 信息设置b PROMPT "员工信息(\<C)" ;
	SKIP FOR pjcinfo=.f.
ON SELECTION BAR 1 OF 信息设置b do form form\kfmanage.scx
ON SELECTION BAR 2 OF 信息设置b do form form\kflxmanage.scx
ON SELECTION BAR 4 OF 信息设置b do form form\ygmanage.scx

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

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 form\syscsh.scx
ON SELECTION BAR 3 OF 系统维护w do form form\databasebak.scx
ON SELECTION BAR 4 OF 系统维护w do form form\databasebackup.scx

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 form\help.scx
ON SELECTION BAR 2 OF 帮助h do form form\about.scx