with adoProc do
? begin
??? ProcedureName := 'HOCRM_SCF1_Update';
??? Parameters.Clear;
??? Parameters.CreateParameter('P1', ftstring, pdInput, 4000,thexml); //?? 用戶輸入參數
??? Parameters.CreateParameter('SCF01', ftstring, pdOutput, 20, scf01);????? // 存儲過程返回參數
??? Parameters.CreateParameter('SCF04', ftstring, pdOutput, 20, SCF04);????? // 存儲過程返回參數
??? Prepared := True;
??? ExecProc;
??? SCF01 := vartostr(Parameters.ParamByName('SCF01').Value) ;
??? SCF04 := vartostr(Parameters.ParamByName('SCF04').Value) ;
? end;

------------------------------------------------------------------------

? with sp1 do
? begin
??? Close;
??? ProcedureName:='sp_zyyf_saveoneffckd2';
??? Parameters.Refresh;
??? Parameters.ParamByName('@kh').Value:=kh;
??? Parameters.ParamByName('@zyhstr').Value:=zyhstr;
??? Parameters.ParamByName('@rq').Value:=rq;
??? Parameters.ParamByName('@czbh').Value:=czbh;
??? Parameters.ParamByName('@cxsc').Value:=cxsc;
??? Parameters.ParamByName('@pzh').Value:=pzh;
??? ExecProc;
??? pzh:= Parameters.ParamByName('@pzh').Value;
? end;

本文轉自鵝倌51CTO博客，原文鏈接：http://blog.51cto.com/kaixinbuliao/1786924?，如需轉載請自行聯系原作者

總結

以上是生活随笔為你收集整理的delphi使用存储过程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。