PowerDesigner 连接MySQL数据库详细步骤

第一步：打开PD软件；

第二步：创建新的Model

第三步：创建PDM视图（选择自己要连接的数据库）

第四步：连接数据源：

第五步：一路确定，并选择你刚才所创建的数据源

第六步：很重要：

第七步：等待生成：

第八步：因为文件中的name是英文，没有引入注释，再这里我们需要进行一步操作，把name替换成中文注释

第九步：效果图

备注：

将Comment中的字符COPY至Name中的代码：

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

Private sub ProcessFolder(folder)
On Error Resume Next
Dim Tab ‘running table
for each Tab in folder.tables
if not tab.isShortcut then
tab.name = tab.comment
Dim col ’ running column
for each col in tab.columns
if col.comment=”” then
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 




将Name中的字符COPY至Comment中

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

                  tab.comment   =   tab.name  

                  Dim   col   ’   running   column  

                  for   each   col   in   tab.columns  

                        col.comment=   col.name  

                  next  

            end   if  

      next

  Dim   view   'running   view 
  for   each   view   in   folder.Views 
        if   not   view.isShortcut   then 
              view.comment   =   view.name 
        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