Powerdesigner使用记录

最新推荐文章于 2021-12-23 09:21:13 发布

原创

最新推荐文章于 2021-12-23 09:21:13 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

本文记录了如何在PowerDesigner中批量将表字段名称从小写转换为大写，以及如何在生成建表SQL时同时包含字段注释，是数据库设计者和管理员的实用技巧指南。

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

批量将PowerDesigner中表字段由小写变成大写

'*****************************************************************************
 '文件：powerdesigner.ucase.VBs
 '版本：1.0
 '功能：遍历物理模型中的所有表，将表名、表代码、字段名、字段代码全部由小写改成大写；
 ' 并将序列的名和代码由小写改成大写。
 '用法：打开物理模型，运行本脚本（Ctrl+Shift+X）
 '备注：UCase-小转大写  LCase-大转小写
 '*****************************************************************************
 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
'*************