PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面

发布网友 发布时间：2023-08-07 18:43

我来回答

共1个回答

热心网友 时间：2023-10-07 21:39

运行脚本 Tools->Execute Commands->Edit/Run Scripts（快捷键：Ctrl+Shift+X）

VB脚本如下：



‘ 把pd中那么name想自动添加到comment里面
‘如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失.
OptionExplicit
ValidationMode
= True
InteractiveMode
= im_Batch
Dimmdl
‘
the current model
‘
get the current active model
Setmdl
= ActiveModel
If(mdl
IsNothing)
Then
MsgBox
"There
is no current Model "
ElseIfNotmdl.IsKindOf(PdPDM.cls_Model)
Then
MsgBox
"The
current model is not an Physical Data model. "
Else
ProcessFolder
mdl
EndIf
‘
This routine copy name into comment for each table, each column and each view
‘
of the current folder
Privatesub
ProcessFolder(folder)
DimTab
‘running
table
for each Tab
in folder.tables
if not tab.isShortcut
then
if trim(tab.comment)=""then
‘如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.
tab.comment
= tab.name
end if
Dimcol
‘
running column
for each col
in tab.columns
if trim(col.comment)=""then
‘如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失.
col.comment=
col.name
end if
next
end if
next
Dimview
‘running
view
for each view
in folder.Views
if not view.isShortcut
and trim(view.comment)=""then
view.comment
= view.name
end if
next
‘
go into the sub-packages
Dimf
‘
running folder
ForEachf
Infolder.Packages
if not f.IsShortcut
then
ProcessFolder
f
end if
Next
end sub


PowerDesigner16.5导出SQL语句时如何将name列复制到comment注释里面
标签：