简单的SQL语言查询问题

Question

query1.sql.Add('select count(distinct cls_schno) from class');
query1.open ;
count := query1Fields[0].Asinteger ;

Answer 1

count := query1.Fields[0].Asinteger ;

Answer 2

Fucntion GetQueryResult: Integer;;
var
  sQuery: TQuery;
begin
  //创建sQuery
  ...
  With sQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT COUNT(DISTINCT cls_schno) selfCount FROM class');
      Repare;
      Open;
    end;
  if not sQuery.Eof then
    Result := sQuery.FieldByName('selfCount').AsInteger;
end;

Answer 3

sql.Add('select count(distinct cls_schno) as m_count from class');
your_result:=your_query.fieldbyname('m_count').asstring;