游标

一、实验目的 1、掌握创建游标的方法和步骤； 2．掌握游标的使用方法； 二、实验内容 1、游标的创建； 2、游标的使用方法。 三、实验步骤 1、游标的创建。 1）使用S_C数据库中的S表、C表、SC表创建一个存储过程sp_CURSOR1。该存储过程的作用是：显示所有的课

一、实验目的

1、掌握创建游标的方法和步骤；

2．掌握游标的使用方法；

二、实验内容

1、游标的创建；

2、游标的使用方法。

三、实验步骤

1、游标的创建。

1）使用S_C数据库中的S表、C表、SC表创建一个存储过程—sp_CURSOR1。该存储过程的作用是：显示所有的课程信息，如果成绩>=90显示成绩本身；成绩>=80显示良；成绩>=70显示中；成绩>=60显示及格；成绩>=0显示不及格；如果没有成绩则显示无成绩。信息还包含学号，姓名，课程和成绩，显示格式如下：学号---姓名---课程---成绩，如图1所示。

要求使用游标技术实现上述要求，使用Print语句实现显示。

图1 成绩显示格式

sp_CURSOR1的创建语句：

IF EXISTS(SELECT name FROM sysobjects WHERE name = 'sp_CURSOR1' AND type = 'P')

DROP PROCEDURE sp_CURSOR1

GO

CREATE PROCEDURE sp_CURSOR1

AS

BEGIN

DECLARE @sno char(10)

DECLARE @name char(10)

DECLARE @cno char(10)

DECLARE @grade int

DECLARE S_CURSOR CURSOR

FOR

SELECT S.sno, S.sname, C.cname, SC.grade FROM SC, S, C

WHERE S.sno = SC.sno AND SC.cno = C.cno

OPEN S_CURSOR

FETCH NEXT FROM S_CURSOR INTO @sno, @name, @cno, @grade

WHILE @@FETCH_STATUS = 0

BEGIN

IF @grade IS NULL

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---无成绩'

ELSE IF @grade >= 90

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---'+CONVERT(VARCHAR(20), @grade)

ELSE IF @grade >= 80

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---良'

ELSE IF @grade >= 70

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---中'

ELSE IF @grade >= 60

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---及格'

ELSE IF @grade >= 0

PRINT RTRIM(@sno) +'---'+ RTRIM(@name) +'---'+ RTRIM(@cno) +'---不及格'

FETCH NEXT FROM S_CURSOR INTO @sno, @name, @cno, @grade

END

CLOSE S_CURSOR

DEALLOCATE S_CURSOR

END

结果描述：

2、游标的使用。

计算银行利息。有一储户账号为0001，银行存取记录如下：

存取记录数据表名为fundlist，字段名为id（编号，int）,cid（储户账号，varchar(20)），ex-date（交易日期,datetime），ex-money（交易金额,money），balance（账户余额,money）。根据有关规定，银行存款利息为：2011-04-01号之前（包括）为年利息2%，之后（不包括）为年利息3%，请用编写一个存储过程sp_cal_interest用来计算该储户的当前利息，要求利用游标实现。说明：当前用getdate()表示，年利息2%用存入的天数*2%/365表示利息。

IF EXISTS(SELECT name FROM sysobjects WHERE name = 'sp_cal_interest' AND type = 'P')

DROP PROCEDURE sp_cal_interest

GO

CREATE PROCEDURE sp_cal_interest

AS

DECLARE @time datetime

DECLARE @money money

DECLARE @pretime datetime

DECLARE @all money

DECLARE @lixi money

DECLARE @T datetime

BEGIN

SET @T = CAST('2011-04-01' AS datetime)

DECLARE f_cursor CURSOR FOR

SELECT ex_date, balance FROM fundlist

OPEN f_cursor

FETCH NEXT FROM f_cursor INTO @time, @money

SET @pretime = @time

SET @all = @money

WHILE @@FETCH_STATUS = 0

BEGIN

IF @time

SET @lixi = @all*DATEDIFF(DAY, @pretime, @time)*0.02/365

ELSE IF @time > @T AND @pretime

SET @lixi = @all*DATEDIFF(DAY, @pretime, @T)*0.02/365

+@all*DATEDIFF(DAY, @T, @time)*0.03/365

ELSE

SET @lixi = @all*DATEDIFF(DAY, @pretime, @time)*0.03/365

SET @all = @all+@lixi+@money

SET @pretime = @time

FETCH NEXT FROM f_cursor INTO @time, @money

END

PRINT @lixi

CLOSE f_cursor

DEALLOCATE f_cursor

END

四、实验总结