| |
| How to use the TUpdateSQLProvider.OnUpdateRecord method |
 |
How do I use TUpdateSQLProvider.OnUpdateRecord?
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 TForm .UpdateSQLProvider UpdateRecord(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.
|
|
| Hits/month |
2,500,000+ |
Downloads (Since May 2000) |
7,393,709 |
| Total Files |
6,023 |
| Forum msgs |
7,670 |
| Articles/FAQs |
70+/900+ |
Top Selling Software at Amazon
|