PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法

1 PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法如下,

依次打开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 viewof 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

 



2 PowerDesigner的数据库逆向工程将中将comment列脚本赋值到name列


打开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 viewof 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
next
end if
next
end sub

 

PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法,布布扣,bubuko.com

PowerDesigner中在生成的数据库脚本中用name列替换comment列作为字段描述的方法

上一篇:MongoDB社区版本和企业版本差别


下一篇:Windows中使用MySQL 创建数据库(二)