PowerDesigner从数据库中反向生成PDM，Name不显示字段说明的解决方法

 
 

  
  使用Reverse engineer从数据库反向生成PDM的时候，PDM中的表的Name和Code事实上都是Code，为了把Name替换为数据库中Table或Column的中文Comment，可以使用以下脚本：

 
 
 
 


 
 
 
 

  
  
在PowerDesigner中使用方法为：
  
  
  
  
   PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
  
  
或      工具->Execute Commands->Edit/Run Scripts
  
  
  
  
将代码Copy进去执行就可以了，是对整个CDM或PDM进行操作
  
  修改前

 
 
 
 

  
  

 
 
 
 

  
  

 
 
 
 

  
  修改后

 
 
 
 


 
 
 
 


 
 
 
 

  
  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