powerDesign 逆向 mysql 生成 物理模型，并用VBS脚本整理comment

学习自：https://www.cnblogs.com/xmyjcs/p/8536233.html

Reverse Engineer

下面 DBMS 可以通过 ODBC（Open Database Connectivity，开放数据库连接）连接，
需要自己先去安装，网上教学较多，记得匹配 powerdesign的 32位或者64位
DBMS 的版本跟mysql貌似没啥关系，我的 win mysql8.0 可以正常连接~

这里选择想逆向的库：

接着确定，然后就到该库的表选择了：

这样物理模型就生成了！当然，可能comment没有显示出来，可以接着参考下文的脚本工具~

通过 Tools 中的生成选项可以立即生成相关模型（如逻辑模型等）

---

格式化模型

这里可以调整显示顺序等

执行 VBS 脚本

（可以不看，直接用）
VBS 是基于 Visual Basic 的脚本语言，全称 Microsoft Visual Basic Script Edition，即微软公司可视化 BASIC 脚本版。

下面脚本主要用于处理物理数据模型（PDM），将模型中的列名和视图名替换为对应的注释内容，同时对注释为空的列使用占位符处理，并且支持递归处理子包。

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
            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

效果：