存储过程实现无限级分类（1）

在做考题的的时候，涉及到分类，虽然不是无限级的，但是，为了以后扩展用，想做成无限级，在网上找找了，一个用存储过程作的，虽然添加，编辑，移动，用的是存储过程，可是在读出来的时候只用了一条Select 语句，感觉挺爽的，下面我把存储过程列出来，我只用到了添加，编辑，没有用到移动。

1，表结构

===================================================
表结构：
表名：Tb_Column
表结构（所有字段非空）：
Column_ID      int  主键（注：非标识）
Column_Name   nvarchar( 50 )分类名称
Parent_ID      int  父分类ID（默认值0）
Column_Path   nvarchar( 1000 ) 分类路径
Column_Depth  int分类深度(默认值0）
Column_Order  int排序(默认值0)
Column_Intro  nvarchar( 1000 )分类说明

================================================

2.添加的存储过程

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

Begin Tran
-- 通过现有记录获取栏目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  =   1
Goto theEnd
End

-- 获取同父节点下的最大序号
Select @Column_Order  =  Max(Column_Order) From Tb_PicColumn 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 = 1
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_Name,Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Intro) 

Values(@Column_Name,@Parent_ID,@Column_Path,@Column_Depth,@Column_Order,@Column_Intro)

IF @@Error <> 0  
Begin
Set @Err = 1
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
    Rollback Tran
Return  0
End
GO