表中的计算字段

Question

我尝试在数据库表格中为用户输入的值创建计算字段（Cost，例如价格和数量，如下例所示：

Cost = Price * Quantity

我搜索过，但我找不到明确的方法。

Answer 1

从“字段编辑器”中创建计算字段。

• 双击 TTable 或 TQuery 以打开字段编辑器。
• 右键单击字段编辑器，然后从弹出菜单中选择新字段（或按 Ctrl + N ）。
• 在新字段对话框中，为该字段指定名称（例如＆＃39;费用＆＃39;）并输入（可能为Currency），然后选中单选按钮计算，然后点击确定。
• 选择 TTable 或 TQuery ，选择对象检查器中的事件标签，找到< em> OnCalcFields 事件，然后双击它以在代码编辑器中创建新的空事件处理程序。

• 添加类似下面代码的内容，根据您的字段名称进行调整：

  procedure TCustForm.yourQueryCalcField(DataSet : TDataset);
  begin
    DataSet.FieldByName('Cost').AsCurrency :=  
          DataSet.FieldByName('Price').AsCurrency* 
          DataSet.FieldByName('Quantity').AsInteger;
  end;