Delphi 中使用计算出的字段-Delphi-优质IT资源分享社区

yutingzhinan
论坛版主
论坛版主
  • UID9
  • 粉丝1
  • 关注0
  • 发帖数36
阅读:124回复:0

Delphi 中使用计算出的字段

楼主#
更多 发布于:2016-06-17 23:30
 在很多情况下,咱们需求的数据与数据库中其它字段的数据有关,例如订单的金额为数量与单价的乘积。在应用程序中,若要在显现订单具体条目的一起显现金额,一般要创建一个字段,在显现该字段之前先进行乘法运算,将金额值存储在该字段中。可是,若用户修正了数量或单价,那就不得不更改金额值。这个疑问立刻变得复杂起来,幸亏Delphi供给了在数据库表中定义附加字段的简单办法。这种字段被称为核算出的字段(Calculatedfields),它们以数据库表中的其他字段为根底。核算出的字段的长处是核算出的值不被存储在数据库中,不过,每次记载发生变化时都要对其进行核算,且需求拜访和显现字段。下面阐明运用核算出的字段的办法。
1. 建立新的工程文件project1, 在form1上放置一个Table、一个Datasource和一个Dbgrid
控件,Datasource1的Datasource
特点为Table1,Dbgrid1的Datasource特点为Datasource1。Table1中所用的数据库表为order.db,将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事情。其代码为:
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栏立刻显现出与 之相应的金额值。









优质IT资源分享社区为你提供此文。
本站有大量优质Delphi教程视频,资料等资源,包含Delphi基础教程,高级进阶教程等等,教程视频资源涵盖传智播客,极客学院,达内,北大青鸟,猎豹网校等等IT职业培训机构的培训教学视频,价值巨大。欢迎点击下方链接查看。
Delphi教程视频
优质IT资源分享社区(www.itziyuan.top)
一个免费,自由,开放,共享,平等,互助的优质IT资源分享网站。
专注免费分享各大IT培训机构最新培训教学视频,为你的IT学习助力!

!!!回帖受限制请看点击这里!!!
!!!资源失效请在此版块发帖说明!!!

[PS:按 CTRL+D收藏本站网址~]


微信小程序开发

——“优质IT资源分享社区”管理员专用签名~

本版相似帖子

游客