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

Auto-fix user selected, non working default value/type when data type has changed. Fixes issue #1411.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-17 07:43:14 +00:00
parent ec1da49440
commit 5c29403c7b
1 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
source/table_editor.pas
View File

@ -1093,9 +1093,9 @@ begin
// Column property edited
Col := Sender.GetNodeData(Node);
case Column of
1: begin
1: begin // Name of column
for i:=0 to FColumns.Count-1 do begin
if TTableColumn(FColumns[i]).Name = NewText then begin
if FColumns[i].Name = NewText then begin
MessageDlg('Column "'+NewText+'" already exists.', mtError, [mbOk], 0);
Exit;
end;
@ -1103,7 +1103,7 @@ begin
Col.OldName := Col.Name;
Col.Name := NewText;
end;
2: begin
2: begin // Data type
Col.DataType := GetDatatypeByName(NewText);
// Reset length/set for column types which don't support that
if not Col.DataType.HasLength then
@ -1111,10 +1111,32 @@ begin
// Suggest length/set if required
if Col.DataType.RequiresLength and (Col.LengthSet = '') then
Col.LengthSet := Col.DataType.DefLengthSet;
end;
// Auto-fix user selected default type which can be invalid now
case Col.DataType.Category of
dtcInteger, dtcReal: begin
if Col.DefaultType in [cdtCurTS, cdtCurTSUpdateTS] then
Col.DefaultType := cdtNothing;
if Col.DefaultType = cdtTextUpdateTS then
Col.DefaultType := cdtText;
if Col.DefaultType = cdtNullUpdateTS then
Col.DefaultType := cdtNull;
end;
dtcText, dtcIntegerNamed, dtcBinary, dtcSpatial, dtcSet, dtcSetNamed: begin
if Col.DefaultType in [cdtCurTS, cdtCurTSUpdateTS, cdtAutoInc] then
Col.DefaultType := cdtNothing;
if Col.DefaultType = cdtNullUpdateTS then
Col.DefaultType := cdtNull;
end;
dtcTemporal: begin
if Col.DefaultType = cdtAutoinc then
Col.DefaultType := cdtNothing;
end;
end;
end; // Length / Set
3: Col.LengthSet := NewText;
// 4 + 5 are checkboxes - handled in OnClick
6: begin
6: begin // Default value
Col.DefaultText := NewText;
Col.DefaultType := GetColumnDefaultType(Col.DefaultText);
end;