002--PowerDesigner显示注释comment
PowerDesigner显示注释comment
参考博客:https://blog.csdn.net/chao_1990/article/details/52620206
原始样式
显示操作
调出执行命令的接口
执行下列命令
1、从name替换comment
1 Option Explicit 2 ValidationMode = True 3 InteractiveMode = im_Batch 4 5 Dim mdl ' the current model 6 7 ' get the current active model 8 Set mdl = ActiveModel 9 If (mdl Is Nothing) Then 10 MsgBox "There is no current Model " 11 ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then 12 MsgBox "The current model is not an Physical Data model. " 13 Else 14 ProcessFolder mdl 15 End If 16 17 ' This routine copy name into comment for each table, each column and each view 18 ' of the current folder 19 Private sub ProcessFolder(folder) 20 Dim Tab 'running table 21 for each Tab in folder.tables 22 if not tab.isShortcut then 23 tab.comment = tab.name 24 Dim col ' running column 25 for each col in tab.columns 26 col.comment= col.name 27 next 28 end if 29 next 30 31 Dim view 'running view 32 for each view in folder.Views 33 if not view.isShortcut then 34 view.comment = view.name 35 end if 36 next 37 38 ' go into the sub-packages 39 Dim f ' running folder 40 For Each f In folder.Packages 41 if not f.IsShortcut then 42 ProcessFolder f 43 end if 44 Next 45 end sub
2、从comment替换name
1 Option Explicit 2 ValidationMode = True 3 InteractiveMode = im_Batch 4 5 Dim mdl ' the current model 6 7 ' get the current active model 8 Set mdl = ActiveModel 9 If (mdl Is Nothing) Then 10 MsgBox "There is no current Model " 11 ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then 12 MsgBox "The current model is not an Physical Data model. " 13 Else 14 ProcessFolder mdl 15 End If 16 17 Private sub ProcessFolder(folder) 18 On Error Resume Next 19 Dim Tab 'running table 20 for each Tab in folder.tables 21 if not tab.isShortcut then 22 tab.name = tab.comment 23 Dim col ' running column 24 for each col in tab.columns 25 if col.comment="" then 26 else 27 col.name= col.comment 28 end if 29 next 30 end if 31 next 32 33 Dim view 'running view 34 for each view in folder.Views 35 if not view.isShortcut then 36 view.name = view.comment 37 end if 38 next 39 40 ' go into the sub-packages 41 Dim f ' running folder 42 For Each f In folder.Packages 43 if not f.IsShortcut then 44 ProcessFolder f 45 end if 46 Next 47 end sub
最终效果图如下
可以看到图1中的id列已被中文注释替换。
上述已亲测,执行命令1【从name替换comment】,显示列表中可以显示注释信息!
体胖还需勤跑步,人丑就该多读书!