📄 dddd.mpr
字号:
* *********************************************************
* *
* * 12/04/99 基图.MPR 12:57:02
* *
* *********************************************************
* *
* * 作者姓名
* *
* * 版权(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 _san0rradv ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 快捷菜单 ;
DO _san0rradx ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 快捷菜单 ;
DO _san0rradz ;
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 _san0rrae1 ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 7 OF 快捷菜单 ;
DO _san0rrae3 ;
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 "光路"
ON SELECTION BAR 1 OF 增加 ;
DO _san0rrae7 ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 增加 ;
DO _san0rrae9 ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 增加 ;
DO _san0rraeb ;
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 "网元"
ON SELECTION BAR 1 OF 删除 ;
DO _san0rraef ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 2 OF 删除 ;
DO _san0rraeg ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ON SELECTION BAR 3 OF 删除 ;
DO _san0rraei ;
IN LOCFILE("\传输管理\基图" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 基图?")
ACTIVATE POPUP 快捷菜单
* *********************************************************
* *
* * _SAN0RRADV 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 _san0rradv
do form jf_pic with jm,uselever,locpl
* *********************************************************
* *
* * _SAN0RRADX 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 _san0rradx
application.activeform.circle(7,,)
* *********************************************************
* *
* * _SAN0RRADZ 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 _san0rradz
*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,,)
* *********************************************************
* *
* * _SAN0RRAE1 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 _san0rrae1
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
* *********************************************************
* *
* * _SAN0RRAE3 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 _san0rrae3
SET SKIP OF BAR 1 OF 快捷菜单 .t.
*do form
* *********************************************************
* *
* * _SAN0RRAE7 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 _san0rrae7
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
* *********************************************************
* *
* * _SAN0RRAE9 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 _san0rrae9
application.activeform.parent.addobject("jjj","ts",2,application.activeform.parent.currentx,application.activeform.parent.currenty)
att=application.activeform.parent.jjj
*rmmessage.show
att.caption("提示输入")
att.show
* *********************************************************
* *
* * _SAN0RRAEB 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 _san0rraeb
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 && 开始事务处理
* *********************************************************
* *
* * _SAN0RRAEF 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 _san0rraef
application.activeform.circle(4,1,application.activeform.parent.selectname)
* *********************************************************
* *
* * _SAN0RRAEG 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 _san0rraeg
application.activeform.circle(4,2,application.activeform.parent.selectppp)
* *********************************************************
* *
* * _SAN0RRAEI 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 _san0rraei
application.activeform.circle(4,3,application.activeform.parent.selectname)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -