oracle中如何编写树级代码-数据库专栏,ORACLE

这是在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;
/