在Provider的BeforeUpdateRecord事件中写代码
for example
if UpdateKind = ukInsert then
begin
sInsertSQL := Format('insert into ta(f1, f2) values (%s, %s)', [DeltaDS['f1'], DeltaDS['f2']]);
qrySQL.SQL.Text := sInsertSQL;
qrySQL.ExecSQL;
...
Applied := True;
end;