PowerDesigner脚本生成

最新推荐文章于 2024-06-11 19:00:00 发布

cndone

最新推荐文章于 2024-06-11 19:00:00 发布

阅读量256

点赞数

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

本文链接：https://blog.csdn.net/cndone/article/details/84506386

版权

Database 专栏收录该内容

44 篇文章 0 订阅

订阅专栏

本文介绍如何使用PowerDesigner中的脚本批量为模型对象的名称和注释进行相互转换。一种方法是从对象名称生成注释，另一种则是将数据库中的注释赋值给对象名称。这两种方法适用于物理数据模型，通过提供的PowerDesigner脚本实现。

摘要由CSDN通过智能技术生成

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

执行方法：Open PDM -- Tools -- Execute Commands -- 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 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
----------------------------------------------执行以下

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl 'the current model

'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

------------------------------------------------------------