菜单2.mpr

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

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


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1ek0zwq53 OF _MSYSMENU PROMPT "数据浏览" COLOR SCHEME 3
DEFINE PAD _1ek0zwq5h OF _MSYSMENU PROMPT "图书信息查询" COLOR SCHEME 3
DEFINE PAD _1ek0zwq5i OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1ek0zwq53 OF _MSYSMENU ACTIVATE POPUP 数据浏览
ON SELECTION PAD _1ek0zwq5i 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 "进货信息浏览"
DEFINE BAR 4 OF 数据浏览 PROMPT "图书信息浏览"
ON SELECTION BAR 1 OF 数据浏览 ;
	DO _1ek0zwq5j ;
	IN LOCFILE("\X-HONG\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
ON SELECTION BAR 2 OF 数据浏览 ;
	DO _1ek0zwq5o ;
	IN LOCFILE("\X-HONG\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
ON SELECTION BAR 3 OF 数据浏览 ;
	DO _1ek0zwq5p ;
	IN LOCFILE("\X-HONG\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")
ON SELECTION BAR 4 OF 数据浏览 ;
	DO _1ek0zwq5q ;
	IN LOCFILE("\X-HONG\菜单2" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单2?")


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



*       *********************************************************
*       *                                                         
*       * _1EK0ZWQ5O  ON SELECTION BAR 2 OF POPUP 数据浏览        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  菜单2.MPR,            Record:    6          
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据浏览        
*       * Prompt:     销售信息浏览                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1ek0zwq5o
clear
use 销售记录.dbf
list



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



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