学习swing鼠标点击事件心得体会_西门子COMOS软件开发定制学习8-查询列表间的数据交互...

​本篇在西门子COMOS软件开发定制学习6-管理界面定制基础上定制，简单介绍两个查询列表之间的数据交互。

实现效果：

在左侧列表中选择某一设备，右侧列表自动根据所选设备，显示该设备相关的设计图纸(如PID图纸或电气图纸等)；

在右侧列表中选择某一图纸，点击“查看文档”按钮，将自动打开设计图纸，并在图纸中自动定位到左侧列表所选的设备。

效果动图如下：

实现原理：

• 借助Query的Onchange事件，实现左侧列表选择时触发动作。
• 设备与图纸通过docObj对象连接,假如设备对象为a，那么

a.BackPointerDocObjs '为设备所在的所有图纸链接的集合

a.BackPointerDocObjs.item(1).owner '为设备所在的第一份图纸

• 相反，如果a为图纸

a.docObjs '为图纸中所有设备链接的集合

a.docObjs.item(1).reference '为图纸中包含的第一个设备

定制过程如下：

在“设备管理”基础对象的界面中进入“设计模式”，鼠标右键创建“属性”。

选择“框架”

新建文档Query

删除Query中的“模型”列

在“文档”列的表头处鼠标点击右键，选择属性

编辑“文档”列的“对象评估”选项卡，"导航步骤"中选择“Owner”

编辑“值计算”选项卡，“显示”参数选择“名称”

点击“确定”按钮，关闭当前窗口。

在“描述”列的表头处鼠标点击右键，选择属性。编辑“对象评估”选项卡，选择“导航步骤”为“Owner”。

点击“确定”按钮，关闭当前窗口。

点击Query左上方的“保存”按钮，保存Query。

选择保存位置并输入名称。

回到设备管理界面，新建“属性”，选择显示类型为“查询”，名称为“Qry2”。

拖拽设置Qry2的尺寸大小

在Qry2上鼠标右键，选择“属性|显示属性”。

选择此前创建的文档Query拖拽至当前窗口“SO1基础项目”处，并取消“立即执行查询”的勾选。

点击“确定”按钮,保存并关闭窗口

在左侧Query上鼠标右键，选择“属性|属性”。

在“脚本”选项卡，选择“Sub OnChange()”

输入以下脚本

Sub OnChange()

'编辑单位或值之后

'获取当前环境的所有QueryBrowser

Set Brws = GetSpecOwner.Workset.globals.SpecQBrowsers

Set specSteps = Nothing

Set specSteps = owner.spec("Qry1")

Set QBrowser1 = Nothing

'获取名称为“Qry1”的QueryBrowser即当前Query的Browser

Set QBrowser1 = Brws.Item(specSteps.SystemFullName)

'获取名称为“Qry2”的QueryBrowser，即右侧Query的Browser

Set QBrowser2 = Brws.Item(owner.spec("Qry2").SystemFullName)

Set Query2 = QBrowser2.Query

If QBrowser1.selectedRowObjects.Count>0 Then

Set SelObj=QBrowser1.selectedRowObjects.Item(1)

'当前设备关联的docObjs集合赋予Qry2中进行显示

Set Query2.baseQuery.OrigCollection=SelObj.BackPointerDocObjs

Query2.refresh

QBrowser2.refresh

End If

End Sub

接下来进行功能测试。

首先将设备通过拖拽方式绘制在多个PID图纸中，并保存。

然后在“单元”选项卡的“管理界面”对象中，查询此设备，并在左侧列表中选中，其相关图纸将自动显示在右侧列表中。

接下来定制“查看文档”按钮功能。

在管理界面中，新建“属性”。

在脚本选项卡，编辑“Sub OnClick()”

输入脚本如下：

Sub OnClick()

'事件：按下按钮之后

Set Brws = GetSpecOwner.Workset.globals.SpecQBrowsers

Set specSteps = Nothing

Set specSteps = owner.spec("Qry2")

Set QBrowser1 = Nothing

'获取名称为“Qry2”的QueryBrowser

Set QBrowser1 = Brws.Item(specSteps.SystemFullName)

If QBrowser1.selectedRowObjects.Count>0 Then

Set SelObj=QBrowser1.selectedRowObjects.Item(1)

'打开右侧列表中所选对象，因此Query行对象是docObj类型对象，即打开docObj

Workset.Globals.Navigator.GetCurrentTree.DefaultAction SelObj

End If

End Sub

功能测试，右侧列表中选择任一文档，点击“查看文档”按钮。

将自动打开PID图纸，并在图纸中自动定位到左侧列表所选的设备上。

今天就到这里，欢迎关注~转发~

推荐阅读：

西门子COMOS软件开发定制学习7-嵌入谷歌浏览器内核

西门子COMOS软件开发定制学习6-管理界面定制

西门子COMOS软件开发定制学习5-用程序绘制椭圆

西门子COMOS软件开发定制学习4-小游戏