实验报告5

《数据库实验》实验报告
实验项目：游标
班级： 11计算机2
学号： 11280230025
姓名：将一趟
实验日期： 13.12.27
成绩：
台州学院计算机系
一、实验目的
1、掌握创建游标的方法和步骤；
2．掌握游标的使用方法；
二、实验内容
1、游标的创建；
2、游标的使用方法。

三、实验步骤
1、游标的创建。

1）使用S_C数据库中的S表、C表、SC表创建一个存储过程—sp_CURSOR1。

该存储过程的作用是：显示所有的课程信息，如果成绩>=90显示成绩本身；成绩>=80显示良；成绩>=70显示中；成绩>=60显示及格；成绩>=0显示不及格；如果没有成绩则显示无成绩。

信息还包含学号，姓名，课程和成绩，显示格式如下：学号---姓名---课程---成绩，如图1所示。

图1 成绩显示格式sp_CURSOR1的创建语句：
create proc sp_CURSOR1
as
Declare @sname varchar(50)
Declare @sno varchar(20)
Declare @cno varchar(20)
Declare @cname varchar(20)
Declare @grade varchar(20)
Declare SCursor Cursor For
Select sno,cno,grade From SC
Open SCursor
Fetch Next From SCursor Into @sno,@cno,@grade
While@@FETCH_STATUS= 0
begin
select @sname=sname From S where sno=@sno
select @cname=cname From C where cno=@cno
if(@grade ='')Print @sno+@sname+@cname+'null' else if(@grade >= 90)
Print @sno+@sname+@cname+@grade
else if(@grade >=80)
Print @sno+@sname+@cname+'良'
else if(@grade >=70)
Print @sno+@sname+@cname+'中'
else if(@grade >=60)
Print @sno+@sname+@cname+'及格'
else
Print @sno+@sname+@cname+'不及格'
Fetch Next From SCursor Into @sno,@cno,@grade End
Close SCursor
Deallocate Scursor
go
结果描述：
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表示利息。

create proc sp_cal_interest
as
Declare@id int
Declare@cid varchar(20)
Declare@ex_date datetime
Declare@ex_money money
Declare@balance money
Declare@pre_ex_date datetime
Declare@pre_balance money
Declare@result money
Declare SCursor Cursor For
Select id,cid,ex_date,ex_money,balance From fundlist
Open SCursor
Fetch Next From SCursor Into@id,@cid,@ex_date,@ex_money,@balance
set@pre_ex_date=@ex_date
set@pre_balance=@balance
set@result=0
While@@FETCH_STATUS= 0
begin
set@pre_balance=@pre_balance+@result
if(@ex_date<=Cast('2011-04-01'as datetime))
begin
set@result=@pre_balance*(datediff(day,@pre_ex_date,@ex_date))*2/36500 end
else
begin
if(@pre_ex_date<=Cast('2011-04-01'as datetime))
begin
set@result=@pre_balance*(datediff(day,@pre_ex_date,Cast('2011-04-01' as datetime)))*2/36500+@pre_balance*(datediff(day,Cast('2011-04-01'as
datetime),@ex_date))*3/36500
end
else
begin
set@result=@pre_balance*(datediff(day,@pre_ex_date,@ex_date))*3/36500 end
end
set@pre_ex_date=@ex_date
set@pre_balance=@balance
Fetch Next From SCursor Into@id,@cid,@ex_date,@ex_money,@balance
End
print@result
Close SCursor
Deallocate Scursor
go
四、实验总结
1、掌握了创建游标的方法和步骤；
2．掌握了游标的使用方法；
3. 了解游标的使用方法范围，能够使用存储过程创建游标。