PowerDesigner表名、列名大小寫轉換

abraham_dba_2013發表於2016-05-19

PowerDesigner 版本號為15.2.0.3042
方法一：不編寫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），然後將下面的指令碼貼上進去，並執行，即可。

點選(此處)摺疊或開啟

  1. '大小寫轉換，目標為大寫
  2. Option Explicit
  3. ValidationMode = True
  4. InteractiveMode = im_Batch
  5. Dim mdl ' the current model
  6. '取得當前Model
  7. Set mdl = ActiveModel
  8. If (mdl Is Nothing) Then
  9.  MsgBox "There is no current Model"
  10. ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then
  11.  MsgBox "The current model is not an Physical Data model."
  12. Else
  13.  ProcessFolder mdl
  14. End If

  16. Private sub ProcessFolder(folder)
  17.   '處理表
  18.  Dim Tab
  19.  for each Tab in folder.tables
  20.    tab.code = UCase(tab.code)
  21.    '修改欄位名
  22.    Dim col
  23.    for each col in tab.columns
  24.     col.code= UCase(col.code)
  25.    next
  26.    '修改索引名
  27.    Dim idx
  28.    for each idx in tab.indexes
  29.     idx.code= UCase(idx.code)
  30.    next
  31.    '修改主鍵名
  32.    Dim key
  33.    for each key in tab.keys
  34.     key.code= UCase(key.code)
  35.    next
  36.  next
  37. ' 同理處理檢視
  38. ' Dim view
  39. ' for each view in folder.Views
  40.  ' if not view.isShortcut then
  41.    ' view.code = view.name
  42.   ' end if
  43. ' next
  44.  ' go into the sub-packages
  45.  Dim f ' running folder
  46.  For Each f In folder.Packages
  47.   if not f.IsShortcut then
  48.    ProcessFolder f
  49.   end if
  50.  Next
  51. end sub


來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/29439655/viewspace-2103119/，如需轉載，請註明出處，否則將追究法律責任。

相關文章