鸿 网 互 联 www.68idc.cn

当前位置 : 服务器租用 > 数据库 > DB2 > >

PowerDesigner name2comment 显示表注释

来源:互联网 作者:佚名 时间:2015-09-02 06:19
在PowerDesigner中按Ctrl Shift X,然后将下面的脚本粘贴进去,并运行,就可以 将列的name生成到注释comment中去 [vb] view plaincopy Option Explicit ValidationMode= True InteractiveMode=im_Batch Dim mdl 'thecurrentmodel 'getthecurrentactivemodel

在PowerDesigner中按Ctrl + Shift + X,然后将下面的脚本粘贴进去,并运行,就可以

将列的name生成到注释comment中去

 

[vb] view plaincopy
  1. Option   Explicit   
  2. ValidationMode   =   True   
  3. InteractiveMode   =   im_Batch   
  4. Dim   mdl   '   the   current   model   
  5. '   get   the   current   active   model   
  6. Set   mdl   =   ActiveModel   
  7. If   (mdl   Is   Nothing)   Then   
  8.       MsgBox   "There   is   no   current   Model "   
  9. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
  10.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
  11. Else   
  12.       ProcessFolder   mdl   
  13. End   If   
  14. '   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view   
  15. '   of   the   current   folder   
  16. Private   sub   ProcessFolder(folder)   
  17.       Dim   Tab   'running     table   
  18.       for   each   Tab   in   folder.tables   
  19.             if   not   tab.isShortcut   then   
  20.                   tab.comment   =   tab.name   
  21.                   Dim   col   '   running   column   
  22.                   for   each   col   in   tab.columns   
  23.                         col.comment=   col.name   
  24.                   next   
  25.             end   if   
  26.       next   
  27.       Dim   view   'running   view   
  28.       for   each   view   in   folder.Views   
  29.             if   not   view.isShortcut   then   
  30.                   view.comment   =   view.name   
  31.             end   if   
  32.       next   
  33.       '   go   into   the   sub-packages   
  34.       Dim   f   '   running   folder   
  35.       For   Each   f   In   folder.Packages   
  36.             if   not   f.IsShortcut   then   
  37.                   ProcessFolder   f   
  38.             end   if   
  39.       Next   
  40. end   sub  




显示注释操作:

选择那个表,右键->Properties->Columns->Customize Columns and Filter(或直接用快捷键Ctrl+U)->Comment(前面打勾)->OK


网友评论
<