欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  数据库

PowerDesigner name2comment 显示表注释

程序员文章站 2022-06-13 13:29:26
...

在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  显示表注释