内容正在载入中,请稍后……
公告
About me
搜索
统计
其他
23 Oct.2020
使用PowerDesigner设计数据库表,发现每次都需要手工去设置字段属性中的 Comment,才能在生成的 SQL 文件中添加注释comment,可是我们明明已经给该字段的 name 命名了。想怎么可以直接将name和comment绑定或将name自动填充到注释(comment)中,于是乎放狗搜索一翻,果然有结果。

在powerdesigner界面 使用 快捷键 shift+ctrl+x 弹出窗口
将如下脚本复制进去然后运行即可

'把pd中那么name想自动添加到comment里面
'如果comment为空,则填入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



' 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

if trim(tab.comment)="" then '如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面.

tab.comment = tab.name

end if

Dim col ' 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



Dim view '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

Dim f ' running folder

For Each f In folder.Packages

if not f.IsShortcut then

ProcessFolder f

end if

Next

end sub


备注:这个是在把name输完后再使用的指令,并不是所谓的打一个出来一个

感谢前辈们! 以上脚本来源:https://blog.csdn.net/SUNbrightness/article/details/81409410 分享到QQ空间
最后编辑: 我就是个世界 编辑于October 23, 2020 11:07
时间:11:07 评论(0) 引用(0) 阅读(40) Tags: , ,
发表评论
  昵称 [注册]
  密码 (游客无需密码)
  网址
  电邮
OpenID登入 权限选项 表情