//利用adoquery,后台用的是asecc
begin  
 gk_dbm.SP_RKQuery.Close;
  gk_dbm.SP_RKQuery.SQL.Clear;//其中RQ为adoquery的参数
  gk_dbm.SP_RKQuery.SQL.Add('select * from sp_rk where 入库日期=:RQ');
  gk_dbm.SP_RKQuery.Parameters[0].Value:=strtodate(self.XZJHQR_COB.Text); try
  gk_dbm.sprk_query_open;
 except
 on E:EdatabaseError do
 messagebox(self.Handle,'数据加载出错!','出错',mb_ok);
 end;
  if gk_dbm.SP_RKQuery.Active then
     begin
     self.DataSource1.DataSet:=nil;
     self.DataSource1.DataSet:=gk_dbm.SP_RKQuery;
     self.dbgrid1.datasource:=datasource1;
     end; 
end;