ex_qmenu.mpr

VF程序设计电子课件 VF程序设计电子课件

*       *********************************************************
*       *                                                         
*       * 09/14/04            EX_QMENU.MPR              10:06:09  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2004 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
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 快捷菜单 GO TOP
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _1by0lnj2p ;
	IN LOCFILE("\CJGL\EX_QMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is EX_QMENU?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _1by0lnj2q ;
	IN LOCFILE("\CJGL\EX_QMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is EX_QMENU?")
ON SELECTION BAR 4 OF 快捷菜单 GO BOTTOM

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _1BY0LNJ2P  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EX_QMENU.MPR,            Record:    6       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     上一条记录                                  
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1by0lnj2p
IF !BOF()
	SKIP -1
ENDIF



*       *********************************************************
*       *                                                         
*       * _1BY0LNJ2Q  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  EX_QMENU.MPR,            Record:    7       
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     下一条记录                                  
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1by0lnj2q
IF !EOF()
	SKIP
ENDIF