procedure TForm1.Button2Click(Sender: TObject);
begin
Query1.Close;
b := TFloatField.Create(Query1);
b.FieldName := 'Hello';
b.DisplayLabel := 'World';
b.Visible := True;
b.FieldKind := fkCalculated;
b.DataSet := Query1;
Query1.OnCalcFields := Query1CalcFields;
Query1.Open;
end;procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
DataSet['Hello'] := DataSet.FieldByName('SIZE').AsInteger
* DataSet.FieldByName('WEIGHT').AsInteger;
end;
begin
Query1.Close;
b := TFloatField.Create(Query1);
b.FieldName := 'Hello';
b.DisplayLabel := 'World';
b.Visible := True;
b.FieldKind := fkCalculated;
b.DataSet := Query1;
Query1.OnCalcFields := Query1CalcFields;
Query1.Open;
end;procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
DataSet['Hello'] := DataSet.FieldByName('SIZE').AsInteger
* DataSet.FieldByName('WEIGHT').AsInteger;
end;
解决方案 »
- 如果两个文件都uses了同一个单元如classes,那么会不会有两份classes的声明?
- 一个动态库的问题。
- 调试中的问题,高分解决
- 判断两段内容的相似度问题?结果返回相似度!
- 在这里有些问题需要用图像来表达,应当如何作??
- (请教)在dephi中怎么实现与modem通信?
- SQL查询的问题———————————在线等
- 欢迎大家下载我的软件,下载者有分.
- ACCESS中的一个小问题!
- 请问在哪里可以下载到DELPHI的控件方面的好书?
- 谁有quickreport 3.06发给我一份,E-mail:[email protected]
- 在多文档程序菜单中怎样调用另外一个子窗体,这个代码怎样描述?
if query1.findfield('标志')
then query1.findfield('标志').displaytext:='是;否'