溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
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進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
