在PowerDesigner中按Ctrl Shift X,然后将下面的脚本粘贴进去,并运行,就可以 将列的name生成到注释comment中去 [vb] view plaincopy Option Explicit ValidationMode= True InteractiveMode=im_Batch Dim mdl 'thecurrentmodel 'getthecurrentactivemodel
在PowerDesigner中按Ctrl + Shift + X,然后将下面的脚本粘贴进去,并运行,就可以
将列的name生成到注释comment中去
[vb] view
plaincopy
-
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
-
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
显示注释操作:
选择那个表,右键->Properties->Columns->Customize Columns and Filter(或直接用快捷键Ctrl+U)->Comment(前面打勾)->OK
Stellungnahme:Der Inhalt dieses Artikels wird freiwillig von Internetnutzern beigesteuert und das Urheberrecht liegt beim ursprünglichen Autor. Diese Website übernimmt keine entsprechende rechtliche Verantwortung. Wenn Sie Inhalte finden, bei denen der Verdacht eines Plagiats oder einer Rechtsverletzung besteht, wenden Sie sich bitte an admin@php.cn