设备管理系统.mpr

专业数据库程序

*       *********************************************************
*       *                                                         
*       * 03/30/09          设备管理系统.MPR            21:06:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2009 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         设置代码                        
*       *                                                         
*       *********************************************************
*

CLEAR ALL
        CLEAR
        KEYBOARD ' {Ctrl+F4}'
        MODIFY WINDOW SCREEN TITLE '设备管理系统'
        set sysmenu to
        USE SB11


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

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2m81990d5 OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _2m81990d6 OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _2m81990d7 OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _2m81990d8 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _2m81990d5 OF _MSYSMENU ACTIVATE POPUP 新菜单项
ON SELECTION PAD _2m81990d6 OF _MSYSMENU DO E2
ON PAD _2m81990d7 OF _MSYSMENU ACTIVATE POPUP 打印
ON SELECTION PAD _2m81990d8 OF _MSYSMENU ;
	DO _2m81990d9 ;
	IN LOCFILE("\数据库文件夹\设备管理系统" ,"MPX;MPR|FXP;PRG" ,"WHERE is 设备管理系统?")

DEFINE POPUP 新菜单项 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜单项 PROMPT "浏览记录" ;
	KEY CTRL+X, "CTRL+X"
DEFINE BAR 2 OF 新菜单项 PROMPT "修改记录"
ON SELECTION BAR 1 OF 新菜单项 BROWSE NOMODIFY
ON SELECTION BAR 2 OF 新菜单项 DO E1

DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "设备表"
DEFINE BAR 2 OF 打印 PROMPT "设备价格表"
ON SELECTION BAR 1 OF 打印 ;
	DO _2m81990da ;
	IN LOCFILE("\数据库文件夹\设备管理系统" ,"MPX;MPR|FXP;PRG" ,"WHERE is 设备管理系统?")
ON SELECTION BAR 2 OF 打印 ;
	DO _2m81990db ;
	IN LOCFILE("\数据库文件夹\设备管理系统" ,"MPX;MPR|FXP;PRG" ,"WHERE is 设备管理系统?")


*       *********************************************************
*       *                                                         
*       * _2M81990D9  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  设备管理系统.MPR,            Record:   12   
*       * Called By:  ON SELECTION PAD                            
*       * Prompt:     退出                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m81990d9
use
modify window screen
set sysmenu to default
activate window command


*       *********************************************************
*       *                                                         
*       * _2M81990DA  ON SELECTION BAR 1 OF POPUP 打印            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  设备管理系统.MPR,            Record:   10   
*       * Called By:  ON SELECTION BAR 1 OF POPUP 打印            
*       * Prompt:     设备表                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m81990da
WAIT "正在打印,请稍候…… "  WINDOW


*       *********************************************************
*       *                                                         
*       * _2M81990DB  ON SELECTION BAR 2 OF POPUP 打印            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  设备管理系统.MPR,            Record:   11   
*       * Called By:  ON SELECTION BAR 2 OF POPUP 打印            
*       * Prompt:     设备价格表                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m81990db
WAIT "正在打印,请稍候…… "  WINDOW