晒晒我的无限级分类设计--纯数据库实现

最近在做个CMS系统，要做无限级分类。开始在网上找，希望能有现成的拿来就用，结果没搜到满意的，要吗操作复杂，要吗结构复杂，于是想自己倒腾一个，结果还算满意。

1、表结构：

 

2、查询所有分类（树型）  

Select * from Category Order By OrderPath 

 

3、查询某个分类（这里假设该节点ID为 10）下属分类  

a、直接下属：Select * From Category Where ParentId=10 

   b、本身及所有子节点：Select * From Category Where ParentPath Like '10%' Order By OrderPath 

   c、所有下属子节点（不含本身）：Select * From Category Where ParentPath Like '10,%' Order By OrderPath 

 

4：添加分类（存储过程实现）：  

 1create   proc Proc_InsertCategory(
 2 @CategoryName varchar(50),
 3 @ParentId int,
 4 @Remark varchar(250)
 5) as
 6begin
 7 declare @KeyId varchar(40)
 8 declare @OrderId int
 9 declare @CategoryId int 
 declare @Path varchar(900)
 declare @OrderPath varchar(900)
 select @KeyId=NewId()
 if @ParentId > 0
  Select @OrderId=IsNull(Max(OrderId),0) + 1 From Category Where ParentId=@ParentId
 else
  Select @OrderId=IsNull(Max(OrderId),0) + 1 From Category Where ParentId=CategoryId  
 
 Insert Into Category(ChannelId,KeyId,CategoryName,ParentId,OrderId,Child,Remark)
  Values(@ChannelId,@KeyId,@CategoryName,@ParentId,@OrderId,0,@Remark)
 Select @CategoryId=CategoryId From Category Where KeyId=@KeyId
 if @ParentId > 0
 begin
  select @Path=ParentPath,@OrderPath=OrderPath From Category Where CategoryId=@ParentId
  Update Category Set ParentPath=@Path + ',' + Cast(@CategoryId As Varchar(10)),OrderPath=@OrderPath + ',' + Cast(@OrderId As Varchar(10)) Where CategoryId=@CategoryId  
  Update Category Set Child=Child + 1 Where CategoryId=@ParentId
 end
 else
  Update Category Set ParentId=@CategoryId,Path=Cast(@CategoryId As Varchar(10)),OrderPath=Cast(@OrderId As Varchar(10)) Where CategoryId=@CategoryId
 Select @CategoryId
end 

 

5、顺序调整：

--辅助过程

 1create   Proc Proc_ResetCategoryOrder(
 2 @CategoryId int,
 3 @OrderId int
 4) as
 5begin
 6 Update Category
 7  Set OrderId=@OrderId,OrderPath=(Select OrderPath From Category Where CategoryId=(Select ParentId From Category Where CategoryId=@CategoryId)) + ',' + cast(@OrderId As varchar(10))
 8 Where CategoryId=@CategoryId 
 9
 Update Category
  Set OrderPath=(Select OrderPath From Category Where CategoryId=@CategoryId) + ',' + cast(OrderId As varchar(10))
 Where ParentPath like (Select ParentPath From Category Where CategoryId=@CategoryId) + ',%'
end 

 

--修改分类序号

 1create   Proc Proc_ChangeCategoryOrder(
 2 @CategoryId int,
 3 @NewOrderId int
 4) as
 5begin
 6 exec Proc_ResetCategoryOrder @CategoryId,@NewOrderId
 7 declare @OldOrderId int
 8 declare @ParentId int
 9 declare @cid int
 declare @oid int
 Select @OldOrderId=OrderId,@ParentId=ParentId From Category Where CategoryId=@CategoryId
 if @OldOrderId=@NewOrderId
  return
 declare @Relation_Category cursor 

 if @ParentId = @CategoryId
 begin
  if @OldOrderId>@NewOrderId
   set @Relation_Category = cursor for select CategoryId,OrderId+1 From Category Where CategoryId=ParentId And OrderId<@OldOrderId And OrderId>@NewOrderId
  else
   set @Relation_Category = cursor for select CategoryId,OrderId-1 From Category Where CategoryId=ParentId And OrderId>@OldOrderId And OrderId<@NewOrderId
 end
 else
 begin
  if @OldOrderId>@NewOrderId
   set @Relation_Category = cursor for select CategoryId,OrderId+1 From Category Where CategoryId=@ParentId And OrderId<@OldOrderId And OrderId>@NewOrderId
  else
   set @Relation_Category = cursor for select CategoryId,OrderId-1 From Category Where CategoryId=@ParentId And OrderId>@OldOrderId And OrderId<@NewOrderId
 end
 open @Relation_Category
 fetch next from @Relation_Category into @cid,@oid
 while @@fetch_status=0
 begin
  exec Proc_ResetCategoryOrder @cid,@oid 
  fetch next from @Relation_Category into @cid,@oid
 end
 close @Relation_Category
 DEALLOCATE @Relation_Category
end 

 

6、删除分类：

 Delete From Category Where ParentPath Like (Select ParentPath From Category Where CategoryId=@CategoryId) + '%' 

 

7、修改：

就只是修改名称和备注，直接更新就可以了

开始的时候觉得好像很难，做出来了才发现，很简单的嘛

欢迎朋友们点评哈～ 原文地址：http://www.aaronlive.cn/post/2009/02/07/e68891e79a84e697a0e99990e7baa7e58886e7b1bbe8aebee8aea1-e7baafe695b0e68daee5ba93e5ae9ee78eb0.aspx

 

另外，请假一个很初级的问题：在随笔里实现代码折叠，是怎么发布出来的呢？