10. Data model (ER diagram) into SQL script, require the exported fields to be uppercase

1. Enter Tools-->execute commands-->edit/run script, execute the following scripts to achieve all the fields to capitalize;

Option Explicit
Validationmode = True
Interactivemode = Im_batch
Dim MDL ' current model
' Get current model
Set mdl = Activemodel
If (MDL is Nothing) then
MsgBox "Not open a model"
ElseIf not MDL. IsKindOf (Pdpdm.cls_model) Then
MsgBox "The current model is not a PDM"
Else
' Call handler
ProcessFolder MDL
End If
' handler called
Private Sub ProcessFolder (folder)
Dim Tab ' table to be processed
For each Tab in folder. Tables
' if not tab.isshortcut then
' Tab.code = Tab.name
' table name processing, preceded by prefix, letter lowercase
tab.name= UCase (tab.name)
tab.code= UCase (tab.code)
Dim col ' columns to process
For each col in Tab.columns
' column name and code all lowercase, big poem UCase
col.code= UCase (col.code)
col.name= UCase (col.name)
Next
' End If
Next
' Process View
' Dim View ' running view
' For each view in folder. views
' if not view.isshortcut then
' View.code = View.name
' End If
' Next
' recursion into Sub-packages
Dim F ' Sub folder
For each f in folder. Packages
if not f.isshortcut then
ProcessFolder F
End If
Next
End Sub

10. Data model (ER diagram) into SQL script, require the exported fields to be uppercase