如何在Delphi中用代码来完成计算字段的创建

delphi 专栏收录该内容
758 篇文章 0 订阅
<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
      以前CSDN上有好多人问过这个问题,但是好象没有人给出满意的答案。我也是经过好长时间摸索才找到答案,现在在这给大家分享:
procedure TForm1.FormCreate(Sender: TObject);
var
  NewField:TField;
  i:integer;
begin
//表中有两字段SName,Birth,现在我们动态生成一个计算字段Age,显示出年龄
  NewField:=TStringField.Create(ADOTable);
  // 创建一个TStringField类型的字段
  ADOTable.Close;
  for i:=0 to ADOTable.Fields.Count-1 do
    ADOTable.Fields[0].Free;//释放所有的静态字段
  for i:=0 to ADOTable.FieldDefs.Count-1 do
    ADOTable.FieldDefs.Items[i].CreateField(ADOTable);
 //根据FieldDefs的字段信息动态的生成静态字段 
  NewField.Size:=5;
  NewField.FieldName:='Age';
  NewField.FieldKind:=fkCalculated;
 //设置这个这字段为计算字段
  NewField.DataSet:=ADOTable;
 //把这个字段加到ADOTable上
  ADOTable.Open;
end;

procedure TForm1.ADOTableCalcFields(DataSet: TDataSet);
var
  YY1,YY2,MM,DD:Word;
  TmpDate:TDate;
begin
  DecodeDate(Date,YY1,MM,DD);
  TmpDate:=DataSet.FieldByName('Birth').AsDateTime;
  DecodeDate(TmpDate,YY2,MM,DD);
  DataSet.FieldByName('Age').AsString:=IntToStr(YY1-YY2)+'岁';
  //在OnCalField中显示出年龄
end;
以上是我用ADO写的。一开始我用BDE写的,也一样都可以通过.

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值