PowerDesigner技巧集1

 

http://blog.csdn.net/huang_xw/article/details/5722981#

 

 

1. Name与Code同步的问题

   PowerDesigner中，修改了某个字段的name，其code也跟着修改，这个问题很讨厌，因为一般来说，name是中文的，code是字段名。

   解决方法如下：

   1、选择Tools->GeneralOptions...菜单，出现General Options对话框。

   2、从Category中选择Dialog项。

   3、取消右边"Name to Code mirroring"复选框。如下图：

   

    

2. 批量根据对象的name生成comment的脚本

   执行方法：PD12 à Open PDM à Tools à Execute Commands à Run Script

   这是网络上下载的脚本

       

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  
         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  
   Next  
end sub  

 

 

但是这个脚本有点不足之处：就是将name的内容完全覆盖在comments上。有一些我写好的comments会被覆盖了，这样很不爽。因此，在原脚本的基础上，我判断comments的长度大于name，不覆盖。这样自己写的comments就会保留下来。脚本。在表、视图的基础了，增加用户、表空间、序列等数据库对象的注释。

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 not Len(tab.comment) > Len(tab.name) then  
            tab.comment = tab.name  
         end if  
         Dim col ' running column  
         for each col in tab.columns  
            if not Len(col.comment) > Len(col.name) then  
               col.comment= col.name  
            end if  
         next  
      end if  
   next  
  
   Dim view 'running view  
   for each view in folder.Views  
      if not view.isShortcut then  
         if not Len(view.comment) > Len(view.name) then  
            view.comment = view.name  
         end if  
      end if  
   next  
  
   Dim sequence 'running sequence  
   for each sequence in folder.Sequences  
      if not sequence.isShortcut then  
         if not Len(sequence.comment) > Len(sequence.name) then  
            sequence.comment = sequence.name  
         end if  
      end if  
   next  
  
   Dim myuser 'running user  
   for each myuser in folder.Users  
      if not myuser.isShortcut then  
         if not Len(myuser.comment) > Len(myuser.name) then  
            myuser.comment = myuser.name  
         end if  
      end if  
   next     
  
   Dim tablespace 'running tablespace  
   for each tablespace in folder.Tablespaces  
      if not tablespace.isShortcut then  
         if not Len(tablespace.comment) > Len(tablespace.name) then  
            tablespace.comment = tablespace.name  
         end if  
      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