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

Fixed: Update data only when required

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1992 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2011-09-23 15:53:57 +00:00
parent 24c40f928d
commit 5e72832f78
9 changed files with 22 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/jujiboutils/jujibo-utils/src/jdbcurrencyedit.pas
View File

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

11
components/jujiboutils/jujibo-utils/src/jdbdateedit.pas
View File

@ -146,10 +146,10 @@ procedure TJDBDateEdit.DataChange(Sender: TObject);
begin begin
if FDataLink.Field <> nil then if FDataLink.Field <> nil then
begin begin
if not Focused then if not Focused then
formatInput formatInput
else else
Caption := FDataLink.Field.AsString; Caption := FDataLink.Field.AsString;
end end
else else
Text := ''; Text := '';
@ -345,7 +345,8 @@ end;
procedure TJDBDateEdit.EditingDone; procedure TJDBDateEdit.EditingDone;
begin begin
inherited EditingDone; inherited EditingDone;
UpdateData(self); if DataSource.State in [dsEdit, dsInsert] then
UpdateData(self);
end; end;
end. end.

3
components/jujiboutils/jujibo-utils/src/jdbintegeredit.pas
View File

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

3
components/jujiboutils/jujibo-utils/src/jdblabeledcurrencyedit.pas
View File

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

3
components/jujiboutils/jujibo-utils/src/jdblabeleddateedit.pas
View File

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

3
components/jujiboutils/jujibo-utils/src/jdblabelededit.pas
View File

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

3
components/jujiboutils/jujibo-utils/src/jdblabeledintegeredit.pas
View File

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

4
components/jujiboutils/jujibo-utils/src/jdblabeledtimeedit.pas
View File

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

4
components/jujiboutils/jujibo-utils/src/jdbtimeedit.pas
View File

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