本篇文章主要介绍了"PowerDesigner中显示name, code,comment的解决方法 修正脚本,执行不会重复添加comment",主要涉及到方面的内容,对于其他数据库感兴趣的同学可以参考一下:
Option Explicit ValidationMode = TrueInteractiveMode = im_Batch Dim...
- Option Explicit
- ValidationMode = True
- InteractiveMode = im_Batch
- Dim mdl ' the current model
- ' get the current active model
- Set mdl = ActiveModel
- If (mdl IsNothing) Then
- MsgBox "There is no current Model "
- ElseIfNot mdl.IsKindOf(PdPDM.cls_Model) Then
- MsgBox "The current model is not an Physical Data model. "
- Else
- ProcessFolder mdl
- EndIf
- Private sub ProcessFolder(folder)
- OnErrorResumeNext
- 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<>"" and instr( col.name,"*")=0 then
- col.name= 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
- if view.comment<>"" and instr( view.name,"*")=0 then
- view.name = view.name & " * " & view.comment
- end if
- end if
- next
- ' go into the sub-packages
- Dim f ' running folder
- ForEach f In folder.Packages
- if not f.IsShortcut then
- ProcessFolder f
- end if
- Next
- end sub
在PD上按下:Ctr+shift + X 后,把以上VBS脚本,复制到上面运行。经改良后不会,执行多次不会重复添加描述。
转:http://blog.csdn.net/jockey/article/details/44682855
以上就介绍了PowerDesigner中显示name, code,comment的解决方法 修正脚本,执行不会重复添加comment,包括了方面的内容,希望对其他数据库有兴趣的朋友有所帮助。
本文网址链接:http://www.codes51.com/article/detail_460888.html