EXAMPLE:
第一个DBGRID的数据源为DataM.PubADOQu 第二个的数据源为DataM.PubADOQu
with DataM.Pub1ADOQu do
begin
close;
sql.clear;
sql.add('select * from pats_in_hospital where patient_id=:ID');
Parameters.ParamValues['ID']:=DataM.PubADOQ.FieldByName('ID').AsString;
prepared;
open;
end;