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

Fix issue #1132: Error on Create Table in the Table Editor

Browse Source
This commit is contained in:
Ansgar Becker
2009-05-16 06:00:12 +00:00
parent 5209995eed
commit ea71eb13f9
2 changed files with 21 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
source/grideditlinks.pas
View File

@ -181,6 +181,10 @@ type
procedure SetBounds(R: TRect); virtual; stdcall;
end;
function GetColumnDefaultType(var Text: WideString): TColumnDefaultType;
implementation
@ -1199,4 +1203,11 @@ begin
end;
function GetColumnDefaultType(var Text: WideString): TColumnDefaultType;
begin
Result := TColumnDefaultType(MakeInt(Copy(Text, 1, 1)));
Text := Copy(Text, 2, Length(Text)-1);
end;
end.

19
source/table_editor.pas
View File

@ -384,7 +384,7 @@ end;
function TfrmTableEditor.ComposeAlterStatement: WideString;
var
Specs, Props, IndexesComposed, OldIndexesComposed: TWideStringlist;
ColSpec, IndexSQL: WideString;
ColSpec, IndexSQL, DefaultText: WideString;
i, j: Integer;
AddIt, DropIt: Boolean;
dt: TMySQLDataTypeRecord;
@ -430,9 +430,10 @@ begin
ColSpec := ColSpec + ' NOT';
ColSpec := ColSpec + ' NULL';
if Props[4] <> '' then begin
DefaultType := TColumnDefaultType(MakeInt(Copy(Props[4], 1, 1)));
DefaultText := Props[4];
DefaultType := GetColumnDefaultType(DefaultText);
case DefaultType of
cdtText: ColSpec := ColSpec + ' DEFAULT '+esc(Copy(Props[4], 2, Length(Props[4])-1));
cdtText: ColSpec := ColSpec + ' DEFAULT '+esc(DefaultText);
cdtNull: ColSpec := ColSpec + ' DEFAULT NULL';
cdtCurTS: ColSpec := ColSpec + ' DEFAULT CURRENT_TIMESTAMP';
cdtAutoInc: ColSpec := ColSpec + ' AUTO_INCREMENT';
@ -502,6 +503,7 @@ var
ColProps: TWideStringlist;
dt: TMySQLDataTypeRecord;
DefaultType: TColumnDefaultType;
DefaultText: WideString;
begin
// Compose CREATE query, called by buttons and for SQL code tab
Result := 'CREATE TABLE '+Mainform.mask(editName.Text)+' ('+CRLF;
@ -516,12 +518,11 @@ begin
if not StrToBool(ColProps[3]) then
Result := Result + ' NOT';
Result := Result + ' NULL';
if ColProps[4] <> '' then
Result := Result + ' DEFAULT '+esc(ColProps[4]);
if ColProps[4] <> '' then begin
DefaultType := TColumnDefaultType(MakeInt(Copy(ColProps[4], 1, 1)));
DefaultText := ColProps[4];
DefaultType := GetColumnDefaultType(DefaultText);
case DefaultType of
cdtText: Result := Result + ' DEFAULT '+esc(Copy(ColProps[4], 2, Length(ColProps[4])-1));
cdtText: Result := Result + ' DEFAULT '+esc(DefaultText);
cdtNull: Result := Result + ' DEFAULT NULL';
cdtCurTS: Result := Result + ' DEFAULT CURRENT_TIMESTAMP';
cdtAutoInc: Result := Result + ' AUTO_INCREMENT';
@ -945,8 +946,8 @@ begin
6: begin
DefaultEditor := TColumnDefaultEditorLink.Create;
Props := TWideStringlist(Columns.Objects[Node.Index]);
DefaultEditor.DefaultType := TColumnDefaultType(MakeInt(Copy(Props[Column-2], 0, 1)));
DefaultEditor.DefaultText := Copy(Props[Column-2], 2, Length(Props[Column-2])-1);
DefaultEditor.DefaultText := Props[Column-2];
DefaultEditor.DefaultType := GetColumnDefaultType(DefaultEditor.DefaultText);
EditLink := DefaultEditor;
end
else