如何使用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;