机房菜单.mpr

电信级传输专业管理中心传输系统及电路管理系统

*       *********************************************************
*       *                                                         
*       * 01/18/00            机房菜单.MPR              05:01:35  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2000 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 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 "颜色"
DEFINE BAR 5 OF 快捷菜单 PROMPT "更换权限"
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _00i0arun7 ;
	IN LOCFILE("\传输管理\机房菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 机房菜单?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _00I0ARUN7  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  机房菜单.MPR,            Record:    6       
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     增加                                        
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _00i0arun7
xx1=application.activeform.currentx
yy1=application.activeform.currenty
application.activeform.addini(xx1,yy1)

*att=application.activeform.jjj
*att.top=xx1-5
*att.left=yy1-10
*rmmessage.show
*att.caption("提示输入")
*att.show