Code1
通常情况下，我们更多的操作是读取目录，所以，在下面的实现中，读取我们只需要一Select语句就够了,不使用递归，理论上无限级~！2
===================================================3
表结构：4
表名：Tb_Column5
表结构（所有字段非空）：6
Column_ID int 主键（注：非标识）7
Column_Name nvarchar(50)分类名称8
Parent_ID int 父分类ID（默认值0）9
Column_Path nvarchar(1000) 分类路径10
Column_Depth int分类深度(默认值0）11
Column_Order int排序(默认值0)12
Column_Intro nvarchar(1000)分类说明 13
14
================================================15
存储过程一：新建分类16
17
CREATE PROCEDURE sp_Column_Insert18
(19
@Parent_ID int,20
@Column_Name nvarchar(50),21
@Column_Intro nvarchar(1000)22
)23
AS24
Declare @Err As int25
Set @Err=026
27
Begin Tran28
--通过现有记录获取栏目ID29
Declare @Column_ID As int30
Declare @Column_Depth As int31
Select @Column_ID = Max(Column_ID) From Tb_Column32
IF @Column_ID Is Not Null33
Set @Column_ID = @Column_ID+134
Else35
Set @Column_ID = 136
37
--判断是否是顶级栏目，设置其Column_Path和Column_Order38
Declare @Column_Path As nvarchar(1000)39
Declare @Column_Order As int40
IF @Parent_ID = 041
Begin42
Set @Column_Path =Ltrim(Str(@Column_ID))43
Select @Column_Order = Max(Column_Order) From Tb_Column44
IF @Column_Order Is Not Null45
Set @Column_Order = @Column_Order + 146
Else --如果没有查询到记录，说明这是第一条记录47
Set @Column_Order = 148
49
--深度50
Set @Column_Depth = 151
End52
Else53
Begin54
--获取父节点的路径和深度55
Select @Column_Path = Column_Path ,@Column_Depth = Column_Depth From Tb_Column Where 56
57
Column_ID=@Parent_ID58
IF @Column_Path Is Null59
Begin60
Set @Err = 161
Goto theEnd62
End63
64
--获取同父节点下的最大序号65
Select @Column_Order = Max(Column_Order) From Tb_PicColumn Where Column_Path like 66
67
''+@Column_Path+'|%' Or Column_ID = @Parent_ID68
IF @Column_Order Is Not Null --如果序号存在，那么将该序号后的所有序号都加169
Begin 70
--更新当前要插入节点后所有节点的序号71
Update Tb_Column Set Column_Order = Column_Order +1 Where Column_Order 72
73
>@Column_Order74
--同父节点下的最大序号加上1，构成自己的序号75
Set @Column_Order = @Column_Order + 176
End 77
Else78
Begin79
Set @Err=180
Goto theEnd81
End82
83
--父节点的路径加上自己的ID号，构成自己的路径84
Set @Column_Path = @Column_Path + '|' + Ltrim(Str(@Column_ID))85
86
--深度87
Set @Column_Depth = @Column_Depth+188
89
End90
91
Insert Into Tb_Column(Column_ID,Column_Name,Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Intro) 92
93
Values(@Column_ID,@Column_Name,@Parent_ID,@Column_Path,@Column_Depth,@Column_Order,@Column_Intro)94
95
IF @@Error<>0 96
Begin97
Set @Err=198
Goto theEnd99
End100
101
--更新当前记录之后的记录的ORDER102
--Update Tb_Column Set Column_Order = Column_Order+1 Where Column_Order > @Column_Order 103
104
theEnd:105
IF @Err=0106
Begin107
Commit Tran108
Return @Column_ID109
End110
Else111
Begin112
Rollback Tran113
Return 0114
End115
GO116
117
===================================================118
存储过程二：删除分类119
CREATE PROCEDURE sp_Column_Delete120
(121
@Column_ID int122
)123
AS124
Declare @Err As int125
Set @Err = 0126
Begin Tran127
--首先查询该节点下是否有子节点128
Select Column_ID From Tb_Column Where Parent_ID = @Column_ID129
IF @@RowCount<>0130
Begin131
Set @Err = 1132
Goto theEnd133
End134
135
--获取该节点的Column_Order,为了删除后整理其他记录的顺序136
Declare @Column_Order As int137
Select @Column_Order = Column_Order From Tb_Column Where Column_ID = @Column_ID138
IF @Column_Order Is NUll139
Begin140
Set @Err =2141
Goto theEnd142
End 143
144
--更新其他记录的Column_Order145
Update Tb_Column Set Column_Order = Column_Order -1 Where Column_Order >@Column_Order 146
IF @@Error<>0147
Begin148
Set @Err =3149
Goto theEnd150
End 151
152
--删除操作153
Delete From Tb_Column Where Column_ID=@Column_ID154
IF @@Error<>0155
Begin156
Set @Err =4157
Goto theEnd158
End 159
160
--更新其他记录的Column_ID161
--Update Tb_Column Set Column_ID= Column_ID - 1 Where Column_ID >@Column_ID 162
--IF @@Error<>0163
-- Begin164
-- Set @Err =5165
-- Goto theEnd166
-- End 167
168
theEnd:169
IF @Err = 0 170
Begin171
Commit Tran172
Return 0 --删除成功173
End174
Else175
Begin176
IF @Err=1177
Begin178
Rollback Tran179
Return 1 --有子节点180
End181
Else182
Begin183
Rollback Tran184
Return 2--未知错误185
End186
End187
GO188
=============================================189
存储过程三：编辑分类190
CREATE PROCEDURE sp_Column_Update191
(192
@Column_ID int,193
@Parent_ID int,194
@Column_Name nvarchar(50),195
@Column_Intro nvarchar(1000)196
)197
AS198
Declare @Err As int199
Set @Err=0200
201
Begin Tran202
203
--获取修改前的：Parent_ID,Column_Depth,Column_Order204
Declare @oParent_ID As int205
Declare @oColumn_Depth As int206
Declare @oColumn_Order As int207
Declare @oColumn_Path As nvarchar(1000)208
209
Select @oParent_ID = Parent_ID, @oColumn_Depth = Column_Depth,@oColumn_Order = Column_Order, @oColumn_Path = Column_Path From Tb_Column Where Column_ID = @Column_ID210
IF @oParent_ID Is Null211
Begin212
Set @Err = 1213
Goto theEnd214
End215
216
--如果父ID没有改变，则直接修改栏目名和栏目简介217
IF @oParent_ID = @Parent_ID218
Begin219
Update Tb_Column Set Column_Name = @Column_Name,Column_Intro = @Column_Intro Where Column_ID = @Column_ID220
IF @@Error <> 0221
Set @Err = 2222
Goto theEnd223
End224
225
226
Declare @nColumn_Path As nvarchar(1000)227
Declare @nColumn_Depth As int228
Declare @nColumn_Order As int229
230
--获取当前节点作为父节点所包含的节点数[包括自身] 注：如果返回 “1” 说明是单节点231
Declare @theCount As int232
Select @theCount = Count(Column_ID) From Tb_Column Where Column_ID=@Column_ID Or Column_Path like ''+@oColumn_Path+'|%'233
IF @theCount Is Null234
Begin235
Set @Err = 3236
Goto theEnd237
End 238
239
IF @Parent_ID=0 --如果是设置为顶级节点，将节点设置为最后一个顶级节点240
Begin241
--Print '设置为顶级栏目'242
Set @nColumn_Path = Ltrim(Str(@Column_ID))243
Set @nColumn_Depth =1244
245
Select @nColumn_Order = Max(Column_Order) From Tb_Column246
IF @nColumn_Order Is NULL247
Begin248
Set @Err = 4249
Goto theEnd250
End 251
252
Set @nColumn_Order = @nColumn_Order - @theCount + 1253
254
--更新三部分 1 节点本身 2 所有子节点 2 本树更改之前的后面记录的顺序255
--Print '更新本栏目之前位置后面的所有栏目[不包括本栏目下的子栏目]的：Column_Order'256
Update Tb_Column Set Column_Order = Column_Order-@theCount Where (Column_Order >@oColumn_Order) And (Column_Path Not like ''+@oColumn_Path+'|%')257
IF @@Error <> 0258
Begin259
Set @Err = 7260
Goto theEnd261
End262
263
--Print '更新本栏目的：Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'264
Print 'Order : '+Ltrim(Str(@nColumn_Order))265
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_ID266
IF @@Error <> 0267
Begin268
Set @Err = 5269
Goto theEnd270
End271
272
--Print '更新本栏目下的所有子栏目的：Column_Path,Column_Depth,Column_Order'273
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+'|%'274
IF @@Error <> 0275
Begin276
Set @Err = 6277
Goto theEnd278
End279
280
281
End 282
Else283
Begin284
--获取未来父节点的相关信息,并设置本节点的相关值285
Select @nColumn_Depth = Column_Depth,@nColumn_Path = Column_Path From Tb_Column Where Column_ID = @Parent_ID286
IF @nColumn_Depth Is NULL Or @nColumn_Path Is Null287
Begin288
Set @Err = 8289
Goto theEnd290
End 291
Set @nColumn_Depth = @nColumn_Depth +1292
Select @nColumn_Order =Max(Column_Order) From Tb_Column Where Column_ID = @Parent_ID Or Column_Path like ''+@nColumn_Path+'|%'293
IF @nColumn_Order Is NULL294
Begin295
Set @Err = 9296
Goto theEnd297
End 298
299
Set @nColumn_Path = @nColumn_Path +'|'+ Ltrim(Str(@Column_ID))300
301
IF @nColumn_Order = @oColumn_Order+1 --如果新的父节点是原来位置上端最近一个兄弟,则所有节点的顺序都不改变302
Begin303
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_ID304
IF @@Error <> 0305
Begin306
Set @Err = 10307
Goto theEnd308
End309
End310
311
Set @nColumn_Order = @nColumn_Order + 1 312
313
--更新三部分 1 本树更改之前的后面（或前面）记录的顺序 1 节点本身 3 所有子节点314
--分为向上移或象下移315
--Print '更新本栏目之前位置后面的所有栏目[或者本栏目之后位置] [不包括本栏目下的子栏目]的：Column_Order'316
IF @nColumn_Order < @oColumn_Order317
Begin318
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_ID319
IF @@Error <> 0320
Begin321
Set @Err = 12322
Goto theEnd323
End324
End325
Else326
Begin327
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_ID328
IF @@Error <> 0329
Begin330
Set @Err = 13331
Goto theEnd332
End333
End334
335
--Print '更新本栏目的：Parent_ID,Column_Path,Column_Depth,Column_Order,Column_Name,Column_Intro'336
Print 'Order : '+Ltrim(Str(@nColumn_Order))337
IF @nColumn_Order > @oColumn_Order338
Set @nColumn_Order = @nColumn_Order - @theCount339
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_ID340
IF @@Error <> 0341
Begin342
Set @Err = 10343
Goto theEnd344
End345
346
--Print '更新本栏目下的所有子栏目的：Column_Paht,Column_Depth,Column_Order'347
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+'|%'348
IF @@Error <> 0349
Begin350
Set @Err = 11351
Goto theEnd352
End353
End354
355
theEnd:356
IF @Err<>0 --如果有错误则返回错误号357
Begin358
Rollback Tran359
Return @Err360
End361
Else --如果没有错误就返回0362
Begin363
Commit Tran364
Return 0365
End366
GO367
=========================================368
存储过程四：显示分类（只是一条select语句）369
分类列表：370
CREATE PROCEDURE sp_Column_List 371
AS372
SELECT Column_ID, Column_Name, Parent_ID, Column_Path, Column_Depth, 373
Column_Order, Column_Intro374
FROM Tb_Column375
ORDER BY Column_Order376
GO