使用 PowerDesigner 从 MySQL 反向工程生成物理数据模型并优化展示

1
Option Explicit
2
ValidationMode = True
3
InteractiveMode = im_Batch
4

5
Dim mdl ' 当前模型
6

7
Set mdl = ActiveModel
8
If (mdl Is Nothing) Then
9
    MsgBox "当前没有打开的模型！"
10
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
11
    MsgBox "当前模型不是物理数据模型（PDM）！"
12
Else
13
    ProcessFolder mdl
14
End If
15

16
Private Sub ProcessFolder(folder)
17
    On Error Resume Next
18
    Dim Tab
19
    For Each Tab In folder.Tables
20
        If Not Tab.IsShortcut Then
21
            If Tab.Comment <> "" Then Tab.Name = Tab.Comment
22
            Dim col
23
            For Each col In Tab.Columns
24
                If col.Comment <> "" Then col.Name = col.Comment
25
            Next
26
        End If
27
    Next
28

29
    Dim view
30
    For Each view In folder.Views
31
        If Not view.IsShortcut And view.Comment <> "" Then
32
            view.Name = view.Comment
33
        End If
34
    Next
35

36
    Dim f
37
    For Each f In folder.Packages
38
        If Not f.IsShortcut Then
39
            ProcessFolder f
40
        End If
41
    Next
42
End Sub

1
Option Explicit
2

3
Dim mdl, prefixMap, d, prefix, diagName
4
Dim tab, sym, symExists, diagram, tabCode
5
Dim createdCount, movedCount
6

7
Set mdl = ActiveModel
8

9
If mdl Is Nothing Then
10
    MsgBox "请在物理数据模型中运行此脚本！", vbExclamation
11
ElseIf mdl.ClassName <> "Physical Data Model" Then
12
    MsgBox "当前模型不是物理数据模型（PDM），请检查！", vbCritical
13
Else
14
    Set prefixMap = CreateObject("Scripting.Dictionary")
15
    prefixMap.Add "act_", "活动模块"
16
    prefixMap.Add "sys_", "系统模块"
17

18
    createdCount = 0
19
    movedCount = 0
20

21
    For Each prefix In prefixMap.Keys
22
        diagName = prefixMap(prefix)
23
        Set diagram = Nothing
24

25
        For Each d In mdl.PhysicalDiagrams
26
            If d.Name = diagName Then
27
                Set diagram = d
28
                Exit For
29
            End If
30
        Next
31

32
        If diagram Is Nothing Then
33
            Set diagram = mdl.PhysicalDiagrams.CreateNew()
34
            diagram.SetNameAndCode diagName, prefix & "diagram"
35
            createdCount = createdCount + 1
36
        End If
37

38
        For Each tab In mdl.Tables
39
            tabCode = LCase(tab.Code)
40
            If LCase(Left(tabCode, Len(prefix))) = LCase(prefix) Then
41
                symExists = False
42

43
                For Each sym In diagram.Symbols
44
                    If Not sym.Object Is Nothing Then
45
                        If sym.Object Is tab Then
46
                            symExists = True
47
                            Exit For
48
                        End If
49
                    End If
50
                Next
51

52
                If Not symExists Then
53
                    diagram.AttachObject(tab)
54
                    movedCount = movedCount + 1
55
                End If
56
            End If
57
        Next
58

59
        If Not diagram Is Nothing Then
60
            diagram.AutoLayout
61
        End If
62
    Next
63

64
    MsgBox "处理完成！" & vbCrLf & _
65
           "新创建模块图表：" & createdCount & " 个" & vbCrLf & _
66
           "新增表符号总数：" & movedCount & " 个", vbInformation
67
End If