PowerDesigner对MySQL进行反向工程

1
1&＃xff09;.安MyODBC-standard-3.51.0.7-win.msi、MySQL-connector-odbc-5.1.5-win.msi两个文件。可以支持odbc在win7下创建连接。

2&＃xff09;去C:\Windows\SysWOW64目录下找到odbcad32.exe这个文件&＃xff0c;并打开。

3&＃xff09;

填充数据库数据

以上就完成安装了

2在PowerDesigner进行反向工程
文件—-Reverse Engineer –>Database

注释comment和name的互换

代码一:将Name中的字符COPY至Comment中
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
将代码Copy进去执行就可以了&＃xff0c;是对整个CDM或PDM进行操作Option Explicit
ValidationMode &＃61; True
InteractiveMode &＃61; im_Batch Dim mdl &＃39; the current model &＃39; get the current active model
Set mdl &＃61; 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 &＃39; This routine copy name into comment for each table, each column and each view
&＃39; of the current folder
Private sub ProcessFolder(folder) Dim Tab &＃39;running table for each Tab in folder.tables if not tab.isShortcut then tab.comment &＃61; tab.name Dim col &＃39; running column for each col in tab.columns col.comment&＃61; col.name next end if next Dim view &＃39;running view for each view in folder.Views if not view.isShortcut then view.comment &＃61; view.name end if next &＃39; go into the sub-packages Dim f &＃39; running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next
end sub 代码二:将Comment中的字符COPY至Name中
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
将代码Copy进去执行就可以了&＃xff0c;是对整个CDM或PDM进行操作Option Explicit
ValidationMode &＃61; True
InteractiveMode &＃61; im_Batch Dim mdl &＃39; the current model &＃39; get the current active model
Set mdl &＃61; 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 &＃39;running table for each Tab in folder.tables if not tab.isShortcut then tab.name &＃61; tab.comment Dim col &＃39; running column for each col in tab.columns if col.comment&＃61;"" then else col.name&＃61; col.comment end if next end if next Dim view &＃39;running view for each view in folder.Views if not view.isShortcut then view.name &＃61; view.comment end if next &＃39; go into the sub-packages Dim f &＃39; running folder For Each f In folder.Packages if not f.IsShortcut then ProcessFolder f end if Next
end sub

下面是将comment的中文替换name

输出

格式设置

输出

展示