如何实现“可写计算” TDataSet 中的字段？

Question

我需要向 TDataSet 添加其他字段，这些字段不存在于基础数据库中，但可以从现有字段派生。我可以轻松地使用计算字段来完成此操作，并且效果非常好。

现在我想编辑这些字段并将更改后的数据写回。我可以反转计算以将数据写回现有字段，但数据库控件不允许我编辑计算字段。

有什么方法可以让我做到这一点吗？

更新： 好的，关于背景的更多细节。

数据集有一个 blob 字段，它是 TBytes 表示形式。某些字节被识别为包含可以使用现有数据库编辑字段以方便的方式表示的信息。不过，并非所有字节都是已知的，因此必须保持 TBytes 表示形式不变，以便通过另一个了解它的应用程序进行处理。该应用程序还修改现有记录并插入新记录。

数据集中不同记录的 TBytes 通常映射到不同的字段表示，尽管在数据集上设置过滤器或范围将确保它们具有相同的映射。

正如我所说，提取已知字节并通过计算字段将其转换为字符串、日期、数字等是没有问题的。也可以将这些值重新转换为 TByte。问题是使这些额外的字段可编辑，同时保持数据集导航完整。

如果有帮助：我们有执行双向映射的类，将字段公开为已发布的属性。

Answer 1

答案取决于您正在使用的数据访问组件。我正在使用 Anydac，它支持 fkInternalCalc 字段，这些字段可以按照手动编辑的方式进行计算。

Answer 2

我认为计算字段根据定义是只读的，其值在客户端计算。
您想要的可能可以通过可更新的视图来实现。您已经可以使用计算字段定义视图 - 这些字段将在服务器上的 SQL 中计算 - 以及更新触发器，也可能是插入触发器 - 来执行反向计算。然后，您可以从客户端像表格一样透明地使用视图。

Answer 3

我在 ClientDataSet 上遇到了类似的问题，我已经使用 SQL-Stmt 上的虚拟字段解决了这个问题，这样我就可以模拟数据库中的字段。

请参阅我的问题

Answer 4

您可以使用 TDatasetProvider.OnGetRecords （不记得这是否是正确的事件名称）并修改发送到 Clientdataset 的数据包。

当然，正如 TOndrej 所说，您必须在 ApplyUpdates 处理程序上处理它们。

Answer 5

Woll2Woll 的 infopower 组件（我刚刚测试了他们的 TwwDBEdit）允许做这样的事情。所以我认为任何阻碍你的都是在 TDBEdit 级别（或 TFieldDataLink 级别）。

我不知道 TwwDBEdit 到底有什么不同。 （我不确定许可协议是否允许我在这里发帖......）。

Answer 6

在我们的数据库设计中，某些值是相对于另一列的百分比（下面称为oMean），而其他浮点值则存储为绝对值。我们的客户后来希望所有字段都有两个选项（相对和绝对），因此我们提出了从 TFloatField 派生的以下类。它应该适用于所有 TDataSet 后代。

unit EditableCalcFloatField;

interface

uses
  db, classes;

type
  TEditableCalcFloatField = class(TFloatField)
  public
    oAbs, oRel, oMean: TField;
  protected
    function GetCanModify: Boolean; override;
    procedure SetAsFloat(Value: Double); override;
  end;

implementation

function TEditableCalcFloatField.GetCanModify: Boolean;
begin
  Result := oMean.AsFloat <> 0;
  if not Result then Exit;
  Result := (oAbs <> nil) or (oRel <> nil);
end;

procedure TEditableCalcFloatField.SetAsFloat(Value: Double);
var
  fMean                                 : Double;
begin
  inherited;

  if DataSet.State in [dsEdit, dsInsert] then begin
    fMean := oMean.AsFloat;
    if fMean = 0 then Exit;
    if oAbs <> nil then
      oAbs.AsFloat := Value / 100 * fMean
    else
      oRel.AsFloat := Value / fMean * 100;
  end;
end;

end.

要在没有包的情况下使用它，您必须在打开数据集之前在 FormCreate 中创建字段：

with TEditableCalcFloatField.Create(Self) do
begin
  oAbs := sqlMerkmaleYourAbsoluteColumn;
  DisplayLabel := sDisp;
  oMean := sqlMerkmaleAssignedValue_Mean;
  Calculated := True;
  FieldName := 'R' + oAbs.FieldName;
  DataSet := sqlMerkmale;
end;

当然，可以在 OnCalcFields 事件中设置其内容或由用户。

Answer 7

使用带有“Select *, 0 as TempField from MyTable”的 TQuery 后代 (MyQuery)

Procedure MyQueryAfterOpen(Dataset:TDataSet);
Begin
    DataSet.FieldByName('TempField').ReadOnly := False;
End;

它现在是一个 editabe 临时字段