共享一个数据库多级分类代码（MSSQL存储过程版)

共享一个数据库多级分类代码（MSSQL存储过程版)

说明

相信多级分类在任何一个信息系统中都会用到，网上也能找到很多版本，下面这个是基于MSSQL存储过程版的，

手上还有VB跟C#版的，不过这几年数据库一直用MSSQL,编程语言却从VBScript到C#又到PB, 搞到现在这套分类代码分别用VB、C#、PB实现了一遍,浪费了不少时间，NND神马多数据库啊！！！哥被忽悠了。

分类采用前缀编码的方式，编码使用字符串类型的，当然也有使用二进制实现的牛人^_^.

表结构

说明(表Category，ClassId,ClassName,Code 为分类相关字段，DataNum,Info等是根据具体情况额外增减)



存储过程

--******************************

-- 多级分类存储过程

-- WDFrog 2012-2-15

-- http://wdfrog.cnblogs.com
--******************************

摘自：/article/4890135.html

--数据表定义

--******************************

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

drop table [dbo].[Category]

GO

CREATE TABLE [dbo].[Category] (

[ClassID] [int] NOT NULL ,

[ClassName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,

[Code] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NOT NULL ,

[DataNum] [int] NULL ,

[Info] [nvarchar] (1000) COLLATE Chinese_PRC_CI_AS NULL

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[Category] ADD

CONSTRAINT [DF_Category_DataNum] DEFAULT (0) FOR [DataNum],

CONSTRAINT [PK_Category] PRIMARY KEY CLUSTERED

(

[ClassID]

) ON [PRIMARY]

GO

--*************************

-- 添加分类存储过程

--***************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Add]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Add]

GO

Create Proc Category_Add

@ClassName nvarchar(50),

@DataNum int ,

@Info nvarchar(1000),

@ParentID int -- 0表示根类别

As

Declare @EditCode int

Declare @StepLen int

Declare @matchStr nvarchar(50)

Declare @typeCode nvarchar(50)

Declare @Code nvarchar(200)

Declare @MyCode nvarchar(200)

Declare @ParentCode nvarchar(200)

Declare @selfCode int

Set @editCode=1

Set @StepLen=4

Set @matchStr=REPLICATE('_',@StepLen) --4个_

set @typeCode=''

Set @Code=''

Set @MyCode=''

Set @selfCode=0

Set @ParentCode=''

Select @ParentCode=Code From [Category] Where
ClassID=@ParentID

If(@editCode=1)

Begin

--获取子类中编号最大的Code,column.ParentCode + matchStr中

Select Top 1 @MyCode= Code From [Category] Where Code Like @ParentCode + @matchStr Order By Code DESC

If @@ROWCOUNT >0

Begin

Set @selfCode=Cast(Right(@MyCode,@StepLen) As Int ) +1

Set @typeCode=Replicate('0',@StepLen-1) + Cast(@selfCode As nvarchar)

Set @typeCode=Right(@typeCode,@StepLen)

Set @typeCode=@ParentCode + @TypeCode

End

Else

Begin

Set @typeCode=@ParentCode +Replicate('0',@StepLen-1)+'1'

End

End

Declare @ClassID int

Set @ClassID=0

--获取最大ClassID

Select @ClassId=Max(ClassID) From [Category]

If Not @ClassID Is Null

Begin

Set @ClassId=@ClassID +1

End

Else

Begin

Set @ClassID=1

End

Insert into [Category]

(ClassID,ClassName,Code,DataNum, Info)

values

(@ClassID,@ClassName,@typeCode,@DataNum, @Info)

Select @ClassID As ClassID

Go

--********************

-- 修改分类存储过程

--*********************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Update]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Update]

GO

Create Proc Category_Update

@ClassID int , --需要修改的ClassID

@ClassName nvarchar(50),

@Info nvarchar(1000),

@ParentID int

As

Declare @EditCode int

Declare @StepLen int

Declare @matchStr nvarchar(50)

Declare @typeCode nvarchar(50)

Declare @Code nvarchar(200)

Declare @MyCode nvarchar(200)

Declare @ParentCode nvarchar(200)

Declare @selfCode int

