From 2d8633ffcf96df1a515861c76367656caa44e21d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sun, 9 May 2010 10:04:42 +0000
Subject: [PATCH] Enhance auto generation of foreign key names, after user
 selected the same reference table as in another key, a counter is appended
 (FK_tbl_rfr_2, FK_tbl_rfr_3, ...). Fixes issue #1894.

---
 source/table_editor.pas | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/source/table_editor.pas b/source/table_editor.pas
index 70faa078..a23e5ad4 100644
--- a/source/table_editor.pas
+++ b/source/table_editor.pas
@@ -2110,7 +2110,9 @@ end;
 procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
   Node: PVirtualNode; Column: TColumnIndex; NewText: String);
 var
-  Key: TForeignKey;
+  Key, OtherKey: TForeignKey;
+  i: Integer;
+  NameInUse: Boolean;
 begin
   // Cell text in foreign key list edited
   Key := FForeignKeys[Node.Index];
@@ -2124,8 +2126,22 @@ begin
     1: Key.Columns := Explode(',', NewText);
     2: begin
       Key.ReferenceTable := NewText;
-      if not Key.KeyNameWasCustomized then
+      if not Key.KeyNameWasCustomized then begin
         Key.KeyName := 'FK_'+DBObject.Name+'_'+Key.ReferenceTable;
+        i := 1;
+        NameInUse := True;
+        while NameInUse do begin
+          for OtherKey in FForeignKeys do begin
+            NameInUse := (Key <> OtherKey) and (Key.KeyName = OtherKey.KeyName);
+            if NameInUse then break;
+          end;
+          if NameInUse then begin
+            Inc(i);
+            Key.KeyName := 'FK_'+DBObject.Name+'_'+Key.ReferenceTable+'_'+IntToStr(i);
+          end;
+        end;
+
+      end;
     end;
     3: Key.ForeignColumns := Explode(',', NewText);
     4: Key.OnUpdate := NewText;