PowerDesigner16配置显示注释comment配置方法
2017-12-13 00:00
127 查看
摘要: PowerDesigner16配置显示注释comment配置方法
无论15还是16.视图中都没有直接设置显示属性字段注释的配置,因此需要通过间接的方式显示注释,操作的流程图如下
原始样式
显示操作(更换显示的位置)
调出执行命令的接口
执行下面的命令:
从name替换comment
从comment替换name
最终效果图如下:
无论15还是16.视图中都没有直接设置显示属性字段注释的配置,因此需要通过间接的方式显示注释,操作的流程图如下
原始样式
显示操作(更换显示的位置)
调出执行命令的接口
执行下面的命令:
从name替换comment
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If ' This routine copy name into comment for each table, each column and each view ' of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.comment = tab.name Dim col ' running column for each col in tab.columns col.comment= col.name next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.comment = view.name end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub
从comment替换name
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name = tab.comment Dim col ' running column for each col in tab.columns if col.comment="" then else col.name= col.comment end if next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.name = view.comment end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub
最终效果图如下:
相关文章推荐
- PowerDesigner16配置显示注释列comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释列comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16.5快速入门显示,注释comment配置方法,以及创建sql文件过程中需要注意的一些问题
- PowerDesigner16.5快速入门显示,注释comment配置方法,以及创建sql文件过程中需要注意的一些问题
- P_004.Eclipse+pydev解决中文显示和注释问题的方法大全
- nginx+php-fpm配置后页面显示空白的解决方法
- 崩溃,source Insight显示linux代码中文注释乱码问题,以及很傻很天真的解决方法
- sqlserver客户端连接只显示特定数据库的配置方法
- Python3 configparser读取含有中文配置config.ini(Windows)显示乱码的解决方法
- 不让tomcat显示目录文件列表的配置方法
- nginx+php-fpm配置后页面显示空白的解决方法
- 【MyEclipse】史上最快捷-配置注释模版的方法
- centos7 firefox 显示中文的超简单配置方法
- Ubuntu下安装Audacious音乐播放器详细配置方法(中文化,歌词显示等)
- 每次打开Office2013显示正在配置的解决方法