菜单1.mpr

用VFP实现的图书销售系统有菜单等交互式界面

*       *********************************************************
*       *                                                         
*       * 12/17/04              菜单1.MPR               16:55:11  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ek109jzn OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _1ek109jzo OF _MSYSMENU PROMPT "数据浏览" COLOR SCHEME 3
DEFINE PAD _1ek109jzp OF _MSYSMENU PROMPT "图书信息查询" COLOR SCHEME 3
DEFINE PAD _1ek109jzq OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1ek109jzn OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _1ek109jzo OF _MSYSMENU ACTIVATE POPUP 数据浏览
ON SELECTION PAD _1ek109jzq OF _MSYSMENU do form 表单4.scx

DEFINE POPUP 数据维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据维护 PROMPT "库存信息维护"
DEFINE BAR 2 OF 数据维护 PROMPT "销售记录维护"
DEFINE BAR 3 OF 数据维护 PROMPT "进货信息维护"
ON SELECTION BAR 1 OF 数据维护 do form 库存信息维护.scx
ON SELECTION BAR 2 OF 数据维护 do form 销售记录维护.scx
ON SELECTION BAR 3 OF 数据维护 do form 进货信息维护.scx

DEFINE POPUP 数据浏览 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据浏览 PROMPT "库存信息浏览"
DEFINE BAR 2 OF 数据浏览 PROMPT "销售记录浏览"
DEFINE BAR 3 OF 数据浏览 PROMPT "进货信息浏览"
DEFINE BAR 4 OF 数据浏览 PROMPT "图书信息浏览"
ON SELECTION BAR 1 OF 数据浏览 ;
	DO _1ek109jzr ;
	IN LOCFILE("\X-HONG\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 数据浏览 ;
	DO _1ek109jzs ;
	IN LOCFILE("\X-HONG\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 3 OF 数据浏览 ;
	DO _1ek109jzt ;
	IN LOCFILE("\X-HONG\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 4 OF 数据浏览 ;
	DO _1ek109jzu ;
	IN LOCFILE("\X-HONG\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")


*       *********************************************************
*       *                                                         
*       * _1EK109JZR  ON SELECTION BAR 1 OF POPUP 数据浏览        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   10          
*       * Called By:  ON SELECTION BAR 1 OF POPUP 数据浏览        
*       * Prompt:     库存信息浏览                                
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ek109jzr
clear
use 库存信息表.dbf
list


*       *********************************************************
*       *                                                         
*       * _1EK109JZS  ON SELECTION BAR 2 OF POPUP 数据浏览        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   11          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据浏览        
*       * Prompt:     销售记录浏览                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ek109jzs
clear
use 销售记录表.dbf
list



*       *********************************************************
*       *                                                         
*       * _1EK109JZT  ON SELECTION BAR 3 OF POPUP 数据浏览        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   12          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 数据浏览        
*       * Prompt:     进货信息浏览                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ek109jzt
clear
use 进货信息表.dbf
list



*       *********************************************************
*       *                                                         
*       * _1EK109JZU  ON SELECTION BAR 4 OF POPUP 数据浏览        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单1.MPR,            Record:   13          
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据浏览        
*       * Prompt:     图书信息浏览                                
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ek109jzu
clear
use 图书信息表.dbf
list