Set @editCode=0

Set @StepLen=4

Set @matchStr=REPLICATE('_',@StepLen) --4个_

set @typeCode=''

Set @Code=''

Set @MyCode=''

Set @selfCode=0

Set @ParentCode=''

Select @ParentCode=Code From [Category] Where
ClassID=@ParentID

Select @Code=Code From [Category] Where ClassID=@ClassID

--修改原有类别

--确定是否要修改Code字段

--查看是否改变了直接父类别(上一级)

If @ParentCode != Left(@code,len(@code)-@StepLen)

Begin

--过滤选择自己做为父类

If(@ParentCode !=@Code)

Begin

--过滤选择自己的子类为父类

If Len(@ParentCode) > Len(@Code)

Begin

--因为 Len(@ParentCode) > Len(@Code) 所以可以Left(@ParentCode,Len(@Code))

If Left(@ParentCode,Len(@Code)) != @Code --如果相等则为选择自己的子类为父类

Begin

Set @EditCode=1

End

End

Else

Begin

Set @EditCode=1

End

End

End

If(@editCode=1)

Begin

--获取子类中编号最大的Code,column.ParentCode + matchStr中

Select Top 1 @MyCode= Code From [Category] Where Code Like @ParentCode + @matchStr Order By Code DESC

--是否有子类

If @@ROWCOUNT >0

Begin

Set @selfCode=Cast(Right(@MyCode,@StepLen) As Int ) +1

Set @typeCode=Replicate('0',@StepLen-1) + Cast(@selfCode As nvarchar)

Set @typeCode=Right(@typeCode,@StepLen)

Set @typeCode=@ParentCode + @TypeCode

End

Else --没有子类那么编号从1开始

Begin

Set @typeCode=@ParentCode +Replicate('0',@StepLen-1)+'1'

End

End

If (@editCode=1)

Begin

Update [Category] Set

ClassName=@ClassName,Code=@typeCode,
Info=@Info

where ClassID=@ClassID

End

Else

Begin

Update [Category] Set

ClassName=@ClassName,
Info=@Info

where ClassID=@ClassID

End

---修改子类编号(Code)

If(@editCode=1)

Begin

Update [Category] Set

Code=@typeCode + Right(Code,Len(Code)-Len(@Code))

Where Code Like @Code + '%'

End

GO

--************************************

-- 删除一个分类，只允许删除没有子类的分类

--************************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Del]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Del]

GO

Create Proc Category_Del

@ClassID int

As

If (Select Count(ClassID) From[Category] Where Code Like(Select Code From [Category] Where
ClassID=@ClassID)+'%' And ClassId <> @ClassId ) >0

Begin

RaisError ('不能删除带有子类的分类',16,1)

Return

End

Declare @Code nvarchar(200)

Declare @Value int

Set @Value=0

Select @Code=[Code],@Value=[DataNum] From [Category] Where [ClassID]=@ClassID

Update [Category] Set [DataNum]=[DataNum] - @Value Where [ClassID] In( Select ClassID From [Category] Where Len(Code)<=Len(@Code) And Code=Left(@Code,Len(Code)))

Delete From Category Where ClassID=@ClassID

Go

--**************************

-- 根据编号获取一条分类记录

--***************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Select]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Select]

GO

Create PROCEDURE Category_Select

@ClassID int

AS

SELECT [ClassID],[ClassName],[Code],[DataNum], [Info]

FROM [Category]

WHERE

[ClassID]=@ClassID

Go

--**************************

-- 移动分类的排序

--*******************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Move]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Move]

Go

Create Proc Category_Move

@ClassID int,

@IsUp bit=1

As

Declare @maskStr nvarchar(200)

Declare @tempStr nvarchar(200)

Declare @Code nvarchar(200)

Set @Code=''

Set @tempStr=''

Select @Code=Code From [Category] Where ClassID=@ClassID

Set @maskStr=REPLICATE(N'-',Len(@Code))

If @Code !='' And ( (Len(@Code) % 4) =0 )

Begin

If(@isUp=1)

Begin

If(Len(@Code) > 4)

Begin

