Form中与数据库相关的语句如何写入DLL中并调用

Question

Form中的语句如何写入DLL中并调用。比如下面的语句是我一个Form中的，其他Form中也有类似，有些是重复的，有些是类似的。我想写进dll中，然后调用，怎么弄？给具体点信息procedure TFormHouseList.Action13Execute(Sender: TObject);
var
  ssql:String;
begin
  ssql:='select * from Houselist where housetype=''闲置''';
  ssql:=ssql+' and userid='+inttostr(Form1.Uid)+' order by id desc';
   DataModule2.AQHouseList.Close;            //关闭ADOQuery1，以便于进行SQL语句更新
   DataModule2.AQHouseList.SQL.Clear;        //清空SQL语句
   DataModule2.AQHouseList.SQL.Add(ssql);  //添加新的SQL
   DataModule2.AQHouseList.Open;             //新SQL有效
end;

Answer 1

可以把AdoQuery 和 SQL 语句坐为参数 传进去运行。如果只是这个过程的话你可以把 Adoquery 与 UID 传进去。