Delphi 调用SQL Server 2008存储过程
2013-07-14 07:53
483 查看
1.表结构如下(预算数据明细表):
2.创建存储过程(用于取得某部门某次预算的某月某费目的预算额)
3.delphi 程序中调用(使用ADOConnect 和 ADOStoreProc )
测试通过(测试环境 Win7 + SQL Server 2008 + Delphi XE,时间 2013/07/14 7:00AM)
CREATE TABLE [dbo].[BA_FeeDetail]( [ID] [int] IDENTITY(1,1) NOT NULL, [FeeDeptID] [nvarchar](4) NULL, [FeeDate] [int] NULL, [FeeCode] [nvarchar](10) NULL, [FeeType] [nvarchar](1) NULL, [BAType] [nvarchar](1) NULL, [FeeAmt] [float] NULL ) ON [PRIMARY]
2.创建存储过程(用于取得某部门某次预算的某月某费目的预算额)
CREATE PROCEDURE [dbo].[GetBudgetAmt] -- Add the parameters for the stored procedure here @DeptID nvarchar(4) = '7120', @FeeDate int = 201301, @FeeCode nvarchar(8) ='31301' , @FeeType nvarchar(1) = '2', @BAType nvarchar(1)='1', @FeeAmt float output AS BEGIN -- SET NOCOUNT ON added to prevent extra result sets from -- interfering with SELECT statements. SET NOCOUNT ON; -- Insert statements for procedure here SELECT @FeeAmt = FeeAmt from BA_FeeDetail where ( FeeCode = @FeeCode and FeeType = @FeeType and FeeDate = @FeeDate and FeeDeptID = @DeptID and BAType = @BAType ) Return @FeeAmt END
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;
测试通过(测试环境 Win7 + SQL Server 2008 + Delphi XE,时间 2013/07/14 7:00AM)
相关文章推荐
- Delphi 调用SQL Server 2008存储过程
- SQL Server 2008 调试存储过程(调用用户定义表类型)
- 在delphi中如何调用SQL Server的存储过程(转贴)
- SQL SERVER 2008存储过程生成编号,JDBC调用
- 在Qt5.4中调用 sql server 2008 的存储过程如何获取返回值
- C#调用Sql Server 2008的存储过程流程
- C#与SQL Server存储过程之二(调用):使用C#调用SQL Server的存储过程
- JSP调用SQL server 2000存储过程
- ASP调用SQL Server存储过程
- Delphi分布式系统(MIDAS)中动态调用存储过程
- Delphi下调用有返回值的存储过程
- C#调用SQL Server有参的存储过程
- sql server 2005/2008 加密存储过程解密
- SQL SERVER 2008破解加密存储过程(修正存储过程过长解密出来是空白的问题)
- Java调用SQL Server的存储过程详解
- 调用存储过程【Delphi版】
- SQL Server 2008 存储过程示例
- DELPHI 调用 Oracle 存储过程并返回数据集的例子.
- sql server 2008存储过程参数
- sql server 2005/2008 加密存储过程解密脚本/软件推荐