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