menu1.mpr

这是一套铝型材图纸查询系统,是vfp编写的源代码

*       *********************************************************
*       *                                                         
*       * 03/03/2004             MENU1.MPR              18:12:25  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者姓名                                                
*       *                                                         
*       * 版权(C) 2004 公司名                               
*       * 地址                                                    
*       * 城市,     邮政编码                                      
*       * 国家/地区                                         
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _16j130v5v OF _MSYSMENU PROMPT "系统" COLOR SCHEME 3
DEFINE PAD _16j130v5w OF _MSYSMENU PROMPT "查图" COLOR SCHEME 3
DEFINE PAD _16j130v5x OF _MSYSMENU PROMPT "说明" COLOR SCHEME 3
ON PAD _16j130v5v OF _MSYSMENU ACTIVATE POPUP 系统
ON SELECTION PAD _16j130v5w OF _MSYSMENU do form ctcx
ON SELECTION PAD _16j130v5x OF _MSYSMENU do form help

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 bbxx
ON SELECTION BAR 3 OF 系统 ;
	DO _16j130v65 ;
	IN LOCFILE("XX看图0215\MENU1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 MENU1?")


*       *********************************************************
*       *                                                         
*       * _16J130V65  ON SELECTION BAR 3 OF POPUP 系统            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MENU1.MPR,            Record:    8          
*       * Called By:  ON SELECTION BAR 3 OF POPUP 系统            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _16j130v65
clear events