PowerDesignerのリバースは、データベースモデルを生成する（MySQLの記事）

内容：

• データベースリバース生成モデル
• Cooment注釈モデル表示

ODBCドライバをダウンロードしてインストールします。手順：

（1）ダウンロード

MySQLのコネクタ-ODBC-5.3.4-win32の

注：コンピュータは、インストールし、32ビット、または64ビット、32ビットの統一されたかどうか。

（2）インストール

 

ステップ2：データソースを追加odbcad32.exeを

見つかったC：\ WindowsはSYSWOW64ディレクトリにこのファイルを見つけるodbcad32.exeを\

開くにはクリックしてポップアップODBCデータソースアドミニストレータインタフェースを

マウントされたドライブを選択し、ポップアップウィンドウで[追加]ボタンをクリックします。

データベース情報ウィンドウを作成するには[完了]をクリックしポップアップ表示されます：

[OK]をクリックして、つまり、あなたが新しく追加されたオプションを見ることができます：

設定は完了です。

ステップ3：データベースのエクスポート用のSQLスクリプトファイル

 

 

ステップ4：オープンPowerDesignerのソフトウェアは、モデルのインポートを生成します

、選択メニュー、インポートデータソース

B.選択Databaseバージョン

C.ファイルのSQLを追加]をクリックします

データベースモデルD. OKをクリックした後、あなたが希望生成に変換することができます

ステップ5は、自身の情報を設定します。

以下に示すように、コメントのテーブルと列を追加することを忘れないでください：、注意、編集モードに入るように、テーブルをダブルクリックします。

ボタンの下をクリックします：

Bは、チェックボックスのコメントをご確認ください

Cは、スクリプトエディタを実行するためのウィンドウを開きます

Dは、VBSスクリプトは、以下の操作を実行するには：

    Option   Explicit   
    ValidationMode   =   True   
    InteractiveMode   =   im_Batch
    Dim blankStr
    blankStr   =   Space(1)
    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 = "" 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   
          Next   
    end   sub   

 

 E、执行后，即可发现注释已经正常现示：

步骤六：显示原字段名

点击Ok后，会弹出确认框，默认选择确定后即可看到效果：

步骤七：更改显示的顺序：

调整后效果：

 

数据库反向生成模型结束！

目录：

• 数据库的反向生成模型
• 模型的Cooment注释显示

步骤一：下载odbc驱动并进行安装：

（1）下载

mysql-connector-odbc-5.3.4-win32

注意：不管电脑是32位，还是64位，统一安装32位即可。

（2）安装

 

步骤二：odbcad32.exe添加数据源

找到C:\Windows\SysWOW64目录下找到odbcad32.exe这个文件

双击打开，弹出ODBC数据源管理界面

点击添加按钮，在弹出的窗口中选中，安装好的驱动：

点击完成，弹出数据库信息创建窗体：

点击后Ok后，即可以看到新增加了选项：

配置完成。

步骤三：数据库导出为Sql脚本文件

 

 

步骤四：打开PowerDesigner软件，进行导入生成模型

A、选择菜单，导入数据源

B.选择数据库版本

C.点击添加Sql文件

D.点击确定后，即可进行转换，生成想要的数据库模型

步骤五，设置显示备注信息：

A、双击表，进入编辑模式，注意：表和列记得添加注释，如下图所示：

点击下图按钮：

B、勾选Comment的多选框

C、打开执行脚本编辑窗口

D、执行以下VBS脚本:

    Option   Explicit   
    ValidationMode   =   True   
    InteractiveMode   =   im_Batch
    Dim blankStr
    blankStr   =   Space(1)
    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 = "" 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   
          Next   
    end   sub   

 

 E、执行后，即可发现注释已经正常现示：

步骤六：显示原字段名

点击Ok后，会弹出确认框，默认选择确定后即可看到效果：

步骤七：更改显示的顺序：

调整后效果：

 

数据库反向生成模型结束！