PowerDesigner – 自動為MySQL的PDM產生Indenty的指令碼

'*****************************************************************************dim model 'current modelset model = ActiveModelIf (model Is Nothing) ThenMsgBox "There is no current Model"ElseIf Not model.IsKindOf(PdPDM.cls_Model) ThenMsgBox "The current model is not an Physical Data model."ElseProcessTables modelEnd If'*****************************************************************************'*****************************************************************************sub ProcessTables(folder)dim tablefor each table in folder.tablesif not table.IsShortCut thenProcessTable tableend ifnextdim subFolderfor each subFolder in folder.PackagesProcessTables subFoldernextend sub'*****************************************************************************'*****************************************************************************sub ProcessTable(table)dim colfor each col in table.Columnsif col.Primary and not col.ForeignKey thencol.Identity = trueend ifnextend sub