PD设置name与comment的相互复制
2012-11-18 10:31
267 查看
前言:
前两天设计数据库的时候,只是给name写了说明,却没有加注释,于是找到了PD的name与comment相互复制的代码,跟大家分享一下
正题:
使用说明: 在【Tools】-【Execute Commands】-【Edit/Run Script】 下。输入下面你要选择的语句即可,也可以保存起来,以便下次使用,后缀为.vbs。
需要注意的问题是:运行语句时必须在Module模式下,如果是导出报表时执行会出现错误提示。
1.Name转到Comment注释字段。一般情况下只填写NAME,COMMENT可以运行语句自动生成。
将该语句保存为name2comment.vbs
代码
'把pd中的name想自动添加到comment里面
'如果comment为空,则填入name;如果不为空,则保留不变,这样可以避免已有的注释丢失.
2.将Comment内容保存到NAME中,comment2name.vbs 实习互换。语句为:
代码
转自:http://blog.csdn.net/longlong821/article/details/7758493
前两天设计数据库的时候,只是给name写了说明,却没有加注释,于是找到了PD的name与comment相互复制的代码,跟大家分享一下
正题:
使用说明: 在【Tools】-【Execute Commands】-【Edit/Run Script】 下。输入下面你要选择的语句即可,也可以保存起来,以便下次使用,后缀为.vbs。
需要注意的问题是:运行语句时必须在Module模式下,如果是导出报表时执行会出现错误提示。
1.Name转到Comment注释字段。一般情况下只填写NAME,COMMENT可以运行语句自动生成。
将该语句保存为name2comment.vbs
代码
'把pd中的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 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 if trim(tab.comment)="" then'如果有表的注释,则不改变它.如果没有表注释.则把name添加到注释里面. tab.comment = tab.name end if Dim col ' running column for each col in tab.columns if trim(col.comment)="" then '如果col的comment为空,则填入name,如果已有注释,则不添加;这样可以避免已有注释丢失. 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
2.将Comment内容保存到NAME中,comment2name.vbs 实习互换。语句为:
代码
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 Private 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 next Dim 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
转自:http://blog.csdn.net/longlong821/article/details/7758493
相关文章推荐
- PD设置name与comment的相互复制
- PowerDesigner comment与name相互复制
- PowerDesigner comment与name相互复制
- PD自动将 name 复制到 comment 的方法
- PD中将Comment 从Name复制值
- PowerDesigner 把Comment写到name中 和把name写到Comment中 pd7以后版本可用
- PowerDesigner 把Comment复制到name中和把name复制到Comment
- 利用VBA把PowerDesigner的name复制到comment
- PowerDesin把name复制到Comment,把Comment复制到Name
- 利用VBA把PowerDesigner的comment复制到name
- PowerDesigner 把name写到Comment中 pd7以后版本可用
- PowerDesigner 把Comment写到name中 和把name写到Comment中 pd7以后版本可用
- 使用PD进行数据模型设计时 使name和comment关联
- PowerDesigner Comment与name的相互装换
- pd中设置表时,如何禁止字段code随name变动
- PowerDesigner中name属性与comment属性相互转换
- 组策略 从入门到精通 (三) 关于站点之间策略的相互复制和相关设置
- 组策略 从入门到精通 (三) 关于站点之间策略的相互复制和相关设置
- PowerDesigner Comment和name相互转化
- PowerDesigner 把Comment复制到name中和把name复制到Comment