批量将PowerDesigner中表,字段,类型,序列由小写变成大写

http://paskaa.iteye.com/blog/1583050


功能:
1.表,字段,类型,序列由小写变成大写
2.改变类型,bigint=>INT8


由于建表的时候木有注意，在生产SQL时pd在列名上都加了“”这个东东，故只有 通过以下VB脚本即可批量修改，在Tools=>Execute Commands下的Edit/Run Scripts，或者通过Ctrl+Shift+X运行以下脚本即可：

'***************************************************************************** 
'文件：powerdesigner.ucase.VBs 
'版本：1.0 
'功能：遍历物理模型中的所有表，将表名、表代码、字段名、字段代码全部由小写改成大写； 
' 并将序列的名和代码由小写改成大写。 
'用法：打开物理模型，运行本脚本（Ctrl+Shift+X） 
'备注： 
'***************************************************************************** 
dim model 'current model 
set model = ActiveModel 
If (model Is Nothing) Then 
MsgBox "There is no current Model" 
ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then 
MsgBox "The current model is not an Physical Data model." 
Else 
ProcessTables model 
ProcessSequences model 
End If 
'***************************************************************************** 
'函数：ProcessSequences 
'功能：递归遍历所有的序列 
'***************************************************************************** 
sub ProcessSequences(folder) 
'处理模型中的序列：小写改大写 
dim sequence 
for each sequence in folder.sequences 
sequence.name = UCase(sequence.name) 
sequence.code = UCase(sequence.code) 
next 
end sub 
'***************************************************************************** 
'函数：ProcessTables 
'功能：递归遍历所有的表 
'***************************************************************************** 
sub ProcessTables(folder) 
'处理模型中的表 
dim table 
for each table in folder.tables 
if not table.IsShortCut then 
ProcessTable table 
end if 
next 
'对子目录进行递归 
dim subFolder 
for each subFolder in folder.Packages 
ProcessTables subFolder 
next 
end sub 
'***************************************************************************** 
'函数：ProcessTable 
'功能：遍历指定table的所有字段，将字段名由小写改成大写， 
' 字段代码由小写改成大写 
' 表名由小写改成大写 
'***************************************************************************** 
sub ProcessTable(table) 
dim col 
for each col in table.Columns 
'将字段名由小写改成大写 
col.code = UCase(col.code) 
col.name = UCase(col.name) 
col.dataType = UCase(col.dataType) 
if(col.dataType="bigint") then
col.dataType="INT8"
end if
if(col.dataType="BIGINT") then
col.dataType="INT8"
end if

next 
table.name = UCase(table.name) 
table.code = UCase(table.code) 
end sub