PowerDesigner Comment和name相互转化

来源：互联网发布：木工制图软件编辑：程序博客网时间：2024/06/04 19:09

感谢：

http://blog.csdn.net/laolaowhn/article/details/4427928

存档资料使用

name到comment

Option   Explicit  ValidationMode   =   True  InteractiveMode   =   im_BatchDim   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

comment到name，反向工程使用

Option   Explicit  ValidationMode   =   True  InteractiveMode   =   im_BatchDim   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   IfPrivate   sub   ProcessFolder(folder)  On Error Resume Next       Dim   Tab   'running     table        for   each   Tab   in   folder.tables              if   not   tab.isShortcut   then                    tab.name   =   tab.comment                   Dim   col   '   running   column                    for   each   col   in   tab.columns                    if col.comment="" then                   else                         col.name=   col.comment                    end if                   next              end   if        next      Dim   view   'running   view        for   each   view   in   folder.Views              if   not   view.isShortcut   then                    view.name   =   view.comment              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

PowerDesigner->Tools->Execute Commands->Edit/Run Scripts执行脚本

0 0