PowerDesigner11中批量根据对象的name生成comment的脚本
来源:互联网 发布:佩特里雾化器最佳数据 编辑:程序博客网 时间:2024/05/21 13:15
主 题: PowerDesigner11中批量根据对象的name生成comment的脚本 信 誉 值: 100 所属论坛: 软件工程/管理 Power Designer 问题点数: 0 回复次数: 0 发表时间: 2006-4-3 13:13:02
'******************************************************************************
'* File: name2comment.vbs
'* Purpose: Database generation cannot use object names anymore
' in version 7 and above.
' It always uses the object codes.
'
' In case the object codes are not aligned with your
' object names in your model, this script will copy
' the object Name onto the object comment for
' the Tables and Columns.
'
'* Title: 把对象name拷入comment属性中
'* Version: 1.0
'* Author:wangnc
'* 执行方法:PD11 -- Open PDM -- Tools -- Execute Commands -- Run Script
'******************************************************************************
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
'******************************************************************************
'* File: name2comment.vbs
'* Purpose: Database generation cannot use object names anymore
' in version 7 and above.
' It always uses the object codes.
'
' In case the object codes are not aligned with your
' object names in your model, this script will copy
' the object Name onto the object comment for
' the Tables and Columns.
'
'* Title: 把对象name拷入comment属性中
'* Version: 1.0
'* Author:wangnc
'* 执行方法:PD11 -- Open PDM -- Tools -- Execute Commands -- Run Script
'******************************************************************************
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
- PowerDesigner11中批量根据对象的name生成comment的脚本
- PowerDesigner11中批量根据对象的name生成comment的脚本
- PowerDesigner11中批量根据对象的name生成comment的脚本
- PowerDesigner11中批量根据对象的name生成comment的脚本
- PowerDesigner11中批量根据对象的name生成comment的脚本
- PowerDesigner中批量根据对象的name生成comment的脚本(转)
- PowerDesigner中批量根据对象的name生成comment的脚本
- powerdesignerz中批量根据对象的name生成comment的脚本
- PowerDesigner 中 根据对象的name和comment 生成注释的办法
- PowerDesigner中显示name, code,comment的解决方法 修正脚本,执行不会重复添加comment
- PowerDesigner,根据name自动生成commnet的脚本
- PowerDesigner,根据name自动生成commnet的脚本
- PowerDesigner,根据name自动生成commnet的脚本
- PowerDesigner,根据name自动生成commnet的脚本
- PowerDesigner中逆向工程将数据库中comment脚本赋值到PDM的name
- powerdesigner中name自动转换到comment和comment2name的vbs脚本
- 将PowerDesigner中列的name生成到注释comment中去.vbs
- excel中批量生成图表的脚本
- 好难坚持
- 每一次都要进步
- 有事进来说
- TCL/EXPECT自动化测试脚本实例四 --- 批命令执行
- CST(Crypto Systems Toolkit) 7.1学习笔记-chapter6
- PowerDesigner11中批量根据对象的name生成comment的脚本
- 采用Cardinal法构造插枝分段三次样条曲线 : 代码篇
- CSDN 的服务器是怎么了?
- PCRE - Perl Compatible Regular Expressions
- Linux操作系统三则超酷技巧
- TCL/EXPECT自动化测试脚本实例五 --- 由文件中读取一行
- 股票投资入门
- Delphi 's news-DevCo Name Rush
- blog开张