原文：https://www.cnblogs.com/zhzhang/p/3946609.html

【轉(zhuǎn)】PowerDesigner表結(jié)構(gòu)和字段大小寫轉(zhuǎn)換

【轉(zhuǎn)自】http://blog.csdn.net/xysh1991/article/details/8016192

使用方法：進(jìn)入PowerDesigner，打開一個(gè)PDM，在菜單欄找到：Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X調(diào)出腳本執(zhí)行窗口，輸入下邊的代碼就可以了。

下面提供段代碼可以把PowerDesigner中的小寫字母變?yōu)榇髮懽帜浮?
代碼如下：?
Option Explicit??
ValidationMode = True??
InteractiveMode = im_Batch??
Dim mdl ' 當(dāng)前模型??
' 獲取當(dāng)前模型??
Set mdl = ActiveModel??
If (mdl Is Nothing) Then??
?? MsgBox "沒有打開一個(gè)模型"?
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then??
?? MsgBox "當(dāng)前模型不是一個(gè)PDM"?
Else??
'調(diào)用處理程序??
?? ProcessFolder mdl??
End If????
'調(diào)用的處理程序??
Private sub ProcessFolder(folder)??
?? Dim Tab '要處理的表??
?? for each Tab in folder.Tables??
??? ' if not Tab.isShortcut then??
??????? ' Tab.code = tab.name??
??????? '表名處理，前邊添加前綴，字母小寫??
??????? Tab.name=??UCase(Tab.name)??
??????? Tab.code=?UCase(Tab.code)??
???????? Dim col ' 要處理的列??
???????? for each col in Tab.columns??
??????????? '列名稱和code全部小寫，大寫詩UCase??
??????????? col.code=?UCase(col.code)??
??????????? col.name=?UCase(col.name)??
???????? next??
????? 'end if?
?? next????
' 處理視圖??
'? Dim view 'running view??
'?? for each view in folder.Views??
?? '?? if not view.isShortcut then??
?????? '? view.code = view.name??
??? '? end if?
? ' next?????
?? ' 遞歸進(jìn)入 sub-packages??
?? Dim f ' sub? folder??
?? For Each f In folder.Packages??
????? if not f.IsShortcut then??
???????? ProcessFolder f??
????? end if?
?? Next??
end sub?

=================================================================================================
下面提供段代碼可以把PowerDesigner中的大寫字母變?yōu)樾懽帜浮?
代碼如下：?
Option Explicit??
ValidationMode = True??
InteractiveMode = im_Batch??
Dim mdl ' 當(dāng)前模型??
' 獲取當(dāng)前模型??
Set mdl = ActiveModel??
If (mdl Is Nothing) Then??
?? MsgBox "沒有打開一個(gè)模型"?
ElseIf Not mdl.IsKindOf(PdPDM.cls_Model) Then??
?? MsgBox "當(dāng)前模型不是一個(gè)PDM"?
Else??
'調(diào)用處理程序??
?? ProcessFolder mdl??
End If????
'調(diào)用的處理程序??
Private sub ProcessFolder(folder)??
?? Dim Tab '要處理的表??
?? for each Tab in folder.Tables??
??? ' if not Tab.isShortcut then??
??????? ' Tab.code = tab.name??
??????? '表名處理，前邊添加前綴，字母小寫??
??????? Tab.name= ?LCase(Tab.name)??
??????? Tab.code=?LCase(Tab.code)??
???????? Dim col ' 要處理的列??
???????? for each col in Tab.columns??
??????????? '列名稱和code全部小寫，大寫詩UCase??
??????????? col.code=?LCase(col.code)??
??????????? col.name=?LCase(col.name)??
???????? next??
????? 'end if?
?? next????
' 處理視圖??
'? Dim view 'running view??
'?? for each view in folder.Views??
?? '?? if not view.isShortcut then??
?????? '? view.code = view.name??
??? '? end if?
? ' next?????
?? ' 遞歸進(jìn)入 sub-packages??
?? Dim f ' sub? folder??
?? For Each f In folder.Packages??
????? if not f.IsShortcut then??
???????? ProcessFolder f??
????? end if?
?? Next??
end sub?

?

【代碼可以就地執(zhí)行】

轉(zhuǎn)載于:https://www.cnblogs.com/TuiTuiTuiTui/p/10925922.html

總結(jié)

以上是生活随笔為你收集整理的PowerDesigner表结构和字段大小写转换的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。