delphi使用存储过程
2016-06-07 14:07
666 查看
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;
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;
相关文章推荐
- Delphi实现http发送xml文件片段
- Delphi实现毫秒级别的倒计时实例代码
- Delphi7中Listview的常用功能汇总
- 插件管理框架 for Delphi(一)
- delphi中一个值得大家来考虑的DLL问题
- Delphi实现检测并枚举系统安装的打印机的方法
- delphi 正弦曲线图
- Delphi下OpenGL2d绘图之画四边形的方法
- Delphi实现木马文件传输代码实例
- delphi建立、读取、存贮INI文件的方法《三》
- Delphi控件ListView的属性及使用方法详解
- delphi制作wav文件的方法
- Delphi下OpenGL2d绘图之画点的方法
- Delphi下OpenGL2d绘图之初始化流程详解
- Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
- Delphi实现截屏存盘的方法
- Delphi实现碰撞球体完整实例代码
- delphi建立、读取、存贮INI文件的方法《二》
- Delphi解析FTP地址的方法
- Delphi实现读取系统时间与日期完整实例