Table designer: Do not allow an empty length/set for data types which require one. See http://stackoverflow.com/questions/34315162/how-to-create-table-in-mariadb

This commit is contained in:
Ansgar Becker
2015-12-20 11:03:15 +00:00
parent ae206eec29
commit 3729f290f1
2 changed files with 17 additions and 5 deletions

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: 2015-12-16 19:21+0100\n"
"PO-Revision-Date: 2015-12-20 12:02+0100\n"
"Last-Translator: Ansgar Becker <anse@heidisql.com>\n"
"Language-Team: English (http://www.transifex.com/projects/p/heidisql/"
"language/en/)\n"
@@ -6183,3 +6183,6 @@ msgstr "Upper Case Block"
msgid "Lower Case Block"
msgstr "Lower Case Block"
msgid "Column data type %s requires a length/set"
msgstr "Column data type %s requires a length/set"

View File

@@ -1175,9 +1175,11 @@ var
i: Integer;
Col: PTableColumn;
Key: TTableKey;
WasModified: Boolean;
begin
// Column property edited
Col := Sender.GetNodeData(Node);
WasModified := True;
case Column of
1: begin // Name of column
for i:=0 to FColumns.Count-1 do begin
@@ -1227,8 +1229,13 @@ begin
end; // Length / Set
3: begin
Col.LengthSet := NewText;
Col.LengthCustomized := True;
if Col.DataType.RequiresLength and (NewText='') then begin
WasModified := False;
ErrorDialog(f_('Column data type %s requires a length/set', [Col.DataType.Name]));
end else begin
Col.LengthSet := NewText;
Col.LengthCustomized := True;
end;
end;
// 4 + 5 are checkboxes - handled in OnClick
7: begin // Default value
@@ -1242,8 +1249,10 @@ begin
10: Col.Expression := NewText;
11: Col.Virtuality := NewText;
end;
Col.Status := esModified;
Modification(Sender);
if WasModified then begin
Col.Status := esModified;
Modification(Sender);
end;
end;