3

Powerdesign で VBscript を作成して、powerdesigner の次の名前の名前を変更/変更したい - 概念モデルまたは物理モデル

代替/一意のキー名:

UQ {table_name} {tablecolumnname} /////// Example = UQ_Account_AccountNumber

関係名:

FK_{table_name}_{reference_table_name}_{reference_column_name} //////例= FK_Account_AccountPhone_HomePhoneID

問題は、「table_column_name」と「reference_column_name」を取得するにはどうすればよいですか?

4

1 に答える 1

2

これは、「わかりやすい」名前と、すべての参照の制約名の名前を変更するために使用したものです。多分それはあなたを助けるでしょう。

Option Explicit
ValidationMode  = True
InteractiveMode = im_Batch

Dim mdl 
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 a Physical Data model."
Else
   ProcessFolder mdl
End If

Private sub ProcessFolder(folder)
   Dim Tab, Key, Rel
   for each Rel in Folder.References
      Rel.ForeignKeyConstraintName = "FK_" + UCASE(Rel.ParentTable.Name) + "_" + UCASE(Rel.ParentKeyColumnList) + "_" + UCASE(Rel.ChildTable.Name) + "_" + UCASE(Rel.ForeignKeyColumnList)
      Rel.Name = "FK_" + UCASE(Rel.ParentTable.Name) + "_" + UCASE(Rel.ParentKeyColumnList) + "_" + UCASE(Rel.ChildTable.Name) + "_" + UCASE(Rel.ForeignKeyColumnList)
   next
end sub
于 2009-05-13T02:12:06.913 に答える