计算机等级考试二级Delphi存储过程调用方法

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

　　新建一个单元，命名为：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年3月计算机等级考试成绩查询时间及方式通知

　　2011年下半年计算机等级考试报名时间预测