如何使用delphi将Clientdataset的Delta保存到数据库中

[delphi]
 view plain copy
//ATableName-表名, AKeyField-主键，多个主键用;隔开，如 ;pid;times; from：unit HlsImplBase;
[delphi] view plain copy
function THlsImplBase.UpdateTableData(ATableName, AKeyField: AnsiString; var AData: Variant): Boolean; 
var
 LSql: string; 
 LDataSet: TDataSet; 
 LProvider: TProvider; 
 LErrCount: Integer; 
 I: Integer; 
begin
 Result := False; 
 if ATableName = '' then Exit; 
 if AKeyField = '' then Exit; 
 LSql := 'select * from ' + ATableName + ' where 1 = 2'; 
 LDataSet := CreateDataSet(LSql); 
 if not Assigned(LDataSet) then Exit; 
 LProvider := TProvider.Create(nil); 
 LProvider.UpdateMode := upWhereKeyOnly; 
 LProvider.DataSet := LDataSet; 
 AKeyField := LowerCase(AKeyField); 
 for I := 0 to LDataSet.FieldCount - 1 do
 begin
 if (LowerCase(LDataSet.Fields[I].FieldName) = AKeyField) or
 (Pos(';' + LowerCase(LDataSet.Fields[I].FieldName) + ';', AKeyField) > 0) then
 LDataSet.Fields[I].ProviderFlags := LDataSet.Fields[I].ProviderFlags + [pfInKey] 
 else
 LDataSet.Fields[I].ProviderFlags := []; 
 end; 
 try
 try
 LProvider.ApplyUpdates(AData, -1, LErrCount); 
 except
 end; 
 Result := LErrCount = 0; 
 finally
 LDataSet.Free; 
 LProvider.Free; 
 end; 
end;