Delphi TDataModule自动计算金额和单价

在Delphi的TDataModule中，可以使用事件处理程序来实现输入单价和金额时的自动计算。

首先，在TDataModule中创建以下三个字段：

数量 (Quantity)：一个整数型字段。
单价 (UnitPrice)：一个浮点型字段。
金额 (Amount)：一个浮点型字段。

然后，创建以下两个事件处理程序：

OnUnitPriceChange：在单价字段 (UnitPrice) 值发生变化时触发的事件处理程序。在该事件处理程序中，通过计算数量和单价的乘积，将结果赋值给金额字段 (Amount)。

procedure TMyDataModule.OnUnitPriceChange(Sender: TField);
begin
  // 检查单价字段的值是否为空
  if not Sender.IsNull then
  begin
    // 计算金额
    Amount.Value := Quantity.Value * UnitPrice.Value;
  end;
end;

OnAmountChange：在金额字段 (Amount) 值发生变化时触发的事件处理程序。在该事件处理程序中，通过计算金额除以数量，将结果赋值给单价字段 (UnitPrice)。

procedure TMyDataModule.OnAmountChange(Sender: TField);
begin
  // 检查金额字段的值是否为空
  if not Sender.IsNull then
  begin
    // 计算单价
    UnitPrice.Value := Amount.Value / Quantity.Value;
  end;
end;

最后，将事件处理程序与相应字段的OnChange事件关联。在TDataModule的OnCreate事件中添加以下代码：

procedure TMyDataModule.DataModuleCreate(Sender: TObject);
begin
  // 关联事件处理程序
  UnitPrice.OnChange := OnUnitPriceChange;
  Amount.OnChange := OnAmountChange;
end;

这样，当输入单价或金额时，金额或单价字段将自动计算并更新其值。