ice world

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

sql語(yǔ)句中表名與字段名前的引號(hào)去除：

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

在修改name的時(shí)候，code的值將跟著變動(dòng)，很不方便

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

由pdm生成建表腳本時(shí)，字段超過15字符就發(fā)生錯(cuò)誤（oracle）

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

修改外鍵命名規(guī)則

選擇Database—>Edit Current DBMS

 
批量根據(jù)對(duì)象的name生成comment的腳本

執(zhí)行方法：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

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

逆向工程將數(shù)據(jù)庫(kù)中comment腳本賦值到PDM的name

執(zhí)行方法：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
'版權(quán)：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 "當(dāng)前沒有活動(dòng)的模型。"
ElseIf Not model.IsKindOf(PdCDM.cls_Model) Then
   MsgBox "當(dāng)前模型不是概念模型。"
Else
   View model
   MsgBox index & "個(gè)無用字段被刪除。"
End If

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

'*****************************************************************************
'函數(shù)：Visit
'功能：處理節(jié)點(diǎn)
'*****************************************************************************
sub Visit(node)
 if node.UsedBy="" then
      node.delete
      index = index + 1
   end if
end sub