PowerDesigner 将name列值复制到comment列

要不要扎辫子

于 2022-05-11 11:50:05 发布

阅读量346

点赞数

分类专栏：经验分享文章标签：数据库管理 VBA脚本模型注释批量处理数据模型

本文链接：https://blog.csdn.net/qq_40675982/article/details/124706764

版权

经验分享专栏收录该内容

7 篇文章 0 订阅

订阅专栏

依次点击Tools（工具栏）-->Execute Commands-->Edit/Run Scripts,或者直接快捷键Ctrl+Shift+X

将以下复制进去Run

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  
        if trim(tab.comment)="" then '如果有表的注释,则不改变它;如果没有表注释,则把name添加到注释中.  
            tab.comment = tab.name  
        end if  
        Dim col ' running column  
        for each col in tab.columns  
            if trim(col.comment)="" then '如果col的comment为空,则填入name;如果已有注释,则不添加.这样可以避免已有注释丢失.  
                col.comment= col.name  
            end if  
        next  
    end if  
next  
  
Dim view 'running view  
for each view in folder.Views  
    if not view.isShortcut and trim(view.comment)="" 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