2,496
社区成员
发帖
与我相关
我的任务
分享
exce Pro_zxc('301007087','001','1','1000',to_date('2018-03-17','yyyy-mm-dd'),:Result_Code,:Result_Code)
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);