基图.mpr

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

*       *********************************************************
*       *                                                         
*       * 05/15/99              基图.MPR                20:07:47  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者姓名                                                
*       *                                                         
*       * 版权(C) 1999 公司名                               
*       * 地址                                                    
*       * 城市,     邮政编码                                      
*       * 国家/地区                                         
*       *                                                         
*       * 说明：                                            
*       * 本程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


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

para yy,y2,y3,y4,y5
local y1
if yy>0
y1=.t.
else
y1=.f.
endif

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 "删除"
DEFINE BAR 6 OF 快捷菜单 PROMPT "更改地图"
DEFINE BAR 7 OF 快捷菜单 PROMPT "更改权限"

SET SKIP OF BAR 3 OF 快捷菜单 !y1
SET SKIP OF BAR 4 OF 快捷菜单 !y1
SET SKIP OF BAR 5 OF 快捷菜单 !y1
SET SKIP OF BAR 6 OF 快捷菜单 !y1


ON SELECTION BAR 1 OF 快捷菜单 ;
	DO _s501758wf ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _s501758wi ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _s501758wk ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON BAR 4 OF 快捷菜单 ACTIVATE POPUP 增加
ON BAR 5 OF 快捷菜单 ACTIVATE POPUP 删除
ON SELECTION BAR 6 OF 快捷菜单 ;
	DO _s501758wm ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 7 OF 快捷菜单 ;
	DO _s501758wo ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")

DEFINE POPUP 增加 SHORTCUT RELATIVE
DEFINE BAR 1 OF 增加 PROMPT "网元"
DEFINE BAR 2 OF 增加 PROMPT "拐点"
DEFINE BAR 3 OF 增加 PROMPT "光路"

SET SKIP OF BAR 1 OF 增加 !y1
SET SKIP OF BAR 2 OF 增加 !y1
SET SKIP OF BAR 3 OF 增加 !y1



ON SELECTION BAR 1 OF 增加 ;
	DO _s501758ws ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 增加 ;
	DO _s501758wu ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 增加 ;
	DO _s501758ww ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")

DEFINE POPUP 删除 SHORTCUT RELATIVE
DEFINE BAR 1 OF 删除 PROMPT "拐点"
DEFINE BAR 2 OF 删除 PROMPT "链路"
DEFINE BAR 3 OF 删除 PROMPT "网元"

SET SKIP OF BAR 1 OF 删除 !y1
SET SKIP OF BAR 2 OF 删除 !y1
SET SKIP OF BAR 3 OF 删除 !y1


ON SELECTION BAR 1 OF 删除 ;
	DO _s501758wz ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 删除 ;
	DO _s501758x1 ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 删除 ;
	DO _s501758x3 ;
	IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _S501758WF  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:    5           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 快捷菜单        
*       * Prompt:     具体信息                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wf
do form jf_pic with jm,uselever,locpl



*       *********************************************************
*       *                                                         
*       * _S501758WI  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:    6           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 快捷菜单        
*       * Prompt:     工具条                                      
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wi
application.activeform.circle(7,,)


*       *********************************************************
*       *                                                         
*       * _S501758WK  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:    7           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 快捷菜单        
*       * Prompt:     移动                                        
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wk
*DEFINE CLASS mygrid AS GRID
*ColumnCount = 3

*PROCEDURE Init
*    THIS.Column2.AddObject("cboClient", "COMBOBOX)
*    THIS.Column2.CurrentControl = "cboClient"
*ENDPROC

*DEFINE CLASS myform AS FORM
*    ADD OBJECT cmdOK AS COMMANDBUTTON
*    ADD OBJECT PROTECTED cmdCancel AS COMMANDBUTTON
*ENDDEFINE
*frmMessage = CREATEOBJECT("FORM")
*frmMessage.parent.movest=!frmMessage.parent.movest