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;