(转)无限级分类的非递归实现(存储过程版)(细微修正)

       最近一直在为新项目做准备工作,关于版块及类别分类的问题是在让人挠头,倒不是因为有多复杂,而已追求更高效和便捷.当然没有最好的程序,只有最适合的方法,此处贴上找到的一个分类方法,觉得比较合适我用,因为是转载,可又不大容易找到文章真正出处,只能注明转载字样.

     应用过程中有一点点小错误,已经修正,粗略测试未发现问题

错误修正记录：1.column_insert中表名错误,已更正(08-3-29)

                            2.column_insert中,未判断父类别下是否存在待添加的同名类别,已更正(08-4-1)

                            3.column_delete中,"查询该节点下是否有子节点"部分稍作修改,以方便判断错误信息(08-4-1)

表结构:

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

CREATE TABLE [dbo].[Tb_Column] (
    [Column_ID] [int] NOT NULL ,
    [Column_Name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
    [Parent_ID] [int] NULL ,
    [Column_Path] [nvarchar] (1000) COLLATE Chinese_PRC_CI_AS NULL ,
    [Column_Depth] [int] NULL ,
    [Column_Order] [int] NULL ,
    [Column_Intro] [nvarchar] (1000) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY]
GO

ALTER TABLE [dbo].[Tb_Column] WITH NOCHECK ADD 
    CONSTRAINT [DF_Tb_Column_Parent_ID] DEFAULT (0) FOR [Parent_ID],
    CONSTRAINT [DF_Tb_Column_Column_Depth] DEFAULT (0) FOR [Column_Depth],
    CONSTRAINT [DF_Tb_Column_Column_Order] DEFAULT (0) FOR [Column_Order],
    CONSTRAINT [PK_Tb_Column] PRIMARY KEY  CLUSTERED 
    (
        [Column_ID]
    )  ON [PRIMARY] 
GO

 

存储过程:

 

 

CREATE PROCEDURE Column_Insert
(
    @Parent_ID int,
    @Column_Name nvarchar(50),
    @Column_Intro nvarchar(1000)
)
AS
Declare @Err As int
Set @Err=0

Begin Tran

--判断父类是否已存在该类别名
Declare @Column_Name_Count As int
Select @Column_Name_Count = count(Column_ID) From Tb_Column where Column_Name=@Column_Name and Parent_ID=@Parent_ID
IF @Column_Name_Count <>0
    begin
        Set @Err = 1
        Goto theEnd
    end
--通过现有记录获取栏目ID
Declare @Column_ID As int
Declare @Column_Depth As int
Select @Column_ID = Max(Column_ID) From Tb_Column
IF @Column_ID Is Not Null
    Set @Column_ID = @Column_ID+1
Else
    Set @Column_ID = 1

--判断是否是顶级栏目，设置其Column_Path和Column_Order
Declare @Column_Path As nvarchar(1000)
Declare @Column_Order As int
IF @Parent_ID = 0
    Begin
        Set @Column_Path =Ltrim(Str(@Column_ID))
        Select @Column_Order = Max(Column_Order) From Tb_Column
        IF @Column_Order Is Not Null
            Set @Column_Order = @Column_Order + 1
        Else --如果没有查询到记录，说明这是第一条记录
            Set @Column_Order = 1
        
        --深度
        Set @Column_Depth = 1
    End
Else
    Begin
        --获取父节点的路径和深度
        Select @Column_Path = Column_Path ,@Column_Depth = Column_Depth From Tb_Column Where        
        Column_ID=@Parent_ID
        IF @Column_Path Is Null
            Begin
                Set @Err = 2
                Goto theEnd
            End

        --获取同父节点下的最大序号
        Select @Column_Order = Max(Column_Order) From Tb_Column Where Column_Path like        
        ''+@Column_Path+'|%'  Or Column_ID = @Parent_ID
        IF @Column_Order Is Not Null --如果序号存在，那么将该序号后的所有序号都加1
            Begin 
                --更新当前要插入节点后所有节点的序号
                Update Tb_Column Set Column_Order = Column_Order +1 Where Column_Order                
                >@Column_Order
                --同父节点下的最大序号加上1，构成自己的序号
                Set @Column_Order = @Column_Order + 1
            End 
        Else
            Begin
                Set @Err=2
                Goto theEnd
            End

    --父节点的路径加上自己的ID号，构成自己的路径
    Set @Column_Path = @Column_Path + '|' + Ltrim(Str(@Column_ID))
            
    --深度
    Set @Column_Depth = @Column_Depth+1
            
    End

Insert Into Tb_Column(Column_ID,Column_Name,Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Intro)
Values(@Column_ID,@Column_Name,@Parent_ID,@Column_Path,@Column_Depth,@Column_Order,@Column_Intro)

IF @@Error<>0 
    Begin
        Set @Err=2
        Goto theEnd
    End

--更新当前记录之后的记录的ORDER
--Update Tb_Column Set Column_Order = Column_Order+1 Where Column_Order  > @Column_Order 

theEnd:
IF @Err=0
Begin
Commit Tran
Return @Column_ID
End
Else
Begin
      IF @Err=1
          Begin
                Rollback Tran
                print @Err
                Return -100 --其父节点有同名子节点
          End
      Else
          Begin
                Rollback Tran
                print @Err
                Return -200 --未知错误
          End
    EndGO

 

 

 

CREATE PROCEDURE Column_Delete
(
  @Column_ID int
)
AS
Declare @Err As int
Set @Err = 0
Begin Tran
--首先查询该节点下是否有子节点
declare @childnum int
Select @childnum = count(Column_ID) From Tb_Column  Where Parent_ID = @Column_ID
IF @childnum<>0
    Begin
    Set @Err = 1
    Goto theEnd
    End

--获取该节点的Column_Order,为了删除后整理其他记录的顺序
Declare @Column_Order As int
Select @Column_Order = Column_Order From Tb_Column Where Column_ID = @Column_ID
IF @Column_Order Is NUll
    Begin
      Set @Err =2
      Goto theEnd
    End 

--更新其他记录的Column_Order
Update Tb_Column Set Column_Order = Column_Order -1 Where Column_Order >@Column_Order 
IF @@Error<>0
    Begin
      Set @Err =3
      Goto theEnd
    End 

--删除操作
Delete From Tb_Column Where Column_ID=@Column_ID
IF @@Error<>0
    Begin
      Set @Err =4
      Goto theEnd
  End 

--更新其他记录的Column_ID
--Update Tb_Column Set Column_ID= Column_ID - 1 Where Column_ID >@Column_ID 
--IF @@Error<>0
--    Begin
--      Set @Err =5
--      Goto theEnd
--    End 

theEnd:
IF @Err = 0 
    Begin
      Commit Tran
      Return 0 --删除成功
    End
Else
    Begin
      IF @Err=1
          Begin
                Rollback Tran
                Return 1 --有子节点
          End
      Else
          Begin
                Rollback Tran
                Return 2 --未知错误
          End
    End
GO

 

CREATE PROCEDURE Column_Update
(
  @Column_ID int,
  @Parent_ID int,
  @Column_Name nvarchar(50),
  @Column_Intro nvarchar(1000)
)
AS
Declare @Err As int
Set @Err=0

Begin Tran

--获取修改前的：Parent_ID,Column_Depth,Column_Order
Declare @oParent_ID As int
Declare @oColumn_Depth As int
Declare @oColumn_Order As int
Declare @oColumn_Path As nvarchar(1000)

Select @oParent_ID = Parent_ID, @oColumn_Depth = Column_Depth,@oColumn_Order = Column_Order, @oColumn_Path = Column_Path  From Tb_Column Where Column_ID = @Column_ID
IF @oParent_ID Is Null
    Begin
      Set @Err = 1
      Goto theEnd
    End

--如果父ID没有改变，则直接修改栏目名和栏目简介
IF @oParent_ID = @Parent_ID
    Begin
      Update Tb_Column Set Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
      IF @@Error <> 0
        Set @Err = 2
        Goto theEnd
    End


Declare @nColumn_Path As nvarchar(1000)
Declare @nColumn_Depth As int
Declare @nColumn_Order As int

--获取当前节点作为父节点所包含的节点数[包括自身] 注：如果返回 “1” 说明是单节点
Declare @theCount As int
Select @theCount = Count(Column_ID) From Tb_Column Where Column_ID=@Column_ID Or Column_Path like ''+@oColumn_Path+'|%'
IF @theCount Is Null
  Begin
      Set @Err = 3
      Goto theEnd
  End 

IF @Parent_ID=0 --如果是设置为顶级节点，将节点设置为最后一个顶级节点
Begin
--Print '设置为顶级栏目'
Set @nColumn_Path = Ltrim(Str(@Column_ID))
Set @nColumn_Depth = 1

Select @nColumn_Order = Max(Column_Order) From Tb_Column
IF @nColumn_Order Is NULL
    Begin
       Set @Err = 4
       Goto theEnd
    End 

Set @nColumn_Order = @nColumn_Order - @theCount + 1

--更新三部分 1 节点本身 2 所有子节点 2 本树更改之前的后面记录的顺序
--Print '更新本栏目之前位置后面的所有栏目[不包括本栏目下的子栏目]的：Column_Order'
Update Tb_Column Set Column_Order = Column_Order-@theCount Where (Column_Order >@oColumn_Order) And (Column_Path Not like ''+@oColumn_Path+'|%')
IF @@Error <> 0
    Begin
    Set @Err = 7
    Goto theEnd
    End

--Print '更新本栏目的：Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
--Print 'Order : '+Ltrim(Str(@nColumn_Order))
Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
IF @@Error <> 0
    Begin
    Set @Err = 5
    Goto theEnd
    End

--Print '更新本栏目下的所有子栏目的：Column_Path,Column_Depth,Column_Order'
Update Tb_Column Set Column_Path = Replace(Column_Path,@oColumn_Path,@nColumn_Path),Column_Depth = Column_Depth + (@nColumn_Depth-@oColumn_Depth),Column_Order = Column_Order+( @nColumn_Order-@oColumn_Order) Where Column_Path like ''+@oColumn_Path+'|%'
IF @@Error <> 0
    Begin
    Set @Err = 6
    Goto theEnd
    End


End 
Else
Begin
--获取未来父节点的相关信息,并设置本节点的相关值
Select @nColumn_Depth = Column_Depth,@nColumn_Path = Column_Path From Tb_Column Where Column_ID = @Parent_ID
IF @nColumn_Depth Is  NULL Or @nColumn_Path Is Null
      Begin
      Set @Err = 8
      Goto theEnd
      End 
Set @nColumn_Depth = @nColumn_Depth +1
Select @nColumn_Order =Max(Column_Order) From Tb_Column Where Column_ID = @Parent_ID Or  Column_Path like ''+@nColumn_Path+'|%'
IF @nColumn_Order Is  NULL
      Begin
      Set @Err = 9
      Goto theEnd
      End 

Set @nColumn_Path = @nColumn_Path +'|'+ Ltrim(Str(@Column_ID))

IF @nColumn_Order = @oColumn_Order+1 --如果新的父节点是原来位置上端最近一个兄弟,则所有节点的顺序都不改变
      Begin
          Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
IF @@Error <> 0
    Begin
    Set @Err = 10
    Goto theEnd
    End
       End

Set  @nColumn_Order = @nColumn_Order + 1 

--更新三部分 1 本树更改之前的后面（或前面）记录的顺序 1 节点本身  3 所有子节点
--分为向上移或象下移
--Print '更新本栏目之前位置后面的所有栏目[或者本栏目之后位置]  [不包括本栏目下的子栏目]的：Column_Order'
IF @nColumn_Order < @oColumn_Order
Begin
Update Tb_Column Set Column_Order = Column_Order+@theCount Where Column_Order<@oColumn_Order  And Column_Order >=@nColumn_Order And (Column_Path Not like ''+@oColumn_Path+'|%') And Column_ID<>@Column_ID
IF @@Error <> 0
        Begin
        Set @Err = 12
        Goto theEnd
        End
End
Else
Begin
Update Tb_Column Set Column_Order = Column_Order-@theCount Where Column_Order >@oColumn_Order And Column_Order<@nColumn_Order  And (Column_Path Not like ''+@oColumn_Path+'|%') And Column_ID<>@Column_ID
IF @@Error <> 0
        Begin
        Set @Err = 13
        Goto theEnd
        End
End

--Print '更新本栏目的：Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'
Print 'Order : '+Ltrim(Str(@nColumn_Order))
IF @nColumn_Order > @oColumn_Order
Set @nColumn_Order = @nColumn_Order - @theCount
Update Tb_Column Set Parent_ID=@Parent_ID,Column_Path = @nColumn_Path,Column_Depth = @nColumn_Depth,Column_Order = @nColumn_Order, Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID
IF @@Error <> 0
    Begin
    Set @Err = 10
    Goto theEnd
    End

--Print '更新本栏目下的所有子栏目的：Column_Paht,Column_Depth,Column_Order'
             Update Tb_Column Set Column_Path = Replace(Column_Path,@oColumn_Path,@nColumn_Path),Column_Depth = Column_Depth + (@nColumn_Depth-@oColumn_Depth),Column_Order = Column_Order+(@nColumn_Order-@oColumn_Order) Where Column_Path like ''+@oColumn_Path+'|%'
IF @@Error <> 0
    Begin
    Set @Err = 11
    Goto theEnd
    End
End

theEnd:
IF @Err<>0 --如果有错误则返回错误号
   Begin
   Rollback Tran
   Return @Err
   End
Else     --如果没有错误就返回0
   Begin
   Commit Tran
   Return 0
   End
GO

 

CREATE PROCEDURE Column_List 
 AS
SELECT Column_ID, Column_Name, Parent_ID, Column_Path, Column_Depth, 
      Column_Order, Column_Intro
FROM Tb_Column
ORDER BY Column_Order
GO