Question

在delphi中如何将sql的求和传给其它控件(如text控件）

form1.Query1.Close;
form1.Query1.SQL.Clear ;
form1.Query1.SQL.Add('select sum(金额) as y from 基本信息');
form1.Query1.Open ;
下面应该怎么写 把和传给Edit1

Answer 1

try
ADOQuery1.Close;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('select sum(金额) as y from 基本信息');
ADOQuery1.Open ;
except
Aoolication.MessageBox('数据库连接失败!','系统提示!'MB_OK);
Exit;
end;
Edit1.Text:= ADOQuery1.FieldByName('y').AsString;

Answer 2

form1.Query1.Close;
form1.Query1.SQL.Clear ;
form1.Query1.SQL.Add('select sum(金额) as y from 基本信息');
form1.Query1.Open ;
Edit1.Text:= Query1.FieldByName('y').AsString;