2011年计算机二级考试辅导：Delphi存储过程调用方法

文章作者 100test 发表时间 2011:07:04 00:22:31
来源 100Test.Com百考试题网

　　首先，我们使用一种简单的方式，即通过控件的方式来定义存储过程和数据源。

　　新建一个单元，命名为：DataMConn，在加入一个ADO单元下的ADOStoredProc，这里命名为ADOSPTempAbove ,再加入Data Access单元下的一个DataSource，这里命名为DataSourceAbove，设置DataSourceAbove的DataSet属性为ADOSPTempAbove，当然这个属性也可以在程序中指定。

　　下面，可以在另一个单元中添加一个DataGrid，这里的命名为dgAbove。下面的代码加了详细注释。

　　With DataMConn.ADOSPTempAbove do

　　begin

　　ProcedureName := ’GetAbove’. //指定存储过程名称

　　Parameters.Clear. //清除原有参数

　　//以下创建了两个新的参数，关于如何传递表名做为参数请参我在 数据库 分类的高级应用中写的文章。

　　Parameters.CreateParameter(’@tableName’,ftString,pdinput,20,0).

　　Parameters.CreateParameter(’@strDate’,ftString,pdinput,20,0).

　　//以下为参数赋值

　　Parameters.ParamByName(’@tableName’).Value := tempTableName.

　　Parameters.ParamByName(’@strDate’).Value := strDate.

　　try

　　Open. //返回结果集用open，否则用EexcProc.

　　except

　　begin

　　ShowMessage(’打开表错误’).

　　Exit.

　　end.

　　end.

　　//如果没有在控件属性中设置DataSourceAbove的DataSet属性，可以在这里设置：

　　//DataSourceAbove.DatSet := DataMConn.ADOSPTempAbove

　　dgAbove.DataSource := DataMConn.DataSourceAbove.

　　end.

　　注意：　ftString 需要引用DB单元。

　　编辑推荐：

　　2011年计算机等级考试二级Delphi辅导讲义汇总

　　2011年计算机等级考试二级delphi函数参考大全

　　DELPHI控件:怎么样在DELPHI安装第三方控件