PowerDesigner使用实践

PowerDesigner使用实践

一、前言

1.简介

PowerDesigner DataArchitect 是业界领先的数据建模工具。 它提供了一种模型驱动的方法来增强业务和 IT 的能力并使其保持一致。 PowerDesigner 使企业能够更轻松地可视化、分析和操作元数据，以实现有效的企业信息架构。

PowerDesigner 独特地结合了多种数据建模技术（传统的概念、逻辑和物理建模与独特的商业智能和数据移动建模），将业务分析与正式的数据库设计解决方案结合在一起。 PowerDesigner 可与 60 多个关系数据库管理系统配合使用。

使用独特的链接和同步技术完全集成模型。 模型集成了所有模型类型，以进行完整的企业范围或项目范围的影响分析。 影响分析简化了沟通和协作，从而显着提高整个组织对变革的响应能力。

2.环境

• Windows 10
• Power Designer 15.2

PowerDesigner 官网：https://www.powerdesigner.biz/

PowerDesigner 百度百科：https://baike.baidu.com/item/power%20designer

二、使用实践

1.导入MySQL表

1）MySQL客户端导出表

• 使用 Navicat 导出数据库结构

2）修改SQL语句

• 由于PD无法解析部分SQL建表语句，导致注释（Comment）丢失，所以需要去掉部分SQL语句

（1）字符

• 原内容：

`titile` varchar(100) CHARACTER SET utf8 COLLATE utf8_general_ci NULL DEFAULT NULL COMMENT '标题'

• 修改为：

`titile` varchar(100)  NULL DEFAULT NULL COMMENT '标题'

• 以下 3 个SQL语句替换为空字符串：

CHARACTER SET utf8 COLLATE utf8_general_ci

CHARACTER SET utf8mb4 COLLATE utf8mb4_general_ci

CHARACTER SET utf8mb4 COLLATE utf8mb4_0900_ai_ci

（2）时间

• 原内容：

`create_time` datetime(0) NULL DEFAULT NULL COMMENT '创建时间',

• 修改为：

`create_time` datetime NULL DEFAULT NULL COMMENT '创建时间',

• 将 datetime(0) 替换为 datetime

3）导入MySQL表

• File - Reverse Engineer - Database…

• 输入数据模型名称
• 选择 MySQL 5.0

• 选择 SQL 文件，然后点击确定

2.Name替换为注释(Comment)

• Tools - Execute Commands - Edit/Run Script…

• 运行脚本，脚本内容：

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
 
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
 
'This routine copy name into code for each table, each column and each view
'of the current folder
Private sub ProcessFolder(folder)
 
Dim Tab 'running table
for each Tab in folder.tables
if not tab.isShortcut then
if len(tab.comment) <> 0 then
tab.name = tab.comment
end if
On Error Resume Next
Dim col 'running column
for each col in tab.columns
if len(col.comment) <>0 then
col.name =col.comment
end if
On Error Resume Next
next
end if
next
end sub

3.取消Name和Code的关联

• Tools - General Options…

• 勾选 Name to Code mirroring

4.表设计自定义列

• 自定义列

• 勾选 Comment

• 最终效果

5.设置格式(样式)

• 表模型 - 右击 - Format…

• 修改背景色

6.创建物理模型

• File - New Model…

• Model types - Physical Diagram
• 填写数据模型名称，选择 MySQL 5.0

7.表模型显示注释(Comment)

• 表模型显示出第三列，效果如下：

• Model - Extended Model Definitions…

• 点击空白处

• 点击 Properties 按钮

• Profile - Add Metaclasses…

• 勾选 Column

• Column - New - Extended Attribute

• General 选项卡

• %Get% = “” 更改为 %Get% = Rtf2Ascii (obj.Comment)

• Tools - Display Preferences…

• Table - Advanced…

• Columns - 点击 Select 按钮

• 勾选刚刚新建的 Attribute Name

• 表模型显示注释列

8.修改全部表的字段属性

• Tools - Execute Commands - Edit/Run Script…

• 运行脚本，脚本内容：

场景：修改全部表的 create_by 和 update_by 的字段长度为 100

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
 
' Created by runnerrunning 
 
' Get the current active model
Dim mdl ' The current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
Else
   ListObjects(mdl)
End If
 
'-----------------------------------------------------------------------------
Private Sub ListObjects(fldr) ' List all objects
   output "Scanning " & fldr.code
   Dim obj ' Running object
   
   For Each obj In fldr.children
      ' Calling sub procedure to print out information on the object
      TableSetComment obj
   Next
 
   	' Go into the sub-packages
   Dim f ' Running folder
   For Each f In fldr.Packages ' Recursively call to list all objects
      ' Calling sub procedure to scan children package
      ListObjects f
   Next
End Sub
 
Private Sub TableSetComment(CurrentObject)
   if not CurrentObject.Iskindof(cls_Table) then exit sub
   
   Dim col  ' Running column
   for each col in CurrentObject.columns
      ' Check for specific column names and update length if matched
      if col.Code="create_by" or col.Code="update_by" then
         output "Updating " & CurrentObject.Name & " - " & col.Code
         col.Length = 100
      end if
   next
End Sub