PowerDesigner16配置显示注释comment配置方法
2017-12-15 19:04
246 查看
转载:http://blog.csdn.net/chao_1990/article/details/52620206
无论15还是16.视图中都没有直接设置显示属性字段注释的配置,因此需要通过间接的方式显示注释,操作的流程图如下
原始样式
显示操作
调出执行命令的接口
执行夏利命令
从name替换comment
[java] view
plain copy
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
[java] view
plain copy
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
最终效果图如下
可以看到图1中的id列已被中文注释替换。
无论15还是16.视图中都没有直接设置显示属性字段注释的配置,因此需要通过间接的方式显示注释,操作的流程图如下
原始样式
显示操作
调出执行命令的接口
执行夏利命令
从name替换comment
[java] view
plain copy
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
[java] view
plain copy
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
最终效果图如下
可以看到图1中的id列已被中文注释替换。
相关文章推荐
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16配置显示注释列comment配置方法
- PowerDesigner16配置显示注释列comment配置方法
- PowerDesigner16配置显示注释comment配置方法
- PowerDesigner16.5快速入门显示,注释comment配置方法,以及创建sql文件过程中需要注意的一些问题
- PowerDesigner16.5快速入门显示,注释comment配置方法,以及创建sql文件过程中需要注意的一些问题
- Eclipse保存Spring配置文件xml时显示Building Spring AOP reference model错误框的关闭方法
- net发布的dll方法和类显示注释信息(字段说明信息)[图解]
- Docker容器图形界面显示(运行GUI软件)的配置方法
- PowerDesigner中显示name, code,comment的解决方法 修正脚本,执行不会重复添加comment
- 在Eclipse Galileo中配置Tomcat及代码显示HttpServlet相关错误信息处理方法
- XNA4.0 类和方法的注释显示为中文插件下载和安装方法(图文教程)
- py2exe打包的配置和icon不显示问题的解决方法
- PB中自动生成的sql语句,在comment不存在时,自动使用name字段作为注释的设置方法
- webpack配置导致字体图标无法显示的解决方法
- php apache 配置后不能正常显示html文件的解决方法
- Android Studio鼠标移到类或者方法上面显示方法注释doc