在delphi中怎样调用 oracle数据库中的存取过程? 在delphi中怎样调用 oracle数据库中的存取过程?各位大虾,给个具体的例子啊(带参数的)。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ConfirmSP.Close; ConfirmSP.Procedurename := 'USP_UPSTOCKEXPORT';//存储过程名称 ConfirmSP.Parameters.ParamByName('LNO').Value := HeadQuery.FieldByName('LISTNO').AsString; //参数1 ConfirmSP.Parameters.ParamByName('OPERATER').Value := DataModule1.UserCode;//参数2 try if not DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.BeginTrans; ConfirmSP.ExecProc; //执行过程 HeadQuery.Edit; HeadQuery.FieldByName('BILLSTATUS').AsString := '9'; HeadQuery.Post; DataModule1.ADOConnection1.CommitTrans; //提交事务 ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!'); Except if DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.RollbackTrans; //出错,回滚事务 Exception.Create('单据确认错误,操作被取消!'); end; ConfirmSP.Close; ConfirmSP.Procedurename := 'USP_UPSTOCKEXPORT';//存储过程名称 ConfirmSP.Parameters.ParamByName('LNO').Value := HeadQuery.FieldByName('LISTNO').AsString; //参数1 ConfirmSP.Parameters.ParamByName('OPERATER').Value := DataModule1.UserCode;//参数2 try if not DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.BeginTrans; ConfirmSP.ExecProc; //执行过程 HeadQuery.Edit; HeadQuery.FieldByName('BILLSTATUS').AsString := '9'; HeadQuery.Post; DataModule1.ADOConnection1.CommitTrans; //提交事务 ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!'); Except if DataModule1.ADOConnection1.InTransaction then DataModule1.ADOConnection1.RollbackTrans; //出错,回滚事务 Exception.Create('单据确认错误,操作被取消!'); end; 局域网读取文件 如果取消dbgrideh没有记录时的空行? 跪求图片播程序放源码(delphi) 日期格式問題 activeX高手解答 如何应用第一次查询出的结论进行二次查询? 在一个窗口上贴图,但当窗体最大化的时候图大小没有变化 我是新手,分少,我想问一个关于Gis的问题,我很着急,谢谢 各位大侠,如何点dbgrid里的一条记录后,在dbmemo中显示这条记录里memo字段的内容? 请问我在interface中声明变量在别的已引用的单元中为什么不能使用 如何在DBImage中打开JPG文件,并保存到相应的字段中? 端口被封,QQ不能用,郵件不能發,只能上網,有什么辦法可以對付呀!
ConfirmSP.Procedurename := 'USP_UPSTOCKEXPORT';//存储过程名称
ConfirmSP.Parameters.ParamByName('LNO').Value := HeadQuery.FieldByName('LISTNO').AsString; //参数1
ConfirmSP.Parameters.ParamByName('OPERATER').Value := DataModule1.UserCode;//参数2
try
if not DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.BeginTrans;
ConfirmSP.ExecProc; //执行过程
HeadQuery.Edit;
HeadQuery.FieldByName('BILLSTATUS').AsString := '9';
HeadQuery.Post;
DataModule1.ADOConnection1.CommitTrans; //提交事务
ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!');
Except
if DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.RollbackTrans; //出错,回滚事务
Exception.Create('单据确认错误,操作被取消!');
end;
ConfirmSP.Procedurename := 'USP_UPSTOCKEXPORT';//存储过程名称
ConfirmSP.Parameters.ParamByName('LNO').Value := HeadQuery.FieldByName('LISTNO').AsString; //参数1
ConfirmSP.Parameters.ParamByName('OPERATER').Value := DataModule1.UserCode;//参数2
try
if not DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.BeginTrans;
ConfirmSP.ExecProc; //执行过程
HeadQuery.Edit;
HeadQuery.FieldByName('BILLSTATUS').AsString := '9';
HeadQuery.Post;
DataModule1.ADOConnection1.CommitTrans; //提交事务
ShowMessage('单据编号为:'+Edit3.Text+'信息确认成功!');
Except
if DataModule1.ADOConnection1.InTransaction then
DataModule1.ADOConnection1.RollbackTrans; //出错,回滚事务
Exception.Create('单据确认错误,操作被取消!');
end;