本文介绍基于microsoft sql server软件，实现数据库t-sql语言程序设计，以及游标的定义、使用与存储过程的创建、信息查找的方法。

系列文章中示例数据来源于《sql server实验指导（2005版）》一书。依据本系列文章的思想与对操作步骤、代码的详细解释，大家用自己手头的数据，可以将相关操作与分析过程加以完整重现。

1 计算1-100间所有可被3整除的数的个数与总和

（1）启动microsoft sql server 2008 r2软件；

（2）在“对象资源管理器”窗格中，在“数据库”处右键，在弹出的菜单中选择“附加”选项；

（3）选择需要加以附加的jxsk数据库物理文件，选择定位文件夹“g:\sql\chutianjia sql”并选择对应数据库jxsk的物理文件并选择“确定”按钮，再次选择“确定”即可；

（4）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

declare @sum smallint, @i smallint,@nums smallint
set @sum=0
set @i=1
set @nums=0
while (@i<=100)
begin
if (@i% 3=0)
begin 
set @sum=@sum+@i
set @nums=@nums+1
end
set @i=@i+1
end
print'总和是'+str(@sum)
print'个数是'+str(@nums)

（5）单击“工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

2 从学生表s中选取sno、sn、sex，若为“男”输出m，为“女”输出f

（1）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

use jxsk
go
select sno as 学号, sn as 姓名,
性别=
case sex
when '男' then 'm'
when '女' then 'f'
end
from s
go

（2）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（3）首次运行后发现结果中“性别”一栏均为“null”，与预期将达到的结果不一致。通过检查发现自己的t-sql语句中出现错误，更改后效果如下图；

3 面向复杂应用的t-sql程序设计方法——查询所有同学选课信息：姓名、课程名、成绩

（1）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

use jxsk
go
select sn as 姓名, cn as 课程名,
成绩=
case
when score is null then '未考'
when score<60 then '不及格'
when score>=60 and score<70 then '及格'
when score>=70 and score<80 then '中'
when score>=80 and score<90 then '良好'
when score>=90 then '优'
end 
from sc,s,c
where s.sno=sc.sno and c.cno=sc.cno
order by s.sno,c.cno,score desc
go

（2）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（3）首次运行后发现系统报错。通过检查发现自己的t-sql语句中出现错误，即丢失了case，更改后效果如下图；

4 面向复杂应用的t-sql程序设计方法——为教师增加工资

（1）在“对象资源管理器”中选择“数据库”→“jxsk”→“表”→“dbo.t”，右击并在弹出的窗口中选择“编辑前200行”；查看各教师的工资情况；

（2）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

use jxsk
update t set sal=sal+
case
when t.tno in (
select tc.tno from t,tc
where t.tno=tc.tno and (sal+comm)>=4000
group by tc.tno having count(*)>=2) then 300
when t.tno in (
select tc.tno from t,tc
where t.tno=tc.tno and (sal+comm)>=3000 and (sal+comm)<4000
group by tc.tno having count(*)>=2) then 200
when t.tno in (
select tc.tno from t,tc
where t.tno=tc.tno and (t.sal+t.comm<3000)
group by tc.tno having count(*)>=2) then 100
when t.tno in (
select tc.tno from t,tc
where t.tno=tc.tno
group by tc.tno having count(*)=1) then 50
else 0
end
go

（3）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句,如下图；

（4）首次运行后发现系统报错。通过系统内部提示，考虑到该错误应为上节实验课所设立的触发器对该数据库表修改加以限制，使得语句无法执行；

（5）在“对象资源管理器”中选择“数据库”→“jxsk”→“表”→“dbo.t”→“触发器”，右键选中已存在的触发器，在弹出的对话框中选择“禁用”或“删除”；考虑到今后实验可能仍然会使用到这一触发器，我选择了“禁用”按钮，如下图；

（6）更改完毕后单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句,如下图；

（7）在“对象资源管理器”中选择“数据库”→“jxsk”→“表”→“dbo.t”，右击并在弹出的窗口中选择“编辑前200行”；查看各教师的工资情况已发生变化，如下图；

5 使用游标——定义游标cursor_famale

（1）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

declare @sno char(6),@sname char(8),@sex char(2),
@age tinyint,@dept char(10)
declare cursor_famale cursor
for select sno,sn,sex,age,dept from s
open cursor_famale
fetch next from cursor_famale
into @sno,@sname,@sex,@age,@dept
while @@fetch_status=0
begin
if @sname='牛莉'
begin
print '找到牛莉的信息如下'
print @sno+''+@sname+''+@sex+''+
convert (char(2),@age)+''+@dept
break
end
fetch next from cursor_famale
into @sno,@sname,@sex,@age,@dept
end
if @@fetch_status !=0
print '很抱歉，没有找到牛莉的信息！'
close cursor_famale
deallocate cursor_famale

（2）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（3）由于我的数据库表s中并没有学生“牛莉”的信息，因此在执行上述语言后系统提示“很抱歉，没有找到牛莉的信息！”；

（4）对数据库表s中信息加以修改，增添学生“牛莉”的信息后，单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

6 使用游标——创建存储过程pro_c查找信息

（1）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

create procedure pro_c @c_cursor cursor varying output
as
set @c_cursor = cursor
for
select sname,score from student,sc,course
where student.sno=sc.sno and sc.cno=course.cno and course.cname='数据库'
open @c_cursor

（2）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（3）首次运行后发现系统报错。通过系统内部提示，考虑到该错误应为@符号后的空格导致，修改后单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（4）单击屏幕上方 “工具栏”菜单中的“新建查询”按钮，打开“查询编辑器”窗口，并在“查询编辑器”窗口中输入以下t-sql语句：

declare @mycursor cursor
declare @name varchar(30)
declare @in_name char(8)
declare @score int
select @in_name = '王一山'
execute pro_c @c_cursor = @mycursor output
fetch next from @mycursor into @name,@score
while (@@fetch_status=0)
begin
if @name=@in_name
begin
print @name+'选修了数据库课程，成绩是：'+convert(char(2), @score)
break
end
fetch next from @mycursor into @name, @score
end
if (@@fetch_status!=0)
print @in_name+'没有选修数据库课程。'
close @mycursor
deallocate @mycursor

（5）单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；

（6）首次运行后发现系统报错。在语句处搜寻、更改但仍有错误，且错误甚至越来越多，如下图；

（7）此时利用系统错误提示，考虑到可能是上述存储过程pro_c构建出现错误；返回并对这一步骤加以检查，发现其t-sql语言中数据库表与我个人数据库表名称、列名有不一致的地方，对其加以修改并单击 “工具栏”中的“执行(x)”按钮，即可执行上述t-sql语句，如下图；其中，修改之后的t-sql语言为：

create procedure pro_c @c_cursor cursor varying output
as
set @c_cursor = cursor
for
select sn,score from s,sc,c
where s.sno=sc.sno and sc.cno=c.cno and c.cn='数据库'
open @c_cursor