Come usare VBScript in Powerdesigner?

Question

In Powerdesign vorrebbe creare un VBscript per rinominare / riformare i seguenti nomi in powerdesigner: modello concettuale o fisico

Nome chiave univoco / alternativo:

  

    

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

  

Nome relazione:

  

    

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

  

Il problema è, come posso ottenere il " table_column_name " e " reference_column_name " ;?

Answer 1

Ecco qualcosa che ho usato per rinominare i nomi "amichevoli", oltre ai nomi dei vincoli di tutti i miei riferimenti. Forse ti aiuterà.

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