教你在oracle中编写树级代码

2016-02-19 16:43 6 1 收藏

下面图老师小编跟大家分享教你在oracle中编写树级代码,一起来学习下过程究竟如何进行吧!喜欢就赶紧收藏起来哦~

【 tulaoshi.com - 编程语言 】

这是在2002年给一个制衣厂做系统的时候写的,请大家多批评指正!

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)


 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;

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)

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;
/

来源:http://www.tulaoshi.com/n/20160219/1612898.html

延伸阅读
正确的索引可能使效率提高10000倍,而无效的索引可能是浪费了数据库空间,甚至大大降低查询性能。索引是提高数据查询最有效的方法,也是最难全面掌握的技术,因为正确的索引可能使效率提高10000倍,而无效的索引可能是浪费了数据库空间,甚至大大降低查询性能。 索引的管理成本 1、存储索引的磁盘空间 2、执行数据修改操作...
标签: ASP
ASP中数据库的安全是一个很严肃的问题。很多代码的编写者意识到了这类问题,并且小心翼翼地对他们认为有问题的地方做了补救,但常见的情况是要么没有穷尽所有的可疑地点,要么这种补救逻辑上有误。对于一个耐心且嗅觉灵敏的攻击者来说,这种意义上的补救措施和没有任何补救措施没有本质上区别。   下面罗列的是一些可能出现的问题:...
标签: 电脑入门
Word2003应用技巧提高告编写质量在日常工作中,我们经常要做一些项目的可行性研究告、初步设计告的等设计告的编写工作。用Word2003编辑告固然非常方便,但是把握一些必要的技巧也是非常重要的。非凡是现在项目审查对告的质量要求越来越高。这些质量要求一方面是专业技术性的,另一方面是就告本身的诸如排版、文字表达、图文效果上的高要求。随...
标签: SQLServer
引言 在负责咨询工作的过去 6 年中,我曾多次听说关于数据访问和操作方面的问题,它时刻困扰着用户:“如何编写应用程序,以便只需对其进行很少的改动或不进行改动即可使用数据库服务器 x、y 和 z?”由于知道数据访问层仍然是现代应用程序的最关键部分,并且通常是经验不足的开发人员的头号敌人,因此我的第一反应始终是:根本办不到! ...
标签: Web开发
由于“可视化”和操作简便,在DreamWeaver中编写CSS的朋友很多,今天我们介绍一些在Dreamweaver中编写CSS的“最佳习惯”,希望对大家有所帮助。 CSS正在改变网站设计的进程。为迎合不断增长的倾向于CSS的设计人员的需求,Macromedia DW MX引进了一些新的及改善过的CSS相关的特性。有了这些新的特性,你可以为未来的更新作好计划,开...

经验教程

612

收藏

5
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部