数据库游标实验报告3页

1、数据库实验报告计算机系一、实验目的1、掌握创建游标的方法和步骤；2掌握游标的使用方法；二、实验内容1、游标的创建；2、游标的使用方法。三、实验步骤1、游标的创建。1）使用S_C数据库中的S表、C表、SC表创建一个存储过程sp_CURSOR1。该存储过程的作用是：显示所有的课程信息，如果成绩>=90显示成绩本身；成绩>=80显示良；成绩>=70显示中；成绩>=60显示及格；成绩>=0显示不及格；如果没有成绩则显示无成绩。信息还包含学号，姓名，课程和成绩，显示格式如下：学号-姓名-课程-成绩，如图1所示。要求使用游标技术实现上述要求，使用Print语句实现显示。图1

2、成绩显示格式sp_CURSOR1的创建语句：create proc sp_CURSOR1asDeclare sname varchar(50)Declare sno varchar(20)Declare cno varchar(20)Declare cname varchar(20)Declare grade varchar(20)Declare SCursor Cursor ForSelect sno,cno,grade From SCOpen SCursorFetch Next From SCursor Into sno,cno,gradeWhile FETCH_STATUS = 0beg

3、inselect sname=sname From S where sno=snoselect cname=cname From C where cno=cnoif(grade = '') Print sno+sname+cname+'null'else if(grade >= 90) Print sno+sname+cname+gradeelse if(grade >=80)Print sno+sname+cname+'良'else if(grade >=70)Print sno+sname+cname+'中'

4、else if(grade >=60)Print sno+sname+cname+'及格'else Print sno+sname+cname+'不及格'Fetch Next From SCursor Into sno,cno,gradeEndClose SCursorDeallocate Scursorgo结果描述：2、游标的使用。计算银行利息。有一储户账号为0001，银行存取记录如下：交易日期交易金额账户余额备注2010-10-011000010000开户存入2010-12-2020000300002011-02-03-5000250002011-05

5、-01-3000220002011-10-10600028000存取记录数据表名为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 p

6、roc sp_cal_interestasDeclare id intDeclare cid varchar(20)Declare ex_date datetimeDeclare ex_money moneyDeclare balance moneyDeclare pre_ex_date datetimeDeclare pre_balance moneyDeclare result moneyDeclare SCursor Cursor ForSelect id,cid,ex_date,ex_money,balance From fundlistOpen SCursorFetch Next F

7、rom SCursor Into id,cid,ex_date,ex_money,balanceset pre_ex_date=ex_dateset pre_balance=balanceset result=0While FETCH_STATUS = 0beginset pre_balance=pre_balance+resultif(ex_date<=Cast('2011-04-01' as datetime)beginset result=pre_balance*(datediff(day,pre_ex_date,ex_date)*2/36500endelsebeg

8、inif(pre_ex_date<=Cast('2011-04-01' as datetime)beginset 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/36500endelsebeginset result=pre_balance*(datediff(day,pre_ex_date,ex_date)*3/36500endendset pre_ex_date=ex_dateset pre_balance=balanceFetch Next From SCursor Into id,cid,ex_date,ex_money,balanceEndprint resultClose SCursorDeallocate Scursorgo四、实验总结在数据库中，游标是一个十分重要的概念。游标提供了一种对从表中检索出的