1.先在Access中建立一带参数的查询，如“查询1”，select qdj for xxj_qdj2006_06_30 when dm=tmp
2.在Delphi中加入一ADOQuery控件，指向Access数据库，并在SQL属性中加入select * from 查询1,这时在parameters会自动加入一参数tmp
3.加入一按钮，写入
with adoquery1 do
begin
close;
parameters.Parambyname('tmp').Value :='4011223999';
Open;
end;
