如何在运行时建立一个Query控件并且使用它

Question

如果使用Query的程序没有Form,不能直接把Query控件拖放到Form上面。如何
写代码在程序运行的时候建立?
Query.create(),里面的参数不知道应该填什么。

Answer 1

try
  query:=Tquery.Create(nil);
  query.DatabaseName:='delphi';
  with query do
  begin
    close;
    sql.Clear ;
    sql.add('select * from abc');
    .....
    open;
  end;
finally
  query.Free;
end;

Answer 2

uses
  DB, DBTables;var
  QueryTemp: TQuery;
begin
  QueryTemp := TQuery.Create(nil);
  QueryTemp.DatabaseName := ...;
  try
    QueryTemp.SQL.Text := 'SELECT SUM(金额) AS 合计 FROM Sale';
    QueryTemp.Open;
    ShowMessage(QueryTemp.FieldByName('合计').AsString);
    QueryTemp.Close; //关闭
  finally
    QueryTemp .free;
end;