如何在Delphi中调用oracle的存储过程返回数据集? ( 积分: 40 )

最好有示例了，

Oracle的存儲過程是不會返回數據集的,我採取得措施是:<br>先創建一個表,&nbsp;然後再Delphi中執行存儲過程之前&nbsp;把這個表清空,<br>再寫個存儲過程&nbsp;把符合要求的數據插入到創建的表中.<br>最後再查詢這個表.<br>這樣做是比較麻煩,但效果是一樣的.

可以反回啊...我给你一个...

我是这样写的..前台:<br>ADODataSet1.Close&nbsp;;<br>&nbsp;&nbsp;&nbsp;ADODataSet1.CommandType&nbsp;:=cmdUnknown&nbsp;&nbsp;;<br>&nbsp;&nbsp;&nbsp;ADODataSet1.Parameters.Clear;<br>&nbsp;&nbsp;&nbsp;ADODataSet1.CommandText&nbsp;:=&nbsp;'{call&nbsp;VCWIP_JOB_FND50ITEM_PKG.job_fnd50item(?,?)}'&nbsp;;<br>&nbsp;&nbsp;&nbsp;ADODataSet1.Parameters.CreateParameter('p1',ftString,pdInput&nbsp;,10,JobNo);<br>&nbsp;&nbsp;&nbsp;ADODataSet1.Parameters.CreateParameter('p2',ftFloat,pdinput,4,OptSeq);<br>&nbsp;&nbsp;&nbsp;ADODataSet1.Open;<br>[red]-------------------------oracle&nbsp;pak:[/red]<br>CREATE&nbsp;OR&nbsp;REPLACE&nbsp;PACKAGE&nbsp;VCWIP_JOB_FND50ITEM_PKG&nbsp;AS<br>/*<br>&nbsp;&nbsp;REM&nbsp;===============================================================<br>&nbsp;&nbsp;REM&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;Copyright&nbsp;(C)&nbsp;2004&nbsp;&nbsp;&lt;VTECH&gt;<br>&nbsp;&nbsp;REM&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&lt;LIAOBU,CHINA&gt;<br>&nbsp;&nbsp;REM&nbsp;=&nbsp;&nbsp;&nbsp;&nbsp;All&nbsp;rights&nbsp;reserved<br>&nbsp;&nbsp;REM&nbsp;===============================================================<br>&nbsp;&nbsp;REM<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;$Header&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;&nbsp;&nbsp;VCWIP_JOB_FND50ITEM_PKG.pls&nbsp;&nbsp;V&nbsp;2.4&nbsp;02-Jan-2007&nbsp;&nbsp;$<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;PROGRAM&nbsp;NAME:&nbsp;&nbsp;&nbsp;VCWIP_JOB_FND50ITEM_PKG<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;PROGRAMMER&nbsp;&nbsp;:&nbsp;&nbsp;&nbsp;SZ_CEN<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;DATE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;&nbsp;&nbsp;2009-09-17<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;PURPOSE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:&nbsp;&nbsp;&nbsp;for&nbsp;SMD&nbsp;outstanding&nbsp;Jobs&nbsp;<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;PARAMETERS&nbsp;&nbsp;:<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;CALLED&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;:<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;CALLED&nbsp;BY&nbsp;&nbsp;&nbsp;:&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;DESCRIPTION&nbsp;:<br>&nbsp;&nbsp;REM<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;UPDATE&nbsp;HISTORY<br>&nbsp;&nbsp;REM<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;DATE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NAME&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;DESCRIPTION<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;----------&nbsp;&nbsp;---------------&nbsp;&nbsp;---------------------------<br>&nbsp;&nbsp;REM&nbsp;&nbsp;&nbsp;&nbsp;2007-09-17&nbsp;&nbsp;&nbsp;&nbsp;SZ_CEN&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Initialize!<br>&nbsp;&nbsp;===============================================================================*/<br>&nbsp;&nbsp;type&nbsp;mytype&nbsp;is&nbsp;ref&nbsp;cursor;&nbsp;--return&nbsp;VCBOM_EXPLODER_DATA%rowtype;<br><br><br>&nbsp;&nbsp;PROCEDURE&nbsp;JOB_FND50ITEM(--ERRBUF&nbsp;&nbsp;&nbsp;OUT&nbsp;VARCHAR2,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--RETCODE&nbsp;&nbsp;OUT&nbsp;NUMBER,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_JOB_NUMBER&nbsp;IN&nbsp;varchar2,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;p_opseq&nbsp;&nbsp;&nbsp;&nbsp;in&nbsp;number,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mycurs&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;out&nbsp;mytype);<br>&nbsp;&nbsp;<br><br>END&nbsp;VCWIP_JOB_FND50ITEM_PKG;<br>/<br>[red]-----------------pak&nbsp;body-----[/red]<br>CREATE&nbsp;OR&nbsp;REPLACE&nbsp;PACKAGE&nbsp;BODY&nbsp;vcwip_job_fnd50item_pkg<br>AS<br>&nbsp;&nbsp;&nbsp;PROCEDURE&nbsp;job_fnd50item&nbsp;(--ERRBUF&nbsp;&nbsp;&nbsp;OUT&nbsp;VARCHAR2,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--RETCODE&nbsp;&nbsp;OUT&nbsp;NUMBER,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;p_job_number&nbsp;IN&nbsp;varchar2,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;p_opseq&nbsp;&nbsp;&nbsp;&nbsp;in&nbsp;number,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mycurs&nbsp;&nbsp;&nbsp;&nbsp;out&nbsp;mytype)<br>&nbsp;&nbsp;&nbsp;IS<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v_org_id&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;number;<br>&nbsp;&nbsp;&nbsp;v_job_no&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wip_entities.wip_entity_name%TYPE;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v_effective_date&nbsp;&nbsp;&nbsp;DATE;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v_80item&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;VARCHAR2&nbsp;(40);<br>&nbsp;&nbsp;&nbsp;ln_conc_request_id&nbsp;number&nbsp;:=&nbsp;NVL(&nbsp;fnd_global.conc_request_id,&nbsp;-1&nbsp;<br>&nbsp;&nbsp;&nbsp;lv_error&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;varchar2(100);<br>&nbsp;&nbsp;&nbsp;lv_message&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;VARCHAR2(100);<br>&nbsp;&nbsp;--&nbsp;c_item&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mytype%rowtype;<br>&nbsp;&nbsp;&nbsp;BEGIN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SELECT&nbsp;wip.ORGANIZATION_ID,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--wip.wip_entity_name,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wdj.scheduled_start_date,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;msi.segment1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;INTO&nbsp;&nbsp;&nbsp;v_org_id,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--v_job_no,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v_effective_date,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;v_80item<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;FROM&nbsp;wip_entities&nbsp;wip,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;wip_discrete_jobs&nbsp;wdj,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;mtl_system_items&nbsp;msi<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WHERE&nbsp;1&nbsp;=&nbsp;1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AND&nbsp;wip.wip_entity_id&nbsp;=&nbsp;wdj.wip_entity_id<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AND&nbsp;wip.organization_id&nbsp;=&nbsp;wdj.organization_id<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--AND&nbsp;wip.wip_entity_id&nbsp;=&nbsp;wro.wip_entity_id<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--and&nbsp;wro.wip_entity_id&nbsp;=&nbsp;121238<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AND&nbsp;wip.wip_entity_name&nbsp;=p_job_number&nbsp;&nbsp;&nbsp;--'1125770'<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--and&nbsp;wro.operation_seq_num&nbsp;=&nbsp;136<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AND&nbsp;wip.primary_item_id&nbsp;=&nbsp;msi.inventory_item_id<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;AND&nbsp;wip.organization_id&nbsp;=&nbsp;msi.organization_id;<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;BEGIN&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;lv_message&nbsp;:=&nbsp;&nbsp;VCBOM_EXPLODER_UTIL_PKG.VCBOM_EXPLODER_LOW_FUNC<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(&nbsp;P_ORGANIZATION_ID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;&nbsp;v_org_id,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_ASSEMBLY_ITEM_FROM&nbsp;&nbsp;&nbsp;=&gt;&nbsp;v_80item,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_ASSEMBLY_ITEM_TO&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;v_80item,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_IMPL_FLAG&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;2,&nbsp;&nbsp;&nbsp;--1(Yes)&nbsp;means&nbsp;Un-Implementation&nbsp;Item&nbsp;Only,&nbsp;2(No)&nbsp;means&nbsp;Nothing!<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_ALTERNATE_BILL&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;NULL,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_REQUEST_ID&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;ln_conc_request_id,&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_ERROR_MESSAGE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;lv_error,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_SORT_BY&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;NULL,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_DISPLAY_TYPE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;'2',&nbsp;--Value-Set:[BOM_SRS_INDENTED_BILL_DISPLAY_TYPE]<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--[1]=All,&nbsp;[2]=Current,&nbsp;[3]=Future&nbsp;an&nbsp;current<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;P_EFFECTIVE_DATE&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=&gt;&nbsp;v_effective_date<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;EXCEPTION<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;WHEN&nbsp;OTHERS&nbsp;THEN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fnd_file.put_line(&nbsp;fnd_file.LOG,&nbsp;'*Error&nbsp;when&nbsp;call&nbsp;VCBOM_EXPLODER_UTIL_PKG.VCBOM_EXPLODER_LOW_FUNC,&nbsp;sqlerrm&nbsp;=&nbsp;'<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;||&nbsp;SQLERRM);<br>&nbsp;&nbsp;&nbsp;&nbsp;END;&nbsp;<br>&nbsp;<br>&nbsp;open&nbsp;mycurs&nbsp;for&nbsp;<br>&nbsp;select&nbsp;distinct--msi_80.segment1&nbsp;80_item,&nbsp;msi_80.description&nbsp;80_desc,&nbsp;ved.LEVEL_ID,<br>&nbsp;msi_50.segment1&nbsp;--,&nbsp;msi_50.description&nbsp;<br>&nbsp;from&nbsp;VCBOM_EXPLODER_DATA&nbsp;ved,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;mtl_system_items&nbsp;msi_80,<br>&nbsp;&nbsp;&nbsp;&nbsp;mtl_system_items&nbsp;msi_50<br>&nbsp;&nbsp;&nbsp;--&nbsp;BOM_DEPARTMENTS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;BD,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--&nbsp;MFG_LOOKUPS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ML1,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--&nbsp;WIP_REQUIREMENT_OPERATIONS&nbsp;WRO<br>&nbsp;&nbsp;&nbsp;&nbsp;where&nbsp;1=1&nbsp;<br>&nbsp;and&nbsp;ved.REQUEST_ID&nbsp;=&nbsp;&nbsp;ln_conc_request_id<br>&nbsp;and&nbsp;msi_80.inventory_item_id&nbsp;=&nbsp;ved.ASSEMBLY_ITEM_ID<br>&nbsp;and&nbsp;msi_80.organization_id&nbsp;=&nbsp;ved.ORGANIZATION_ID&nbsp;<br>&nbsp;and&nbsp;upper(msi_50.description)&nbsp;like&nbsp;upper('SMD%')<br>&nbsp;and&nbsp;ved.OPERATION_SEQ_NUM&nbsp;=&nbsp;p_opseq<br>&nbsp;and&nbsp;msi_50.inventory_item_id&nbsp;=&nbsp;ved.COMPONENT_ITEM_ID<br>&nbsp;and&nbsp;msi_50.organization_id&nbsp;=&nbsp;ved.ORGANIZATION_ID&nbsp;<br>&nbsp;--and&nbsp;msi_50.inventory_item_id&nbsp;=&nbsp;wro.INVENTORY_ITEM_ID<br>&nbsp;--and&nbsp;msi_50.organization_id&nbsp;=&nbsp;wrRGANIZATION_ID<br>&nbsp;--and&nbsp;wrPERATION_SEQ_NUM&nbsp;=&nbsp;136--p_opseq<br>&nbsp;--and&nbsp;wro.DEPARTMENT_ID&nbsp;=&nbsp;bd.DEPARTMENT_ID<br>&nbsp;--and&nbsp;upper(bd.DEPARTMENT_CODE)&nbsp;like&nbsp;upper('SMD%')<br>&nbsp;/*select&nbsp;msi_50.segment1,&nbsp;msi_50.description<br>&nbsp;from&nbsp;VCBOM_EXPLODER_DATA&nbsp;ved,&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;mtl_system_items&nbsp;msi_80,<br>&nbsp;&nbsp;&nbsp;&nbsp;mtl_system_items&nbsp;msi_50<br>&nbsp;&nbsp;&nbsp;--&nbsp;BOM_DEPARTMENTS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;BD,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--&nbsp;MFG_LOOKUPS&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ML1,<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;--&nbsp;WIP_REQUIREMENT_OPERATIONS&nbsp;WRO<br>&nbsp;&nbsp;&nbsp;&nbsp;where&nbsp;1=1&nbsp;<br>&nbsp;and&nbsp;ved.REQUEST_ID&nbsp;=&nbsp;&nbsp;ln_conc_request_id<br>&nbsp;and&nbsp;msi_80.inventory_item_id&nbsp;=&nbsp;ved.ASSEMBLY_ITEM_ID<br>&nbsp;and&nbsp;msi_80.organization_id&nbsp;=&nbsp;ved.ORGANIZATION_ID&nbsp;<br>&nbsp;and&nbsp;upper(msi_50.description)&nbsp;like&nbsp;upper('SMD%')<br>&nbsp;and&nbsp;ved.OPERATION_SEQ_NUM&nbsp;=&nbsp;p_opseq<br>&nbsp;and&nbsp;msi_50.inventory_item_id&nbsp;=&nbsp;ved.COMPONENT_ITEM_ID<br>&nbsp;and&nbsp;msi_50.organization_id&nbsp;=&nbsp;ved.ORGANIZATION_ID&nbsp;<br>&nbsp;*/<br>&nbsp;&nbsp;&nbsp;;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;/*&nbsp;&nbsp;for&nbsp;r_item&nbsp;in&nbsp;c_item<br>&nbsp;loop<br>&nbsp;&nbsp;&nbsp;fnd_file.put_line(fnd_file.LOG,r_item.segment1&nbsp;||'&nbsp;&nbsp;'||r_item.description);<br>&nbsp;&nbsp;&nbsp;&nbsp;end&nbsp;loop;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;*/&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;END;<br>END&nbsp;vcwip_job_fnd50item_pkg;<br>/

主要反回一个cursor就可以了

TO&nbsp;SFG:怎么在前台界面中，用数据网格显示这些数据呢。可以显示吗

执行时，总是提示列不存在，为什么呢

http://5axx.com/article/sql/10170.html<br>http://blog.chinaunix.net/u/26381/showart_341828.html<br>按照上面的例子，也不行，总是提示“列不存在”

当然可以了．．．上面的例子中ADODataSet1就是一Dataset.<br>读这个Dateset&nbsp;就可以了．如：Showmessage(ADODateSet1.fields[0].Asstring);<br>Dgrid.cells[0,0].value:=ADODateSet1.fields[0].Asstring

使用游标做返回值，没有问题的

能不能给里示例啊，

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1321421