Delphi- 调用存储过程的方法

　　Delphi控件里拉一个TADOStoredProc，配置好相关链系，具体的操作列子如下：

 procedure TForm1.btnFirstClick(Sender: TObject);
 begin

   sp1.Close;
   sp1.Parameters.Clear;
   sp1.ProcedureName:= 'Proc_SplitPage2';

   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageSize',ftInteger,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,,fgUnassigned);

   // exec [Proc_SplitPage2] 'NewsInfo','*','ID','ASC',,,''
   sp1.Parameters[].Value := 'NewsInfo';
   sp1.Parameters[].Value := '*';
   sp1.Parameters[].Value := 'ID';
   sp1.Parameters[].Value := 'DESC';
   sp1.Parameters[].Value :=  ;
   sp1.Parameters[].Value :=  ;
   sp1.Parameters[].Value := '';

   sp1.ExecProc;
   sp1.Open;

 end;

 procedure TForm1.FormShow(Sender: TObject);
 begin
   pageIndex := ;
 end;

 procedure TForm1.btnPreClick(Sender: TObject);
 begin

   sp1.Close;
   sp1.Parameters.Clear;
   sp1.ProcedureName:= 'Proc_SplitPage2';

   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageSize',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,,fgUnassigned);

   // exec [Proc_SplitPage] 'NewsInfo','*','ID','DESC','','',''
   sp1.Parameters[].Value := 'NewsInfo';
   sp1.Parameters[].Value := '*';
   sp1.Parameters[].Value := 'ID';
   sp1.Parameters[].Value := 'ASC';
   sp1.Parameters[].Value := '';
   pageIndex := pageIndex - ;
   sp1.Parameters[].Value :=  pageIndex;
   sp1.Parameters[].Value := '';

   sp1.ExecProc;
   sp1.Open;
 end;

 procedure TForm1.btnNextClick(Sender: TObject);
 begin

   sp1.Close;
   sp1.Parameters.Clear;
   sp1.ProcedureName:= 'Proc_SplitPage2';
   sp1.Parameters.CreateParameter('tblName',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strFields',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrders',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strOrderType',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageSize',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('PageIndex',ftString,pdInput,,fgUnassigned);
   sp1.Parameters.CreateParameter('strWhere',ftString,pdInput,,fgUnassigned);

   sp1.Parameters[].Value := 'NewsInfo';
   sp1.Parameters[].Value := '*';
   sp1.Parameters[].Value := 'ID';
   sp1.Parameters[].Value := 'ASC';
   sp1.Parameters[].Value := '';
   pageIndex := pageIndex + ;
   sp1.Parameters[].Value :=  pageIndex;
   sp1.Parameters[].Value := '';

   sp1.ExecProc;
   sp1.Open;
 end;