Question:
How do I use TUpdateSQLProvider.OnUpdateRecord?
Answer:
In the UpdateRecord event, if UpdateKind is ukModify then
there are 2 records that designate the important values.
The first record contains old values, the second contains
new values. In the event, the cursor will start on the
second record.
The following example forces a field called Test to
UpperCase.
procedure TForm1.UpdateSQLProvider1UpdateRecord(DataSet:
TClientDataSet; UpdateKind: TUpdateKind;
UpdateQuery: TQuery; var Applied: Boolean);
begin
with DataSet do
begin
if (UpdateKind in [ukModify, ukInsert]) and
(not VarIsEmpty(FieldByName('TEST').NewValue) then
UpdateQuery.ParamByName('TEST').Value :=
UpperCase(FieldByName('TEST').NewValue);
end;
end;
I use VarIsEmpty on the NewValue to see if the value
has changed, then I set the correct param for the query
to the value I actually want it to be.