当前位置:Gxlcms > mysql > PowerDesignername2comment显示表注释

PowerDesignername2comment显示表注释

时间:2021-07-01 10:21:17 帮助过:91人阅读

在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


人气教程排行