生成工具-CodeSmith-享受编程的乐趣（一）
2007-10-01 11:51
405 查看
看了/article/4715689.html后我感觉有必要介绍一下CodeSmith，通常追求挑战的程序员认为设计、开发都是充满乐趣，但重复的开发相同的底层工作却是无味的，我接触过也试用过很多代码生成软件，但不是生成出的代码太复杂，就是有些方面不合自己的胃口，尤其是针对Web开发体会更是如此，通常的代码生成器生成的代码直接支持net.remoting，并且均是对dataset直接操作的，而在通常的小规模的web开发中net.reromting不一定用，而直接对dataset操作要求在session来保存临时编辑的数据，而通常对于web开发来说只要一条一条的对数据库编辑，还有，web开发通常都要有分页设计功能，而自动生成的代码也不是尽如人意。所以我一直寻求一种全方位的自定义的生成工具，哪怕初期开发复杂些，但只要开发一次，以后就可以生成合自己胃口的代码。后来一不小心发现了codesmith终于发现他正是我想要的模板生成工具，以下就以下面这个最典型的数据库结构向大家展示一下我作的模板生成的代码，来说明codesmith能达到的功能。 另外可以在“生成工具-CodeSmith-享受编程的乐趣（三）”中可以下载我写的模板
这个数据库中是面对标准的文章发布功能的主要包括两个表一个是articleClass 另一个是article，在aritclass中是一个标准的树状结构(parentid 和id有一个自联接)而articlass中有一个对于ArticleClassID的外键引用。图中除了parentID字段以外均不能为空，这样开发起来方便些：）
对于数据库的操作通常都是用多层来实现的，本篇四层为例，但目前我只作了下三层的模板，因为界面层变化因素太多通常针对不同的项目有不同的要求，大家可以通常这里介绍的方式根据具体项目来自己实现界面层。
第一层数据库层，最通常的工作就是作一些存贮过程供下一层调用
生成的代码如下：
由于我通常作的开发都是基于Web的所以同时整合了分页操作，另外针对树状结构专门提供了一些贮存过程和函数。
------------------------------------------------------------------------------------------------------------------------
-- the sprocs returns various error/success codes
-- a return value of 0 means success
-- a return value of 1 means a dup A_ArticleClass
-- a return value of 2 means A_ArticleClass doesn't exist
------------------------------------------------------------------------------------------------------------------------
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_InsertDeleteUpdate Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_InsertDeleteUpdate]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_InsertDeleteUpdate]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_InsertDeleteUpdate]
(
@ID uniqueidentifier = null,
@ParentID uniqueidentifier = null,
@Name nvarchar(128) = null,
@Description ntext = null,
@OrderBy int = null,
@ImgUrl nvarchar(128) = null,
@IconUrl nvarchar(128) = null,
@Action int
)
AS
BEGIN
IF @Action = 0
-- Insert
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
RETURN 1
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ParentID = @ParentID) And (Name = @Name)
)
RETURN 1
INSERT INTO [dbo].[A_ArticleClass](ID, ParentID, Name, Description, OrderBy, ImgUrl, IconUrl)
VALUES (@ID, @ParentID, @Name, @Description, @OrderBy, @ImgUrl, @IconUrl)
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
RETURN
END
IF @Action = 1
-- Delete
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
BEGIN
Delete
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
IF @Action = 2
-- Update
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ParentID = @ParentID) And (Name = @Name)
AND (NOT
((ID = @ID))
))
RETURN 1
UPDATE [dbo].[A_ArticleClass]
SET
ParentID = @ParentID, Name = @Name, Description = @Description, OrderBy = @OrderBy, ImgUrl = @ImgUrl, IconUrl = @IconUrl
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetPageData Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetPageData]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetPageData]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetPageData]
(
@FieldsName nvarchar(512) = 'A.*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL,
@RecordCount int = 0 output ,
@PageIndex int = 0 output,
@PageSize int = 10
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = 'A.*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
CREATE TABLE #Pager
(
ID uniqueidentifier,
IndexID int IDENTITY (1, 1) NOT NULL
)
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'INSERT INTO #Pager (ID)'
+ ' SELECT ID'
+ ' FROM [dbo].[A_ArticleClass]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC(@SelectSql)
SELECT @RecordCount = COUNT(*) FROM #Pager
IF(@RecordCount < (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @RecordCount / @PageSize
END
IF(@RecordCount = (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @PageIndex - 1
IF @PageIndex < 0
BEGIN
SET @PageIndex = 0
END
END
DECLARE @PageUpperBound int
DECLARE @PageLowerBound int
SET @PageLowerBound = @PageSize * @PageIndex
SET @PageUpperBound = @PageLowerBound + @PageSize + 1
SET @SelectSql = 'SELECT '+ @FieldsName
+ ' FROM [dbo].[A_ArticleClass] AS A INNER JOIN #Pager AS B'
+ ' ON A.ID = B.ID '
+ ' WHERE'
+ ' B.IndexID > ' + RTRIM(LTRIM(CAST(@PageLowerBound AS varchar(128))))
+ ' AND B.IndexID < ' + RTRIM(LTRIM(CAST(@PageUpperBound AS varchar(128))))
+ ' ORDER BY B.IndexID'
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetAll Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetAll]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetAll]
(
@FieldsName nvarchar(512) = '*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = '*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'SELECT ' + @FieldsName
+ ' FROM [dbo].[A_ArticleClass]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetLevel Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetLevel')
drop function [dbo].[A_ArticleClass_GetLevel]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetLevel]
(
@ID uniqueidentifier
)
RETURNS int
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue int
SELECT @ReturnValue = -1
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = @ReturnValue + 1
SELECT @ParentID = ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetMaxLevel Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetMaxLevel')
drop function [dbo].[A_ArticleClass_GetMaxLevel]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetMaxLevel]
(
)
RETURNS int
AS
BEGIN
DECLARE @ReturnValue int
SELECT @ReturnValue = Max([dbo].A_ArticleClass_GetLevel(ID))
from [dbo].A_ArticleClass
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetFullName Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetFullName')
drop function [dbo].[A_ArticleClass_GetFullName]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetFullName]
(
@ID uniqueidentifier
)
RETURNS nvarchar(4000)
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue nvarchar(4000)
SELECT @ReturnValue = ''
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = '/' + isnull([Name],'No Name') + @ReturnValue
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetTopID Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetTopID')
drop function [dbo].[A_ArticleClass_GetTopID]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetTopID]
(
@ID uniqueidentifier
)
RETURNS uniqueidentifier
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ResultID uniqueidentifier
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ResultID = @ParentID
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ResultID
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetFullID Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetFullID')
drop function [dbo].[A_ArticleClass_GetFullID]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetFullID]
(
@ID uniqueidentifier
)
RETURNS nvarchar(4000)
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue nvarchar(4000)
SELECT @ReturnValue = ''
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = '/' + Cast([ID]as varchar(128)) + @ReturnValue
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetChildren]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
[Level] int
)
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
from [dbo].[A_ArticleClass]
where (ID = @ID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
delete #TmpPaths
where ID = @ID
select A.*, B.Level
from [dbo].[A_ArticleClass] A inner join #TmpPaths B
on A.ID = B.ID
order by B.Level desc
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetNonChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetNonChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetNonChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetNonChildren]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier
)
insert into #TmpPaths(ID)
select ID
from [dbo].[A_ArticleClass]
where (ID = @ID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID)
select ID
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
Select * from [dbo].[A_ArticleClass]
where ID not in (select ID from #TmpPaths)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetParents Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetParents]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetParents]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetParents]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
[Level] int
)
DECLARE @ParentID uniqueidentifier
SELECT @ParentID = ParentID
from [dbo].[A_ArticleClass]
where (ID = @ID)
WHILE (not (@ParentID is null))
BEGIN
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
select A.*, B.Level
from [dbo].[A_ArticleClass] A inner join #TmpPaths B
on A.ID = B.ID
order by B.Level desc
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_MoveTo Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_MoveTo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_MoveTo]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_MoveTo]
(
@ID uniqueidentifier,
@NewParentID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @NewParentID))
BEGIN
RETURN 2
END
Update [dbo].A_ArticleClass
Set ParentID = @NewParentID
where (ID = @ID)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_CopyChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_CopyChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_CopyChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_CopyChildren]
(
@ID uniqueidentifier,
@FromID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @FromID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
ParentID uniqueidentifier null,
NID uniqueidentifier,
NParentID uniqueidentifier null
)
insert into #TmpPaths(ID,ParentID,NID, NParentID)
select ID,ParentID, @ID, null
from [dbo].[A_ArticleClass]
where (ID = @FromID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID,ParentID,NID, NParentID)
select ID,ParentID, NewID(), null
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
update #TmpPaths
set #TmpPaths.NParentID = b.NID
from #TmpPaths, #tmpPaths b
where #TmpPaths.ParentID = b.ID
delete #TmpPaths
where ID = @FromID
insert into [dbo].[A_ArticleClass](Name,Description,OrderBy,ImgUrl,IconUrl,ParentID,ID)
select B.Name,B.Description,B.OrderBy,B.ImgUrl,B.IconUrl,a.NParentID, a.NID
from #TmpPaths a inner join [dbo].[A_ArticleClass] b
on a.ID = b.ID
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
------------------------------------------------------------------------------------------------------------------------
-- the sprocs returns various error/success codes
-- a return value of 0 means success
-- a return value of 1 means a dup A_Article
-- a return value of 2 means A_Article doesn't exist
------------------------------------------------------------------------------------------------------------------------
/**//****** Object: Stored Procedure [dbo].A_Article_InsertDeleteUpdate Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_InsertDeleteUpdate]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_InsertDeleteUpdate]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_InsertDeleteUpdate]
(
@ID uniqueidentifier = null,
@ArticleClassID uniqueidentifier = null,
@Title nvarchar(256) = null,
@Content ntext = null,
@IsNew bit = null,
@IsTop bit = null,
@OrderBy int = null,
@ImgUrl nvarchar(128) = null,
@CreateTime datetime = null,
@UserName nvarchar(64) = null,
@Author nvarchar(16) = null,
@Keywords nvarchar(256) = null,
@Action int
)
AS
BEGIN
IF @Action = 0
-- Insert
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
RETURN 1
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ArticleClassID = @ArticleClassID) And (Title = @Title)
)
RETURN 1
INSERT INTO [dbo].[A_Article](ID, ArticleClassID, Title, Content, IsNew, IsTop, OrderBy, ImgUrl, CreateTime, UserName, Author, Keywords)
VALUES (@ID, @ArticleClassID, @Title, @Content, @IsNew, @IsTop, @OrderBy, @ImgUrl, @CreateTime, @UserName, @Author, @Keywords)
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
RETURN
END
IF @Action = 1
-- Delete
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
BEGIN
Delete
FROM [dbo].[A_Article]
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
IF @Action = 2
-- Update
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ArticleClassID = @ArticleClassID) And (Title = @Title)
AND (NOT
((ID = @ID))
))
RETURN 1
UPDATE [dbo].[A_Article]
SET
ArticleClassID = @ArticleClassID, Title = @Title, Content = @Content, IsNew = @IsNew, IsTop = @IsTop, OrderBy = @OrderBy, ImgUrl = @ImgUrl, CreateTime = @CreateTime, UserName = @UserName, Author = @Author, Keywords = @Keywords
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_Article_GetPageData Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_GetPageData]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_GetPageData]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_GetPageData]
(
@FieldsName nvarchar(512) = 'A.*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL,
@RecordCount int = 0 output ,
@PageIndex int = 0 output,
@PageSize int = 10
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = 'A.*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
CREATE TABLE #Pager
(
ID uniqueidentifier,
IndexID int IDENTITY (1, 1) NOT NULL
)
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'INSERT INTO #Pager (ID)'
+ ' SELECT ID'
+ ' FROM [dbo].[A_Article]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC(@SelectSql)
SELECT @RecordCount = COUNT(*) FROM #Pager
IF(@RecordCount < (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @RecordCount / @PageSize
END
IF(@RecordCount = (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @PageIndex - 1
IF @PageIndex < 0
BEGIN
SET @PageIndex = 0
END
END
DECLARE @PageUpperBound int
DECLARE @PageLowerBound int
SET @PageLowerBound = @PageSize * @PageIndex
SET @PageUpperBound = @PageLowerBound + @PageSize + 1
SET @SelectSql = 'SELECT '+ @FieldsName
+ ' FROM [dbo].[A_Article] AS A INNER JOIN #Pager AS B'
+ ' ON A.ID = B.ID '
+ ' WHERE'
+ ' B.IndexID > ' + RTRIM(LTRIM(CAST(@PageLowerBound AS varchar(128))))
+ ' AND B.IndexID < ' + RTRIM(LTRIM(CAST(@PageUpperBound AS varchar(128))))
+ ' ORDER BY B.IndexID'
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_Article_GetAll Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_GetAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_GetAll]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_GetAll]
(
@FieldsName nvarchar(512) = '*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = '*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'SELECT ' + @FieldsName
+ ' FROM [dbo].[A_Article]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
这个数据库中是面对标准的文章发布功能的主要包括两个表一个是articleClass 另一个是article，在aritclass中是一个标准的树状结构(parentid 和id有一个自联接)而articlass中有一个对于ArticleClassID的外键引用。图中除了parentID字段以外均不能为空，这样开发起来方便些：）
对于数据库的操作通常都是用多层来实现的，本篇四层为例，但目前我只作了下三层的模板，因为界面层变化因素太多通常针对不同的项目有不同的要求，大家可以通常这里介绍的方式根据具体项目来自己实现界面层。
第一层数据库层，最通常的工作就是作一些存贮过程供下一层调用
生成的代码如下：
由于我通常作的开发都是基于Web的所以同时整合了分页操作，另外针对树状结构专门提供了一些贮存过程和函数。
------------------------------------------------------------------------------------------------------------------------
-- the sprocs returns various error/success codes
-- a return value of 0 means success
-- a return value of 1 means a dup A_ArticleClass
-- a return value of 2 means A_ArticleClass doesn't exist
------------------------------------------------------------------------------------------------------------------------
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_InsertDeleteUpdate Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_InsertDeleteUpdate]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_InsertDeleteUpdate]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_InsertDeleteUpdate]
(
@ID uniqueidentifier = null,
@ParentID uniqueidentifier = null,
@Name nvarchar(128) = null,
@Description ntext = null,
@OrderBy int = null,
@ImgUrl nvarchar(128) = null,
@IconUrl nvarchar(128) = null,
@Action int
)
AS
BEGIN
IF @Action = 0
-- Insert
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
RETURN 1
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ParentID = @ParentID) And (Name = @Name)
)
RETURN 1
INSERT INTO [dbo].[A_ArticleClass](ID, ParentID, Name, Description, OrderBy, ImgUrl, IconUrl)
VALUES (@ID, @ParentID, @Name, @Description, @OrderBy, @ImgUrl, @IconUrl)
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
RETURN
END
IF @Action = 1
-- Delete
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
BEGIN
Delete
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
IF @Action = 2
-- Update
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ID)
)
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_ArticleClass]
WHERE (ParentID = @ParentID) And (Name = @Name)
AND (NOT
((ID = @ID))
))
RETURN 1
UPDATE [dbo].[A_ArticleClass]
SET
ParentID = @ParentID, Name = @Name, Description = @Description, OrderBy = @OrderBy, ImgUrl = @ImgUrl, IconUrl = @IconUrl
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetPageData Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetPageData]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetPageData]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetPageData]
(
@FieldsName nvarchar(512) = 'A.*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL,
@RecordCount int = 0 output ,
@PageIndex int = 0 output,
@PageSize int = 10
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = 'A.*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
CREATE TABLE #Pager
(
ID uniqueidentifier,
IndexID int IDENTITY (1, 1) NOT NULL
)
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'INSERT INTO #Pager (ID)'
+ ' SELECT ID'
+ ' FROM [dbo].[A_ArticleClass]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC(@SelectSql)
SELECT @RecordCount = COUNT(*) FROM #Pager
IF(@RecordCount < (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @RecordCount / @PageSize
END
IF(@RecordCount = (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @PageIndex - 1
IF @PageIndex < 0
BEGIN
SET @PageIndex = 0
END
END
DECLARE @PageUpperBound int
DECLARE @PageLowerBound int
SET @PageLowerBound = @PageSize * @PageIndex
SET @PageUpperBound = @PageLowerBound + @PageSize + 1
SET @SelectSql = 'SELECT '+ @FieldsName
+ ' FROM [dbo].[A_ArticleClass] AS A INNER JOIN #Pager AS B'
+ ' ON A.ID = B.ID '
+ ' WHERE'
+ ' B.IndexID > ' + RTRIM(LTRIM(CAST(@PageLowerBound AS varchar(128))))
+ ' AND B.IndexID < ' + RTRIM(LTRIM(CAST(@PageUpperBound AS varchar(128))))
+ ' ORDER BY B.IndexID'
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetAll Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetAll]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetAll]
(
@FieldsName nvarchar(512) = '*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = '*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'SELECT ' + @FieldsName
+ ' FROM [dbo].[A_ArticleClass]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetLevel Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetLevel')
drop function [dbo].[A_ArticleClass_GetLevel]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetLevel]
(
@ID uniqueidentifier
)
RETURNS int
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue int
SELECT @ReturnValue = -1
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = @ReturnValue + 1
SELECT @ParentID = ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetMaxLevel Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetMaxLevel')
drop function [dbo].[A_ArticleClass_GetMaxLevel]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetMaxLevel]
(
)
RETURNS int
AS
BEGIN
DECLARE @ReturnValue int
SELECT @ReturnValue = Max([dbo].A_ArticleClass_GetLevel(ID))
from [dbo].A_ArticleClass
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetFullName Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetFullName')
drop function [dbo].[A_ArticleClass_GetFullName]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetFullName]
(
@ID uniqueidentifier
)
RETURNS nvarchar(4000)
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue nvarchar(4000)
SELECT @ReturnValue = ''
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = '/' + isnull([Name],'No Name') + @ReturnValue
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetTopID Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetTopID')
drop function [dbo].[A_ArticleClass_GetTopID]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetTopID]
(
@ID uniqueidentifier
)
RETURNS uniqueidentifier
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ResultID uniqueidentifier
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ResultID = @ParentID
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ResultID
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetFullID Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where type = 'FN' AND name = 'A_ArticleClass_GetFullID')
drop function [dbo].[A_ArticleClass_GetFullID]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE FUNCTION [dbo].[A_ArticleClass_GetFullID]
(
@ID uniqueidentifier
)
RETURNS nvarchar(4000)
AS
BEGIN
DECLARE @ParentID uniqueidentifier
DECLARE @ReturnValue nvarchar(4000)
SELECT @ReturnValue = ''
SELECT @ParentID = @ID
WHILE (not (@ParentID is null))
BEGIN
SELECT @ReturnValue = '/' + Cast([ID]as varchar(128)) + @ReturnValue
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
RETURN @ReturnValue
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetChildren]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
[Level] int
)
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
from [dbo].[A_ArticleClass]
where (ID = @ID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
delete #TmpPaths
where ID = @ID
select A.*, B.Level
from [dbo].[A_ArticleClass] A inner join #TmpPaths B
on A.ID = B.ID
order by B.Level desc
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetNonChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetNonChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetNonChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetNonChildren]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier
)
insert into #TmpPaths(ID)
select ID
from [dbo].[A_ArticleClass]
where (ID = @ID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID)
select ID
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
Select * from [dbo].[A_ArticleClass]
where ID not in (select ID from #TmpPaths)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_GetParents Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_GetParents]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_GetParents]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_GetParents]
(
@ID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
[Level] int
)
DECLARE @ParentID uniqueidentifier
SELECT @ParentID = ParentID
from [dbo].[A_ArticleClass]
where (ID = @ID)
WHILE (not (@ParentID is null))
BEGIN
insert into #TmpPaths(ID,[Level])
select ID,[dbo].A_ArticleClass_GetLevel(ID)
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
SELECT @ParentID=ParentID
FROM [dbo].[A_ArticleClass]
WHERE (ID = @ParentID)
END
select A.*, B.Level
from [dbo].[A_ArticleClass] A inner join #TmpPaths B
on A.ID = B.ID
order by B.Level desc
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_MoveTo Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_MoveTo]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_MoveTo]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_MoveTo]
(
@ID uniqueidentifier,
@NewParentID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @NewParentID))
BEGIN
RETURN 2
END
Update [dbo].A_ArticleClass
Set ParentID = @NewParentID
where (ID = @ID)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_ArticleClass_CopyChildren Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_ArticleClass_CopyChildren]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_ArticleClass_CopyChildren]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_ArticleClass_CopyChildren]
(
@ID uniqueidentifier,
@FromID uniqueidentifier
)
AS
BEGIN
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @ID))
BEGIN
RETURN 2
END
IF NOT exists(SELECT * FROM [dbo].A_ArticleClass WHERE (ID = @FromID))
BEGIN
RETURN 2
END
CREATE TABLE #TmpPaths
(
ID uniqueidentifier,
ParentID uniqueidentifier null,
NID uniqueidentifier,
NParentID uniqueidentifier null
)
insert into #TmpPaths(ID,ParentID,NID, NParentID)
select ID,ParentID, @ID, null
from [dbo].[A_ArticleClass]
where (ID = @FromID)
while(exists(
select * from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
)
)
begin
insert into #TmpPaths(ID,ParentID,NID, NParentID)
select ID,ParentID, NewID(), null
from [dbo].[A_ArticleClass]
where ParentID in (select ID from #TmpPaths)
and ID not in(select ID from #TmpPaths)
end
update #TmpPaths
set #TmpPaths.NParentID = b.NID
from #TmpPaths, #tmpPaths b
where #TmpPaths.ParentID = b.ID
delete #TmpPaths
where ID = @FromID
insert into [dbo].[A_ArticleClass](Name,Description,OrderBy,ImgUrl,IconUrl,ParentID,ID)
select B.Name,B.Description,B.OrderBy,B.ImgUrl,B.IconUrl,a.NParentID, a.NID
from #TmpPaths a inner join [dbo].[A_ArticleClass] b
on a.ID = b.ID
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
------------------------------------------------------------------------------------------------------------------------
-- the sprocs returns various error/success codes
-- a return value of 0 means success
-- a return value of 1 means a dup A_Article
-- a return value of 2 means A_Article doesn't exist
------------------------------------------------------------------------------------------------------------------------
/**//****** Object: Stored Procedure [dbo].A_Article_InsertDeleteUpdate Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_InsertDeleteUpdate]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_InsertDeleteUpdate]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_InsertDeleteUpdate]
(
@ID uniqueidentifier = null,
@ArticleClassID uniqueidentifier = null,
@Title nvarchar(256) = null,
@Content ntext = null,
@IsNew bit = null,
@IsTop bit = null,
@OrderBy int = null,
@ImgUrl nvarchar(128) = null,
@CreateTime datetime = null,
@UserName nvarchar(64) = null,
@Author nvarchar(16) = null,
@Keywords nvarchar(256) = null,
@Action int
)
AS
BEGIN
IF @Action = 0
-- Insert
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
RETURN 1
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ArticleClassID = @ArticleClassID) And (Title = @Title)
)
RETURN 1
INSERT INTO [dbo].[A_Article](ID, ArticleClassID, Title, Content, IsNew, IsTop, OrderBy, ImgUrl, CreateTime, UserName, Author, Keywords)
VALUES (@ID, @ArticleClassID, @Title, @Content, @IsNew, @IsTop, @OrderBy, @ImgUrl, @CreateTime, @UserName, @Author, @Keywords)
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
RETURN
END
IF @Action = 1
-- Delete
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
BEGIN
Delete
FROM [dbo].[A_Article]
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
IF @Action = 2
-- Update
BEGIN
IF EXISTS(
SELECT *
FROM [dbo].[A_Article]
WHERE (ID = @ID)
)
BEGIN
IF EXISTS(SELECT *
FROM [dbo].[A_Article]
WHERE (ArticleClassID = @ArticleClassID) And (Title = @Title)
AND (NOT
((ID = @ID))
))
RETURN 1
UPDATE [dbo].[A_Article]
SET
ArticleClassID = @ArticleClassID, Title = @Title, Content = @Content, IsNew = @IsNew, IsTop = @IsTop, OrderBy = @OrderBy, ImgUrl = @ImgUrl, CreateTime = @CreateTime, UserName = @UserName, Author = @Author, Keywords = @Keywords
WHERE (ID = @ID)
RETURN
END
ELSE
BEGIN
RETURN 2
END
END
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_Article_GetPageData Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_GetPageData]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_GetPageData]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_GetPageData]
(
@FieldsName nvarchar(512) = 'A.*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL,
@RecordCount int = 0 output ,
@PageIndex int = 0 output,
@PageSize int = 10
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = 'A.*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
CREATE TABLE #Pager
(
ID uniqueidentifier,
IndexID int IDENTITY (1, 1) NOT NULL
)
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'INSERT INTO #Pager (ID)'
+ ' SELECT ID'
+ ' FROM [dbo].[A_Article]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC(@SelectSql)
SELECT @RecordCount = COUNT(*) FROM #Pager
IF(@RecordCount < (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @RecordCount / @PageSize
END
IF(@RecordCount = (@PageSize * @PageIndex))
BEGIN
SET @PageIndex = @PageIndex - 1
IF @PageIndex < 0
BEGIN
SET @PageIndex = 0
END
END
DECLARE @PageUpperBound int
DECLARE @PageLowerBound int
SET @PageLowerBound = @PageSize * @PageIndex
SET @PageUpperBound = @PageLowerBound + @PageSize + 1
SET @SelectSql = 'SELECT '+ @FieldsName
+ ' FROM [dbo].[A_Article] AS A INNER JOIN #Pager AS B'
+ ' ON A.ID = B.ID '
+ ' WHERE'
+ ' B.IndexID > ' + RTRIM(LTRIM(CAST(@PageLowerBound AS varchar(128))))
+ ' AND B.IndexID < ' + RTRIM(LTRIM(CAST(@PageUpperBound AS varchar(128))))
+ ' ORDER BY B.IndexID'
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
/**//****** Object: Stored Procedure [dbo].A_Article_GetAll Script Date: 2005年1月22日 ******/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[A_Article_GetAll]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[A_Article_GetAll]
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS OFF
GO
------------------------------------------------------------------------------------------------------------------------
-- Date Created: 2005年1月22日
-- Created By: Generated by Keyss
------------------------------------------------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[A_Article_GetAll]
(
@FieldsName nvarchar(512) = '*',
@Where nvarchar(512) = NULL,
@OrderBy nvarchar(128) = NULL
)
AS
BEGIN
IF @Where IS NULL
BEGIN
Set @Where = ''
END
IF (@FieldsName IS NULL) or (@FieldsName = '')
BEGIN
Set @FieldsName = '*'
END
IF @OrderBy IS NULL
BEGIN
Set @OrderBy = ''
END
Set @FieldsName = LTRIM(RTRIM(@FieldsName))
Set @Where = LTRIM(RTRIM(@Where))
Set @OrderBy = LTRIM(RTRIM(@OrderBy))
Declare @SelectSql nvarchar(4000)
SET @SelectSql = 'SELECT ' + @FieldsName
+ ' FROM [dbo].[A_Article]'
IF @Where <>''
BEGIN
SET @SelectSql = @SelectSql + ' Where ' + @Where
END
IF @OrderBy <>''
BEGIN
SET @SelectSql = @SelectSql + ' Order By ' + @OrderBy
END
EXEC (@SelectSql)
RETURN
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 生成工具-CodeSmith-享受编程的乐趣（三）
- 生成工具-CodeSmith-享受编程的乐趣（二）
- 生成工具-CodeSmith-享受编程的乐趣（三）
- 生成工具-CodeSmith-享受编程的乐趣（一）
- 生成工具-CodeSmith-享受编程的乐趣（二）
- 是否享受编程过程中的乐趣在很大程度上决定了是否真正热爱编程！
- CodeSmith 5.0工具实例篇系列1——根据表生成单个实体类的模板
- CodeSmith 是一种基于模板的代码生成工具
- linux下编程用到的autotools工具 生成makefile文件
- 使用代码辅助生成工具CodeSmith -- 生成NHibernate的映射文件
- 从编程的思想学习享受编程的乐趣
- CodeSmith 5.0工具实例篇系列2——选择数据库生成整个库的实体类。
- ASP.NET代码生成工具codesmith
- 代码生成工具CodeSmith中SchemaExplorer类API文档
- 编程第11年从为赚钱（薪水）工作转变为“做自己想做的事情”，为兴趣爱好工作、享受人生乐趣
- .NET开发 程序员必备工具 -- CodeSmith：代码生成工具
- 编程第11年从为赚钱（薪水）工作转变为“做自己想做的事情”，为兴趣爱好工作、享受人生乐趣
- CodeSmith 5.0工具实例篇系列3——根据表生成新增的存储过程，针对MS Sqlserver
- ASP.NET代码生成工具codesmith
- 编程乐趣：分享几个自己常用的工具