opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Ansgar Becker
2010-05-09 10:04:42 +00:00
parent 361580a03c
commit 2d8633ffcf
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
source/table_editor.pas
View File

@ -2110,7 +2110,9 @@ end;
procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree; procedure TfrmTableEditor.listForeignKeysNewText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; NewText: String); Node: PVirtualNode; Column: TColumnIndex; NewText: String);
var var
Key: TForeignKey; Key, OtherKey: TForeignKey;
i: Integer;
NameInUse: Boolean;
begin begin
// Cell text in foreign key list edited // Cell text in foreign key list edited
Key := FForeignKeys[Node.Index]; Key := FForeignKeys[Node.Index];
@ -2124,8 +2126,22 @@ begin
1: Key.Columns := Explode(',', NewText); 1: Key.Columns := Explode(',', NewText);
2: begin 2: begin
Key.ReferenceTable := NewText; Key.ReferenceTable := NewText;
if not Key.KeyNameWasCustomized then if not Key.KeyNameWasCustomized then begin
Key.KeyName := 'FK_'+DBObject.Name+'_'+Key.ReferenceTable; 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; end;
3: Key.ForeignColumns := Explode(',', NewText); 3: Key.ForeignColumns := Explode(',', NewText);
4: Key.OnUpdate := NewText; 4: Key.OnUpdate := NewText;