存储过程实现无限级分类(1)

转载 2007年10月05日 18:44:00
在做考题的的时候,涉及到分类,虽然不是无限级的,但是,为了以后扩展用,想做成无限级,在网上找找了,一个用存储过程作的,虽然添加,编辑,移动,用的是存储过程,可是在读出来的时候只用了一条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
 

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(2)插入记录

-- ======================================== -- Author:   -- Description:  -- Return     : 成功返回0,重...

无限级分类(非递归算法/存储过程版/GUID主键)完整数据库示例_(4)显示记录

显示记录,其实再简单不过了,一条sql语句即可 Select * From T_Class order By F_RootID,F_Orders 下面给出一个ASPX(C#版)的示例 Datab...

无限极存储过程分类treeview源

  • 2016年01月04日 17:56
  • 587KB
  • 下载

mysql存储过程实现无限分类

DROP TABLE IF EXISTS `pcms_channel`; CREATE TABLE IF NOT EXISTS `pcms_channel` (   `cid` tinyint(3...

oracle存储过程详解--游标 实现增、删、改、查的(1)

注:以下是转来的内容,但是设计PLSQL代码,原文有问题,所以PLSQL代码我都验证修改了。测试需要在scott/tiger下进行,对于没有的表,需要自行创建,表复制的语句为     CREATE ...

如何实现在Oracle中应用存储过程调用MatLab函数(1)

设计思路:首先在eclipse中使用java调用Matlab函数,再在Oracle存储过程中将java类映射其中。 (1)首先讲解如何利用eclipse调用matlab函数,以及个人遇到的一些问题和...

边缘Dvbbs v7.1 SP1 SQL存储过程增强版

  • 2006年04月05日 10:37
  • 3.78MB
  • 下载

dwb创建存储过程(1)

  • 2007年12月17日 11:11
  • 3.94MB
  • 下载

数据库-存储过程(概念、优缺点、分类)

(1)概念:     ① 存储过程(Stored Procedure)是一组为了完成特定功能的SQL语句集。经编译后存储在数据库 中。     ② 存储过程是数据库中的一个重要对象,用户通过指定存...
  • zdplife
  • zdplife
  • 2015年08月28日 16:39
  • 1898

Oracle触发器与存储过程高级编程_1

  • 2008年07月17日 13:48
  • 11.12MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:存储过程实现无限级分类(1)
举报原因:
原因补充:

(最多只允许输入30个字)