亚洲国产成人91精品,亚洲无成人网77777,亚洲精品无码高潮喷水在线

PowerDesigner中name和comment互換

1 PowerDesigner中批量根據對象的name生成comment的腳本

執行方法：Open PDM -- Tools -- Execute Commands -- Run Script

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 code 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

end if

Dim view 'running view

for each view in folder.Views

if not view.isShortcut then

view.comment = view.name

end if

'go into the sub-packages

Dim f 'running folder

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

end sub

2 PowerDesigner中逆向工程將數據庫中comment腳本賦值到PDM的name

執行方法：Open PDM -- Tools -- Execute Commands -- Run Script

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 code 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

if len(tab.comment) <> 0 then

tab.name = tab.comment

end if

On Error Resume Next

Dim col 'running column

for each col in tab.columns

if len(col.comment) <>0 then

col.name =col.comment

end if

On Error Resume Next

end if

end sub

眼鏡蛇

posted on 2009-01-10 10:17 眼鏡蛇閱讀(1646) 評論(1) 編輯收藏所屬分類: PowerDesigner


只有注冊用戶登錄后才能發表評論。




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關文章: 解決在PowerDesigner中使用oracle時字段長度超過15個就報錯 PowerDesigner導入oracle的表不能使用(ORA-00942) PowerDesigner中name和comment互換 Powerdesigner逆向工程從現有數據庫生成PDM 解決PowerDesigner中Name與Code同步的問題

# re: PowerDesigner中name和comment互換 2013-03-11 15:24 alex.yao

PowerDesigner中name和comment互換

評論

導航

統計

常用鏈接

留言簿(6)

隨筆分類

隨筆檔案

文章分類

文章檔案

搜索

最新評論

閱讀排行榜

評論排行榜