powerDesigner 导入导出字段增加注释

PowerDesigner脚本自动化：处理模型中的表、列和视图注释

最新推荐文章于 2024-04-25 13:23:24 发布

原创最新推荐文章于 2024-04-25 13:23:24 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

数据库专栏收录该内容

21 篇文章

订阅专栏

本文介绍了如何在PowerDesigner中使用脚本自动为当前文件夹中的表、列和视图添加注释，包括递归处理子包的过程。

打开脚本执行器
打开powerDesigner 按Ctrl+Shift+X 打开脚本编辑器,也可以去菜单中找(Tools --> Excute commands --> Edit/Run Script).

运行脚本即可

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
'把列名称和comment合并为comment
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