帮帮忙

Question

我用delphi6 ms sql server2000
procedure TForm1.Button1Click(Sender: TObject);
var
pass:string;
begin
begin
adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select cl(权限字段) from class where name='''+edit1.Text+''' and password='''+edit2.Text+'''');
adoquery1.Active:=true;
end;
我相把cl(权艰字段)的值给pass
大家帮帮忙.,,,,,,,,,,,,,,,,,,,,,,,...............

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
pass:string;
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select cl(权限字段) as aaa from class where name='''+edit1.Text+''' and password='''+edit2.Text+'''');
adoquery1.Open;
pass:=Trim(AdoQuery1.FieldByName('aaa').AsString);end;

Answer 2

pass := adoQuery1.FieldByName('字段名').asstring;

Answer 3

wtih adoquery1 do begin
  close;
  sql.clear;
  sql.add('select cl(权限字段) as aaa from class where name='''+edit1.Text+''' and password='''+edit2.Text+'''');
  open;
  pass:=fields[0].asstring;或者fieldbyname('字段名').asstring;都可以
end;