PowerDesigner批量修改主键、外键名称

PowerDesigner批量修改主键、外键名称

使用方式：

打开需要操作的pdm,然后按快捷键：ctrl + shift +x

拷贝以下代码，点击Run(F5), 开始递归目录，稍等片刻弹出提示及完成操作。

命名格式：

主键：PK_TableName

外键：FK_TableName_ForeignKeyTableName

 

'******************************************************************************
'* File:     Rename_PK_AND_FK.vbs
'* Purpose:  重命名PK和FK ，ctrl+shift+x 粘贴代码点击运行
'* Title:    
'* Category: 
'* Version:  1.0
'* Company:  Sybase Inc. 
'******************************************************************************
 
Option Explicit
 
 

'
' get the current active model
'
Dim mdl ' the current model
Set mdl = ActiveModel
If (mdl Is Nothing) Then
   MsgBox "There is no Active Model"
End If
Dim fldr
Set Fldr = ActiveDiagram.Parent


ListObjects(fldr)
MsgBox "处理完成，请在PDM中查看"

 
Private Sub ListObjects(fldr)
   Dim tab ' running object
   For Each tab In fldr.tables
     output "Found "+tab.ClassName+" "+tab.Name
     '处理主键
      dim ky
      for each ky in tab.Keys
            if ky.primary =true then
               ky.Name="PK_"+tab.Code
               ky.Code=ky.Name
               ky.ConstraintName=ky.Name
               'ky.Clustered=true
            end if
      next
   Next
   
    '处理外键
   dim ref
   for each ref in fldr.references
      output "FK "+ref.ClassName+" "+ref.Name
      ref.name="FK_"+ref.ChildTable.Code +"_"+ ref.ParentTable.Code
      ref.Code=ref.Name
      ref.ForeignKeyConstraintName=ref.name
   next

   
End Sub