文章目錄

• 前言

• 一、PowerDesigner安裝

• 二、PowerDesigner破解

• 三、逆向工程（Oracle舉例）

• 四、PowerDesigner常用配置

• 1.顯示Comment注釋

• 結尾

---

前言

安裝前期準備工作（下載地址）：

• 64位PowerDesigner16.7：安裝文件

• pdflm16.dll：破解文件

一、PowerDesigner安裝

---

二、PowerDesigner破解

將“pdflm16.dll”復制并覆蓋到軟件安裝的根目錄中。

---

三、逆向工程（Oracle舉例）

新建一個模型，如圖所示

選中當前模型 test. 然后在菜單欄里選擇database->update model from database

配置數據源

ODBC配置較為繁瑣，故以JDBC為例

連接名：隨便起即可
用戶名：數據庫用戶名
驅動類：不同ojdbc版本有所不同，本文以ojdbc6為例
連接串：jdbc:oracle:thin:@(description=(address=(protocol=tcp)(port=端口)(host=IP))(connect_data=(service_name=服務名)))
驅動jar：指定具體存放目錄（ojdbc6下載地址）

一路點擊ok 后,選擇connect，會列出數據庫里的所有表，在列表里選擇要逆向生成的表模型。

可以選擇表，視圖等方式的導出，選擇完成后，點擊OK即可。

---

四、PowerDesigner常用配置

1.顯示Comment注釋

PowerDesigner默認顯示的列是名稱及類型，如下圖所示：

現在需要顯示注釋列，以便使得ER圖更加清晰。但是PowerDesigner勾選Comment顯示沒有效果，所以通過以下幾步來處理：
雙擊表，彈出表屬性對話框，切到ColumnTab，默認是沒顯示Comment的，顯示Comment列

有了Comment列，并補充Comment信息

確定保存，打開菜單 Tools>Display Perferences

調整顯示的Attribute

OK，保存，確定，退出設置頁，應用到所有標識，可以看到表變化

打開菜單Tools>Execute Commands>Edit/Run Script… 或者用快捷鍵 Ctrl+Shift+X，復制下列代碼，粘貼

Option   Explicit
ValidationMode   =   TrueInteractiveMode   =   im_BatchDim blankStr
blankStr   =   Space(1)Dim   mdl   '   the   current   model'   get   the   current   active   modelSet   mdl   =   ActiveModelIf   (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   mdlEnd   IfPrivate   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 = "" 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      Nextend   sub1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950

執行完，可以看到第3列顯示備注，效果如下：

原理就是把顯示name的列的值，替換成注釋的值，所以下次如果調整comment，還有重新執行腳本，所以最好放在最后執行。

---

結尾

• 感謝大家的耐心閱讀，如有建議請私信或評論留言。

• 如有收獲，勞煩支持，關注、點贊、評論、收藏均可，博主會經常更新，與大家共同進步