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

最后

以上就是敏感八宝粥为你收集整理的PowerDesigner批量修改主键、外键名称PowerDesigner批量修改主键、外键名称的全部内容，希望文章能够帮你解决PowerDesigner批量修改主键、外键名称PowerDesigner批量修改主键、外键名称所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。