求帮助啊，delphi调用存储过程的方法
这是我存储过程的代码：

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go


ALTER PROCEDURE [dbo].[p_getData]
@name varchar(20),
@field varchar(1000),
@startdate varchar(20),
@enddate varchar(20)
AS
declare @sql varchar(max),
@starttime datetime,
@endtime datetime,
@startyear int,
@endyear int,
@curyear varchar(20)
BEGIN
set @startyear=1950
set @endyear=2200
if(@field='')
set @field='*'
if(@startdate='')
set @startdate=@enddate
if(@enddate='')
set @enddate=@startdate
if(len(@startdate)=4)
set @startdate=@startdate+'0101'
if(len(@enddate)=4)
set @enddate=@enddate+'1231'
if(len(@startdate)=6)
set @startdate=@startdate+'01'
if(len(@enddate)=6 and isnumeric(@enddate)=1)
set @endtime=dateadd(dd,-1,dateadd(mm,1,cast(@enddate+'01' as datetime)))
if(isdate(@startdate)>0)
begin
set @starttime = cast(@startdate as datetime)
set @startyear=year(@starttime)
end
if(isdate(@enddate)>0)
begin
set @endtime = cast(@enddate as datetime)
set @endyear=year(@endtime)
end
set @sql=''
declare cur CURSOR for
select right(name,4) from sysobjects where (xtype='U' or xtype='V') and name like @name+'%'
open cur
fetch next from cur into @curyear
while @@Fetch_Status=0
begin
if(isnumeric(@curyear)>0 and cast(@curyear as int)>=@startyear and cast(@curyear as int)<=@endyear)
set @sql=@sql+'select * from '+@name+@curyear+' union '
fetch next from cur into @curyear
end
close cur;
deallocate cur;
if(@sql<>'')
begin
set @sql='select '+@field+' from ('+left(@sql,len(@sql)-6)+') a'
exec(@sql)
end
END



这是我delphi7中的部分代码：
str1 := 'SELECT * FROM ' + g_strDba01 + ' WHERE JH=:JH1 and RQ>=:RQ1 and RQ<=:RQ2 ORDER BY RQ'; //根据时间段查询所选择油井的数据
Close;
Sql.Clear;
Sql.Add(Str1);
ParamByName('JH1').asstring := ComboBox1.Text;
ParamByName('strname').AsString := g_strDba01;
ParamByName('stryear').asdateTime := Day1;
ParamByName('strend').asdateTime := Day2;
Open;
本来没使用存储过程，现在要调用存储过程，应该怎么调用呢？
[解决办法]
双击adoquery1的ConnectionString属性,先设置数据库连接;不会的就百度一下