1:
procedure OpenQuery(var Query:TADOQuery);
begin
query.close;
query.sql.clear;
query.sql.add('select * from ok');
query.sql.open;
。
。
end;2:
procedure Tfrom2.OpenQuery();
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from ok');
adoquery1.sql.open;
。
。
end;
procedure OpenQuery(var Query:TADOQuery);
begin
query.close;
query.sql.clear;
query.sql.add('select * from ok');
query.sql.open;
。
。
end;2:
procedure Tfrom2.OpenQuery();
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from ok');
adoquery1.sql.open;
。
。
end;
function ExecSql(Query:TQuery;SQL:string):TDataSet;
begin
Query.Close;
Query.SQL.Clear;
Query.SQL.Add(SQL);
Query.Open;
result:=Query;
......
end;
传参数调用即可。