有限层树形数据转换成无限层树形数据的示例存储过程(MS SQL 2K)

--有限层树形数据转换成无限层树形数据的示例存储过程(MS SQL 2K)

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[P_Tree_Convert]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[P_Tree_Convert]
GO

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO



CREATE PROCEDURE P_Tree_Convert AS

--有限层树形数据转换成无限层树形数据的示例存储过程

--结果数据.
CREATE TABLE [dbo].[#TREE_INFO] (
[NODEID] [varchar](10) NULL , --树形数据节点代码
[PARENTID] [varchar] (10) NULL ,--树形数据节点的父节点代码
[NODENAME] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,--节点名称
[ADDRESS] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,--节点的其它信息
[ICON] [int] NULL --节点的图标编号
) ON [PRIMARY]

--获取有限层树形数据节点数据
SELECT * into #
FROM (SELECT DPCODE1 AS node, DPNAME1 AS nodename
FROM ora_CUSTDEPT
WHERE (DPCODE2 = '00') AND (DPCODE3 = '000') AND (DPCODE4 = '000')
UNION ALL
SELECT DPCODE1 + DPCODE2 AS node, DPNAME2 AS nodename
FROM ora_CUSTDEPT
WHERE (DPCODE3 = '000') AND (DPCODE4 = '000') AND (DPCODE2 <> '00')
UNION ALL
SELECT DPCODE1 + DPCODE2 + DPCODE3 AS node,
DPNAME3 AS nodename
FROM ora_CUSTDEPT
WHERE (DPCODE3 <> '000') AND (DPCODE4 = '000') AND (DPCODE2 <> '00')
UNION ALL
SELECT DPCODE1 + DPCODE2 + DPCODE3 + DPCODE4 AS node,
DPNAME4 AS nodename
FROM ora_CUSTDEPT
WHERE (DPCODE3 <> '000') AND (DPCODE4 <> '000') AND (DPCODE2 <> '00'))
tree_node
ORDER BY node

insert into #TREE_INFO(NODEID, PARENTID, NODENAME)
--从有限层树形数据节点数据获取其父节点数据,后插入结果表
SELECT node, CASE WHEN len(ltrim(rtrim(node))) = 2 THEN '0' WHEN len(node)
= 4 THEN substring(ltrim(rtrim(node)), 1, 2) WHEN len(node)
= 7 THEN substring(ltrim(rtrim(node)), 1, 4) WHEN len(node)
= 10 THEN substring(ltrim(rtrim(node)), 1, 7) END AS parentid,nodename
FROM #

select * from #TREE_INFO --结果查看

drop table #
drop table #TREE_INFO

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO