PDM修改字段及說明

PDM（Product Data Managment）通常用來管理數據庫，表結構

還可以快捷的導入數據庫的數據

那麼導入進來的字段全是大寫，這樣看有的人會不習慣，那麼以下方法就是爲這些人羣提供的哦：

 

在菜單欄找到：Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X調出腳本執行窗口

輸入以下語句（根據實際情況可做相應調整）

直接執行如下語句

UCase大寫 LCase小寫
=========================================================================================
Option Explicit
ValidationMode = True
InteractiveMode = im_Batch

Dim mdl ' the current model

' 取得當前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 sub ProcessFolder(folder)
'處理表
Dim Tab
for each Tab in folder.tables
tab.code = LCase(tab.code)
'修改字段名
Dim col
for each col in tab.columns
col.code= LCase(col.code)
next
'修改索引名
Dim idx
for each idx in tab.indexes
idx.code= LCase(idx.code)
next
'修改主鍵名
Dim key
for each key in tab.keys
key.code= LCase(key.code)
next
next

' 同理處理視圖
' Dim view
' for each view in folder.Views
' if not view.isShortcut then
' view.code = view.name
' end if
' next

' go into the sub-packages
Dim f ' running folder
For Each f In folder.Packages
if not f.IsShortcut then
ProcessFolder f
end if
Next
end sub

=========================================================

將說明字段賦值到name字段列

在菜單欄找到：Tools – Excute Commands – Edit/Run Script，或者直接按Ctrl+Shift+X調出腳本執行窗口

直接執行如下語句

把comment賦值到name 中

https://blog.csdn.net/weixin_33709364/article/details/92571068
===========================================================================================
Option   Explicit ValidationMode = True InteractiveMode = im_Batch Dim mdl  'the current model '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   sub   ProcessFolder(folder) On Error Resume Next       Dim   Tab   'running     table       for   each   Tab   in   folder.tables             if   not   tab.isShortcut   then                   tab.name   =   tab.comment                   Dim col 'running   column                   for each col in tab.columns                   if col.comment="" then                   else                         col.name=   col.comment                   end if                   next             end if       next       Dim  view 'running view       for each view in folder.Views             if not view.isShortcut  then                   view.name = view.comment             end if       next       'go into the sub-packages       Dim f ' running folder       For   Each f In folder.Packages             if  not f.IsShortcut   then                   ProcessFolder f             end if       Next end sub