(原创)基于关系数据库系统链式存储的树型结构数据，求某结点下的子树所有结点算法(t-sql语言实现)

(原创)基于关系数据库系统链式存储的树型结构数据，求某结点下的子树所有结点算法(t-sql语言实现) 

CREATE TABLE dpet (   --树型结构数据的数据存放表结构
 [dpcode] [varchar] (9)  ,     --结点编码
 [dpname] [varchar] (20) ,  --结点名称
 [dpcode_p] [varchar] (9)   --此结点的父结点编码
) ON [PRIMARY]

/*ms sql 2000调试通过,表temp,t,new,tt 结构与表dpet一致*/

CREATE PROCEDURE  desc_dept(@dpcode varchar(9))   AS
--树型结构数据，求某结点下的的子树所有结点
  truncate table temp
  truncate table t
  truncate table tt
  truncate table new
  insert into temp select *  from dpet    --数据临时存放表
  insert into t  select * from temp where dpcode_p=@dpcode  --中间临时表
  insert into new  select * from t  --结果临时表
  while (exists(select * from t where dpcode in (select dpcode_p from temp)))
    --当某层的结点全为叶子时，才停止循环
    begin
      insert into tt select * from t --中间交换临时表
      truncate table t
      insert into t select * from temp where dpcode_p in
        (select dpcode from tt)
      truncate table tt
      insert into new select * from t
    end
  insert into new select * from temp where dpcode=@dpcode
GO