各们高手,感谢相助,可我试了三位的建议,可还是不行呢?过程如下:
procedure T_Main.TabSheet1Show(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('select sum(金额) as 帐户总金额 from FA.Financing');
query1.open;
edit1.text:=query1.fields(0).asstring;
end;
procedure T_Main.TabSheet1Show(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.add('select sum(金额) as 帐户总金额 from FA.Financing');
query1.open;
edit1.text:=query1.fields(0).asstring;
end;
begin
query1.Close;
query1.SQL.Clear;
//FA.Financing 中FA是什么?是数据库的话需要 FA..Financing
query1.SQL.add('select sum(金额) as 帐户总金额 from FA.Financing');
query1.open; //这里有没有错了?
edit1.text:=query1.fieldbyname('帐户总金额').asstring;
end;
应该写成edit1.text:=query1.fields[0].asstring