1、【delphi+oracle报表解决方案(一)】delphi中调用oracle的存储过程(分带返回游标,不返回值两种) 关键字: delphi ,oracle存储过程,游标,返回数据集,报表注:delphi 6+ oracle 8.1.6一.创建包与包体1.附:建表aaclass为下面作测试用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT INTO aaclass values(c1, cn1, 10 ) ;INSERT INTO aaclass values(c2
2、, cn2, 40 ) ;INSERT INTO aaclass values(c1, cn3, 30 ) ;commit;2.建包:CREATE OR REPLACE PACKAGE PKG_JCCTEST1 AS type rc_class is ref cursor; -求p1,p2的和与差,返回的多个值通过游标返回 procedure GetSubAndSum2(p1 number,p2 number , ResultCursor out rc_class); -查询满足条件的数据集,返回数据集通过游标返回 procedure GetClass2(a in number,ResultC
3、ursor out rc_class ) ; -往表中插一条记录,不返回结果集时,本人用AdoQuery调用(adodataset好象要求必须返回结果集) procedure InsertClass( p_cid varchar2 ,p_cname varchar2 , p_pnumber number) ;end PKG_JCCTEST1; 3.建包体CREATE OR REPLACE PACKAGE BODY PKG_JCCTEST1 ASprocedure GetSubAndSum2(p1 number,p2 number , ResultCursor out rc_class)ISBE
4、GIN open ResultCursor for select p1-p2 as sum, p1+p2 as sub from dual;END ;procedure GetClass2(a in number,ResultCursor out rc_class )isbeginopen ResultCursor for select aaclass.* from aaclass where pnumber a;end ;procedure InsertClass( p_cid varchar2 ,p_cname varchar2 , p_pnumber number) isbegin in
5、sert into aaclass values(p_cid,p_cname,p_pnumber) ;- commit;end ; 二.在delphi中利用AdoDataSet调用上述第一个存储过程1.利用AdoConnection1连接数据库(驱动为 oracle Provider for OLE DB), *并在连接字符串中加入这一节: PLSQLRSet=1; 如下所示:Provider=OraOLEDB.Oracle.1;Password=KXD;Persist Security Info=True;User ID=KXD;Data Source=TEST3;PLSQLRSet=12.
6、在窗体上加AdoDataSet1 指明连接为上述AdoConnection1,下面可以放一个按钮,单击按钮就能调用第一步中创建的包过程,并返回数据集。代码如下所示:procedure TForm1.Button1Click(Sender: TObject);var AResult , BResult : integer;begin ADODataSet1.Close ; ADODataSet1.CommandType := cmdText ; ADODataSet1.Parameters.Clear ; /*利用call方法调用oracle过程时,参数必须由?来传, 即使你要传的参数为常理 /
7、输出游标的参数不需要指定!,本来此函数带三个参数,我们这里只需要传两个参数. ADODataSet1.CommandText := call PKG_JCCTEST1.GetSubAndSum2(?,?) ; /*C 顺序有关,createparam必须放在commandtext赋值语句之后. / 创建第一个参数,对应call中的第一个?,ftinteger为类型,10为长度,45为传入的实参值 ADODataSet1.Parameters.CreateParameter(p1,ftinteger,pdinput,10,45); /创建第二个参数,根据createparameter的顺序 自动
8、与call中的第二个参数对应 ADODataSet1.Parameters.CreateParameter(p2,ftinteger,pdinput,10,4); /下面调用ADODataSet1 的open方法,返回数据集(对应包过程的游标) ADODataSet1.Open ; /根据存储过程,数据集只有一条记录,所以不需要用while do 来遍历数据集,直接取数据了 /此处的字段名根据包过程中的返回游标 对应的字段名来取 /定义的存储过程返回游标如: open ResultCursor for / select p1-p2 as sum, p1+p2 as sub from dual;
9、 /把对应的字段值取出来即可 AResult := ADODataSet1.Fields.FieldByName(sub).Value ; BResult := ADODataSet1.Fields.FieldByName(sum).Value ; /显示结果 showmessage(inttostr(AResult) ; showmessage(inttostr(BResult) ;end;三.在delphi中利用AdoDataSet调用上述第二个存储过程还是利用上述的AdoDataSet1来调用第二个存储过程,无需任何改动,加第二个按钮,单击时代码如下:procedure TForm1.B
10、utton2Click(Sender: TObject);begin ADODataSet1.Close ; ADODataSet1.CommandType := cmdText ; ADODataSet1.Parameters.Clear ; /*利用call方法调用oracle过程时,参数必须由?来传, 即使你要传的参数为常理 /输出游标的参数不需要指定!,本来此函数带两个参数,我们这里只需要传一个参数. ADODataSet1.CommandText := call PKG_JCCTEST1.GetClass2(?) ; /*C 顺序有关,createparam必须放在commandte
11、xt赋值语句之后. / 创建第一个参数,对应call中的第一个?,ftinteger为类型,10为长度,20为传入的实参值 ADODataSet1.Parameters.CreateParameter(p1,ftinteger,pdinput,10,20); /下面调用ADODataSet1 的open方法,返回数据集(对应包过程的游标) ADODataSet1.Open ; while not ADODataSet1.Eof do begin showmessage(CID : +string(ADODataSet1.FieldByName(CID).Value) + -CNAME : +
12、string(ADODataSet1.FieldByName(CNAME).Value) + -PNUMBER : + string(ADODataSet1.FieldByName(PNUMBER).Value) ) ; ADODataSet1.Next ; end ;end;四 利用adoquery调用第三个过程,不返回数据集的procedure TForm1.Button3Click(Sender: TObject);begin AdoQuery1.Close ; AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQ
13、L.Add(call PKG_JCCTEST1.GetSubAndSum2(?,?) ; AdoQuery1.Parameters.CreateParameter(P1,ftstring,pdinput, 50,c11) ; AdoQuery1.Parameters.CreateParameter(P2,ftstring,pdinput, 50,cn11) ; AdoQuery1.Parameters.CreateParameter(P3,ftinteger,pdinput, 50,25) ; AdoQuery1.ExecSQL ;end;五 利用adoquery调用第一个过程,返回数据集的.
14、procedure TForm1.Button4Click(Sender: TObject);begin AdoQuery1.Close ; AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add(call PKG_JCCTEST1.GetSubAndSum2(?,?) ; AdoQuery1.Parameters.CreateParameter(P1,ftinteger,pdinput, 50,25) ; AdoQuery1.Parameters.CreateParameter(P2,ftinteger,pdi
15、nput, 50,22) ; AdoQuery1.Open ; Showmessage(string( AdoQuery1.FieldByName(sub).Value)+-+ string( AdoQuery1.FieldByName(sum).Value);end;六.关于三层体系的此类问题两层的解决了,三层类似.中间层用tadodataset 或tadoquery (+tdatasetprovider),中间层的adoconnection的连接字符串加上plsqlRset=1;客户端用clientdataset ,大同小异,举例如下: begin /调用相应的过程 ClientDataSet1.Close ; ClientDataSet1.Params.Clear ; ClientDataSet1.CommandText := call PackageName.ProcedureName(?,?) ; ClientDataSet1.Params.CreateParam(ftInteger , ParamName1, ptInput) ; ClientDataSet1.Open ; end ;