lt.mpr

来自「电信级传输专业管理中心传输系统及电路管理系统」· MPR 代码 · 共 50 行

*       *********************************************************
*       *                                                         
*       * 01/21/00               LT.MPR                 11:16:43  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

DEFINE POPUP 快捷菜单 SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF 快捷菜单 PROMPT "更改权限"
ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _00l0o6a9j ;
	IN LOCFILE("\传输管理\LT" ,"MPX;MPR|FXP;PRG" ,"WHERE is LT?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _00L0O6A9J  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  LT.MPR,            Record:    5             
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     更改权限                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00l0o6a9j
do changeuse with application.activeform.usecan to application.activeform.usecan