PowerDesigner16.5中使用Name生成Comment

PowerDesigner生成数据库脚本时,code转换为数据库中表名及字段,如果将将PDM中的name(一般为中文名称)转换为comment,则生成数据库备注栏显示name(中文名称),方便程序员的使用。将name转化为comment,可使用以下脚本批量完成

1、点击菜单栏Tools – Execute Commands – Run Script

 以下代码将Name中的内容替换对应的Comment,如果Comment已有内容,则不被Name替换

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  
  
'This routine copy name into code for each table, each column and each view  
'of the current folder  
Private sub ProcessFolder(folder)  
Dim Tab 'running table  
for each Tab in folder.tables  
if not tab.isShortcut then 
if trim(tab.comment)="" then
tab.comment = tab.name
end if  
Dim col 'running column  
for each col in tab.columns 
if trim(col.comment)="" then 
col.comment= col.name
end if  
next  
end if  
next  
  
Dim view 'running view  
for each view in folder.Views  
if not view.isShortcut and trim(view.comment)="" then  
view.comment = 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中的内容替换对应的Comment,原有的Comment内容也被Name替换

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  
  
'This routine copy name into code for each table, each column and each view  
'of the current folder  
Private sub ProcessFolder(folder)  
Dim Tab 'running table  
for each Tab in folder.tables  
if not tab.isShortcut then 
tab.comment = tab.name
Dim col 'running column  
for each col in tab.columns 
col.comment= col.name
next  
end if  
next  
  
Dim view 'running view  
for each view in folder.Views  
if not view.isShortcut then  
view.comment = 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

2、将上述代码粘贴至下图点击运行即可完成

  • 2
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
PowerDesigner 16.5 是一款流程建模工具,它可以用于设计和管理数据库、软件架构和业务流程等。以下是 PowerDesigner 16.5使用文档: 1. 安装和配置:安装 PowerDesigner 16.5 后,需要进行一些基本的配置,如设置数据库连接、配置模板等。 2. 创建模型:PowerDesigner 16.5 支持多种模型类型,如数据模型、UML 模型、业务流程模型等。用户可以根据需要选择不同的模型类型,并创建相应的模型。 3. 设计数据库PowerDesigner 16.5 提供了丰富的数据库设计功能,用户可以通过这些功能进行数据库建模、表设计、索引设计等操作。 4. 设计软件架构:PowerDesigner 16.5 支持 UML 模型和 Component 模型,用户可以使用这些模型进行软件架构设计,并进行类图、时序图等操作。 5. 设计业务流程:PowerDesigner 16.5 提供了业务流程建模功能,用户可以使用该功能进行流程设计、任务分配、流程优化等操作。 6. 生成代码:PowerDesigner 16.5 可以根据数据库模型或软件架构模型生成相应的代码,用户可以选择不同的代码生成方式,并进行代码优化、调试等操作。 7. 导出和分享:PowerDesigner 16.5 支持多种导出格式,如 PDF、HTML、XML 等,用户可以将模型导出为相应的格式,并进行分享和交流。 以上是 PowerDesigner 16.5 的主要使用文档,用户可以根据需要进行相应的操作。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值