将PowerDesigner中列的name生成到注释comment中去

最新推荐文章于 2020-05-22 15:35:13 发布

iteye_16868

最新推荐文章于 2020-05-22 15:35:13 发布

阅读量207

点赞数

文章标签：脚本

本文介绍了一段PowerDesigner中的VBA脚本，该脚本可以实现将表及列名称转换为大写，并将列名复制到注释中。通过简单的Ctrl+Shift+X快捷键调用并执行这段脚本，能够快速地对物理数据模型进行批量修改。

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

在PowerDesigner中按Ctrl + Shift + X，然后将下面的脚本粘贴进去，并运行，就可以

1、将列的name生成到注释comment中去

2、将列和表名变为大写

Option Explicit
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(PdCDM.cls_Model) Then
MsgBox "The current model is not an Physical Data model."
Else
ProcessPkg mdl
End If

' This routine copy name into code for each table, each column and each view
' of the current folder
Private sub ProcessFolder(pkg)
Dim Tab 'running table
Dim col
for each Tab in pkg.entities
' 表注释
tab.comment = tab.name
' 表名大写
tab.code = Ucase(tab.code)
if not tab.isShortcut Then
For each col in tab.attributes
' 列注释
col.comment = col.name
' 列名大写
col.code = Ucase(col.code)
Next
End If
Next
End sub
Private Sub ProcessPkg(mdl)
ProcessFolder(mdl)
Dim subpkg
For each subpkg in mdl.packages
ProcessPkg(subpkg)
Next
End Sub