powerdesigner16物理模型中的字段comment替换name
有时候,我们通过逆向数据库得到物理模型,可是模型上的name还是字段名称,如何将每个字段的注释替换掉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 48 end sub
到编辑框中
点击执行即可