ice world

最近使用PD比較頻繁，也被PD給搞的焦頭爛額，網上好的東西還是比較多的，摘了點留作備用。

sql語句中表名與字段名前的引號去除：

打開cdm的情況下，進入Tools－Model Options－Naming Convention，把Name和Code的標簽的Charcter case選項設置成Uppercase或者Lowercase，只要不是Mixed Case就行！
或者選擇Database->Edit current database->Script->Sql->Format，有一項CaseSensitivityUsingQuote，它的 comment為“Determines if the case sensitivity for identifiers is managed using double quotes”，表示是否適用雙引號來規定標識符的大小寫， 可以看到右邊的values默認值為“YES”,改為“No”即可！
或者在打開pdm的情況下，進入Tools－Model Options－Naming Convention，把Name和Code的標簽的Charcter case選項設置成Uppercase就可以！
----------------------------------------------------------------------------------------------------------------------------------

在修改name的時候，code的值將跟著變動，很不方便

修改方法：PowerDesign中的選項菜單里修改，在[Tool]-->[General Options]->[Dialog]->[Operating modes]->[Name to Code mirroring],這里默認是讓名稱和代碼同步，將前面的復選框去掉就行了。
----------------------------------------------------------------------------------------------------------------------------------

由pdm生成建表腳本時，字段超過15字符就發生錯誤（oracle）

原因未知，解決辦法是打開PDM后，會出現Database的菜單欄，進入Database － Edit Current DBMS －script－objects－column－maxlen，把value值調大(原為30)，比如改成60。出現表或者其它對象的長度也有這種錯誤的話都可以選擇對應的objects照此種方法更改！
或者使用下面的這種方法：
生成建表腳本時會彈出Database generation提示框：把options － check model的小勾給去掉，就是不進行檢查（不推薦）！
或者可以修改C:\Program Files\Sybase\PowerDesigner Trial 11\Resource Files\DBMS\oracl9i2.xdb文件
修改好后，再cdm轉為pdm時，選擇“Copy the DBMS definition in model”把把這個資源文件拷貝到模型中。
----------------------------------------------------------------------------------------------------------------------------------

修改外鍵命名規則

選擇Database—>Edit Current DBMS

 
批量根據對象的name生成comment的腳本

執行方法：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

----------------------------------------------------------------------------------------------------------------------------------

逆向工程將數據庫中comment腳本賦值到PDM的name

執行方法：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
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

----------------------------------------------------------------------------------------------------------------------------------

刪除概念模型中沒用的Data Items

'*****************************************************************************
'文件：Delete useless data items.vbs
'版本：1.0
'版權：floodzhu (floodzhu@hotmail.com)，2005.1.6
'功能：遍歷概念模型，把無用的Data Items刪除。
'*****************************************************************************
dim index
index = 0

dim model 'current model
set model = ActiveModel


If (model Is Nothing) Then
   MsgBox "當前沒有活動的模型。"
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
   MsgBox "當前模型不是概念模型。"
Else
   View model
   MsgBox index & "個無用字段被刪除。"
End If

'*****************************************************************************
'函數：View
'功能：遞歸遍歷
'*****************************************************************************
sub View(folder)
   dim item
   for each item in folder.DataItems
      if not item.IsShortCut then
         Visit item
      end if
   next
  
   '對子目錄進行遞歸
   dim subFolder
   for each subFolder in folder.Packages
      View subFolder
   next
end sub

'*****************************************************************************
'函數：Visit
'功能：處理節點
'*****************************************************************************
sub Visit(node)
 if node.UsedBy="" then
      node.delete
      index = index + 1
   end if
end sub