我有一個TADOQuery，因為它在不同Form和報表會用到，然後它的SQL語法很長，不想再重寫，所以想說是否可以共用的方式，這樣相同的東西寫一次就好了，請問這該如何下手呢？

开启一个单元作为公共单元。
type
_TDBclass = class
private
DB_ADOQuery: TADOQuery;
public
procedure InsideConn(adoconn: tadoconnection); //内部连接库
end
procedure _TDBclass.InsideConn(adoconn: tadoconnection);
begin
DB_ADOQuery := TADOQuery.Create(nil);
DB_ADOQuery.Connection := adoconn;
end;
function _TDBclass.isNewPiaojia(sellDate: string): boolean;
begin
with DB_ADOQuery do
begin
close;
sql.Clear;
sql.Text := 'select sysclock from yhcs where CONVERT(varchar(10),sysclock,20) <=:v1';
Parameters[0].Value := selldate;
open;
if RecordCount <> 0 then
bval := true;
end;

編輯記錄

請問公共单元是指Unit嗎?或是Form?

都可以，使用unit 你必須自己把所有相關dataaward的元件手動create出來，使用form 則是可以把元件拉到form上，不過如果單純是要dataaward的元件要共用的話，建議你建立一個新的datamodule，這也是form的一種，不過是針對database來使用的，相關資料請看書，每一本都有介紹

建議放在 DataModule 中, 要用的程式在 use 進來