delphi调用sql中的存储过程1

以ado为例,新增一个ADOStoredProc1,设置其connection属性为正确的连接,设置其procedurename为你所说的存储过程的名称,执行其open方法(或者execproc)。
在SQL上建了以下存储过程,请问在delphi中要如何调用?  
3.delphi 程序中调用(使用ADOConnect 和 ADOStoreProc )
procedure TForm1.btn1Click(Sender: TObject);
Var
	BudgetAmt:Single;
begin
	with ADOSP1 do
	begin
		ProcedureName :='GetBudgetAmt';
		Parameters.Refresh;				//必须有本语句,刷新参数
		Parameters.ParamByName('@DeptID').Value:=EdtDept.Text;
		Parameters.ParamByName('@FeeDate').Value:=EdtFeeDate.Text;
		Parameters.ParamByName('@FeeCode').Value:=EdtFeeCode.Text;
		Parameters.ParamByName('@FeeType').Value:=EdtFeeType.Text;
		Parameters.ParamByName('@BAType').Value:=EdtBAType.Text;
		Parameters.ParamByName('@FeeAmt').Value:=0.00;
		ExecProc;
		BudgetAmt:=Parameters.ParamByName('@FeeAmt').Value;
		edtFeeAmt.Text:=Format('%.2f',[BudgetAmt]);
	end;
end;
上一篇:delphi llPDFLib 介绍


下一篇:Delphi(Pascal) 密码修改