SQL基础用法(实例二)

 /*

 2006年10月01日

 SQL Server 数据库的高级操作
 (1) 批处理
 (2) 变量
 (3) 逻辑控制
 (4) 视图
 (5) 函数
 (6) 高级查询

 */

 (1)批处理
 将多条SQL语句作为一个整体去编译，生成一个执行计划，然后，执行！
 理解批处理的关键在于"编译"，对于由多条语句组成的一个批处理，
 如果在编译时，其中，有一条出现语法错误，将会导致编译失败！

 create table t
 (
 a int,
 b int
 )

 -- 注释
 -- 如果多行注释中包含了批处理的标识符go
 -- 在编译的过程中代码将会被go分割成多个部分来分批编译
 -- 多行注释的标记将会被分隔而导致编译出错
 -- 以下几条语句是三个非常经典的批处理
 -- 你猜一下会添加几条记录！
 /*
 insert into t values (1,1)
 go
 */
 insert into t values (2,2)
 go
 /*
 insert into t values (3,3)
 */
 go

 -- 查询看添加了几条记录
 select * from t

 truncate table t

 (2)变量

 -- 全局变量
 SQL Server中全局变量由系统定义、系统维护，用户一般仅可对其进行读取！

 -- 查看SQL Server版本
 print @@version

 -- 服务器名称
 print @@servername

 -- 系统错误编号
 insert into t values ('a','a')
 print @@error

 insert into t values ('a','a')
 if @@error = 245
     print 'Error'

 -- SQL Server 版本的语言信息
 print @@LANGUAGE

 -- 一周的第一天从星期几算起
 print @@datefirst

 -- CPU 执行命令所耗费时间的累加
 print @@cpu_busy

 -- 获取最近添加的标识列的值
 create table tt
 (
 a int identity(3, 10),
 b int
 )
 insert into tt (b) values (1)
 print @@identity
 select * from tt

 -- 局部变量
 局部变量由用户定义，仅可在同一个批处理中调用和访问

 declare @intAge tinyint
 set @intAge = 12
 print @intAge

 declare @strName varchar(12)
 select @strName = 'state'
 print @strName
 select au_lname, @strName from authors

 (3)逻辑控制

 -- IF条件判断
 declare @i int
 set @i = 12
 if (@i > 10)
     begin                -- {
         print 'Dadadada!'
         print 'Dadadada!'
     end                -- }
 else
     begin
         print 'XiaoXiao!'
         print 'XiaoXiao!'
     end

 -- While循环控制
 declare @i int;
 set @i = 12;
 print @i
 --return;
 while (@i < 18)
 begin
     print @i;
     set @i = @i + 1;
     if @i < 17
         continue;
     if @i > 15
         break;
 end;
 print @i

 -- CASE 分支判断
 select au_lname, state, '犹他州' from authors where state = 'UT'
 select au_lname, state, '密西西比州' from authors where state = 'MI'
 select au_lname, state, '肯塔基州' from authors where state = 'KS'

 select au_lname, state,
     case state
     when 'UT' then '犹他州'
     when 'MI' then '密西西比州'
     when 'KS' then '肯塔基州'
     when 'CA' then '加利福利亚'
     else state
     end
 from authors

 (3)视图
 -- Northwind 数据库中Employees表
 -- 创建视图显示每个员工的编号(EmployeeID)、姓(FirstName)、名(LastName)以及上级(ReportsTo)的姓
 use northwind
 go

 -- 注意：字段ReportsTo指代了每个员工的上级的编号
 select EmployeeID, FirstName, LastName, ReportsTo
 from employees
 go

 -- 寻找每个员工的上级
 -- 子查询
 select emp.EmployeeID, emp.FirstName, emp.LastName,
     (select mag.FirstName from employees as mag where emp.ReportsTo = mag.EmployeeID ) as ManagerFirstName
 from employees as emp
 go

 (4.1)系统函数

 -- 获取指定字符串中左起第一个字符的ASC码
 print ascii('ABCDEF')
 -- 根据给定的ASC码获取相应的字符
 print char(65)
 -- 获取给定字符串的长度
 print len('abcdef')
 -- 大小写转换
 print lower('ABCDEF')
 print upper('abcdef')
 -- 去空格
 print ltrim('    abcd  dfd  df  ')
 print rtrim('    abcd  dfd  df  ')
 -- 求绝对值
 print abs(-12)
 -- 幂
 -- 3 的 2 次方
 print power(3,2)
 print power(3,3)
 -- 随机数
 -- 0 - 1000 之间的随机数
 print rand() * 1000
 -- 获取圆周率
 print pi()

 -- 获取系统时间
 print getdate()

 -- 获取3天前的时间
 print dateadd(day, -3 , getdate())
 -- 获取3天后的时间
 print dateadd(day, 3 , getdate())
 -- 获取3年前的时间
 print dateadd(year, -3 , getdate())
 -- 获取3年后的时间
 print dateadd(year, 3 , getdate())

 -- 获取3月后的时间
 print dateadd(month, 3 , getdate())
 -- 获取9小时后的时间
 print dateadd(hour, 9 , getdate())
 -- 获取9分钟后的时间
 print dateadd(minute, 9 , getdate())

 -- 获取指定时间之间相隔多少年
 print datediff(year, '2005-01-01', '2008-01-01')
 -- 获取指定时间之间相隔多少月
 print datediff(month, '2005-01-01', '2008-01-01')
 -- 获取指定时间之间相隔多少天
 print datediff(day, '2005-01-01', '2008-01-01')

 -- 字符串合并
 print 'abc' + 'def'

 print 'abcder'

 print 'abc' + ''
 print 'abc' + 456

 -- 类型转换
 print 'abc' + convert(varchar(10), 456)

 select title_id, type, price from titles
 -- 字符串连接必须保证类型一致(以下语句执行将会出错)
 -- 类型转换
 select title_id + type + price from titles
 -- 正确
 select title_id + type + convert(varchar(10), price) from titles

 print '' + convert(varchar(3), 123)
 print '' + ''

 print convert(varchar(12), '2005-09-01',110)

 -- 获取指定时间的特定部分
 print year(getdate())
 print month(getdate())
 print day(getdate())

 -- 获取指定时间的特定部分
 print datepart(year, getdate())
 print datepart(month, getdate())
 print datepart(day, getdate())
 print datepart(hh, getdate())
 print datepart(mi, getdate())
 print datepart(ss, getdate())
 print datepart(ms, getdate())

 -- 获取指定时间的间隔部分
 -- 返回跨两个指定日期的日期和时间边界数
 print datediff(year, '2001-01-01', '2008-08-08')
 print datediff(month, '2001-01-01', '2008-08-08')
 print datediff(day, '2001-01-01', '2008-08-08')
 print datediff(hour, '2001-01-01', '2008-08-08')
 print datediff(mi, '2001-01-01', '2008-08-08')
 print datediff(ss, '2001-01-01', '2008-08-08')

 -- 在向指定日期加上一段时间的基础上，返回新的 datetime 值
 print dateadd(year, 5, getdate())
 print dateadd(month, 5, getdate())
 print dateadd(day, 5, getdate())
 print dateadd(hour, 5, getdate())
 print dateadd(mi, 5, getdate())
 print dateadd(ss, 5, getdate())

 -- 其他
 print host_id()
 print host_name()
 print db_id('pubs')
 print db_name(5)

 -- 利用系统函数作为默认值约束
 drop table ttt

 create table ttt
 (
 stu_name    varchar(12),
 stu_birthday    datetime default (getdate())
 )

 alter table ttt
 add constraint df_ttt_stu_birthday default  (getdate()) for stu_birthday

 insert into ttt values ('ANiu', '2005-04-01')
 insert into ttt values ('ANiu', getdate())

 insert into ttt values ('AZhu', default)

 sp_help ttt

 select * from ttt

 （4.2）自定义函数

 select title_id
 from titles
 where type = 'business'

 select stuff(title_id,1,3,'ABB'), type
 from titles
 where type = 'business'

 select count(title_id) from titles where type = 'business'
 select title_id from titles where type = 'business'

 select  *,count(dbo.titleauthor.title_id)
 FROM dbo.authors INNER JOIN
 dbo.titleauthor ON dbo.authors.au_id = dbo.titleauthor.au_id

 select au_id, count(title_id)
 from titleauthor
 group by au_id

 SELECT dbo.authors.au_id, COUNT(dbo.titleauthor.title_id) AS '作品数量'
 FROM dbo.authors  left outer JOIN
       dbo.titleauthor ON dbo.authors.au_id = dbo.titleauthor.au_id
 GROUP BY dbo.authors.au_id
 order by '作品数量'

 -- 自定义函数的引子（通过这个子查询来引入函数的作用）

 -- 子查询
 -- 统计每个作者的作品数
 -- 将父查询中的作者编号传入子查询
 -- 作为查询条件利用聚合函数count统计其作品数量
 select au_lname,
     (select count(title_id)
     from titleauthor as ta
     where ta.au_id = a.au_id
     ) as TitleCount
 from authors as a
 order by TitleCount

 -- 是否可以定义一个函数
 -- 将作者编号作为参数统计其作品数量并将其返回
 select au_id, au_lname, dbo.GetTitleCountByAuID(au_id) as TitleCount
 from authors
 order by TitleCount

 -- 根据给定的作者编号获取其相应的作品数量
 create function GetTitleCountByAuID(@au_id varchar(12))
 returns int
 begin
     return (select count(title_id)
         from titleauthor
         where au_id = @au_id)
 end 

 -- 利用函数来显示每个作者的作品数量
 create proc pro_CalTitleCount
 as
 select au_id, au_lname, dbo.GetTitleCountByAuID(au_id) as TitleCount
 from authors
 order by TitleCount
 go

 -- 执行存储过程
 execute pro_CalTitleCount

 -- vb中函数定义格式
 function GetTitleCountByAuID(au_id as string) as integer

     .......

     GetTitleCountByAuID = ?
 end function

 -- SALES 作品销售信息
 select * from sales

 -- 根据书籍编号查询其销售记录（其中，qty 表示销量）
 select * from sales where title_id = 'BU1032'

 -- 根据书籍编号统计其总销售量（其中，qty 表示销量）
 select sum(qty) from sales where title_id = 'BU1032'

 -- 利用分组语句（group by），根据书籍编号统计每本书总销售量（其中，qty 表示销量）
 select title_id, sum(qty) from sales group by title_id

 -- 是否可以考虑定义一个函数根据书籍编号来计算其总销售量
 -- 然后，将其应用到任何一条包含了书籍编号的查询语句中
 select title_id, title, dbo.GetTotalSaleByTitleID(title_id) as TotalSales
 from titles
 order by TotalSales

 -- 定义一个函数根据书籍编号来计算其总销售量
 create function GetTotalSaleByTitleID(@tid varchar(24))
 returns int
 begin
     return(select sum(qty) from sales where title_id = @tid)
 end

 select count(title_id) + 1
 from titles
 where dbo.GetTotalSaleByTitleID(title_id) > dbo.GetTotalSaleByTitleID('pc1035')

 -- 删除函数
 drop function GetRankByTitleId

 -- 根据书籍编号计算其销量排名
 create function GetRankByTitleId(@tid varchar(24))
 returns int
 begin
     return (select count(title_id) + 1
         from titles
         where dbo.GetTotalSaleByTitleID(title_id) > dbo.GetTotalSaleByTitleID(@tid))
 end

 -- 统计书籍销量的前10位
 -- 其中，可以利用函数计算结果的别名作为排序子句的参照列
 select top 10 title_id, title, dbo.GetTotalSaleByTitleID(title_id) as TotalSales
 from titles
 order by TotalSales desc

 -- 书籍销量排名视图
 create view viewToalSales
 as
 select title_id, title, dbo.GetTotalSaleByTitleID(title_id) as TotalSales
 from titles
 go

 select * from viewToalSales;

 -- 根据书籍编号计算其销量排名
 create function GetTheRankOfTitle(@id varchar(20))
 returns int
 begin
     return(select count(TotalSales) + 1
         from viewToalSales
          where TotalSales > dbo.GetTotalSaleByTitleID(@id))
 end

 -- 根据书籍编号计算其销量排名
 select dbo.GetTheRankOfTitle('pc1035') from titles

 -- 在查询语句中利用函数统计每本书的总销量和总排名
 select title_id, title,
     dbo.GetTotalSaleByTitleID(title_id) as TotalSales,
     dbo.GetRankByTitleId(title_id) as TotalRank
 from titles
 order by TotalSales desc

 -- 查看表结构
 sp_help titles
 -- 查看存储过程的定义内容
 sp_helptext GetRankByTitleId
 sp_helptext sp_helptext
 sp_helptext xp_cmdshell

 -- [ORDER DETAILS] 订单详细信息
 select * from [order details]
 select * from [order details] where productid = 23
 -- 根据产品编号在订单详细信息表中统计总销售量
 select sum(quantity) from [order details] where productid = 23

 -- 构造一个函数根据产品编号在订单详细信息表中统计总销售量
 create function GetTotalSaleByPID(@Pid varchar(12))
 returns int
 begin
     return(select sum(quantity) from [order details] where productid = @Pid)
 end

 select * from products
 -- 在产品表中查询，统计每一样产品的总销量
 select productid, productname, dbo.GetTotalSaleByPID(productid) from products

 --
 CREATE FUNCTION LargeOrderShippers ( @FreightParm money )
 RETURNS @OrderShipperTab TABLE
    (
     ShipperID     int,
     ShipperName   nvarchar(80),
     OrderID       int,
     ShippedDate   datetime,
     Freight       money
    )
 AS
 BEGIN
    INSERT @OrderShipperTab
         SELECT S.ShipperID, S.CompanyName,
                O.OrderID, O.ShippedDate, O.Freight
         FROM Shippers AS S INNER JOIN Orders AS O
               ON S.ShipperID = O.ShipVia
         WHERE O.Freight > @FreightParm
    RETURN
 END

 SELECT * FROM LargeOrderShippers( $500 )

 -- 根据作者编号计算其所得版权费
 create function fun_RoyalTyper ( @au_id id)
 returns int
 as
 begin
     declare @rt int
     select @rt = sum(royaltyper) from titleauthor where au_id = @au_id
     return (@rt)
 end
 go

 select top 1 au_lname, au_fname, dbo.fun_RoyalTyper(au_id) as '版权费'
 from authors
 order by  dbo.fun_RoyalTyper(au_id) desc
 go

 create function fun_MaxRoyalTyper_Au_id ()
 returns id
 as
 begin
     declare @au_id id
     select @au_id = au_id
     from authors
     order by  dbo.fun_RoyalTyper(au_id)
     return(@au_id)
 end
 go

 select dbo.fun_MaxRoyalTyper_Au_id()
 go

 select au_lname, au_fname, dbo.fun_RoyalTyper(au_id) as '版权税'
 from authors
 where au_id = dbo.fun_MaxRoyalTyper_Au_id()
 go

 (5)高级查询

 select title_id, price from titles

 -- 查找最高价格
 select max(price) from titles

 -- 查找最贵书籍的价格(排序)，如果存在多本价格最贵的书，此方法将会遗漏
 select top 1 title_id, price
 from titles
 order by price desc

 -- 查找最贵书籍的价格(子查询)
 select title_id, price
 from titles
 where price = (select max(price) from titles)

 -- 查询指定出版社出版的书(连接)
 select p.pub_name as '出版社', t.title as '书籍名称'
 from publishers as p join titles as t on p.pub_id = t.pub_id
 where pub_name = 'New Moon Books'

 -- 查询指定出版社出版的书(子查询)
 select title
 from titles
 where pub_id = (select pub_id
         from publishers
         where pub_name =  'New Moon Books')

 -- 查询指定出版社出版的书(分开查询)
 select title from titles where pub_id = ''

 select pub_id
 from publishers
 where pub_name =  'New Moon Books'

 -- 重点
 -- 理解相关子查询的基础
 --
 select * from titles where type = 'business'
 select * from titles where type = 'business123'

 select * from titles where 1 = 1 

 -- 在订单表中寻找满足以下条件的订单编号以及相应的客户编号
 -- 在详细订单表中存在对应的订单编号并且其中包含产品编号为23的产品
 -- 然后将产品编号为23的产品订购量返回判断是否大于20
 USE northwind

 SELECT orderid, customerid
 FROM orders AS or1
 WHERE 20 < (SELECT quantity FROM [order details] AS od
              WHERE or1.orderid = od.orderid
               AND  od.productid = 23)
 GO

 SELECT au_lname, au_fname
 FROM authors
 WHERE 100 IN
     (
     SELECT royaltyper FROM titleauthor
     WHERE titleauthor.au_ID = authors.au_id
     ) 

 select authors.au_lname,authors.au_fname
 from authors join  titleauthor on titleauthor.au_ID=authors.au_id
 where titleauthor.royaltyper =100 

 USE pubs

 SELECT au_lname, au_fname
 FROM authors
 WHERE au_id IN
    (SELECT au_id
    FROM titleauthor
    WHERE title_id IN
       (SELECT title_id
       FROM titles
       WHERE type = 'popular_comp'))

 select distinct t.type, a.au_lname, a.au_fname
 from authors as a join titleauthor as ta on a.au_id = ta.au_id
             join titles as t on ta.title_id = t.title_id
 where t.type = 'business'

 -- 查找类型为'business'或是'trad_cook'类型的书籍
 select * from titles where type = 'business'
 select * from titles where type = 'trad_cook'

 -- 查找类型为'business'或是'trad_cook'类型的书籍(Or)
 select * from titles
 where type = 'business' or type = 'trad_cook'

 -- 查找类型为'business'或是'trad_cook'类型的书籍(In)
 select * from titles
 where type in ('business', 'trad_cook')

 -- 查找来自'KS'或是'UT'的作者
 select au_lname, state from authors
 where state = 'KS'
 select au_lname, state from authors
 where state = 'UT'

 -- 查找来自'KS'或是'UT'的作者(Or)
 select au_lname, state from authors
 where state = 'UT' or state = 'KS'

 -- 查找来自'KS'或是'UT'的作者(In)
 select au_lname, state from authors
 where state in ('UT', 'KS')

 select au_lname, state from authors
 where state not in ('UT', 'KS')

 -- 查找出版了类型为'business'类型的书籍的出版社
 SELECT pub_id FROM titles WHERE type = 'business'

 SELECT pub_id,pub_name
 FROM publishers
 WHERE pub_id IN ('', '')

 -- 查找出版了类型为'business'类型的书籍的出版社(In和子查询)
 SELECT pub_id,pub_name
 FROM publishers
 WHERE pub_id IN
    (SELECT pub_id
    FROM titles
    WHERE type = 'business')

 SELECT title, advance
 FROM titles
 WHERE advance >
    (
     SELECT MAX(advance)
     FROM publishers INNER JOIN titles ON
       titles.pub_id = publishers.pub_id
     WHERE pub_name = 'Algodata Infosystems'
    )

 SELECT title, advance
 FROM titles
 WHERE advance > all
    (
     SELECT advance
     FROM publishers INNER JOIN titles ON
       titles.pub_id = publishers.pub_id
     WHERE pub_name = 'Algodata Infosystems'
     and advance is not null
    )

 declare @i int
 set @i = 12
 if @i < null
     print 'DDDDD'
 else
     print 'XXXXX'

 SELECT advance
     FROM publishers INNER JOIN titles ON
       titles.pub_id = publishers.pub_id
     WHERE pub_name = 'Algodata Infosystems'

 select title_id, price from titles
 where price > all
 (
 select price from titles where type = 'business'
 )

 select title_id, price from titles
 where price >
 (
 select max(price) from titles where type = 'business'
 )

 select title_id, price from titles
 where price > any
 (
 select price from titles where type = 'business'
 )

 select title_id, price from titles
 where price >
 (
 select min(price) from titles where type = 'business'
 )

 select price from titles where type = 'business'

 if exists(select * from titles where type = '')
     print 'ZZZZZ'
 else
     print 'BBBBB'

 if exists(select * from authors
 where city = 'Berkeley' and state ='UT')
     print 'Welcome'
 else
     print 'Bye-Bye'

 -- 筛选出'business'以及'trad_cook'类型的书籍(联合查询)
 select title_id, type from titles where type = 'business'
 union
 select title_id, type from titles where type = 'trad_cook'

 -- 统计'business'类型的书籍的总价(联合查询)
 select title, price from titles where type = 'business'
 union
 select '合计:', sum(price) from titles where type = 'business'

 -- 统计所有书籍的类型剔除重复(Distinct)
 select distinct type from titles

 -- 作者记录的复制(Select Into)
 select * into au from authors

 select * from au

 -- 查看数据表结构(Select Into并没有对数据表的约束进行复制)
 sp_help authors
 sp_help au

 -- 分页(子查询的经典应用之一)

 -- Jobs 职务信息表（pubs 数据库）
 -- 在实际项目中，显示职务信息时，而职务信息量非常庞大，可能需要将其分为若干个页面来显示
 -- 比如：每页显示4条记录，那么，第一页将显示1，2，3，4，第二页将显示5，6，7，8。。。。。

 -- 显示所有信息
 SELECT * FROM jobs
 -- 显示前 4 信息
 select top 4 * from jobs
 -- 显示前 8 信息
 select top 8 * from jobs
 -- 显示前 12 信息
 select top 12 * from jobs

 -- 寻找规律，每一页的信息源于前（页面大小 * 页码）条信息的反序结果的前 页面大小 条记录
 -- 比如：第二页就是前 8 条记录的反序结果的前 4 条
 select top 4 *
 from (select top 8 * from jobs) as tt
 order by job_id desc

 -- 当然，对于期望按升序显示查询结果的要求可以对查询结果进行再次排序
 select * from
 (select top 4 *
 from (select top 8 * from jobs) as tt
 order by job_id desc) as stt
 order by job_id

 -- SQL 命令中不支持在 select 的查询列表中直接使用局部变量
 -- 比如：select top @PageSize * from jobs
 -- 那么，可以考虑对sql命令进行拼装，然后，利用系统存储过程 sp_executesql 来执行
 exec sp_executesql N'Select * from jobs'

 -- 存储过程的实现
 -- 其中，@CurrentPageSize用于确定最后一页的页面大小
 create proc proGetJobsByPage
 @CurrentPageSize int,
 @PageSize int,
 @CurrentPage int
 as
 Declare @strSql nvarchar(400)
 set @strSql = 'select * from
         (select top ' + convert(nvarchar(4), @CurrentPageSize) + ' *
         from (select top ' + convert(nvarchar(4),(@PageSize * @CurrentPage)) + ' * from jobs) as tt
         order by job_id desc) as stt
         order by job_id'
 exec sp_executesql @strSql
 go

 -- 测试
 exec proGetJobsByPage 2, 4, 4

 (6)存储过程

 -- 扩展存储过程

 -- 查询系统目录下文件信息
 xp_cmdshell 'dir *.*'

 -- 启动Windows系统服务
 xp_cmdshell 'net start iisadmin'

 (7)游标

 -- 游标的五个基本操作步骤：

 -- 声明
 declare cur_titles cursor
 for
 select title, price from titles

 -- 打开
 open cur_titles

 -- 提取
 fetch cur_titles

 fetch next from cur_titles

 -- 关闭
 close cur_titles

 -- 释放
 deallocate cur_titles

 -- 利用游标遍历所有书籍信息，通过冒泡排序法进行比较，找出最高价格的书
 -- 这一段为批处理版
 -- 与批处理版相比，存储过程版更方便调试以及代码的重用

 -- 声明
 declare cur_titles cursor
 for select title, price from titles

 -- 打开
 open cur_titles

 declare @title varchar(80)
 declare @price numeric(9,4)

 declare @title_temp varchar(80)
 declare @price_temp numeric(9,4)

 -- 提取
 fetch cur_titles into @title, @price

 fetch cur_titles into @title_temp, @price_temp

 while @@fetch_status = 0
 begin
     if @price < @price_temp
     begin
         set @price = @price_temp
         set @title = @title_temp
     end
     fetch cur_titles into @title_temp, @price_temp
 end

 -- 关闭
 close cur_titles

 -- 释放
 deallocate cur_titles

 -- 显示处理结果
 print '最贵的书是: ' + @title + '  ' + '价格是: ' + convert(varchar(12),@price)
 go

 -- 定义一个存储过程
 -- 利用游标遍历所有书籍信息，通过冒泡排序法进行比较，找出最高价格的书（游标具体应用的经典）
 -- 这段存储过程的实现代码相对下面的实现方式略有不同
 -- 代码重复，但是思路更清晰
 create procedure pro_GetMaxTitle
 as
     -- 声明
     declare cur_titles cursor
     for select title, price from titles

     -- 打开
     open cur_titles

     -- 存储最贵的书籍信息
     declare @title varchar(80)
     declare @price numeric(9,4)
     -- 存储从游标中提取出来的书籍的信息
     declare @title_temp varchar(80)
     declare @price_temp numeric(9,4)

     -- 提取
     fetch cur_titles into @title, @price
     -- 判断是否存在书籍信息
     if @@fetch_status <> 0
     begin
         print '没有书籍信息!'
         -- 关闭
         close cur_titles
         -- 释放
         deallocate cur_titles
         -- 结束存储过程
         return
     end

     fetch cur_titles into @title_temp, @price_temp

     -- 判断是否只存在一本书
     if @@fetch_status <> 0
     begin
         -- 显示处理结果
         print '最贵的书是: ' + @title + '  ' + '价格是: ' + convert(varchar(12),@price)
         -- 关闭
         close cur_titles
         -- 释放
         deallocate cur_titles
         -- 结束存储过程
         return
     end

     while @@fetch_status = 0
     begin
         if @price < @price_temp
         begin
             set @price = @price_temp
             set @title = @title_temp
         end
         fetch cur_titles into @title_temp, @price_temp
     end

     -- 显示处理结果
     print '最贵的书是: ' + @title + '  ' + '价格是: ' + convert(varchar(12),@price)

     -- 关闭
     close cur_titles

     -- 释放
     deallocate cur_titles

 go

 -- 定义一个存储过程
 -- 利用游标遍历所有书籍信息，通过冒泡排序法进行比较，找出最高价格的书
 -- 相对上面的实现方式，以下实现方式更简洁
 create procedure pro_GetMaxTitle
 as
     -- 声明
     declare cur_titles cursor
     for select title, price from titles

     -- 打开
     open cur_titles

     -- 存储最贵的书籍信息
     declare @title varchar(80)
     declare @price numeric(9,4)
     -- 存储从游标中提取出来的书籍的信息
     declare @title_temp varchar(80)
     declare @price_temp numeric(9,4)

     -- 提取
     fetch cur_titles into @title, @price
     -- 判断是否存在书籍信息
     if @@fetch_status = 0
     begin
         print '没有书籍信息!'
         goto errNoTitles
     end

     fetch cur_titles into @title_temp, @price_temp
     -- 判断是否只存在一本书
     if @@fetch_status = 0
     begin
         goto errOnlyOne
     end    

     while @@fetch_status = 0
     begin
         if @price < @price_temp
         begin
             set @price = @price_temp
             set @title = @title_temp
         end
         fetch cur_titles into @title_temp, @price_temp
     end

 errOnlyOne:
     -- 显示处理结果
     print '最贵的书是: ' + @title + '  ' + '价格是: ' + convert(varchar(12),@price)

 errNoTitles:
     -- 关闭
     close cur_titles

     -- 释放
     deallocate cur_titles

 go

 -- 根据作者编号查看其相应的作品年销售量
 -- 低于5000,提示: 销售量太低
 -- 高于5000,提示: 销售量太高
 create procedure pro_sales_avg (@au_id id)
 as
 if exists(select au_id from authors where au_id = @au_id)
 begin
     declare TempSales cursor
     for
     select title, ytd_sales
     from titleauthor ta join titles t
         on ta.title_id = t.title_id
     where au_id = @au_id

     open TempSales    

     declare @t varchar(80)
     declare @y int

     fetch TempSales
     into @t, @y

     while @@fetch_status = 0
     begin
         if 5000 > @y
             print @t + ' ' + convert(varchar(5),@y) + ' 销售量太低'
         else
             print @t + ' ' + convert(varchar(5),@y) + ' 销售量太高'
         fetch TempSales
         into @t, @y
     end

     close TempSales
     deallocate TempSales
 end
 else
     print '作者编号无效！'
 go

 exec pro_sales_avg '213-46-8915'

 /*
 示例
 A. 使用简单游标和语法
 打开该游标时所生成的结果集包括 pubs 数据库的 authors 表中的所有行和列。可以更新该游标，对该游标所做的所有更新和删除均在提取中表现出来。因为没指定 SCROLL 选项，FETCH NEXT 是唯一可用的提取选项。
 */

 DECLARE authors_cursor CURSOR
 FOR
 SELECT * FROM authors

 OPEN authors_cursor

 FETCH NEXT FROM authors_cursor

 /*
 B. 使用嵌套游标生成报表输出
 下例显示如何嵌套游标以生成复杂的报表。为每个作者声明内部游标。
 */

 SET NOCOUNT ON

 DECLARE @au_id varchar(11), @au_fname varchar(20), @au_lname varchar(40),
    @message varchar(80), @title varchar(80)

 PRINT "-------- Utah Authors report --------"

 DECLARE authors_cursor CURSOR
 FOR
 SELECT au_id, au_fname, au_lname
 FROM authors
 WHERE state = "UT"
 ORDER BY au_id

 OPEN authors_cursor

 FETCH NEXT FROM authors_cursor
 INTO @au_id, @au_fname, @au_lname

 WHILE @@FETCH_STATUS = 0
 BEGIN
    PRINT " "
    SELECT @message = "----- Books by Author: " +
       @au_fname + " " + @au_lname

    PRINT @message

    -- Declare an inner cursor based
    -- on au_id from the outer cursor.

    DECLARE titles_cursor CURSOR FOR
    SELECT t.title
    FROM titleauthor ta, titles t
    WHERE ta.title_id = t.title_id AND
    ta.au_id = @au_id   -- Variable value from the outer cursor

    OPEN titles_cursor
    FETCH NEXT FROM titles_cursor INTO @title

    IF @@FETCH_STATUS <> 0
       PRINT "         <<No Books>>"     

    WHILE @@FETCH_STATUS = 0
    BEGIN

       SELECT @message = "         " + @title
       PRINT @message
       FETCH NEXT FROM titles_cursor INTO @title

    END

    CLOSE titles_cursor
    DEALLOCATE titles_cursor

    -- Get the next author.
    FETCH NEXT FROM authors_cursor
    INTO @au_id, @au_fname, @au_lname
 END

 CLOSE authors_cursor
 DEALLOCATE authors_cursor
 GO

 -------- Utah Authors report --------

 ----- Books by Author: Anne Ringer
          The Gourmet Microwave
          Is Anger the Enemy?

 ----- Books by Author: Albert Ringer
          Is Anger the Enemy?
          Life Without Fear

 (8)触发器

 -- 设定数据库的递归触发器
 alter database pubs
     set recursive_triggers on
 go

 -- 创建数据表，并设定主键、外键以及缺省约束
 create table emp_mgr
 (
 Emp char(30) primary key,
 Mgr char(30) null foreign key references emp_mgr(Emp),
 NoOfReports int default 0
 )
 go

 -- 创建插入触发器
 create trigger emp_marins
 on emp_mgr
 for insert
 as
 declare @e char(30),@m char(30)
 declare cur_mgr cursor for
     select emp_mgr.emp
     from emp_mgr,inserted
     where emp_mgr.emp = inserted.mgr

 open  cur_mgr

 fetch next from cur_mgr into @e

 while @@fetch_status = 0
 begin
     update emp_mgr
     set emp_mgr.NoOfReports = emp_mgr.NoOfReports + 1
     where emp_mgr.emp = @e

     fetch next from cur_mgr into @e
 end 

 close cur_mgr

 deallocate cur_mgr

 go

 -- 查看数据表相关触发器
 sp_helptrigger emp_mgr
 go

 create trigger emp_mgrupd
 on emp_mgr
 for update
 as
 if update (mgr)
 begin
     update emp_mgr
     set emp_mgr.NoOfReports = emp_mgr.NoofReports + 1
     from inserted
     where emp_mgr.emp = inserted.mgr

     update emp_mgr
     set emp_mgr.NoOfReports = emp_mgr.NoOfReports -1
     from deleted
     where emp_mgr.emp = deleted.mgr

 end

 go

 insert emp_mgr(emp,mgr) values ('Harry',null)
 insert emp_mgr(emp,mgr) values ('Alice','Harry')
 insert emp_mgr(emp,mgr) values ('Paul','Alice')
 insert emp_mgr(emp,mgr) values ('Joe','Alice')
 insert emp_mgr(emp,mgr) values ('Dave','Joe')
 go

 select * from emp_mgr
 go

 update emp_mgr
 set mgr = 'Harry'
 where emp = 'Dave'
 go

 select * from emp_mgr
 go

 -- “进销存”系统（触发器的经典应用之一）

 某“进销存”系统需要记录进货的信息以及出货的信息，并且当用户记录这些信息的同时，库存信息也需要进行相应的调整，
 比如：记录进货信息时，如果该货品是新货，在库存表中还不存在任何信息时，则需要添加一条库存信息（Insert），
 否则，只需要对相应的库存记录进行更新（Update）；然而，在记录出货信息时，如果该货品在库存表中的库存量小于出货量时，
 则需抛出一个用户自定义的“应用错误”（raise_appliction_error），否则，只需要对相应的库存记录进行更新（Update）。
 那么，我们如何来作到数据库系统的自动完成。

 create table 进货
 (
 货号    char(1) not null,
 数量    int not null,
 时间    smalldatetime
 )

 create table 库存
 (
 货号    char(1) not null,
 数量    int not null
 )

 create table 出货
 (
 货号    char(1) not null,
 数量    int not null,
 时间    smalldatetime
 )

 drop table 库存
 drop table 进货
 drop table 出货

 select * from 进货
 select * from 库存
 select * from 出货

 create proc pro进货
 (
 @h char(1),
 @s int,
 @j smalldatetime
 )
 as
 insert into 进货 values (@h, @s, @j)

 if exists(select * from 库存 where 货号 = @h)
     update 库存 set 数量 = 数量 + @s where  货号 = @h
 else
     insert into 库存 values (@h, @s)
 go

 execute pro进货 'A', 120, '2005-12-28'
 execute pro进货 'A', 180, '2005-12-29'

 create proc pro出货
 (
 @h char(1),
 @s int,
 @j smalldatetime
 )
 as
 if exists(select * from 库存 where 货号 = @h)
 begin
     if exists(select 数量 from 库存 where 货号 = @h and 数量 >= @s)
     begin
         update 库存 set 数量 = 数量 - @s where  货号 = @h
         insert into 出货 values (@h, @s, @j)
     end
     else
         print 'No,you need too more!'
 end
 else
     print 'No, no you need Dongxi!'
 go

 execute pro出货 'D', 120, '2005-12-28'
 execute pro出货 'A', 680, '2005-12-29'
 execute pro出货 'A', 80, '2005-12-29'

 create proc pro进货
 (
 @h char(1),
 @s int,
 @j smalldatetime
 )
 as
 insert into 进货 values (@h, @s, @j)
 go

 create trigger tri进货
 on 进货
 after insert
 as
 declare @h char(1)
 declare @s int
 select @h = 货号, @s = 数量 from inserted

 if exists(select * from 库存 where 货号 = @h)
     update 库存 set 数量 = 数量 + @s where 货号 = @h
 else
     insert into 库存 values (@h, @s)
 go

 create proc pro销售
 (
 @h char(1),
 @s int,
 @j smalldatetime
 )
 as
 if exists(select * from 库存 where 货号 = @h)
     insert into 销售 values (@h, @s, @j)
 go

 create trigger tri销售
 on 销售
 after insert
 as
 if (select 数量 from inserted) > (select 数量 from 库存 where 货号 = (select 货号 from inserted))
 begin
     print 'Nononono!'
     rollback
 end
 else
     update 库存 set 数量 = 数量 - (select 数量 from inserted) where 货号 in (select 货号 from inserted)
 go

 -- 部门管理（触发器的递归实现的经典应用之一）
 use pubs
 go

 drop table departments
 go

 -- 定义数据表
 create table Departments
 (
 dep_id        int        not null    identity(1,1)    primary key,
 dep_name    varchar(18)    not null    unique,
 dep_parent    int        not null,
 dep_description    varchar(42)    null
 )
 go

 -- 添加基本数据
 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('上海', 0, '省级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('北京', 0, '省级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('湖南', 0, '省级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('长沙', 3, '市级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('株洲', 3, '市级代理')
 go

 insert into departments
 (dep_name, dep_parent,dep_description)
 values
 ('湘潭', 3, '市级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('石峰', 5, '区级代理')
 go

 insert into departments
 (dep_name, dep_parent, dep_description)
 values
 ('天元', 5, '区级代理')
 go

 insert into departments
 (dep_name, dep_parent,dep_description)
 values
 ('芦淞', 5, '区级代理')
 go

 select * from departments
 go

 -- 定义添加部门的存储过程
 create procedure proc_InsertDepartment
 @dep_parent_id    int,
 @dep_name    varchar(20),
 @dep_id        int output
 as
 insert into departments (dep_name, dep_parent,dep_description) values (@dep_name, @dep_parent_id, '代理')
 select @dep_id =  @@IDENTITY
 go

 -- 定义修改指定部门的名称的存储过程
 create procedure proc_UpdateDepartment
 @dep_id        int,
 @dep_name    varchar(20)
 as
 update departments set dep_name = @dep_name where dep_id = @dep_id
 go

 -- 定义删除指定部门以及相应子部门的存储过程
 create procedure proc_DeleteDepartment
 @dep_id        int
 as
 delete from departments where dep_id = @dep_id
 go

 -- 定义删除触发器(递归)
 create trigger tri_del_dep
 on departments
 for delete
 as
 -- 获取被删除部门的编号
 -- 检查是否存在子部门
 if exists(select * from departments where dep_parent in (select dep_id from deleted ))
     begin
         -- 如果返回值为真，删除相应子部门，激活子部门的删除触发器，进行递归调用
         delete from departments where dep_parent in (select dep_id from deleted )
     end
 go

 -- 启动直接递归触发器
 exec sp_dboption 'pubs','recursive triggers','true'

 -- 启动间接递归触发器
 exec sp_configure 'nested triggers','' 

 (9)链接服务
 -- 在SQL Server上创建一个链接服务：与其他数据库建立连接，将其数据表或是视图作为本地信息源访问
 -- 比如：将Access数据库Northwind作为一个链接服务源
 EXEC sp_addlinkedserver
    @server = 'SEATTLE Mktg',
    @provider = 'Microsoft.Jet.OLEDB.4.0',
    @srvproduct = 'OLE DB Provider for Jet',
    @datasrc = 'C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb'

 SELECT *
 into #au4
 FROM OPENQUERY([SEATTLE Mktg], 'SELECT * FROM 产品')
 GO

 select *
 from #au4