实现树型结构(一)

March 25,2004

实现树型结构(第一部分)
作者：ACE    最后更新：06/08/2000    类别：原创

先看一下示例，如果你感觉尚可，就继续阅读本文http://www.coolbel.com/ace/articles/test/msdn.asp。

1. 简述

对于大家来说树型结构是很熟悉的一种模型。它的应用十分广泛，比如组织结构，物料清单，资料档案管理，资产管理等等都是以树型结构为基础。在现实生活中，有许多事物可以抽象为树状结构。这种结构可以简化对某些事物的理解，使概念清晰。

2. 表结构

树型结构的表结构可以很简单也可以很复杂。根据不同的需求，表结构不是一成不变的，读取数据的方法也不尽相同。

我们考虑一种最简单的情况，看下面的示例：

Sample Table
Child Node       Parent Node          Title             article
   1                0                Program                0
   2                1             Visual Basic             0
   3                1             Power Builder          0
   4                1                C++ Builder             0
   5                2                ADO Control             1
   ..........
更直观的表示：
Program
|-------Visual Basic
|          |------------ADO Control
|-------Power Builder
|-------C++ Builder

这种结构十分简单，当修改元素间的所属关系时，你只需要修改 Parent Node 就可以了，比如把 ADO Control 作为 Program 的子项，只要将 ADO Control 所对应的 Parent Node 改为1。由此，不难看出这种结构简单，易用。

3. 用存储过程读取数据

如何检索数据，或许是我们最关心的。对于用户来说，在数据的表达上要易于理解。从上面的示例中，就可以看出：直观的表示法比显示数据存储结构更易于理解。

其中的关键在于如何得到元素之间的层次关系，有了层次关系，就能得到类似资源管理器那样的界面。

在这里，我们用存储过程完成该功能。在微软的众多有关 SQL 的文档中，有一段 SQL 代码非常经典，我们本着拿来主义的思想，将它修改一下，洋为中用。

CREATE PROC sp_ListFile(@Child_node int)
As
SET NOCOUNT ON
--declare var
DECLARE @lvl smallint       --层次关系
DECLARE @c_ID int
DECLARE @article bit          --是否为文章的标志
DECLARE @title varchar(150) --标题

--create temporary table
CREATE TABLE #stack (Child_node int,Lvl smallint)

--create target table
CREATE TABLE #FileList
(lvl smallint,
Child_node_ID int,
Article bit,
Title varchar(150) )

--initial
INSERT INTO #stack VALUES(@Child_node,0)
SELECT @Lvl = 0

--main loop
WHILE @Lvl > -1
BEGIN
IF EXISTS(SELECT * FROM #stack WHERE Lvl = @Lvl)
BEGIN
   SELECT @Child_node = Child_node
   FROM #stack
   WHERE Lvl = @Lvl

   SELECT @article = article,@title = title
   FROM some_table
   WHERE Child_node = @Child_node

   INSERT INTO #FileList
   VALUES(@Lvl,@Child_node, @article,@title)

   DELETE FROM #stack
   WHERE Lvl = @Lvl AND Child_node = @Child_node

   INSERT INTO #stack
         SELECT Child_node,@Lvl + 1
      FROM some_table
      WHERE Parent_node = @Child_node
   IF @@ROWCOUNT > 0
   SELECT @Lvl = @Lvl + 1
END
ELSE
   SELECT @Lvl = @Lvl - 1
END
DELETE FROM #FileList
WHERE Lvl = 0
SELECT * FROM #FileList

输出结果：
lvl          Child_node       Article             Title
1          1                0                   Program
2          2                0                   Visual Basic
3          5                1                   ADO Control
2          3                0                   Power Builder
2          4                0                   C++ Builder

上面的存储过程可以有很多变形，比如按时间排序，指定检索深度等等，有的需要对数据库作相应调整。

4. 调用存储过程

调用存储过程有多种形式，我们只讨论如何调用上面的存储过程

Dim cnn
Dim rs
Dim id

Set cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Provider=SQLOLEDB;.......................略
rs.Open "sp_listfile " & id,cnn

由于 Coolbel 不支持存储过程，我把结果集存为 XML 格式，以便于演示。