中国程序员联盟 正在重新改版中ing 不便之处还请见谅 改版后将内容涉及java delphi .net php 收藏本站 | 站内搜索 | 会员登陆 | 文章发布 | 捐助本站  
 
  首页 | 数据库开发 | 网络通讯 | 多线程 | 多媒体开发 | 图像处理 | 程序人生 | 系统函数 | 控件开发 | Web服务
 
  当前位置：笨鱼delphi技术网>数据库开发>数据处理>文章内容

delphi 计算字段值

来源：站内 关于：bill 发布时间：2007-06-21   [收藏] [推荐]
需要对某字段的所有记录求和，使用如下代码：
var i:double;
{$R *.DFM}
procedure TForm1.Table1CalcFields(dataset: Tdataset);
var
Goodsgold:double;
begin
Goodsgold:=table1.fieldbyname('金额').asfloat;
i:=i+Goodsgold;
label1.caption:=formatfloat('0.00',i);
end;
其中的i是求得的总和，在必要时才将他复位为0，要不他总是有增无减。

[浏览： 次]   
上一篇：delphi 数据库事务处理   下一篇：delphi Delphi下的ADO
[收藏] [推荐] [返回顶部] [打印本页] [关闭窗口]  
    评论加载中…
google adsense热点文章
·delphi Delphi 中使用原生 ADO 控制数
·delphi Base64编码/解码及ZLib压缩/解
·delphi Delphi_有关ADO专题
·delphi Delphi下的ADO
·delphi 数据库事务处理
·delphi DataSet数据复制
·delphi Oracle9i 如何用sysdba连接数据
·delphi 多线程执行数据库查询
·delphi 开发数据库程序经验三则
·delphi 输入图片到Blob字段
·delphi 将纯文本导入数据库
·delphi 如何给日期时间字段赋空值
     delphi技术网 | firefox 下载 | Avant Browser下载 | dedecms 技术网 | drupal 爱好者 | php 技术网
  Copyright@www.delphichm.com,2006-2009.All Rights Reserved.
  
程序员联盟 | delphi Java .net|QQ:707102932