menu3.mpr

书店图书的信息管理

*       *********************************************************
*       *                                                         
*       * 01/12/08              MENU3.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 _29w13zzah OF _MSYSMENU PROMPT "系统菜单" COLOR SCHEME 3
DEFINE PAD _29w13zzai OF _MSYSMENU PROMPT "图书查询" COLOR SCHEME 3
DEFINE PAD _29w13zzaj OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _29w13zzah OF _MSYSMENU ACTIVATE POPUP 系统菜单
ON SELECTION PAD _29w13zzai OF _MSYSMENU do form 图书查询.scx
ON SELECTION PAD _29w13zzaj OF _MSYSMENU ;
	DO _29w13zzak ;
	IN LOCFILE("\数据库课程设计\MENU3" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU3?")

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


*       *********************************************************
*       *                                                         
*       * _29W13ZZAK  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU3.MPR,            Record:    8          
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _29w13zzak
clear events
quit


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


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