use tempdb
go
CREATE TABLE Hierarchy(ID int PRIMARY KEY, Name varchar(30),
PredecessorNo int NULL REFERENCES Hierarchy (ID))
INSERT Hierarchy VALUES (1,'1A',1)
INSERT Hierarchy VALUES (2,'2B',1)
INSERT Hierarchy VALUES (3,'3C',2)
INSERT Hierarchy VALUES (4,'3D',2)
INSERT Hierarchy VALUES (5,'4E',3)
INSERT Hierarchy VALUES (6,'4F',3)
INSERT Hierarchy VALUES (7,'4G',3)
INSERT Hierarchy VALUES (8,'4H',3)
INSERT Hierarchy VALUES (9,'4I',3)
INSERT Hierarchy VALUES (10,'5J',9)
INSERT Hierarchy VALUES (11,'5K',9)
INSERT Hierarchy VALUES (12,'5L',9)
INSERT Hierarchy VALUES (13,'5M',9)
create procedure uspHierarchyByNodesSelect
@id int
as
BEGIN
CREATE TABLE #queue(lvl int, ID int)
CREATE TABLE #Hierarchy(seq int identity, lvl int,ID int)
DECLARE @lvl int,@curr int
SELECT @lvl=0,@curr=@id
-- 初始化对列,将待查询的根节点当作第一个元素
INSERT INTO #queue(lvl,ID) VALUES(@lvl,@curr)
WHILE(@lvl > -1) BEGIN
-- 确保当前层包含节点
IF EXISTS(SELECT * FROM #queue where lvl=@lvl)
BEGIN
-- 将队列最前面的值取出
SELECT TOP 1 @curr=ID FROM #queue
where lvl=@lvl
DELETE #queue
WHERE lvl=@lvl and ID=@curr
-- 保存得到的结果
INSERT INTO #Hierarchy(lvl,ID) VALUES(@lvl,@curr)
-- 往队列里面塞那些符合条件的值
INSERT #queue
select @lvl+1,ID
FROM Hierarchy
WHERE PredecessorNO=@curr and PredecessorNo <> ID
-- 如果往里面成功塞入了值,则对下一级也尝试塞入队列
if (@@ROWCOUNT > 0) SET @lvl=@lvl+1
END
-- 如果到了这个层级,@lvl层级的元素处理完了,则返回处理它的上一层
ELSE
SET @lvl = @lvl-1
END
-- 得到@id下所有的子节点
SELECT i.ID,i.Name,i.PredecessorNo
FROM #Hierarchy d join Hierarchy i On (d.ID=i.ID)
-- 排除自身
WHERE i.ID <> @id
ORDER BY seq
drop table #Hierarchy
END
exec uspHierarchyByNodesSelect 3