powerdesigner逆向工程生成PDM时的列注释解决方案的补充

在《powerdesigner逆向工程生成PDM时的列注释解决方案》一文中，我介绍了如何在逆向工程中从现有数据库中生成PDM文件时将数据库中的Description直接带到PDM中，主要解释了我的解决思路，有些乱。有的朋友不是很清楚，在本文中再次补充一个清晰的思路，希望能给大家带来帮助。

总体思路是根据PD自带的模板修改而成。修改前请备份Sybase安装路径\Resource Files\DBMS文件夹。

 邀月使用的是Powerdesigner 15.3，数据库为SQL Server 2008 r2

步骤：

１、创建DBMS

 Powerdesigner界面－tools-Resources－DBMS,点击左上角的New,选择copy from templete,如果你的数据库是sql server 2005,选择系统自带的SQL server 2005，如果是sql server 2008,选择系统自带的sqlsv2k8.xdb。本例中是sql server 2008 r2，故选择sqlsv2k8.xdb,起一个新名字，如SQL2008_Mod_201105。

２、建立数据源，逆向生成测试，顺利成功！

此时再生成数据库脚本时，会自动将Comment中的中文注释带入到脚本中。

美中不足的是Name还是英文,在一个包中查看表时，感觉怪怪的。

有两个解决办法：

３－１、改进脚本

Powerdesigner界面－Database-Edit Current DBMS

如下：（本文以sql server 2008为例，sql server 2005类同。）

将表的Name换为Comment

将列的Name换为Comment

此时生成的效果最为理想。

３－２、利用vbs脚本完成。

在Sybase安装路径\VB Scripts下新建Comments2Name.vbs，内容如下：

  
    

   
     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 code 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
   
      

   
     if
   
      
   
     len
   
     (tab.comment) 
   
     <>
   
      
   
     0
   
      
   
     then
   
      
tab.name 
   
     =
   
      tab.comment 

   
     end
   
      
   
     if
   
      

   
     On
   
      
   
     Error
   
      
   
     Resume
   
      
   
     Next
   
      

   
     Dim
   
      col 
   
     '
   
     running column 
   
     

   
     for
   
      
   
     each
   
      col in tab.columns 

   
     if
   
      
   
     len
   
     (col.comment) 
   
     <>
   
     0
   
      
   
     then
   
      
col.name 
   
     =
   
     col.comment 

   
     end
   
      
   
     if
   
      

   
     On
   
      
   
     Error
   
      
   
     Resume
   
      
   
     Next
   
      

   
     next
   
      

   
     end
   
      
   
     if
   
      

   
     next
   
      

   
     end sub
   
      
  
    

在生成的PDM中， Powerdesigner界面－tools-Execute Cmmands－Edit/Run Scripts

在打开的界面中，左上角，选择打开,Ctrl+O,选取刚才的Comments2Name.vbs,并Run,效果同上。