基图.mpr

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

*+("cmdOK", "COMMANDBUTTON")
*frmmessage.show
*?"okokok"
application.activeform.circle(5,,)




*       *********************************************************
*       *                                                         
*       * _S501758WM  ON SELECTION BAR 6 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   18           
*       * Called By:  ON SELECTION BAR 6 OF POPUP 快捷菜单        
*       * Prompt:     更改地图                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wm
ttt= GETFILE('bmp,jpg','地图')
*gcTable = GETFILE('DBF', 'Browse or Create a .DBF:', 'Browse',1)
use c:\传输管理\tback in 0
sele tback
replace ok1 with ttt
use
application.activeform.image1.picture=ttt




*       *********************************************************
*       *                                                         
*       * _S501758WO  ON SELECTION BAR 7 OF POPUP 快捷菜单        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   19           
*       * Called By:  ON SELECTION BAR 7 OF POPUP 快捷菜单        
*       * Prompt:     更改权限                                    
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wo
application.activeform.circle(8,,)



*       *********************************************************
*       *                                                         
*       * _S501758WS  ON SELECTION BAR 1 OF POPUP 增加            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   10           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 增加            
*       * Prompt:     网元                                        
*       * Snippet:    6                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758ws
xx1=application.activeform.parent.currentx
yy1=application.activeform.parent.currenty

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


*       *********************************************************
*       *                                                         
*       * _S501758WU  ON SELECTION BAR 2 OF POPUP 增加            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   11           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 增加            
*       * Prompt:     拐点                                        
*       * Snippet:    7                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wu
application.activeform.circle(9,application.activeform.parent.currentx,application.activeform.parent.currenty,application.activeform.parent.selectname,application.activeform.parent.selectppp)


*       *********************************************************
*       *                                                         
*       * _S501758WW  ON SELECTION BAR 3 OF POPUP 增加            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   12           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 增加            
*       * Prompt:     光路                                        
*       * Snippet:    8                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758ww
application.activeform.parent.addobject("jjj","ts",3,,)
att=application.activeform.parent.jjj
*rmmessage.show
att.caption="提示输入"
att.show
*application.activeform.parent.jjj.caption("提示输入")
*application.activeform.parent.jjj.show
*do form ll to kkk
*READ EVENTS  && 开始事务处理




*       *********************************************************
*       *                                                         
*       * _S501758WZ  ON SELECTION BAR 1 OF POPUP 删除            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   15           
*       * Called By:  ON SELECTION BAR 1 OF POPUP 删除            
*       * Prompt:     拐点                                        
*       * Snippet:    9                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758wz
application.activeform.circle(4,1,application.activeform.parent.selectname)


*       *********************************************************
*       *                                                         
*       * _S501758X1  ON SELECTION BAR 2 OF POPUP 删除            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   16           
*       * Called By:  ON SELECTION BAR 2 OF POPUP 删除            
*       * Prompt:     链路                                        
*       * Snippet:    10                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758x1
application.activeform.circle(4,2,application.activeform.parent.selectppp)



*       *********************************************************
*       *                                                         
*       * _S501758X3  ON SELECTION BAR 3 OF POPUP 删除            
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  基图.MPR,            Record:   17           
*       * Called By:  ON SELECTION BAR 3 OF POPUP 删除            
*       * Prompt:     网元                                        
*       * Snippet:    11                                          
*       *                                                         
*       *********************************************************
*
PROCEDURE _s501758x3
application.activeform.circle(4,3,application.activeform.parent.selectname)