溫馨提示×

溫馨提示×

您好，登錄后才能下訂單哦！

密碼登錄×
登錄注冊×
其他方式登錄
點擊 登錄注冊 即表示同意《億速云用戶服務(wù)條款》

delphi使用存儲過程

發(fā)布時間：2020-07-05 20:38:13 來源：網(wǎng)絡(luò) 閱讀：318 作者：鵝倌 欄目：開發(fā)技術(shù)

  with adoProc do
  begin
    ProcedureName := 'HOCRM_SCF1_Update';
    Parameters.Clear;
    Parameters.CreateParameter('P1', ftstring, pdInput, 4000,thexml); //   用戶輸入?yún)?shù)
    Parameters.CreateParameter('SCF01', ftstring, pdOutput, 20, scf01);      // 存儲過程返回參數(shù)
    Parameters.CreateParameter('SCF04', ftstring, pdOutput, 20, SCF04);      // 存儲過程返回參數(shù)
    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;

向AI問一下細節(jié)

免責(zé)聲明：本站發(fā)布的內(nèi)容（圖片、視頻和文字）以原創(chuàng)、轉(zhuǎn)載和分享為主，文章觀點不代表本網(wǎng)站立場，如果涉及侵權(quán)請聯(lián)系站長郵箱：is@yisu.com進行舉報，并提供相關(guān)證據(jù)，一經(jīng)查實，將立刻刪除涉嫌侵權(quán)內(nèi)容。

AI
助
手