游标的使用

USE [newsite]
GO
/****** Object:  StoredProcedure [dbo].[pro_cutPoint]    Script Date: 04/21/2011 10:49:16 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER procedure [dbo].[pro_cutPoint]
--要扣除的总分数
@sumPoint int,
--表UserPointRecord用到的数据
@UserID nvarchar(50),--用户ID
--表User_UsedPoint用到的数据
@RecordTypeId int,
@RecordType nvarchar(1000),
@OrderID int,
--表User_PointUseHistory用到的数据
@ActionID int,
@ActionName varchar(50)
as
--开启自动回滚事务
set xact_abort on
begin transaction cutTran

declare cursor_cutPoint scroll cursor
for
select PointRecord_Id,Point,UserPoint from UserPointRecord where Point>UserPoint and UserID=@UserID and CreateDate>DATEADD(MONTH,-18,GETDATE()) and IsValid=1 order by CreateDate asc--某用户的所有未用完积分的记录

declare @PointRecord_Id int;
declare @Point int;
declare @UserPoint int;

open cursor_cutPoint
fetch next from cursor_cutPoint into @PointRecord_Id,@Point,@UserPoint
while (@@FETCH_STATUS=0)
begin
 
  if(@sumPoint>(@Point-@UserPoint))--如果要扣除的分数大于当前记录剩余的分数
  begin
  set @sumPoint=@sumPoint-(@Point-@UserPoint)
  update UserPointRecord set UserPoint=@Point where PointRecord_Id=@PointRecord_Id
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  insert into User_UsedPoint values(@RecordTypeId,@RecordType,@PointRecord_Id,@OrderID,-(@Point-@UserPoint),0,GETDATE(),1)
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  insert into User_PointUseHistory values(@ActionID,@ActionName,-(@Point-@UserPoint),@UserID,GETDATE(),@UserID,GETDATE())
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  end
  else if(@sumPoint<=(@Point-@UserPoint))
  begin
  update UserPointRecord set UserPoint=@sumPoint+@UserPoint where PointRecord_Id=@PointRecord_Id
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  insert into User_UsedPoint values(@RecordTypeId,@RecordType,@PointRecord_Id,@OrderID,-@sumPoint,0,GETDATE(),1)
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  insert into User_PointUseHistory values(@ActionID,@ActionName,-@sumPoint,@UserID,GETDATE(),@UserID,GETDATE())
  if(@@error<>0)
  begin
   rollback transaction cutTran
  end
  break
  end
  fetch next from cursor_cutPoint into @PointRecord_Id,@Point,@UserPoint
end
close cursor_cutPoint
deallocate cursor_cutPoint
commit transaction cutTran