pdm mysql 自增_PowerDesigner - 自动为MySQL的PDM生成Indenty的脚本

'*****************************************************************************

dim model 'current model

set model = ActiveModel

If (model Is Nothing) Then

MsgBox "There is no current Model"

ElseIf Not model.IsKindOf(PdPDM.cls_Model) Then

MsgBox "The current model is not an Physical Data model."

Else

ProcessTables model

End If

'*****************************************************************************

'*****************************************************************************

sub ProcessTables(folder)

dim table

for each table in folder.tables

if not table.IsShortCut then

ProcessTable table

end if

next

dim subFolder

for each subFolder in folder.Packages

ProcessTables subFolder

next

end sub

'*****************************************************************************

'*****************************************************************************

sub ProcessTable(table)

dim col

for each col in table.Columns

if col.Primary and not col.ForeignKey then

col.Identity = true

end if

next

end sub