【转】 PowerDesigner中name与comment互相转换脚本

最新推荐文章于 2024-11-04 10:42:32 发布

nanfengbobo

最新推荐文章于 2024-11-04 10:42:32 发布

阅读量224

点赞数 1

CC 4.0 BY-SA版权

分类专栏： powerdesigner 文章标签：数据库

本文链接：https://blog.youkuaiyun.com/nanfengbobo/article/details/84263269

powerdesigner 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了如何使用PowerDesigner通过VBS脚本批量将对象的name属性赋值为comment属性，包括表格、列和视图等元素的处理方法，以及如何逆向操作将数据库中的comment赋值回PDM的name，提供了实用的脚本执行步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1 PowerDesigner中批量根据对象的name生成comment的脚本

执行方法：Open PDM -- Tools -- Execute Commands -- Run Script

Vb 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 code 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

2 PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name

执行方法：Open PDM -- Tools -- Execute Commands -- Run Script

Vb 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 code 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   
if len(tab.comment) <> 0 then   
tab.name = tab.comment   
end if   
On Error Resume Next   
Dim col 'running column   
for each col in tab.columns   
if len(col.comment) <>0 then   
col.name =col.comment   
end if   
On Error Resume Next   
next   
end if   
next   
end sub