标签：Table1 单击 Delphi 字段 Cash 编辑器 计算 使用

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

　　2. 添加计算出的字段Cash。用鼠标右键单击Table1组件，在弹出菜单中选取FieldsEditor…项，进入字段编辑器；再用鼠标右键单击字段编辑器的字段显示区? 在弹出菜单中选取Add Fields…项，将<fontface="bookantiqua">Table1的所有字段都加入字段编辑器中；再次用鼠标右键单击字段编辑器的字段显示区域，在弹出菜单中选取New Field…项，进入新字段编辑器，设新字段的Name为Cash，Type为<fontface="bookantiqua">Currency，FieldType为Calculated，用鼠标单击OK命令按钮，即完成了添加计算出的字段Cash。 
　　3 ．添加<fontface="bookantiqua">Table1的OnCalcFields事件。其代码为：

procedureTForm1.Table1CalcFields(DataSet: TDataSet);
var
quantity1:single;
price1:Currency;
begin
quantity1:=Table1.FieldByName(quantity).asfloat; //数量
price1:=Table1.FieldByName(price).asCurrency; //单价
Table1.FieldByName(cash).asCurrency:=quantity1*price1; //应付资金
end;

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

标签：Table1,单击,Delphi,字段,Cash,编辑器,计算,使用
来源： https://www.cnblogs.com/jijm123/p/11700387.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。