mysql模型显示注释_PowerDesigner显示mysql数据表注释

通过Navicat或其他工具将表转为sql文件

例如下方这样

6e228ae67d5a4a692c015bd113877fc5.png

将sql表文件导入powerdesigner

fd4b4d56a64d6ba76d94393dff6b12b7.png

下一步

747e328152d5c80a7c4cbeae8ed34557.png

下一步

f2e613862d47799e75d6960445fec45f.png

确定后,产生如下模型

102d939e081d685ef4d0b88322a28028.png

执行脚本

1258311ec77a65f314f805068b980e82.png

在对话框中执行如下脚本

Option Explicit

ValidationMode = True

InteractiveMode = im_Batch

Dim blankStr

blankStr = Space(1)

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 = "" or replace(col.comment," ", "")="" Then

col.name = blankStr

blankStr = blankStr & Space(1)

else

col.name = col.comment

end if

next

end if

next

Dim view 'running view

for each view in folder.Views

if not view.isShortcut then

view.name = view.comment

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

6888af8db1796816d4ee07256f9745b8.png

最后

效果图如下

22f82a8e2875b41610d38cc21b57ab98.png

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值