Yanghn Notes

BlogJava

首頁

新隨筆

聯系

聚合

管理

10 Posts :: 10 Stories :: 2 Comments :: 0 Trackbacks

常用鏈接

留言簿

隨筆分類

隨筆檔案

文章分類

文章檔案

搜索

PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

代碼一:將Name中的字符COPY至Comment中

'******************************************************************************

'* File: name2comment.vbs

'* Purpose: Database generation cannot use object names anymore

' in version 7 and above.

' It always uses the object codes.

'

' In case the object codes are not aligned with your

' object names in your model, this script will copy

' the object Name onto the object Comment for

' the Tables and Columns.

'

'* Title:

'* Version: 1.0

'* Company: Sybase Inc.

'******************************************************************************

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

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

代碼二:將Comment中的字符COPY至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

Dim view 'running view

for each view in folder.Views

if not view.isShortcut then

view.name = view.comment

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

posted on 2010-03-05 14:04 小海閱讀(426) 評論(0) 編輯收藏

新用戶注冊刷新評論列表


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




網站導航: 博客園 IT新聞 Chat2DB C++博客博問管理

Yanghn Notes

常用鏈接

留言簿

隨筆分類

隨筆檔案

文章分類

文章檔案

搜索

最新評論

閱讀排行榜