sadier

  博客园 :: 首页 :: 新随笔 :: 联系 :: 订阅 :: 管理 ::

ALTER Proc RS_InsertChat
(
 @ChatName nvarchar(50),
 @ChatTime nvarchar(50),
 @Address nvarchar(50),
 @Content text,
 @BlogID int,
 @GroupIDList varchar(1000)
)
as

Declare @iden  int
Declare @ChairMan nvarchar(50)

if(@ChatName is not null)
Begin
 if exists(Select ChatName From TBL_Chat where ChatName = @ChatName)
 Begin
  RAISERROR('您所填写的会议主题已存在,请更改',11,1)
  RETURN 1
 End
End

SELECT @ChairMan = Author FROM TBL_Config WHERE BlogID = @BlogID


INSERT INTO TBL_Chat
 ( ChatName,  ChatTime,  Address, ChairMan, State, Content, Operater)
VALUES(
 @ChatName,
 @ChatTime,
 @Address,
 @ChairMan,
 0,  --未激活
 @Content,
 @BlogID)

if(@@ERROR <>0)
 Begin
  Set @iden = -198
  Goto ErrorHandler
 End
Set @iden = @@IDENTITY
print @iden

--加入自己以及其它选中的人
INSERT INTO TBL_ChatBlogger
 ( ChatID, GroupID, [Name], State)
SELECT @iden, GroupID, GroupName, 0
 FROM TBL_Group
 WHERE GroupID in (SELECT distinct str FROM iter_charlist_to_table(@GroupIDList,','))
 
if(@@ERROR <>0)
 Begin
  Set @iden = -198
  Goto ErrorHandler
 End

ErrorHandler:
 RETURN @iden





ALTER Proc RS_UpdateChat
(
 @ChatID  int,
 @ChatName nvarchar(50),
 @ChatTime nvarchar(50),
 @Address nvarchar(50),
 @Content text,
 @GroupIDList varchar(1000)
)
as

Declare @iden  int

if(@ChatName is not null)
Begin
 if exists(Select ChatName From TBL_Chat where ChatName = @ChatName AND ChatID <> @ChatID)
 Begin
  RAISERROR('您所填写的会议主题已存在,请更改',11,1)
  RETURN 1
 End
End

 

UPDATE TBL_Chat
 SET
 ChatName=@ChatName,
 ChatTime=@ChatTime,
 Address=@Address,
 Content=@Content
 WHERE
 ChatID=@ChatID

if(@@ERROR <>0)
 Begin
  Set @iden = -198
  Goto ErrorHandler
 End

--删除旧的组
Delete From TBL_ChatBlogger Where TBL_ChatBlogger.[ChatID] = @ChatID
 if(@@ERROR <>0)
 Begin
  Set @iden = -198
  Goto ErrorHandler
 End

--加入新的组

INSERT INTO TBL_ChatBlogger
 ( ChatID, GroupID, [Name], State)
 SELECT Distinct @ChatID, GroupID, GroupName, 0
 FROM  TBL_Group
 WHERE GroupID in (SELECT distinct str FROM iter_charlist_to_table(@GroupIDList,','))

if(@@ERROR <>0)
 Begin
  Set @iden = -198
  Goto ErrorHandler
 End

ErrorHandler:
 RETURN @iden

posted on 2004-09-27 19:50  毛小华  阅读(583)  评论(0)    收藏  举报