PowerDesigner 使用小结

Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl ‘ the current model
Dim i

‘ 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

Private Function ToLowerCase(input)
  Dim result, ch, prevIsUpper
  result = ""
  For i = 1 to Len(input)
    ch = Mid(input, i, 1)
    If Asc(ch) < 91 And Asc(ch) > 64 Then
      If i > 1 And Not prevIsUpper Then
        result = result + "_"        
      End If
      result = result + LCase(ch)
      prevIsUpper = True
    Else
      result = result + ch
      prevIsUpper = False
    End If
  Next
  ToLowerCase = result
End Function

‘ This routine copies the name into code for each table, column and view
‘ of the current folder
Private sub ProcessFolder(folder)
   Dim Tab ‘running  table
   Dim rc ‘return code

   for each Tab in folder.tables
      if not tab.isShortcut then         
         tab.Code = ToLowerCase(tab.Code)
         ‘output ToLowerCase(tab.Code)
         Dim col ‘ running column
         for each col in tab.columns            
            col.Code = ToLowerCase(col.Code)
            ‘output ToLowerCase(col.Code)
         next
      end if
   next
end sub