Description
Generate FK Constraint Names when GenerateNames is TRUE. If SupplyNames is TRUE, then unnamed FK are given unique names. PARAMETERS: GenerateNames (Boolean), SupplyNames (Boolean).
Syntax
| Code Block |
|---|
|
Public Sub GenerateFKConstraintNames( _
ByVal GenerateNames As Variant, _
ByVal SupplyNames As Variant _
) |
Parameters
Example
| Code Block |
|---|
|
Sub Main
Dim d As Diagram
Dim m As Model
Dim ddl As DDLGeneration
Set d = DiagramManager.ActiveDiagram
Set m = d.ActiveModel
Set ddl = m.DDLGenerationObject
ddl.GenerateAllEntities = True
ddl.EnhGenerateFKConstraints(1, True)
ddl.GenerateFKConstraintNames(True, True)
ddl.GenerateDDL
End Sub |