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;
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
