下文給大家?guī)?lái)MySQL如何生成pdm，希望能夠給大家在實(shí)際運(yùn)用中帶來(lái)一定的幫助，MYSQL涉及的東西比較多，理論也不多，網(wǎng)上有很多書籍，今天我們就用創(chuàng)新互聯(lián)在行業(yè)內(nèi)累計(jì)的經(jīng)驗(yàn)來(lái)做一個(gè)解答。

在應(yīng)縣等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強(qiáng)發(fā)展的系統(tǒng)性、市場(chǎng)前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè) 網(wǎng)站設(shè)計(jì)制作按需網(wǎng)站策劃,公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),品牌網(wǎng)站建設(shè),全網(wǎng)營(yíng)銷推廣,外貿(mào)網(wǎng)站制作,應(yīng)縣網(wǎng)站建設(shè)費(fèi)用合理。

1.條件

 1.1 工具powerDesigner16.5

 1.2 mysql數(shù)據(jù)庫(kù)地址或腳本

 1.3 mysql-connector-odbc-5.3.4-winx64.msi

2.操作步驟

  2.1 database > change DBMS 選擇Mysql5.0

  2.2 打開(kāi)powerDesigner16.5工具, file > reverse Engineer > database

確定,則生成對(duì)應(yīng)的pdm.

3.圖形列表中展示注釋

'* File:     comment2name.vbs
'* Purpose:  在PowerDesigner的PDM圖形窗口中顯示數(shù)據(jù)列的中文注釋
'* Title:    將字段的comment賦值到字段的name中
'* Category: 打開(kāi)物理模型，運(yùn)行本腳本（Ctrl+Shift+X）
'* Copyright:foxzz@163.com,2006/07/25 .
'* Author:   foxzz
'* Created:  
'* Modified: 
'* Version:  1.0
'* Comment:  遍歷物理模型中的所有表，將字段的comment賦值到字段的name中。
'            在將name置換為comment過(guò)程中，需要考慮的問(wèn)題
'            1、name必須唯一，而comment有可能不唯一。
'               處理辦法是如果字段的comment重復(fù)，則字段的name=comment+1、2、3...
'            2、comment值有可能為空，這種情況下對(duì)字段的name不處理。
'               針對(duì)Oracle數(shù)據(jù)庫(kù),將comment on column 字段名稱 is '';添加到C:/pdcomment.txt文件中。
'               在補(bǔ)充comment完畢后，便于在數(shù)據(jù)庫(kù)中執(zhí)行        
'******************************************************************************

Option Explicit 
ValidationMode = True 
InteractiveMode = im_Batch

Dim system, file
Set system = CreateObject("Scripting.FileSystemObject")
Dim ForReading, ForWriting, ForAppending   '打開(kāi)文件選項(xiàng)
ForReading   = 1 ' 只讀 
ForWriting   = 2 ' 可寫 
ForAppending = 8 ' 可寫并追加
'打開(kāi)文本文件
Set file = system.OpenTextFile("C:/pdcomment.txt", ForWriting, true)


'判斷當(dāng)前model是否物理數(shù)據(jù)模型
Dim mdl
Set mdl = ActiveModel 
If (mdl Is Nothing) Then 
   MsgBox "處理對(duì)象無(wú)模型" 
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then 
   MsgBox "當(dāng)前模型不是物理數(shù)據(jù)模型" 
Else 
   ProcessFolder mdl,file 
End If 
file.Close


'******************************************************************************
Private sub ProcessFolder(folder,file)

Dim i,j,k
i=0:j=0:k=0

'列數(shù)組，記錄字段里不重復(fù)的comment
Dim ColumnComment() 
Dim ColumnCommentNumber()
ReDim Preserve ColumnComment(i)
ReDim Preserve ColumnCommentNumber(i)

Dim tbl   '當(dāng)前表
Dim col   '當(dāng)前字段 
dim curComment  '當(dāng)前字段comment

'處理模型中的表
for each tbl in folder.tables 
    if not tbl.isShortcut then 
       if len(trim(tbl.comment))<>0 then
          '可以在這里顯示table的comment
          'tbl.name = tbl.name+"("+trim(tbl.comment)+")"
       end if  

       '處理表中的列
       for each col in tbl.columns 
           k = 0
           curComment = trim(col.comment)
           if len(curComment)<>0 then
              '遍歷相異的comment數(shù)組
              for j = 0 to i
                  if ColumnComment(j) = curComment then
                     '如果找到相同的comment,則相關(guān)計(jì)數(shù)器加1
                     ColumnCommentNumber(j) = ColumnCommentNumber(j) + 1
                     k = j
                  end if 
              Next
              '如果沒(méi)有相同的comment,則k=0,此時(shí)ColumnCommentNumber(0)也為0
              '否則ColumnCommentNumber(k)不為0
              if ColumnCommentNumber(k) <> 0 then
                 col.name = curComment & cstr(ColumnCommentNumber(k))
              else
                 col.name  = curComment
                 'ColumnComment(0)、ColumnCommentNumber(0)永遠(yuǎn)為空
                 '將相異的comment記錄添加到數(shù)組中
                 i = i + 1
                 ReDim Preserve ColumnComment(i)
                 ReDim Preserve ColumnCommentNumber(i)
                 ColumnComment(i) = curComment
                 ColumnCommentNumber(i) = 0
              end if
           else
              '寫入文件中
              file.WriteLine "comment on column "+ tbl.name+"."+col.code+" is '';"           
           end if
       next 
    end if 
    '由于不同表的name允許相同,因此此時(shí)重新初始化。
    '因?yàn)镃olumnComment(0)、ColumnCommentNumber(0)為空，可以保留
    ReDim Preserve ColumnComment(0)
    ReDim Preserve ColumnCommentNumber(0)
    i=0:j=0:k=0

next

Dim view  '當(dāng)前視圖
for each view in folder.Views 
    if not view.isShortcut then 
       '可以在這里顯示view的comment
       'view.name =  view.comment
    end if 
next

'對(duì)子目錄進(jìn)行遞歸
Dim subpackage 'folder
For Each subpackage In folder.Packages 
    if not subpackage.IsShortcut then 
       ProcessFolder subpackage , file
    end if 
Next

end sub

tools > excute commands > Edit/Run scripts

看了以上關(guān)于mysql如何生成pdm的教程，如果大家還有什么地方需要了解的可以在創(chuàng)新互聯(lián)行業(yè)資訊里查找自己感興趣的或者找我們的專業(yè)技術(shù)工程師解答的，創(chuàng)新互聯(lián)技術(shù)工程師在行業(yè)內(nèi)擁有十幾年的經(jīng)驗(yàn)了。