1 前言
何谓递归，在程序编码行业中，递归是经常要听到的名词，但真正有使用递归程序解决用户需求的程序编码人员却少之又少。
所谓递归，简而言之就是应用程序自身调用自身，以实现层次数据结构的查询和访问。
2 递归程序的作用
我们有处理具有层次结构的数据结构时，往往需要使用递归的概念。
举个实例：<以下我们均以BOM表作为实例进行解释，不再谈及相对抽象的文字>
BOM表，在自称为“ERP”的系统中，BOM采用的是有限定层次结构的树形结构，如：第一层表示成品、第二层表示半成品、第三层表示在第二层之下的半成品，如此推类，在层次限定的前提下，该程序通常没有使用递归的概念进行编程，BOM表的各个层级程序处理往往使用硬代码编程，造成程序复杂，可移植性差，维护麻烦等缺点。
应用递归的概念后，BOM表的层级可以无限，对BOM表的处理，如计算材料成本或原材料清单等，则可以使用简洁的代码来实现。
3 递归程序的特点
递归程序的共同特点：
(1)代码中必定包括一个循环；
(2)循环中调用自身程序；
(3)循环的条件为递归终止的条件
如此构成一个完整的递归程序
4 递归程序的应用实例
--4.1 数据表结构
--BOM表样例，里面包含较为简单的BOM层次结构
Create Table Test_Bom (
ItemKey VarChar2(10) Not Null--产品(或材料)主键，关联产品基本档，在此不进行具体描述。原应为数值类型，在此以字符类型表示，以方便查看和说明。
,MaterialKey VarChar2(10) Not Null--半成品(或材料)主键，关联产品基本档，在此不进行具体描述。原应为数值类型，在此以字符类型表示，以方便查看和说明。
,Qty Number(6,2) Not Null--单位用量
,constraint PK_Test_Bom primary key (ItemKey,MaterialKey)
);
--4.2 测试数据
--A由A1和A2构成
Delete From Test_Bom;
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a1','a',1);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a2','a',2);
--A1由A11和A12构成
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a11','a1',3);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a12','a1',4);
--A11由A111和A112构成
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a111','a11',5);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a112','a11',6);
--A12由A121和A122以及A123构成
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a121','a12',7);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a122','a12',8);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a123','a12',9);
--A2由A21和A22构成
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a21','a2',10);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a22','a2',11);
--A21由A212和A1构成
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a212','a21',12);
Insert Into Test_Bom (MaterialKey, ItemKey,Qty) Values ('a1','a21',5);
Commit;
--由此看出真正需要购买的原材料是：a111,a112,a121,a122,a123,a22,a212
--4.3 需求
--要列出产品A的材料清单，以方便核算成本和请购材料。
--4.4 实现方法
--4.4.1 创建临时表，用于存储计算结果
--为方便查看，本例使用常规数据表，实际应用过程中，应使用临时表，避免用户之间的干扰
--create Global Temporary table Test_Bom_MaterialList_TP(
MaterialKey VarChar2(10) Not Null
-- ,Qty Number(10) Not Null
--)
-- On Commit PreServe Rows
--/
create table Test_Bom_MaterialList_TP(
MaterialKey VarChar2(10) Not Null
,Qty Number(10) Not Null
)
/
--4.4.2 创建程序包，用于计算原材料用量
CREATE OR REPLACE Procedure SP_EXPortMaterial
(P_ItemKey In Varchar2,P_Qty Number)
is
--=============================================
--创建存放游标数据的记录类型
--=============================================
type Material_rec is record(
ItemKey Test_Bom.ItemKey%type,
MaterialKey Test_Bom.MaterialKey%type,
Qty Test_Bom.Qty%Type);
--=============================================
--创建存放游标记录的记录集对象
--=============================================
Material_Record Material_Rec;
--=============================================
--创建游标，游标的记录集数据类型为Material_Rec
--=============================================
Type Material_Cur is ref cursor Return Material_Rec;
--=============================================
--创建游标对象
--=============================================
Material_Cursor Material_Cur;
L_IsNextLayer Numeric;--存放是否有下一层物料的变量
L_MaterialQty Numeric;--当前物料的单位用量
begin
--=============================================
--打开游标，传入数据
--=============================================
open Material_CurSor for
select ItemKey --主产品KEY
,MaterialKey --物料KEY
,Qty --物料标准用量
from Test_Bom
Where ItemKey=P_ItemKey;
--=============================================
--将数据传入BOM_MaterialList_TP临时数据表
--=============================================
--将游标数据推入Material_Record记录集对象\
Fetch Material_CurSor Into Material_Record;
While Material_Cursor%Found --判定游标是否为空
Loop
--判定当前物料编号是否有下一层物料
Select Count(0) Into L_IsNextLayer
From Test_Bom
Where ItemKey=Material_Record.MaterialKey;
If Not L_IsNextLayer=0 Then
--假如有下层物料，则执行再调用SP_ExportMaterial<自身程序，递归点>
SP_ExportMaterial
(Material_Record.MaterialKey
,P_Qty*Material_Record.Qty);
Else
--将当前游标数据传入Test_Bom_MaterialList_TP临时数据表
Insert Into Test_Bom_MaterialList_TP
(MaterialKey,Qty)
Values(Material_Record.MaterialKey
,P_Qty*Material_Record.Qty);
--将游标数据推入Material_Record记录集对象
End if;
Fetch Material_CurSor Into Material_Record;
End Loop;
Commit;
end SP_ExportMaterial;
--4.5 测试
Delete From Test_Bom_MaterialList_TP; --删除临时表数据
SP_ExportMaterial('a1',1); --执行计算程序
Select * from Test_Bom_MaterialList_TP;
|
