你在你的FROM上放置一个QUERY，设定好连接的CONNECTION.比如名字为QUERY1.
通用函数写法。
procedure queryfind2(aquery:tquery;strsql:string);
begin
with aquery do
begin
close;
sql.clear;
sql.add(strsql);
open;
end;
end;
窗口里面frm1main.query写法和调用
frmquery.oncreate(....)
begin
query.connntion:=datamoudle;
queryfind2(query,sqlstr);
end;
