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

Support auto_increment flag on indexes other than primary or unique, on copy table dialog. If that still fails, give the user a hint to select the right index. See https://www.heidisql.com/forum.php?t=23383

Browse Source
This commit is contained in:
Ansgar Becker
2017-02-28 19:23:57 +00:00
parent eeda3228bf
commit d4b294f35a
2 changed files with 12 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
out/locale/en/LC_MESSAGES/default.po
View File

@ -7,7 +7,7 @@ msgid ""
msgstr ""
"Project-Id-Version: HeidiSQL\n"
"POT-Creation-Date: 2012-11-05 21:40\n"
"PO-Revision-Date: 2017-02-23 18:14+0100\n"
"PO-Revision-Date: 2017-02-28 20:21+0100\n"
"Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
"Language-Team: English (http://www.transifex.com/projects/p/heidisql/"
"language/en/)\n"
@ -520,6 +520,10 @@ msgstr "WHERE clause for data copying:"
msgid "Recent filters"
msgstr "Recent filters"
#. Copy table dialog
msgid "Please select the required index for the %s flag."
msgstr "Please select the required index for the %s flag."
#. CreateDatabaseForm..Caption
#: createdatabase.dfm:5 createdatabase.pas:92
msgid "Create database ..."

10
source/copytable.pas
View File

@ -358,7 +358,7 @@ end;
procedure TCopyTableForm.btnOKClick(Sender: TObject);
var
CreateCode, InsertCode, TargetTable, DataCols: String;
CreateCode, InsertCode, TargetTable, DataCols, Msg: String;
TableExistence: String;
ParentNode, Node: PVirtualNode;
DoData, AutoIncGetsKey, AutoIncRemoved, TableHasAutoInc: Boolean;
@ -425,7 +425,8 @@ begin
AutoIncRemoved := False;
if Column.DefaultType = cdtAutoInc then begin
for Key in SelectedKeys do begin
if ((Key.IndexType = PKEY) or (Key.IndexType = UKEY)) and (Key.Columns.IndexOf(Column.Name) > -1) then begin
// Don't check index type, MySQL allows auto-increment columns on nearly all indexes
if Key.Columns.IndexOf(Column.Name) > -1 then begin
AutoIncGetsKey := True;
Break;
end;
@ -494,7 +495,10 @@ begin
except
on E:EDatabaseError do begin
Screen.Cursor := crDefault;
ErrorDialog(E.Message);
Msg := E.Message;
if FConnection.LastErrorCode = 1075 then
Msg := Msg + CRLF + CRLF + f_('Please select the required index for the %s flag.', ['auto_increment']);
ErrorDialog(Msg);
ModalResult := mrNone;
end;
end;