当前位置：首页 > 教育百科 > 应试技巧 > 正文

64位PowerDesigner16.7详细安装教程（安装、破解、逆向工程、常用配置）

：2022年10月24日

CSDN

文章目录前言一、PowerDesigner安装二、PowerDesigner破解三、逆向工程（Oracle举例）四、PowerDesigner常用配置1.显示Comment注释结尾前言安装前期准备工作（下载地址）：64位PowerDesigner16.7：安装文...

文章目录

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，还有重新执行脚本，所以最好放在最后执行。

结尾

感谢大家的耐心阅读，如有建议请私信或评论留言。
如有收获，劳烦支持，关注、点赞、评论、收藏均可，博主会经常更新，与大家共同进步

[编辑：王振袢 &发表于江苏]

阅读全文

[我要纠错]

来源：本文内容搜集或转自各大网络平台，并已注明来源、出处，如果转载侵犯您的版权或非授权发布，请联系小编，我们会及时审核处理。
声明：江苏教育黄页对文中观点保持中立，对所包含内容的准确性、可靠性或者完整性不提供任何明示或暗示的保证，不对文章观点负责，仅作分享之用，文章版权及插图属于原作者。