PowerDesigner表名、列名大小寫轉換

方法一：不編寫vbs
PowerDesigner大小寫轉換，不用寫vbscript，直接利用軟件提供的功能便可完成轉換，只須要選擇
轉換表名：菜單——Tools\Model Options...\Naming Convertion\Table下
轉換字段：菜單——Tools\Model Options...\Naming convertion\Column下

方法二：編寫vbs
在PowerDesigner中PowerDesigner->Tools->Execute Commands->Edit/Run Scripts（Ctrl Shift X），而後將下面的腳本粘貼進去，並運行，便可。

'大小寫轉換，目標爲大寫
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch
Dim mdl ' the current model
'取得當前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

Private sub ProcessFolder(folder)
  '處理表
 Dim Tab
 for each Tab in folder.tables
   tab.code = UCase(tab.code)
   '修改字段名
   Dim col
   for each col in tab.columns
    col.code= UCase(col.code)
   next
   '修改索引名
   Dim idx
   for each idx in tab.indexes
    idx.code= UCase(idx.code)
   next
   '修改主鍵名
   Dim key
   for each key in tab.keys
    key.code= UCase(key.code)
   next
 next
' 同理處理視圖
' Dim view
' for each view in folder.Views
 ' if not view.isShortcut then
   ' view.code = 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