在delphi中调用带参数的sqlserver存储过程.

存储过程
 create PROCEDURE [dbo].[Aj_ShowInLog]
/*
建立时间:2005-6-15
查询仓库的入库日志,输入:dd1,dd2 表示时间段 store表示要查询的仓库.

*/
@dd1 datetime,@dd2 datetime,@store varchar(50)
AS
if @store='原料仓库'
  begin
    select 类别,规格,数量,入库性质,备注,日期 from aj_material_d where 动作=1 and 日期 between @dd1 and @dd2 order by 日期 desc
  end
GO

--------------------
在delphi中调用;
with  ADOStoredProc1  do  //用adodataset一样的.
   begin 
       Close; 
       ProcedureName  :=  'Aj_ShowInLog'; 
       Parameters.Refresh;  //自动获取参数  //关键!
       //参数付值 
       Parameters.ParamByName('@dd1').Value  :=  dt1.Date; 
       Parameters.ParamByName('@dd2').Value  :=  dt2.Date; 
       Parameters.ParamByName('@store').Value  :=  '原料仓库'; 
       Open;  //或者  ExecProc; 
   end;