简单问题_为什么存储过程不执行？(100)

我的一个使用ADOStoredProc1存储过程的打印程序如下，打印不了，原因是在程序调用存储过程后，存储过程没工作（在SQL查询分析器中运行有结果，在程序中没运行结果）。请大侠们指正。procedure TForm3.Button1Click(Sender: TObject);var tjyd1,tjyd2,tjzh:string;
begin
tjyd1:=Edit1.Text;
//月份起 tjyd2:=Edit2.Text;
//月份止 tjzh:=ComboBox1.Text;//账户 if tjzh<>'' then
begin
if (tjyd1+tjyd2<>'') then
begin
//执行存储过程 with ADOStoredProc1do
//ADOStoredProc1,存储过程控件名称 begin
Close;
ProcedureName:='CW_TJ_01';
//存储过程名称 Parameters.Clear;
//时间 Parameters.AddParameter.Name:='@yf1';
Parameters.ParamValues['@yf1']:=tjyd1;
Parameters.AddParameter.Name:= '@yf2';
Parameters.ParamValues['@yf2']:=tjyd2;
Parameters.AddParameter.Name:='@zh';
Parameters.ParamValues['@zh']:=tjzh;
prepared;
execproc;
close;
end;
R_TJ_HZ.ADOQuery1.Active:=false;
//汇总表打印的数据控件关闭 R_TJ_HZ.ADOQuery1.Active:=true;
//汇总表打印的数据控件打开 R_TJ_HZ.QuickRep1.Preview ;
//汇总表浏览与打印 end else
showmessage('汇总起止月份不能都为空！');
end;
end;

prepared;execproc;//close;
这行注消掉试试

//close;仍不执行

确定以下条件都满足了吗？if tjzh<>'' then
begin
if (tjyd1+tjyd2<>'') then
begin
[red] showmessage('OK');
[/red]//看看这一句是否执行