PowerDesigner技巧集1

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 ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl ' the current model' get the current active modelSet mdl = ActiveModelIf (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 mdlEnd If' This routine copy name into code for each table, each column and each view' of the current folderPrivate 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 Nextend sub
   
   

   但是这个脚本有点不足之处：就是将name的内容完全覆盖在comments上。有一些我写好的comments会被覆盖了，这样很不爽。因此，在原脚本的基础上，我判断comments的长度大于name，不覆盖。这样自己写的comments就会保留下来。脚本。在表、视图的基础了，增加用户、表空间、序列等数据库对象的注释。
   Option ExplicitValidationMode = TrueInteractiveMode = im_BatchDim mdl ' the current model' get the current active modelSet mdl = ActiveModelIf (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 mdlEnd If' This routine copy name into code for each table, each column and each view' of the current folderPrivate 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 Nextend sub