Select Top 1 @tempStr=Code From [Category] Where Len(Code)=Len(@Code) And Code < @Code And Left(Code,Len(Code)-4)=Left(@Code,Len(@Code)-4) Order By Code DESC

End

Else

Begin

Select Top 1 @tempStr=Code From [Category] Where Len(Code)=Len(@Code) And Code < @Code Order By Code DESC

End

End

Else

Begin

If(Len(@Code) >4)

Begin

Select Top 1 @tempStr=Code From [Category] Where Len(Code)=Len(@Code) And Code > @Code And Left(Code,Len(Code)-4)=Left(@Code,Len(@Code)-4) Order By Code ASC

End

Else

Begin

Select Top 1 @tempStr=Code From [Category] Where Len(Code)=Len(@Code) And Code >@Code Order By Code ASC

End

End

End

-- //已经是最前(最后)

If @tempStr Is Null Or RTrim(LTrim(@tempStr))=''

Begin

return

End

Declare @CodeLen int

Declare @MAXLEN int

Set @CodeLen=Len(@Code)

Set @MAXLEN=200

--//设置目标类，以及目标类的子类为----0001(目标类)或----00010002(子类)为形式

Update [Category] Set Code=@maskStr +Substring(code,@CodeLen +1,@MAXLEN) Where Left(code,@CodeLen)=@tempStr

--//更新当前交换类(包括子类)Code为目标类Code

Update [Category] Set Code=@tempStr +Substring(Code,@CodeLen+1,@MAXLEN) Where Left(code,@CodeLen)=@Code

--//更新目标类（包括子类)Code为当前交换类Code

Update [Category] Set Code=@Code +Substring(code,@CodeLen +1,@MAXLEN) Where Left(code,@CodeLen)=@maskStr

Go

--****************************

--获取指定分类的父分类信息

--*****************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_QueryParent]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_QueryParent]

Go

Create Proc Category_QueryParent

@ClassID int

As

Declare @ClassCode nvarchar(200)

Select @ClassCode=Code From [Category] Where ClassId=@ClassID

Select ClassID,ClassName,Code, DataNum

From [Category]

Where Len(Code)<=Len(@ClassCode)

And Code = Left(@ClassCode,Len(Code))

Order By Code

Go

--******************************

-- 获取整个分类目录

--******************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Query]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Query]

Go

Create Proc Category_Query

As

Select [ClassID],[ClassName],[Code], [DataNum] From [Category] Order By [Code]

Go

--*****************************

--重置所有分类为根分类

--*****************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_Reset]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_Reset]

Go

Create Proc Category_Reset

As

Declare @code nvarchar(200)

Declare @i int

Set @Code=''

Set @i=1

Declare Category_Cursor CURSOR For

Select CODE From [Category]

Open Category_Cursor

Fetch Next From Category_Cursor

WHILE @@FETCH_STATUS=0

Begin

Set @Code=Replicate(N'0',4) + Cast(@i as nvarchar)

Set @Code=Right(@Code,4)

Update [Category] Set Code= @Code WHERE Current Of Category_Cursor

Set @i=@i+1

Fetch Next From Category_Cursor

End

Close Category_Cursor

DEALLOCATE Category_Cursor

Go

--*********************

-- 获取指定分类的分类名称

--************************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_SelectClassName]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_SelectClassName]

Go

Create Proc Category_SelectClassName

@ClassID int

AS

Select [ClassName] From [Category] Where [ClassID]=@ClassID

Go

--********************

-- 获取指定类的子类，并包括自身

--*********************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_QueryChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_QueryChildren]

Go

Create Proc Category_QueryChildren

@ClassID int

As

Declare @Code nvarchar(200)

Select @Code=[Code] From [Category] Where [ClassID]=@ClassID

Select [ClassID],[ClassName],[Code], [DataNum]

From [Category] Where Code Like @Code +'%' Order By Code

Go

--**********************

-- 获取一级分类列表

--***********************

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[Category_QueryRoot]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)

drop procedure [dbo].[Category_QueryRoot]

Go

Create Proc Category_QueryRoot

AS

Select [ClassID],[ClassName],[Code], [DataNum] From [Category] Where Len(Code)=4 Order By Code

Go