国产三级电影在线观看,四虎8848精品成人免费网站,亚洲va久久

Noah

不是經(jīng)典我不發(fā)

PowerDesigner中name和comment互換

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

執(zhí)行方法：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中逆向工程將數(shù)據(jù)庫中comment腳本賦值到PDM的name

執(zhí)行方法：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 眼鏡蛇閱讀(1652) 評論(1) 編輯收藏所屬分類: PowerDesigner


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




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

<

2025年6月

>

日

一

二

三

四

五

六

25

26

27

28

29

30

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

統(tǒng)計

隨筆 - 14
文章 - 64
評論 - 41
引用 - 0

常用鏈接

留言簿(6)

隨筆分類

電腦相關知識(7) (rss)

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

PowerDesigner中name和comment互換

評論

導航

統(tǒng)計

常用鏈接

留言簿(6)

隨筆分類

隨筆檔案

文章分類

文章檔案

搜索

最新評論

閱讀排行榜

評論排行榜