Heim  >  Artikel  >  Datenbank  >  PowerDesigner name2comment 显示表注释

PowerDesigner name2comment 显示表注释

WBOY
WBOYOriginal
2016-06-07 15:21:062021Durchsuche

在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

PowerDesigner name2comment  显示表注释

Stellungnahme:
Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn