Fixed: Update data only when required

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1992 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jujiboutils/jujibo-utils/src/jdbcurrencyedit.pas

@@ -387,6 +387,7 @@ end;
 procedure TJDBCurrencyEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdbdateedit.pas

@@ -345,6 +345,7 @@ end;
 procedure TJDBDateEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdbintegeredit.pas

@@ -344,6 +344,7 @@ end;
 procedure TJDBIntegerEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdblabeledcurrencyedit.pas

@@ -383,6 +383,7 @@ end;
 procedure TJDBLabeledCurrencyEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdblabeleddateedit.pas

@@ -350,6 +350,7 @@ end;
 procedure TJDBLabeledDateEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdblabelededit.pas

@@ -281,6 +281,7 @@ end;
 procedure TJDBLabeledEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdblabeledintegeredit.pas

@@ -340,6 +340,7 @@ end;
 procedure TJDBLabeledIntegerEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdblabeledtimeedit.pas

@@ -134,7 +134,6 @@ begin
     theValue := NormalizeTime(Text, FDataLink.Field.AsDateTime);
     if Text = '' then
     begin
-      Field.DataSet.Edit;
       Field.Value := Null;
     end
     else
@@ -318,6 +317,7 @@ end;
 procedure TJDBLabeledTimeEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;
 

components/jujiboutils/jujibo-utils/src/jdbtimeedit.pas

@@ -142,7 +142,6 @@ begin
     theValue := NormalizeTime(Text, FDataLink.Field.AsDateTime);
     if Text = '' then
     begin
-      Field.DataSet.Edit;
       Field.Value := Null;
     end
     else
@@ -325,6 +324,7 @@ end;
 procedure TJDBTimeEdit.EditingDone;
 begin
   inherited EditingDone;
+  if DataSource.State in [dsEdit, dsInsert] then
     UpdateData(self);
 end;