'*****************************************************************************
?'文件：powerdesigner.LCase.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 = LCase(sequence.name)
?sequence.code = LCase(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 = LCase(col.code)
?col.name = LCase(col.name)
?next?
table.name = LCase(table.name)
?table.code = LCase(table.code)
?end sub

總結

以上是生活随笔為你收集整理的pdm大写小写转换的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。