`
yangzb
  • 浏览: 3500371 次
  • 性别: Icon_minigender_1
  • 来自: 北京
社区版块
存档分类
最新评论

PD中将Comment-Name拷贝VBS

阅读更多

        在使用PowerDesigner对数据库进行概念模型和物理模型设计时,一般在NAME或Comment中写中文,在Code中写英文。Name用来显 示,Code在代码中使用,但Comment中的文字会保存到数据库Table或Column的Comment中,当Name已经存在的时候,再写一次 Comment很麻烦,可以使用以下代码来解决这个问题:

  • 代码一:将Name中的字符COPY至Comment中
    '******************************************************************************
    '*   File:           name2comment.vbs
    '*   Purpose:     Database   generation   cannot   use   object   names   anymore  
    '                         in   version   7   and   above.
    '                         It   always   uses   the   object   codes.
    '
    '                         In   case   the   object   codes   are   not   aligned   with   your  
    '                         object   names   in   your   model,   this   script   will   copy  
    '                         the   object   Name   onto   the   object   Comment   for  
    '                         the   Tables   and   Columns.
    '
    '*   Title:        
    '*   Version:     1.0
    '*   Company:     Sybase   Inc.  
    '******************************************************************************

    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
                      tab.comment   =   tab.name
                      Dim   col   '   running   column
                      for   each   col   in   tab.columns
                            col.comment=   col.name
                      next
                end   if
          next

          Dim   view   'running   view
          for   each   view   in   folder.Views
                if   not   view.isShortcut   then
                      view.comment   =   view.name
                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

--------------------------------------------

         另外在使用REVERSE ENGINEER从数据库反向生成PDM的时候,PDM中的表的NAME和CODE事实上都是CODE,为了把NAME替换为数据库中Table或Column的中文Comment,可以使用以下脚本:

  • 代码二:将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

-----------------------------------------------------------------------

以上两段代码都是VB脚本,在PowerDesigner中使用方法为:

    PowerDesigner->Tools->Execute Commands->Edit/Run Scripts

将代码Copy进去执行就可以了,是对整个CDM或PDM进行操作

分享到:
评论

相关推荐

    PD194Z-9SD+用户手册.pdf

    江苏斯菲尔电气股份有限公司生产的PD194Z-9SD+液晶多功能谐波表是一款高性价比的智能电力监测设备。它能够测量和记录各种常用的电力参数,包括有无功电能、谐波含量,还具备了最大最小值记录的功能。此外,PD194Z-9...

    PD194E-2S4多功能电力仪表

    ### PD194E-2S4多功能电力仪表 #### 产品概述 PD194E系列多功能电力仪表是一款集多种电能参数测量、显示、记录及通讯功能于一体的智能化仪表。该系列仪表广泛应用于电力系统、工业自动化领域,能够实时监测电网...

    PD Runner 0.3.8-MacApp

    **PD Runner 0.3.8-MacApp:无限期启动器** PD Runner 0.3.8-MacApp 是一款专为MacOS系统设计的应用程序,它在"平行18无限期启动器"的框架下运行,允许用户在Mac上无缝地运行Windows和其他操作系统,而无需实际安装...

    M_PD3-10024-8-EI(A)_e.pdf

    具体到文件中描述的M_PD3-10024-8-EI(A)_e.pdf文件,该光源控制器具有以下特点和功能: 1. 控制通道:该控制器支持连接多达8个光源(包括灯带和点光源)。 2. 亮度调节:亮度可以通过控制器面板上的开关手动调节,...

    PD协议--USB_PD_R3_0 V1.1.zip

    USB-PD 是由 USB-IF 组织制定的一种快速充电规范,是目前主流的快充协议之一。 USB-PD 快充协议是以 Type-C 接口输出的,但不能说有 Type-C 接口就一定支持 USB-PD 协议快充。

    pd68-win-ip1188-2_56-ea24.exe

    佳能打印机ip1188驱动

    USB_PD_R3_0 V1.1 20170112.rar_USB PD_USB PD 3.0V1.0a PDF_USB_PD_

    USB_PD_R3_0 V1.1 20170112.rar是一个压缩包文件,其中包含关于USB Power Delivery (USB PD)规范的详细信息。USB PD是一种先进的电源管理标准,允许设备通过USB接口进行更高功率的传输,不仅支持快速充电,还能够...

    PyPI 官网下载 | pd-buddy-python-0.4.0.tar.gz

    **PyPI 官网下载 | pd-buddy-python-0.4.0.tar.gz** Python 是一个广泛使用的高级编程语言,尤其在数据处理、科学计算和Web开发领域有着强大的影响力。Python 的生态系统中,PyPI(Python Package Index)是官方的...

    Python库 | pd-parser-0.2.tar.gz

    在本文中,我们将深入探讨一个名为"pd-parser"的Python库,特别是其0.2版本,该库被封装在一个名为"pd-parser-0.2.tar.gz"的压缩包中。 "pd-parser"库主要是为了解析数据而设计的,它可能是针对特定格式(如CSV、...

    PD-CLC-TR-50126-3:2008 Railvvay applications - The specification

    PD-CLC-TR-50126-3:2008 Railvvay applications - The specification

    IEC/PD-CLC-TR-50427-2004

    IEC/PD-CLC-TR-50427-2004是一份技术报告,主要针对评估无意中通过射频辐射引燃易燃大气的危险。射频辐射在工业应用中很常见,尤其是在那些使用或产生易燃气体和粉尘的环境中。此类辐射可能来自各种电子设备,如通信...

    PD-14-项目进度计划表(甘特图).xlsx

    PD-14-项目进度计划表(甘特图)

    POWERLD铁壳小型机系列PD-60-24工控电源.doc

    PD-60-24是深圳市普德新星电源技术有限公司生产的一款铁壳小型工控电源,属于POWERLD系列。该电源专为工业应用设计,具有小巧的体积,高效能以及高可靠性。它能够提供稳定的24V直流电压输出,适用于各种严苛的工业...

    PD-ISO-PAS-21448_SOTIF-2019.zip

    标题 "PD-ISO-PAS-21448_SOTIF-2019.zip" 暗示了我们正在讨论一个与国际标准和技术规范相关的压缩文件,具体来说是关于"SOTIF"(Safety of the Intended Functionality,预期功能安全)。这个标准由PD(Professional...

    夏普 Sharp vl-pd3s、vl-pd3h、vl-pd3e摄像机维修服务说明书原理图PCB图

    夏普 Sharp vl-pd3s、vl-pd3h、vl-pd3e摄像机是夏普公司生产的一系列数字摄像机,支持PAL标准制式的视频录制,这三款摄像机拥有相似的技术规格和维修指南。 【VL-PD3S/H/E摄像机的规格】 - 信号系统:PAL标准 - ...

    powerDesigner 把name项添加到注释(comment)的脚本 name2comment.vbs

    powerDesigner 把name项添加到comment 使用方法使用方法 PowerDesigner->Tools->Execute Commands->Edit/Run Scripts 可以保存该脚本为:name2comment.vbs

    PD1.5 ------FENGGE--1

    花了大半天,汉化了这个软件的一部分,今后后继续更新力争汉化完全。 使用方法: 将所有文件复制到PowerDesigner15的安装目录覆盖原来的文件,建议覆盖前做好原文件的备份。

Global site tag (gtag.js) - Google Analytics