tasklist_renametasklist.sql

一个采用VS2008+Sql2000开发的任务管理系统

-- =============================================
-- TaskList_RenameTaskList
-- =============================================
-- Renames an existing task list
IF EXISTS (SELECT name 
	   FROM   sysobjects 
	   WHERE  name = N'TaskList_RenameTaskList' 
	   AND 	  type = 'P')
    DROP PROCEDURE TaskList_RenameTaskList
GO

CREATE PROCEDURE TaskList_RenameTaskList
	@Username VarChar(20),
	@PasswordHash VarChar(50),
	@TaskListID BigInt,
	@NewName VarChar(255)
AS
DECLARE @CurrentUserID BigInt
SET @CurrentUserID = NULL

--Make sure that this user is a valid user, and that they have Manager priviledges
SELECT @CurrentUserID=ID
FROM TaskListUsers 
WHERE Username = @Username AND PasswordHash = @PasswordHash AND IsManager = 1;

IF (@CurrentUserID IS NULL)
	RETURN 1; --Invalid user

UPDATE TaskListNames SET [Name] = @NewName WHERE [ID] = @TaskListID;
IF @@Error <> 0 Return 1;