pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix: Date/Time, restore old value.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2059 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-10-03 08:23:50 +00:00
parent 9391552baa
commit 4080716092
1 changed files with 46 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

85
components/jujiboutils/src/jdbgridutils.pas
View File

@ -286,7 +286,6 @@ end;
procedure TJDbGridDateTimeCtrl.myEditOnEditingDone(Sender: TObject);
begin
CellEditor.Caption := NormalizeDateTime(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then
begin
if edited then
@ -300,21 +299,25 @@ begin
end;
end
else
if IsValidDateTimeString(CellEditor.Caption) then
begin
if edited and (not updated) then
CellEditor.Caption := NormalizeDateTime(CellEditor.Caption, theValue);
if IsValidDateTimeString(CellEditor.Caption) then
begin
Field.DataSet.DisableControls;
theValue := StrToDateTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
Field.DataSet.EnableControls;
if edited and (not updated) then
begin
Field.DataSet.DisableControls;
theValue := StrToDateTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
Field.DataSet.EnableControls;
end;
end
else
begin
ShowMessage(Format(SInvalidDateTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end
else
begin
ShowMessage(Format(SInvalidDateTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue);
end;
end;
@ -446,7 +449,6 @@ end;
procedure TJDbGridTimeCtrl.myEditOnEditingDone(Sender: TObject);
begin
CellEditor.Caption := NormalizeTime(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then
begin
if edited then
@ -460,21 +462,24 @@ begin
end;
end
else
if IsValidTimeString(CellEditor.Caption) then
begin
if edited and (not updated) then
CellEditor.Caption := NormalizeTime(CellEditor.Caption, theValue);
if IsValidTimeString(CellEditor.Caption) then
begin
Field.DataSet.DisableControls;
theValue := StrToTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
Field.DataSet.EnableControls;
if edited and (not updated) then
begin
Field.DataSet.DisableControls;
theValue := StrToTime(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
Field.DataSet.EnableControls;
end;
end
else
begin
ShowMessage(Format(SInvalidTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end
else
begin
ShowMessage(Format(SInvalidTime, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue);
end;
end;
@ -605,7 +610,6 @@ end;
procedure TJDbGridDateCtrl.myEditOnEditingDone(Sender: TObject);
begin
CellEditor.Caption := NormalizeDate(CellEditor.Caption, theValue);
if Length(CellEditor.Caption) = 0 then
begin
if edited then
@ -619,21 +623,24 @@ begin
end;
end
else
if IsValidDateString(CellEditor.Caption) then
begin
if edited and (not updated) then
CellEditor.Caption := NormalizeDate(CellEditor.Caption, theValue);
if IsValidDateString(CellEditor.Caption) then
begin
Field.DataSet.DisableControls;
theValue := StrToDate(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
field.DataSet.EnableControls;
if edited and (not updated) then
begin
Field.DataSet.DisableControls;
theValue := StrToDate(CellEditor.Caption);
Field.DataSet.Edit;
Field.AsDateTime := theValue;
field.DataSet.EnableControls;
end;
end
else
begin
ShowMessage(Format(SInvalidDate, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, Field.AsDateTime);
end;
end
else
begin
ShowMessage(Format(SInvalidDate, [CellEditor.Caption]));
CellEditor.Text := FormatDateTime(DisplayFormat, theValue);
end;
//formatInput;
end;