PowerDesigner设计数据库后将name自动添加到commit中

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

1.PowerDesigner显示注释字段问题

  选择那个表,右键- >Properties- >Columns- >Customize Columns and Filter(或直接用快捷键Ctrl+U)- >Comment(前面打勾)- >OK

2.将Name中的字符COPY至Comment中

Option   ExplicitValidationMode   =   TrueInteractiveMode   =   im_BatchDim   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   If'   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view'   of   the   current   folderPrivate   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      Nextend   sub

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

3.将Comment中的字符COPY至Name中

Option   ExplicitValidationMode   =   TrueInteractiveMode   =   im_BatchDim   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="" 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      Nextend   sub

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

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

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