PowerDesigner 将Comment与Name内容互换

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);">在使用PowerDesigner对数据库进行概念模型和物理模型设计时，一般在Name或Comment中写中文，在Code中写英文。Name用来显示，Code在代码中使用，但Comment</span>

<span style="background-color: rgb(255, 255, 255); font-family: Arial, Helvetica, sans-serif;">中的文字会保存到数据库Table或Column的Comment中，当Name已经存在的时候，再写一次 Comment很麻烦，可以使用以下代码来解决这个问题：</span>

<ol><li><span style="font-family:Arial, Helvetica, sans-serif;">代码一:将Name中的字符COPY至Comment中</span></li></ol>

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);"></span><pre name="code" class="html">'******************************************************************************
'*将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

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

<span style="font-family: Arial, Helvetica, sans-serif; background-color: rgb(255, 255, 255);"></span><pre name="code" class="html">'******************************************************************************
'*将Comment中的字符COPY至Name中
'* File:     Comment2Name.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
 
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进行操作