晋城信息港

当前位置:

Delphi中使用计算出的字段

2019/06/20 来源:晋城信息港

导读

在很多情况下,我们需要的数据与数据库中其它字段的数据相关,例如订单的金额为数量与单价的乘积。在应用程序中,若要在显示订单具体条目的同时显示金

  在很多情况下,我们需要的数据与数据库中其它字段的数据相关,例如订单的金额为数量与单价的乘积。在应用程序中,若要在显示订单具体条目的同时显示金额,通常要创建一个字段,在显示该字段之前先进行乘法运算,将金额值存储在该字段中。但是,若用户修改了数量或单价,那就不得不更改金额值。这个问题立刻变得复杂起来,幸好Delphi提供了在数据库表中定义附加字段的容易方法。这种字段被称为计算出的字段(Calculatedfields),它们以数据库表中的其他字段为基础。计算出的字段的优点是计算出的值不被存储在数据库中,不过,每次记录发生变化时都要对其进行计算,且需要访问和显示字段。下面说明使用计算出的字段的方法。

  1. 建立新的工程文件project1, 在form1上放置一个Table、一个Datasource和一个Dbgrid 控件,Datasource1的Datasource 属性为Table1,Dbgrid1的Datasource属性为Datasource1。Table1中所用的数据库表为,将Table1的Active属性置为True。 下面是Table1的定义:

  字段名

  类型

  说明字段含义

  Productid

  +产品

  编号

  Quantity

  N

  数量

  Price

  $

  单价

  2. 添加计算出的字段Cash。用鼠标右键单击Table1组件,在弹出菜单中选取FieldsEditor…项,进入字段器;再用鼠标右键单击字段器的字段显示区? 在弹出菜单中选取Add Fields…项,将Table1的所有字段都加入字段器中;再次用鼠标右键单击字段器的字段显示区域,在弹出菜单中选取New Field…项,进入新字段器,设新字段的Name为Cash,Type为Currency,FieldType为Calculated,用鼠标单击OK命令按钮,即完成了添加计算出的字段Cash。

  3 .添加Table1的OnCalcFields事件。其代码为:

  ble1CalcFields(DataSet: TDataSet);

  var

  quantity1:single;

  price1:Currency;

  begin

  quantity1:=eldByName(quantity).asfloat; //数量

  price1:=eldByName(price).asCurrency; //单价

  eldByName(cash).asCurrency:=quantity1*price1; //应付资金

  end;

  运行程序,你可以在表格的Quantity 和Price栏中任意修改数据并移动记录,Cash栏即刻显示出与 之相应的金额值。

  查看本文来源

宝宝不吃饭怎么办
宝宝不吃饭是什么原因
宝宝不吃饭什么原因
标签