PowerDesigner+mysql 逆向工程

我想直观的查看数据库表之间的关系与中文注释，发现Navicat Premium下的表模型功能，并没有注释功能:
用起来不是很方便。所有想到了用PowerDesigner来逆向MYSQL中的表，并显示中文注释。

一、安装ODBC驱动

当前环境：

window 10 64bit

PowerDesigner 16.5 32bit

Connector/ODBC 5.1.13 下载地址：

http://dev.mysql.com/downloads/connector/odbc/5.1.html

选择win-32 MIS安装包，由于用的PD版本是32位的，所有选择ODBC也得32位否则会出现不兼容。

下载之后点击安装。

二、配置OBDC驱动连接
安装好之后，在控制面板中，选择管理工具

然后填写正确的TCP/IP Server 、User、 Password、点击Database 三角标会弹出相关的库供选择

然后可以点击TEST测试连接。最后点击OK。

会发现多出一个PD_MYSQL.这个就是在Data Source Name定义的。

三、PowerDesigner连接MYSQL
打开PowerDesigner,操作如下

点击确定后。会列出全部数据的表格。

可以在：那里选择我们想要的库

然后可以通过: Select ALL和Deselect All全选和全不选。

选择想要的表，然后点击OK。显示如下:
四、显示中文注释
导是导入成功了，但是并没有显示中文注释，显示表的中文注释操作如下:

在tool中选择Display Preferences

在Table中选择Comment

然后点击OK。这样表的注释就有了，问题是还有字段的注释没有，选中Table，右键Properties，会发现其中已经有了Comment，一栏

问题是没有在PDM图上显示。解决方法如下，要将注释comment的内容替换到code或name中，即可。步骤如下:

1、Tools->Display Preferences->Table->Advanced…->Columns->List Columns

然后将Code移到最上面

然后点击OK。

2、Tools下增加一个vbs的脚本，可以将code内容替换为注释内容

复制脚本执行。即可

vbs文件内容如下(注意需要管理员运行)：

Option Explicit
 
ValidationMode = True
 
InteractiveMode = im_Batch
 
 
Dim system, file
 
Set system = CreateObject("Scripting.FileSystemObject")
 
Dim ForReading, ForWriting, ForAppending '打开文件选项
 
ForReading = 1 ' 只读
 
ForWriting = 2 ' 可写
 
ForAppending = 8 ' 可写并追加
 
'打开文本文件
 
Set file = system.OpenTextFile("C:\pdcomment.txt", ForWriting, true)
 
 
 
'判断当前model是否物理数据模型
 
Dim mdl
 
Set mdl = ActiveModel
 
If (mdl Is Nothing) Then
 
MsgBox "处理对象无模型"
 
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
 
MsgBox "当前模型不是物理数据模型"
 
Else
 
ProcessFolder mdl,file
 
End If
 
file.Close
 
 
Private sub ProcessFolder(folder,file)
 
 
Dim i,j,k
 
i=0:j=0:k=0
 
 
'列数组，记录字段里不重复的comment
 
Dim ColumnComment()
 
Dim ColumnCommentNumber()
 
ReDim Preserve ColumnComment(i)
 
ReDim Preserve ColumnCommentNumber(i)
 
 
Dim tbl '当前表
 
Dim col '当前字段
 
dim curComment '当前字段comment
 
 
'处理模型中的表
 
for each tbl in folder.tables
 
if not tbl.isShortcut then
 
if len(trim(tbl.comment))<>0 then
 
'可以在这里显示table的comment
 
'tbl.code = tbl.code+"("+trim(tbl.comment)+")"
 
end if
 
 
'处理表中的列
 
for each col in tbl.columns
 
k = 0
 
curComment = trim(col.comment)
 
if len(curComment)<>0 then
 
'遍历相异的comment数组
 
for j = 0 to i
 
if ColumnComment(j) = curComment then
 
'如果找到相同的comment,则相关计数器加1
 
ColumnCommentNumber(j) = ColumnCommentNumber(j) + 1
 
k = j
 
end if
 
Next
 
'如果没有相同的comment,则k=0,此时ColumnCommentNumber(0)也为0
 
'否则ColumnCommentNumber(k)不为0
 
if ColumnCommentNumber(k) <> 0 then
 
col.code = curComment & cstr(ColumnCommentNumber(k))
 
else
 
col.code = curComment
 
'ColumnComment(0)、ColumnCommentNumber(0)永远为空
 
'将相异的comment记录添加到数组中
 
i = i + 1
 
ReDim Preserve ColumnComment(i)
 
ReDim Preserve ColumnCommentNumber(i)
 
ColumnComment(i) = curComment
 
ColumnCommentNumber(i) = 0
 
end if
 
else
 
'写入文件中
 
file.WriteLine "comment on column "+ tbl.code+"."+col.code+" is '';"
 
end if
 
next
 
end if
 
'由于不同表的code允许相同,因此此时重新初始化。
 
'因为ColumnComment(0)、ColumnCommentNumber(0)为空，可以保留
 
ReDim Preserve ColumnComment(0)
 
ReDim Preserve ColumnCommentNumber(0)
 
i=0:j=0:k=0
 
 
next
 
 
Dim view '当前视图
 
for each view in folder.Views
 
if not view.isShortcut then
 
'可以在这里显示view的comment
 
'view.code = view.comment
 
end if
 
next
 
 
'对子目录进行递归
 
Dim subpackage 'folder
 
For Each subpackage In folder.Packages
 
if not subpackage.IsShortcut then
 
ProcessFolder subpackage , file
 
end if
 
Next
 
 
end sub

执行成功后，效果如下

替换后的字段如下