'******************************************************************************

'* File:     name2comment.vbs

'* Title:    Name to Comment Conversion

'* Model:    Physical Data Model

'* Objects: Table, Column, View

'* Author:   steveguoshao

'* Created: 2013-11-29

'* Mod By:

'* Modified:

'* Version: 1.0

'* Memo:     Modify from name2code.vbs

'******************************************************************************

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

                  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

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

Dim col 'running column

for each col in tab.columns

If (col.comment="") Then '已存在的comment则不更新

col.comment= col.name

end if

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