Power Designer name 当成注释的代码

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
                 col.comment= col.name 
                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