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;