PowerDesigner Name中的字符COPY至Comment
来源:互联网 发布:谈谈对大数据的理解 编辑:程序博客网 时间:2024/05/21 08:16
在使用PowerDesigner对数据库进行概念模型和物理模型设计时,一般在NAME或Comment中写中文,在Code中写英文。Name用来显 示,Code在代码中使用,但Comment中的文字会保存到数据库Table或Column的Comment中,当Name已经存在的时候,再写一次 Comment很麻烦,可以使用以下代码来解决这个问题:
- 代码一:将Name中的字符COPY至Comment中
Option Explicit
ValidationMode = True
InteractiveMode = im_BatchDim 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 comment 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
nextDim 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
--------------------------------------------
另外在使用REVERSE ENGINEER从数据库反向生成PDM的时候,PDM中的表的NAME和CODE事实上都是CODE,为了把NAME替换为数据库中Table或Column的中文Comment,可以使用以下脚本:
- 代码二:将Comment中的字符COPY至Name中
Option Explicit
ValidationMode = True
InteractiveMode = im_BatchDim 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 IfPrivate 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
nextDim 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
-----------------------------------------------------------------------
以上两段代码都是VB脚本,在PowerDesigner中使用方法为:
PowerDesigner->Tools->Execute Commands->Edit/Run Scripts
将代码Copy进去执行就可以了,是对整个CDM或PDM进行操作
- PowerDesigner Name中的字符COPY至Comment
- PowerDesigner 将Name中的字符COPY至为空的Comment中
- PowerDesigner 中Comment与name内容互换COPY
- PowerDesigner 赋值comment为name
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- 【转】PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner 中将Comment(注释)及Name(名称)内容互相COPY的VBS代码
- PowerDesigner Comment To Name & Name To Comment VBS
- PowerDesigner 同步Name到Comment 及 同步 Comment 到Name
- PowerDesigner Comment写到name 和name写到Comment
- PowerDesigner 同步Name到Comment 及 同步 Comment 到Name
- POWERDESIGNER NAME to COMMENT and COMMENT to NAME
- PowerDesigner 同步Name到Comment 及 同步 Comment 到Name
- powerdesigner comment 写到 name 和 name 写到 comment
- ext.reg干什么的
- 分享个爱奇艺、优酷vip帐号,看电影无广告
- 深度学习-LeCun、Bengio和Hinton的联合综述(下)
- 打印机驱动装上了,却无法正常打印的问题解决方法
- android gps驱动 可见/已连接卫星支持北斗
- PowerDesigner Name中的字符COPY至Comment
- Facebook是如何收集其Android应用性能数据的
- CREATE TRIGGER [dbo].[tr_delete] INSTEAD OF DELETE
- 数据结构与算法系列----单源最短路径(Dijkstra算法&Bellman_Ford算法)
- c++时间函数
- ExtJs:xtype的含义
- 【leetcode】【59】Spiral Matrix II
- 【Irrlicht鬼火引擎】 认识鬼火引擎
- [memory]虚拟地址空间分布