select cout(列名) as cout1 ...... open; edit1.text := query1.fieldbyName('cout1').asstring ;
procedure TForm1.Button1Click(Sender: TObject); begin with adoquery1 do begin ADOConnection1.Open; adoquery1.SQL.Text:='select count( _pop) as dd from table1'; adoquery1.Open; edit1.text:=adoquery1.FieldByName('dd').Value; end;
open;
edit1.text := query1.fieldbyName('cout1').asstring ;
begin with adoquery1 do
begin
ADOConnection1.Open;
adoquery1.SQL.Text:='select count( _pop) as dd from table1';
adoquery1.Open;
edit1.text:=adoquery1.FieldByName('dd').Value; end;