表结构:xjls int identity(1,1)(流水号)
xjrq varchar(8)(日期)
xjjf float(借方)
xjdf float(贷方)
xjye float(余额)
表格如下:日期 借方 贷方 余额
20021101 100 100
20021101 50 50
20021101 100 150代码如下:
procedure Tf_xjdata.aqry_xjxjjfChange(Sender: TField);
var
l_Ye:single;
begin
with aqry_xj do
begin
First;
while not Eof do
begin
l_Ye:=FieldByName('xjye').Asfloat;
Next;
Edit;
FieldByName('xjYE').Asfloat:=l_Ye+FieldByName('xjJF').Asfloat-FieldByName('xjDF').Asfloat;
Post;
end;
end;
end;
xjrq varchar(8)(日期)
xjjf float(借方)
xjdf float(贷方)
xjye float(余额)
表格如下:日期 借方 贷方 余额
20021101 100 100
20021101 50 50
20021101 100 150代码如下:
procedure Tf_xjdata.aqry_xjxjjfChange(Sender: TField);
var
l_Ye:single;
begin
with aqry_xj do
begin
First;
while not Eof do
begin
l_Ye:=FieldByName('xjye').Asfloat;
Next;
Edit;
FieldByName('xjYE').Asfloat:=l_Ye+FieldByName('xjJF').Asfloat-FieldByName('xjDF').Asfloat;
Post;
end;
end;
end;
l_Ye:=FieldByName('xjye').Asfloat;
Edit;
FieldByName('xjYE').Asfloat:=l_Ye+FieldByName('xjJF').Asfloat-FieldByName('xjDF').Asfloat;
Post;
Next;
就是显示两种情况(可以显示执行过两条SQL语句的记录)