*       *********************************************************
*       *                                                         
*       * 03/30/09          設(shè)備管理系統(tǒng).MPR            21:06:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名稱(chēng)                                                
*       *                                                         
*       * 版權(quán)所有 (C) 2009 公司名稱(chēng)                             
*       * 地址                                                    
*       * 城市,     郵編                                          
*       * 國(guó)家                                              
*       *                                                         
*       * 說(shuō)明:                                            
*       * 此程序由 GENMENU 自動(dòng)生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         設(shè)置代碼                        
*       *                                                         
*       *********************************************************
*

CLEAR ALL
        CLEAR
        KEYBOARD ' {Ctrl+F4}'
        MODIFY WINDOW SCREEN TITLE '設(shè)備管理系統(tǒng)'
        set sysmenu to
        USE SB11


*       *********************************************************
*       *                                                         
*       *                         菜單定義                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _2m81990d5 OF _MSYSMENU PROMPT "數(shù)據(jù)維護(hù)" 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 新菜單項(xiàng)
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("\數(shù)據(jù)庫(kù)文件夾\設(shè)備管理系統(tǒng)" ,"MPX;MPR|FXP;PRG" ,"WHERE is 設(shè)備管理系統(tǒng)?")

DEFINE POPUP 新菜單項(xiàng) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜單項(xiàng) PROMPT "瀏覽記錄" ;
	KEY CTRL+X, "CTRL+X"
DEFINE BAR 2 OF 新菜單項(xiàng) PROMPT "修改記錄"
ON SELECTION BAR 1 OF 新菜單項(xiàng) BROWSE NOMODIFY
ON SELECTION BAR 2 OF 新菜單項(xiàng) DO E1

DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "設(shè)備表"
DEFINE BAR 2 OF 打印 PROMPT "設(shè)備價(jià)格表"
ON SELECTION BAR 1 OF 打印 ;
	DO _2m81990da ;
	IN LOCFILE("\數(shù)據(jù)庫(kù)文件夾\設(shè)備管理系統(tǒng)" ,"MPX;MPR|FXP;PRG" ,"WHERE is 設(shè)備管理系統(tǒng)?")
ON SELECTION BAR 2 OF 打印 ;
	DO _2m81990db ;
	IN LOCFILE("\數(shù)據(jù)庫(kù)文件夾\設(shè)備管理系統(tǒng)" ,"MPX;MPR|FXP;PRG" ,"WHERE is 設(shè)備管理系統(tǒng)?")


*       *********************************************************
*       *                                                         
*       * _2M81990D9  ON SELECTION PAD                            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  設(shè)備管理系統(tǒng).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:  設(shè)備管理系統(tǒng).MPR,            Record:   10   
*       * Called By:  ON SELECTION BAR 1 OF POPUP 打印            
*       * Prompt:     設(shè)備表                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m81990da
WAIT "正在打印,請(qǐng)稍候…… "  WINDOW


*       *********************************************************
*       *                                                         
*       * _2M81990DB  ON SELECTION BAR 2 OF POPUP 打印            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  設(shè)備管理系統(tǒng).MPR,            Record:   11   
*       * Called By:  ON SELECTION BAR 2 OF POPUP 打印            
*       * Prompt:     設(shè)備價(jià)格表                                  
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _2m81990db
WAIT "正在打印,請(qǐng)稍候…… "  WINDOW