002--PowerDesigner显示注释comment

PowerDesigner显示注释comment

参考博客：https://blog.csdn.net/chao_1990/article/details/52620206

原始样式

显示操作

调出执行命令的接口

执行下列命令

1、从name替换comment

 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  

2、从comment替换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  

     Private   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  

最终效果图如下

可以看到图1中的id列已被中文注释替换。

上述已亲测，执行命令1【从name替换comment】，显示列表中可以显示注释信息!