menumain.mpr

软件实习设计

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ts0invk6 OF _MSYSMENU PROMPT "前台管理(\<Q)" COLOR SCHEME 3 ;
	KEY ALT+Q, ""
DEFINE PAD _1ts0invk7 OF _MSYSMENU PROMPT "查询统计(\<T)" COLOR SCHEME 3 ;
	KEY ALT+T, ""
DEFINE PAD _1ts0invk8 OF _MSYSMENU PROMPT "基础信息设置(\<B)" COLOR SCHEME 3 ;
	KEY ALT+B, ""
DEFINE PAD _1ts0invk9 OF _MSYSMENU PROMPT "系统初始化(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _1ts0invka OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
DEFINE PAD _1ts0invkb OF _MSYSMENU PROMPT "退出系统(\<E)" COLOR SCHEME 3 ;
	KEY ALT+E, ""
ON PAD _1ts0invk6 OF _MSYSMENU ACTIVATE POPUP 前台管理q
ON PAD _1ts0invk7 OF _MSYSMENU ACTIVATE POPUP 查询统计t
ON PAD _1ts0invk8 OF _MSYSMENU ACTIVATE POPUP 基础信息设
ON PAD _1ts0invk9 OF _MSYSMENU ACTIVATE POPUP 系统初始化
ON PAD _1ts0invka OF _MSYSMENU ACTIVATE POPUP 帮助h
ON SELECTION PAD _1ts0invkb OF _MSYSMENU ;
	DO _1ts0invkc ;
	IN LOCFILE("客房管理系统OK2\MENUMAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENUMAIN?")

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 "\-"
DEFINE BAR 8 OF 前台管理q PROMPT "退房处理(\<E)" ;
	SKIP FOR pqtgl=.f.
DEFINE BAR 9 OF 前台管理q PROMPT "\-"
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 8 OF 前台管理q do form kfgl\form\tsjz

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 "\-"
ON SELECTION BAR 1 OF 查询统计t do form kfgl\form\kfydquery
ON SELECTION BAR 2 OF 查询统计t do form kfgl\form\zsquery

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 "\-"
ON SELECTION BAR 1 OF 基础信息设 do form kfgl\form\kfmanage
ON SELECTION BAR 2 OF 基础信息设 do form kfgl\form\kflxmanage

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

DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "关于(\<a)"
ON SELECTION BAR 1 OF 帮助h do form kfgl\form\about


*       *********************************************************
*       *                                                         
*       * _1TS0INVKC  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENUMAIN.MPR,            Record:   40       
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出系统(E)                                 
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ts0invkc
if messagebox("确定要退出吗？",32+4+256,"提示")=6
   do myquit
 endif