DataSetProvider - DataSet 到 ClientDataSet

Question

编辑：似乎 DataSetProvider 没有该项目所需的功能，因此我将实现一个自定义类来将数据加载到 ClientDataSet 中。

我正在尝试从连接到我的数据库的 TMSQuery 获取数据，并使用 DataSetProvider 用其中一些数据填充 ClientDataSet。

我的问题是我需要修改其中一些数据才能进入我的 ClientDataSet。 ClientDataSet 具有与原始数据库数据不匹配的持久字段。我什至无法将数据库中的字符串放入 ClientDataSet 中的备注字段中。

ClientDataSet 是我的数据层的一部分，因此我需要逐个字段将数据库中的数据与 ClientDataSet 保持一致（大多数都能够直接通过，但许多需要路由和/或转换）。

有人有这方面的经验吗？

Answer 1

您正在寻找 TDataSetProvider.BeforeUpdateRecord 事件。为此事件编写一个事件处理程序，您可以手动控制如何将数据应用回数据库。

像这样的东西

procedure TDataModule1.DataSetProvider1BeforeUpdateRecord(Sender: TObject; SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind; var Applied: Boolean);
begin
  { Set applied to tell DataSnap that you have applied this record yourself }
  Applied := True;

  case UpdateKind of
    ukModify:
      begin
        Table1.Edit;
        { set the values of the fields something like this }
        if not VarIsEmpty(DeltaDS.FieldByName('NewValue')) then
          Table1['SomeField'] := DeltaDS.FieldByName('SomeField').NewValue;
        Table1.Post;
    end;

    ukInsert:
      begin
        Table1.Insert;
        { set the values of the fields }
        Table1['SomeField'] := DeltaDS['SomeField']
        Table1.Post;
      end;

    ukDelete:
      if Table1.Locate('PrimaryKeyField', DeltaDS['PrimaryKeyField'], []) then
        Table1.Delete;
  end; // case
end;

Answer 2

您可以通过实现 TDataSetProvider.OnGetData 事件来修改发送到 ClientDataSet 的数据。

procedure TDataModule1.DataSetProvider1GetData(Sender: TObject; DataSet: TCustomClientDataSet);
begin
  DataSet.First;
  while not DataSet.Eof do begin
    DataSet.Edit;
    DataSet['Surname'] := UpperCase(DataSet['Surname']);
    DataSet.Post;
    DataSet.Next;
  end; // while
end;

当从 ClientDataSet 应用更新时，您可以使用 TDataSetProvider.OnUpdateData 事件。与 OnGetData 事件一样，您正在操作整个数据集而不是单个记录。

procedure TDataModule1.DataSetProvider1UpdateData(Sender: TObject; DataSet: TCustomClientDataSet);
begin
  DataSet.First;
  while not DataSet.Eof do begin
    DataSet.Edit;
    DataSet['Surname'] := LowerCase(DataSet['Surname']);
    DataSet.Post;
    DataSet.Next;
  end; // while
end;

此 OnUpdateData 事件在 OnBeforeUpdateRecord 事件之前调用。此外，OnGetData 和 OnUpdateData 事件对整个数据集进行操作，而 OnBeforeUpdateRecord 对每个修改的记录调用一次。

Answer 3

如果我需要 ClientDataSet 来获取与数据库架构不完全匹配的数据，我会为 TQuery 组件编写一个查询，该查询以我想要的格式返回数据。然后，我为 TQuery 组件编写自己的单独的删除、插入、刷新和更新查询。

或者，您可以在数据库上创建一个视图并在 TQuery 组件中使用该视图。

如果您想要一个独立于数据库的自定义 ClientDataSet，那么您需要的是内存数据集。如果您没有内存数据集组件，请搜索“TClientDataSet 作为内存数据集”。不过，您最终得到的基本上是一个美化的列表视图组件。当然，您可以挂钩内存数据集的 OnUpdateRecord 以了解何时更新真实数据集。