menu2.mpr

书店图书的信息管理

*       *********************************************************
*       *                                                         
*       * 01/12/08              MENU2.MPR               18:39:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2008 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _29w13zza3 OF _MSYSMENU PROMPT "系统菜单" COLOR SCHEME 3
DEFINE PAD _29w13zza4 OF _MSYSMENU PROMPT "图书信息管理" COLOR SCHEME 3
DEFINE PAD _29w13zza5 OF _MSYSMENU PROMPT "销售信息管理" COLOR SCHEME 3
ON PAD _29w13zza3 OF _MSYSMENU ACTIVATE POPUP 系统菜单
ON PAD _29w13zza4 OF _MSYSMENU ACTIVATE POPUP 图书信息管
ON PAD _29w13zza5 OF _MSYSMENU ACTIVATE POPUP 销售信息管

DEFINE POPUP 系统菜单 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统菜单 PROMPT "切换用户"
DEFINE BAR 2 OF 系统菜单 PROMPT "退出"
ON SELECTION BAR 1 OF 系统菜单 ;
	DO _29w13zza6 ;
	IN LOCFILE("\数据库课程设计\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")
ON SELECTION BAR 2 OF 系统菜单 ;
	DO _29w13zza7 ;
	IN LOCFILE("\数据库课程设计\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")

DEFINE POPUP 图书信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 图书信息管 PROMPT "图书查询"
ON SELECTION BAR 1 OF 图书信息管 ;
	DO _29w13zzae ;
	IN LOCFILE("\数据库课程设计\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")

DEFINE POPUP 销售信息管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售信息管 PROMPT "图书销售"
DEFINE BAR 2 OF 销售信息管 PROMPT "月统计"
ON SELECTION BAR 1 OF 销售信息管 ;
	DO _29w13zzaf ;
	IN LOCFILE("\数据库课程设计\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")
ON SELECTION BAR 2 OF 销售信息管 ;
	DO _29w13zzag ;
	IN LOCFILE("\数据库课程设计\MENU2" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU2?")


*       *********************************************************
*       *                                                         
*       * _29W13ZZA6  ON SELECTION BAR 1 OF POPUP 系统菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU2.MPR,            Record:    5          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 系统菜单        
*       * Prompt:     切换用户                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zza6
do form 程序入口.scx
set sysmenu off


*       *********************************************************
*       *                                                         
*       * _29W13ZZA7  ON SELECTION BAR 2 OF POPUP 系统菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU2.MPR,            Record:    6          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 系统菜单        
*       * Prompt:     退出                                        
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zza7
clear events
quit


*       *********************************************************
*       *                                                         
*       * _29W13ZZAE  ON SELECTION BAR 1 OF POPUP 图书信息管      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU2.MPR,            Record:    9          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 图书信息管      
*       * Prompt:     图书查询                                    
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zzae
do form 图书查询.scx
set sysmenu off


*       *********************************************************
*       *                                                         
*       * _29W13ZZAF  ON SELECTION BAR 1 OF POPUP 销售信息管      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU2.MPR,            Record:   12          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 销售信息管      
*       * Prompt:     图书销售                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zzaf
do form 图书销售.scx
set sysmenu off


*       *********************************************************
*       *                                                         
*       * _29W13ZZAG  ON SELECTION BAR 2 OF POPUP 销售信息管      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU2.MPR,            Record:   13          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 销售信息管      
*       * Prompt:     月统计                                      
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zzag
do form 月统计.scx
set sysmenu off