table 中的计算字段
Calculated fields in table
我正在尝试在数据库 table 中为用户输入的值创建一个计算字段 (Cost)，例如下面的示例中的价格和数量：
Cost = Price * Quantity
我进行了搜索，但找不到明确的方法。
从字段编辑器创建计算字段。
- 双击 TTable 或 TQuery 打开 Fields Editor.
- 右键单击 Fields Editor，然后从弹出菜单中选择 New Field（或按 Ctrl+N ).
- 在 New Field 对话框中，为字段命名（例如 'Cost'）并输入（可能是
Currency），然后选中单选框已计算 按钮，然后单击 确定。
- 选择 TTable 或 TQuery 后，选择 Events 选项卡 Object Inspector，找到OnCalcFields事件，双击它在代码编辑器[=37]中创建新的空事件处理程序=].
添加类似于以下代码的内容，根据需要调整您的字段名称：
procedure TCustForm.yourQueryCalcField(DataSet : TDataset);
begin
DataSet.FieldByName('Cost').AsCurrency :=
DataSet.FieldByName('Price').AsCurrency*
DataSet.FieldByName('Quantity').AsInteger;
end;
我正在尝试在数据库 table 中为用户输入的值创建一个计算字段 (Cost)，例如下面的示例中的价格和数量：
Cost = Price * Quantity
我进行了搜索，但找不到明确的方法。
从字段编辑器创建计算字段。
- 双击 TTable 或 TQuery 打开 Fields Editor.
- 右键单击 Fields Editor，然后从弹出菜单中选择 New Field（或按 Ctrl+N ).
- 在 New Field 对话框中，为字段命名（例如 'Cost'）并输入（可能是
Currency），然后选中单选框已计算 按钮，然后单击 确定。 - 选择 TTable 或 TQuery 后，选择 Events 选项卡 Object Inspector，找到OnCalcFields事件，双击它在代码编辑器[=37]中创建新的空事件处理程序=].
添加类似于以下代码的内容，根据需要调整您的字段名称：
procedure TCustForm.yourQueryCalcField(DataSet : TDataset); begin DataSet.FieldByName('Cost').AsCurrency := DataSet.FieldByName('Price').AsCurrency* DataSet.FieldByName('Quantity').AsInteger; end;