exce Pro_zxc('301007087','001','1','1000',to_date('2018-03-17','yyyy-mm-dd'),:Result_Code,:Result_Code)
存盤程序名 Pro_zxc
引數 ： 卡號 ，編號， 數量，金額，時間，錯誤代碼（0/1），回傳訊息
前4個為傳入引數，后兩個為回傳引數。
OrclSql := 'exce Pro_zxc(' + QuotedStr(edtID.Text) + ',' + QuotedStr(edtNum.Text) + ',''' + IntToStr(CNum) +''',' + QuotedStr(HcDBLabelEdit3.Text) + ',' + 'to_date('+QuotedStr(dateSigContractDate.Text)+','+'''yyyy-mm-dd'')'+',:Result_Code,:Result_Code)';
WriteLog(OrclSql);
UniQueryMoney.Close;
UniQueryMoney.SQL.Clear;
UniQueryMoney.SQL.Add(OrclSql);
WriteLog('UniQueryMoney.SQL.Add(OrclSql);');
UniQueryMoney.Open; //報錯 ora-00900 invalid sql statement
WriteLog('UniQueryMoney.Open;');
Result_Num := UniQueryMoney.ParamByName('Result_Code').AsString;
WriteLog('Result_Num = '+Result_Num);
Result_Msg := UniQueryMoney.ParamByName('Result_Msg').AsString;
WriteLog('Result_Msg = '+Result_Msg);
所以 我想問一下 delphi 7 呼叫這個存盤程序該怎么寫，謝謝大佬們指教。
uj5u.com熱心網友回復：
使用TuniStoreProchttp://blog.csdn.net/ProgramSir/article/details/79592208
uj5u.com熱心網友回復：
用TStoredProc 網上有相關內容的 百度一下轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/44370.html
標籤：數據庫相關