PowerDesigner16配置显示注释列comment配置方法

无论15还是16.视图中都没有直接设置显示属性字段注释的配置，因此需要通过间接的方式显示注释，操作的流程图如下

原始样式



显示操作





调出执行命令的接口



命令：

从comment替换name

[java] view
plain copy

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  

从name替换comment

[java] view
plain copy

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  

最终效果图如下



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