Delphi 中使用计算出的字段

　　2. 添加计算出的字段Cash。用鼠标右键单击Table1组件，在弹出菜单中选取FieldsEditor…项，进入字段编辑器；再用鼠标右键单击字段编辑器的字段显示区? 在弹出菜单中选取Add Fields…项，将Table1的所有字段都加入字段编辑器中；再次用鼠标右键单击字段编辑器的字段显示区域，在弹出菜单中选取New Field…项，进入新字段编辑器，设新字段的Name为Cash，Type为Currency，FieldType为Calculated，用鼠标单击OK命令按钮，即完成了添加计算出的字段Cash。
　　3 ．添加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栏即刻显示出与 之相应的金额值。

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18