ok3.mpr

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

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


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

para y1,y2,y3,y4,y5

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 _san0tcvs1 ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 快捷菜单 ;
	DO _san0tcvs4 ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 快捷菜单 ;
	DO _san0tcvs5 ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON BAR 4 OF 快捷菜单 ACTIVATE POPUP 增加
ON BAR 5 OF 快捷菜单 ACTIVATE POPUP 删除
ON SELECTION BAR 6 OF 快捷菜单 ;
	DO _san0tcvs8 ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 7 OF 快捷菜单 ;
	DO _san0tcvsa ;
	IN LOCFILE("C:\传输管理\基图" ,"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 _san0tcvsd ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 增加 ;
	DO _san0tcvsf ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 增加 ;
	DO _san0tcvsh ;
	IN LOCFILE("C:\传输管理\基图" ,"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 _san0tcvsk ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 删除 ;
	DO _san0tcvsm ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 删除 ;
	DO _san0tcvso ;
	IN LOCFILE("C:\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")

ACTIVATE POPUP 快捷菜单

*       *********************************************************
*       *                                                         
*       * _SAN0TCVS1  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 _san0tcvs1
do form jf_pic with jm,uselever,locpl



*       *********************************************************
*       *                                                         
*       * _SAN0TCVS4  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 _san0tcvs4
application.activeform.circle(7,,)


*       *********************************************************
*       *                                                         
*       * _SAN0TCVS5  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 _san0tcvs5
*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
*+("cmdOK", "COMMANDBUTTON")
*frmmessage.show
*?"okokok"
application.activeform.circle(5,,)