PowerDesigner comment與name相互複製

在使用PowerDesigner對數據庫進行概念模型和物理模型設計時，通常在NAME或Comment中寫中文，在Code中寫英文。Name用來顯 示，Code在代碼中使用，但Comment中的文字會保存到數據庫Table或Column的Comment中，當Name已經存在的時候，再寫一次 Comment很麻煩，能夠使用如下代碼來解決這個問題：

• 代碼一:將Name中的字符COPY至Comment中
  
  
  Vb代碼   

  1. Option   Explicit   
  2. ValidationMode   =   True   
  3. InteractiveMode   =   im_Batch  
  4. Dim   mdl   '   the   current   model  
  5. '   get   the   current   active   model   
  6. Set   mdl   =   ActiveModel   
  7. If   (mdl   Is   Nothing)   Then   
  8.       MsgBox   "There   is   no   current   Model "   
  9. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
  10.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
  11. Else   
  12.       ProcessFolder   mdl   
  13. End   If  
  14. '   This   routine   copy   name   into   comment   for   each   table,   each   column   and   each   view   
  15. '   of   the   current   folder   
  16. Private   sub   ProcessFolder(folder)   
  17.       Dim   Tab   'running     table   
  18.       for   each   Tab   in   folder.tables   
  19.             if   not   tab.isShortcut   then   
  20.                   tab.comment   =   tab.name   
  21.                   Dim   col   '   running   column   
  22.                   for   each   col   in   tab.columns   
  23.                         col.comment=   col.name   
  24.                   next   
  25.             end   if   
  26.       next  
  27.       Dim   view   'running   view   
  28.       for   each   view   in   folder.Views   
  29.             if   not   view.isShortcut   then   
  30.                   view.comment   =   view.name   
  31.             end   if   
  32.       next  
  33.       '   go   into   the   sub-packages   
  34.       Dim   f   '   running   folder   
  35.       For   Each   f   In   folder.Packages   
  36.             if   not   f.IsShortcut   then   
  37.                   ProcessFolder   f   
  38.             end   if   
  39.       Next   
  40. end   sub  
   

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

         另外在使用REVERSE ENGINEER從數據庫反向生成PDM的時候，PDM中的表的NAME和CODE事實上都是CODE，爲了把NAME替換爲數據庫中Table或Column的中文Comment，能夠使用如下腳本：

• 代碼二:將Comment中的字符COPY至Name中

  
  

  Vb代碼   

  1. Option   Explicit   
  2. ValidationMode   =   True   
  3. InteractiveMode   =   im_Batch  
  4. Dim   mdl   '   the   current   model  
  5. '   get   the   current   active   model   
  6. Set   mdl   =   ActiveModel   
  7. If   (mdl   Is   Nothing)   Then   
  8.       MsgBox   "There   is   no   current   Model "   
  9. ElseIf   Not   mdl.IsKindOf(PdPDM.cls_Model)   Then   
  10.       MsgBox   "The   current   model   is   not   an   Physical   Data   model. "   
  11. Else   
  12.       ProcessFolder   mdl   
  13. End   If  
  14. Private   sub   ProcessFolder(folder)   
  15. On Error Resume Next  
  16.       Dim   Tab   'running     table   
  17.       for   each   Tab   in   folder.tables   
  18.             if   not   tab.isShortcut   then   
  19.                   tab.name   =   tab.comment  
  20.                   Dim   col   '   running   column   
  21.                   for   each   col   in   tab.columns   
  22.                   if col.comment="" then  
  23.                   else  
  24.                         col.name=   col.comment   
  25.                   end if  
  26.                   next   
  27.             end   if   
  28.       next  
  29.       Dim   view   'running   view   
  30.       for   each   view   in   folder.Views   
  31.             if   not   view.isShortcut   then   
  32.                   view.name   =   view.comment   
  33.             end   if   
  34.       next  
  35.       '   go   into   the   sub-packages   
  36.       Dim   f   '   running   folder   
  37.       For   Each   f   In   folder.Packages   
  38.             if   not   f.IsShortcut   then   
  39.                   ProcessFolder   f   
  40.             end   if   
  41.       Next   
  42. end   sub  
   

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

以上兩段代碼都是VB腳本，在PowerDesigner中使用方法爲：

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

將代碼Copy進去執行就能夠了，是對整個CDM或PDM進行操做