powerdesign中逆向工程后name和comment的互换

  powerdesign 中,将数据库中可以逆向生成pdm的结构图,比较清晰看到系统的结构, 
但假如是db先行的话,一般是db中的每个列中用comment中文注释说明这列是 
干什么的,但逆向工程后,会发现pd中的name和code都变成中文, 
其中我们期望的是name是中文,code是英文(就是db中的列),那么我们其实 
可以将db中的comment跟name进行一个复制,把comment中的内容都全部复制到 
name中去就可以了,网上找到这个VBS脚本,原来pd中的也可以用VBS对PD的对象进行编程的, 

VBS脚本如下: 

 pasting

  1. Option Explicit  
  2. ValidationMode = True  
  3. InteractiveMode = im_Batch  
  4.   
  5. Dim mdl   
  6.   
  7.   
  8. Set mdl = ActiveModel  
  9. If (mdl Is Nothing) Then  
  10.    MsgBox "There is no current Model"  
  11. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then  
  12.    MsgBox "The current model is not an Physical Data model."  
  13. Else  
  14.    ProcessFolder mdl  
  15. End If  
  16. Private sub ProcessFolder(folder)  
  17.    Dim Tab  
  18.    for each Tab in folder.tables  
  19.       if not tab.isShortcut then  
  20.          if (not isnull(tab.comment)) and (trim(tab.comment)<>"") then  
  21.             tab.name = tab.comment  
  22.          end if  
  23.          Dim col   
  24.          for each col in tab.columns  
  25.          if (not isnull(col.comment)) and  (trim(col.comment)<>"")   then  
  26.             col.name= col.comment  
  27.          end if  
  28.          next  
  29.       end if  
  30.    next  
  31.   
  32.    Dim view  
  33.    for each view in folder.Views  
  34.       if not view.isShortcut then  
  35.          if (not isnull(view.comment)) and (trim(view.comment)<>"") then  
  36.             view.name = view.comment  
  37.          end if  
  38.       end if  
  39.    next  
  40.   
  41.      
  42. end sub 
posted @ 2019-09-06 13:27  Tom.汤  阅读(140)  评论(0编辑  收藏