oracle中如何编写树级代码
2004-05-29 15:54
381 查看
这是在2002年给一个制衣厂做系统的时候写的,请大家多批评指正!
create table Dept(
DepartNO varchar2(10),
DepartName varchar2(20),
TopNo varchar2(10));
insert into Dept values('001','懂事会','0');
insert into Dept values('002','总裁办','001');
insert into Dept values('003','财务部','001');
insert into Dept values('004','市场部','002');
insert into Dept values('005','公关部','002');
insert into Dept values('006','销售部','002');
insert into Dept values('007','分销处','006');
insert into Dept values('008','业务拓展处','004');
insert into Dept values('009','销售科','007');
CREATE TABLE TempDept
(
TempdeptNo char(4), /*部门编号*/
TempdeptName varchar2(20), /*部门名称*/
UpperTempdeptNo char(4), /*上级部门编号*/
UpperTempdeptName varchar2(20), /*上级部门名称*/
TempdeptLevel number(4) /*部门所处的级别*/
);
select departname
from dept
connect by prior departno=topno
start with topno='0';
select a.departname top ,b.departname next
from dept a,dept b
where a.departno=b.topno;
select lpad(departno,level*2+length(departno),'/')
from dept
start with topno='0'
connect by prior departno=topno;
select departno,departname,level ||'/'|| topno
from dept
start with topno='0'
connect by prior departno=topno;
select lpad(departno,level*2+length(departno),' ')
from dept
start with topno='0'
connect by prior departno=topno;
select lpad(departno,level*3,' ')
from dept
start with topno='0'
connect by prior departno=topno;
create or replace function GetLevel(TempNo varchar2)
return varchar2
IS
Result varchar2(20);
cursor CurLevel(curTempNo varchar2)
is
select departNo
from dept
connect by prior departNo = TopNo
start with TopNo = curTempNo;
begin
open CurLevel;
for v_sor in CurLevel(TempNo) loop
Result:=Result || '/' || v_sor.curTempNo;
end loop;
return(Result);
close CurLevel;
dbms_output.put_line('success');
end GetLevel;
REM************************************************************
REM********** 生成部门之间形成的树结构 ******************
REM********** 功能:输入部门后自动产生该部门 ******************
REM********** 及其子部门之间的树关系() ******************
REM********** 输入参数:部门编号ParaDeptId ******************
REM************************************************************
CREATE OR REPLACE procedure getAllSubDeptId(ParaDeptId varchar2)
IS
DeptNo1 varchar2(4); /*存放部门编号*/
UpperDeptNo1 varchar2(4); /*存放该部门的上级部门编号*/
UpperDeptNo2 varchar2(4); /*存放查询同级上级部门编号*/
UpperDeptNo3 varchar2(4); /*存放查询的上级部门编号*/
level number; /*部门所处级别*/
DSql varchar2(100); /*动态SQL字符串*/
CURSOR getDept IS
select DepartNO,TopNo
from dept
where DepartNo != ParaDeptId;
BEGIN
--DSql :='create table tempdept(TempdeptNo,TempdeptName,UpperTempdeptNo,
--UpperTempdeptName,TempdeptLevel)';
--EXECUTE IMMEDIATE DSql;
DSql :='TRUNCATE TABLE TempDept';
dbms_output.put_line(0);
EXECUTE IMMEDIATE DSql;
dbms_output.put_line(1);
insert into TempDept values(ParaDeptId,Null,Null,Null,0);
dbms_output.put_line(2);
open getDept;
fetch getDept into DeptNo1,UpperDeptNo1;
WHILE ( SQLCODE = 0 )
LOOP
level := 1 ;
UpperDeptNo3 := UpperDeptNo1;
WHILE ( UpperDeptNo1 is NOT NULL )
loop
if (UpperDeptNo1 = ParaDeptId) then
insert into tempdept values(DeptNo1,NULL,UpperDeptNo3,NULL,level);
exit;
else
UpperDeptNo2 := UpperDeptNo1;
select topNo into UpperDeptNo1
from dept
where Departno= UpperDeptNo2;
if UpperDeptNo2 != UpperDeptNo1
then
level := level+1;
end if;
end if;
END LOOP;
fetch getDept into DeptNo1,UpperDeptNo1;
END LOOP;
close getDept;
END;
/
create table Dept(
DepartNO varchar2(10),
DepartName varchar2(20),
TopNo varchar2(10));
insert into Dept values('001','懂事会','0');
insert into Dept values('002','总裁办','001');
insert into Dept values('003','财务部','001');
insert into Dept values('004','市场部','002');
insert into Dept values('005','公关部','002');
insert into Dept values('006','销售部','002');
insert into Dept values('007','分销处','006');
insert into Dept values('008','业务拓展处','004');
insert into Dept values('009','销售科','007');
CREATE TABLE TempDept
(
TempdeptNo char(4), /*部门编号*/
TempdeptName varchar2(20), /*部门名称*/
UpperTempdeptNo char(4), /*上级部门编号*/
UpperTempdeptName varchar2(20), /*上级部门名称*/
TempdeptLevel number(4) /*部门所处的级别*/
);
select departname
from dept
connect by prior departno=topno
start with topno='0';
select a.departname top ,b.departname next
from dept a,dept b
where a.departno=b.topno;
select lpad(departno,level*2+length(departno),'/')
from dept
start with topno='0'
connect by prior departno=topno;
select departno,departname,level ||'/'|| topno
from dept
start with topno='0'
connect by prior departno=topno;
select lpad(departno,level*2+length(departno),' ')
from dept
start with topno='0'
connect by prior departno=topno;
select lpad(departno,level*3,' ')
from dept
start with topno='0'
connect by prior departno=topno;
create or replace function GetLevel(TempNo varchar2)
return varchar2
IS
Result varchar2(20);
cursor CurLevel(curTempNo varchar2)
is
select departNo
from dept
connect by prior departNo = TopNo
start with TopNo = curTempNo;
begin
open CurLevel;
for v_sor in CurLevel(TempNo) loop
Result:=Result || '/' || v_sor.curTempNo;
end loop;
return(Result);
close CurLevel;
dbms_output.put_line('success');
end GetLevel;
REM************************************************************
REM********** 生成部门之间形成的树结构 ******************
REM********** 功能:输入部门后自动产生该部门 ******************
REM********** 及其子部门之间的树关系() ******************
REM********** 输入参数:部门编号ParaDeptId ******************
REM************************************************************
CREATE OR REPLACE procedure getAllSubDeptId(ParaDeptId varchar2)
IS
DeptNo1 varchar2(4); /*存放部门编号*/
UpperDeptNo1 varchar2(4); /*存放该部门的上级部门编号*/
UpperDeptNo2 varchar2(4); /*存放查询同级上级部门编号*/
UpperDeptNo3 varchar2(4); /*存放查询的上级部门编号*/
level number; /*部门所处级别*/
DSql varchar2(100); /*动态SQL字符串*/
CURSOR getDept IS
select DepartNO,TopNo
from dept
where DepartNo != ParaDeptId;
BEGIN
--DSql :='create table tempdept(TempdeptNo,TempdeptName,UpperTempdeptNo,
--UpperTempdeptName,TempdeptLevel)';
--EXECUTE IMMEDIATE DSql;
DSql :='TRUNCATE TABLE TempDept';
dbms_output.put_line(0);
EXECUTE IMMEDIATE DSql;
dbms_output.put_line(1);
insert into TempDept values(ParaDeptId,Null,Null,Null,0);
dbms_output.put_line(2);
open getDept;
fetch getDept into DeptNo1,UpperDeptNo1;
WHILE ( SQLCODE = 0 )
LOOP
level := 1 ;
UpperDeptNo3 := UpperDeptNo1;
WHILE ( UpperDeptNo1 is NOT NULL )
loop
if (UpperDeptNo1 = ParaDeptId) then
insert into tempdept values(DeptNo1,NULL,UpperDeptNo3,NULL,level);
exit;
else
UpperDeptNo2 := UpperDeptNo1;
select topNo into UpperDeptNo1
from dept
where Departno= UpperDeptNo2;
if UpperDeptNo2 != UpperDeptNo1
then
level := level+1;
end if;
end if;
END LOOP;
fetch getDept into DeptNo1,UpperDeptNo1;
END LOOP;
close getDept;
END;
/
相关文章推荐
- Android Studio中如何编写JNI代码及编译so库
- 如何编写优雅(地道)的Python代码 - 第一部分
- 如何编写高质量JavaScript代码
- 如何编写异常安全的C++代码
- 如何提升程序员的代码编写能力
- 如何编写更棒的代码:11个核心要点
- 如何编写高质量代码之一:编写高质量的代码的重要性
- C#编码简单性之语义篇(如何编写简短的C#代码,随时更新)
- 框架网页中如何编写前进后退代码
- 如何编写更棒的代码:11个核心要点
- 如何编写高质量的代码——来自《代码大全(第2版)》的启示
- 如何编写优质、高效、益于维护的C++代码
- 如何把ASP编写成DLL这篇文章主要是把ASP代码变成组件
- 如何在windows上搭载PHP环境并编写运行第一个PHP代码
- 如何成功把EXCEL表的数据导入到SQL数据库,代码如何编写
- 提高代码质量:如何编写函数
- 如何编写代码才能使得效率高
- 如何成功把EXCEL表的数据导入到SQL数据库,代码如何编写
- 如何编写可维护的面向对象JavaScript代码
- 如何编写让别人能读懂的代码