PowerDesigner表名、列名大小写转换

最新推荐文章于 2024-03-11 09:35:27 发布

天机浮现

最新推荐文章于 2024-03-11 09:35:27 发布

阅读量2.1k

点赞数 1

分类专栏：建模

建模专栏收录该内容

2 篇文章

订阅专栏

本文介绍两种在PowerDesigner中进行表名及字段名大小写转换的方法：一是利用软件内置的功能直接进行转换；二是通过编写VBS脚本来实现自动化转换。这两种方法均能有效地帮助用户调整数据库模型中的命名规范。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

来自开源中国:https://my.oschina.net/chwencong/blog/52650

PowerDesigner表名、列名大小写转换

车水码农

发表于 5年前
阅读 1896
收藏 2
点赞 1
评论 0

方法一：不编写vbs
PowerDesigner大小写转换，不用写vbscript，直接利用软件提供的功能即可完成转换，只需要选择
转换表名：菜单——Tools\Model Options...\Naming Convertion\Table下
转换字段：菜单——Tools\Model Options...\Naming convertion\Column下

方法二：编写vbs
在PowerDesigner中PowerDesigner->Tools->Execute Commands->Edit/Run Scripts（Ctrl Shift X），然后将下面的脚本粘贴进去，并运行，即可。

'大小写转换，目标为大写
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 = UCase(tab.code)
   '修改字段名
   Dim col
   for each col in tab.columns
    col.code= UCase(col.code)
   next
   '修改索引名
   Dim idx
   for each idx in tab.indexes
    idx.code= UCase(idx.code)
   next
   '修改主键名
   Dim key
   for each key in tab.keys
    key.code= UCase(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