PowerDesigner Comment和name相互转化
2014-01-28 17:17
387 查看
感谢:
/article/8294351.html
存档资料使用
name到comment
comment到name,反向工程使用
/article/8294351.html
存档资料使用
name到comment
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If ' This routine copy name into comment for each table, each column and each view ' of the current folder Private sub ProcessFolder(folder) Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.comment = tab.name Dim col ' running column for each col in tab.columns col.comment= col.name next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.comment = view.name end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end sub
comment到name,反向工程使用
Option Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl ' the current model ' get the current active model Set mdl = ActiveModel If (mdl Is Nothing) Then MsgBox "There is no current Model " ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then MsgBox "The current model is not an Physical Data model. " Else ProcessFolder mdl End If Private sub ProcessFolder(folder) On Error Resume Next Dim Tab 'running table for each Tab in folder.tables if not tab.isShortcut then tab.name = tab.comment Dim col ' running column for each col in tab.columns if col.comment="" then else col.name= col.comment end if next end if next Dim view 'running view for each view in folder.Views if not view.isShortcut then view.name = view.comment end if next ' go into the sub-packages Dim f ' running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next end subPowerDesigner->Tools->Execute Commands->Edit/Run Scripts执行脚本
相关文章推荐
- PowerDesigner Comment与Name相互替换
- PowerDesigner Comment与name的相互装换
- PowerDesigner comment与name相互复制
- PowerDesigner comment与name相互复制
- PowerDesigner name和comment同步脚本,不覆盖手动更改内容
- powerdesigner comment 写到 name 和 name 写到 comment
- PowerDesigner Comment To Name & Name To Comment VBS
- Power Designer Check Model提示Role name uniqueness
- 【原创】PowerDesigner Name/Code自动调整 的正确版本。
- PowerDesigner Name和Comment 互相转化问题
- PowerDesigner中name属性与comment属性相互转换
- PowerDesigner Name/Code自动调整
- PowerDesigner Name/Code自动调整 中文注释
- PowerDesigner code、name显示设置 及 同时显示办法
- Power Designer Check Model提示Role name uniqueness
- powerdesigner comment字段的显示
- PowerDesigner Name/Code自动调整 [转]
- PowerDesigner code、name显示设置 及 同时显示办法
- PowerDesigner设置为不自动根据name填充code值
- PowerDesigner Name和Comment互相转化问题