PowerDesigner反向MySQL生成pdm

（略）基本傻瓜式安装，一直next到结束就行，自己也没找到特别好的安装包，就不提供了。

注意事项：如果安装的是32位的PowerDesigner，需要将环境变量中的jdk变为32位的，使用的数据库链接包也为32位的。

链接：https://pan.baidu.com/s/1dxg9K-MM48zWYe5LZqpEbA  提取码：2nqv 

链接：https://pan.baidu.com/s/1vdcMS60jRBHBjiCGhMb57w  提取码：jjz8 

也可以直接官网下载：:https://dev.mysql.com/downloads/connector/j/

这里有两种方法：

（1）https://blog.csdn.net/csdn15679160266/article/details/80767378

一个下载32位安装jdk之后不用修改环境变量所编写的"startup.bat"批处理脚本，同样放置在pd的安装目录下

    "startup.bat"脚本内容如下：

%JAVA_HOME写你自己的下载的32位jdk的安装目录% SET JAVA_HOME=C:\Program Files (x86)\Java\jdk1.7.0_79 %CLASSPATH写你放在pd安装路径下的驱动包，这里我演示的是oracle的% SET CLASSPATH=F:\powerdesigner16\ojdbc6.jar %下面是pd的启动程序% PdShell16.exe

使用管理员方式启动dat文件

（2）修改环境变量

此电脑→属性→

编辑：JAVA_HOME、CLASSPATH、Path。

注意：如果修改完之后没有变更过来可以直接删除system32下面的java.exe、javaw.exe、javaws.exe3个文件，这样它们永远不会再对你的jdk造成冲突，再用cmd中的“where java”命令可以看到自己配置好的环境变量到底是真正生效了还是system32里面的jre伪装的

数据库连接这里是通过一个配置文件来获取连接信息的，首次的话因为没有，所以我们需要选择Configure进行配置。

如图，选择添加数据库资源，出现如上，相关说明如下：

如图填写信息完成后，点击左下角的 Test Connection，出现成功提示则说明连接可行：

此处可能会出现链接不上的问题，我这里遇到的是一直提示无法识别字符集‘255’。

我所用的解决方法是，在连接串后面添加上字符集配置：

?useUnicode=true&characterEncoding=utf-8&useSSL=false&autoReconnect=true&failOverReadOnly=false&allowMultiQueries=true&serverTimezone=GMT%2b8

成功连接后，我们一路确定下去把这个配置文件进行保存，最终你可以在你指定的文件夹（该目录没有限制，自定义一个目录即可，此处我是建立在安装文件下的一个userConf文件夹内）中看到这个保存好的文件：

在空白pdm上右键，选择Display Preferences

选择Modify，设置表格颜色及是否展示注释

设置为默认模板

设置注释及显示顺序

勾选显示code并调整到最上端

设置为默认

此处：若想一个库中多中表颜色，可以分多次选择表，但是注意多次选择是，一定要使用全不选再单独勾选，不然会将所有用户的表都反转。

再次设置模板：保存时会有提示，第一项为：所有的都变为新模板；第二项：选中的改变模板；第三项：新的使用模板

再次导入：

复制脚本执行。即可

vbs文件内容如下(注意需要管理员运行)：https://note.youdao.com/ynoteshare1/index.html?id=17edcd38f6d14d5ae5c2402ab28343e2&type=note

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                 if InStr(tab.comment,tab.code)=0 then                   tab.name   =   tab.code +"（"+ tab.comment+"）"                   tab.comment=  tab.name                end if             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  

'代码二:将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    end   sub

结果如下：

变为：