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;

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

分享名称：delphi使用存储过程-创新互联
文章地址：http://kswsj.cn/article/dcheid.html