powerDesigner 把name項添加到注釋(comment)

平時大家用powerDesigner的時候,pd是不會把name項默認添加到comment的,所以生成的數據庫表裡面也沒有中文字段的註釋.

我在網上查了一下.有解決方案了.

以下是網上的解決方案,我把它完善了一下.

'使用方法使用方法

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

可以保存該腳本為:name2comment.vbs

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

'* File: name2comment.vbs

'* Title: Name to Comment Conversion

'* Model: Physical Data Model

'* Objects: Table, Column, View

'* Author: steveguoshao

'* Created: 2013-11-29

'* Mod By:

'* Modified:

'* Version: 1.0

'* Memo: Modify from name2code.vbs

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

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


分享到:


相關文章: