opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Support auto_increment flag on unique key columns, in copy table dialog. Fixes issue #3250.

Browse Source
This commit is contained in:
Ansgar Becker
2013-06-25 04:17:51 +00:00
parent 8e02fa9fee
commit d0491f5737
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/copytable.pas
View File

@@ -362,7 +362,7 @@ var
CreateCode, InsertCode, TargetTable, DataCols: String;
TableExistence: String;
ParentNode, Node: PVirtualNode;
DoData, AutoIncGetsPrimaryKey, AutoIncRemoved, TableHasAutoInc: Boolean;
DoData, AutoIncGetsKey, AutoIncRemoved, TableHasAutoInc: Boolean;
SelectedColumns: TTableColumnList;
SelectedKeys: TTableKeyList;
SelectedForeignKeys: TForeignKeyList;
@@ -422,16 +422,16 @@ begin
// Columns code. Remove auto_increment attribute if pkey was unchecked, to overcome
// "there can be only one auto column and it must be defined as a key"
for Column in SelectedColumns do begin
AutoIncGetsPrimaryKey := False;
AutoIncGetsKey := False;
AutoIncRemoved := False;
if Column.DefaultType = cdtAutoInc then begin
for Key in SelectedKeys do begin
if (Key.IndexType = PKEY) and (Key.Columns.IndexOf(Column.Name) > -1) then begin
AutoIncGetsPrimaryKey := True;
if ((Key.IndexType = PKEY) or (Key.IndexType = UKEY)) and (Key.Columns.IndexOf(Column.Name) > -1) then begin
AutoIncGetsKey := True;
Break;
end;
end;
if not AutoIncGetsPrimaryKey then begin
if not AutoIncGetsKey then begin
Column.DefaultType := cdtNothing;
AutoIncRemoved := True;
end;