Задание 5

Выдать статистику по учебным заведениям и категориям обучения вашего государства, включая цифры по выпуску 1993 года и по приему 1990 года по каждой категории обучения. Отчет должен начинаться с за­головка и цифры - общего количества записей по запросу. Далее сово­купность таблиц, где каждая таблица начинается с заголовка : <название учебного заведения> - <цифра>, не равная нулю, а заканчива­ется перечнем категорий обучения с тремя цифрами: 1) всего (не равная нулю); 2) выпуск 1993 г.; 3) прием 1990 г.

create procedure request25 as

declare @uz char(25)

declare @ko char(15)

declare @it1 int /*итог по полю категория обучения*/

declare @it2 int /*итог по полю вуз*/

declare @it93 int /*итог по гв 93*/

declare @it90 int /*итог по гп 90*/

declare @itall int

declare @uz1 char(25)

declare @str1 varchar(8000)

declare @str2 varchar(8000)

declare y cursor for

select vuz_gorod.nazvanie_vuza, kat_obuch.kat_obucheniya, count(*),

sum(case when gp='90' then 1 else 0 end),

sum(case when gok='93' then 1 else 0 end)

from cir join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

join kat_obuch on kat_obuch_k=kat_obuch.cod

group by vuz_gorod.nazvanie_vuza, kat_obuch.kat_obucheniya

select @it2=0

select @it90=0

select @it93=0

select @itall=0

open y

fetch y into @uz, @ko, @it1, @it90, @it93

if (@@fetch_status=-2) begin

print 'Ошибка при выполнении первого FETCH'

close y

return

end

if (@@fetch_status=-1) begin

print 'Данные не найдены'

close y

return

end

select @uz1=@uz

select @str2=@ko+'-'+str(@it1)+' '+str(@it90)+' '+str(@it93)

select @it2=@it2+@it1

select @itall=@itall+@it1

/*цикл обработки запроса*/

while (@@fetch_status=0)

begin

fetch y into @uz, @ko, @it1, @it90, @it93

if (@uz1!=@uz) begin

select @str1='Учебное заведение '+@uz1+'-'+str(@it2)+'|'+@str2

select @str2=@str1

select @uz1=@uz

select @it2=0

end

if (@@fetch_status=-1) break

select @str1=@ko+'-'+str(@it1)+' '+str(@it90)+' '+str(@it93)+'|'+@str2

select @str2=@str1

select @it2=@it2+@it1

select @itall=@itall+@it1

end

close y

if (@@fetch_status=-2) begin

print 'Ошибка при выполнении FETCH'

return

end

select @str1='Всего по запросу-'+str(@itall)+'|'+'----------------------------------'+'|'+'Учебное заведение '+@uz1+'-'+str(@it2)+'|'+@str2

declare @n1 bigint

select @n1=PATINDEX('%|%',@str1)

select @str2=LEFT(@str1,@n1-1)

print @str2

select @str1=STUFF(@str1,1,@n1,'')

print 'Категория обучения - Всего - Выпуск 1993 - Приём 1990'

while (PATINDEX('%|%',@str1)!=0)

begin

select @n1=PATINDEX('%|%',@str1)

if (@n1>1)

begin

select @str2=LEFT(@str1,@n1-1)

print @str2

select @str1=STUFF(@str1,1,@n1,'')

end

end

print @str1

deallocate y

return

Задание 6

Выдать статистику по учебным заведениям и годам окончания ва­шего государства. Отчет должен начинаться с заголовка и цифры - обще­го количества записей по запросу. Далее совокупность таблиц, где каж­дая таблица начинается с заголовка: <название учебного заведения> ­<цифра>, не равная нулю, а заканчивается перечнем годов окончания с цифрами, не равными нулю.

create procedure request26 as

declare @uz char(25)

declare @gok char(10)

declare @it1 int /*итог по полю гок*/

declare @it2 int /*итог по полю вуз*/

declare @itall int

declare @uz1 char(25)

declare @str1 varchar(8000)

declare @str2 varchar(8000)

declare y cursor for

select vuz_gorod.nazvanie_vuza, gok, count(*)

from cir join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_vuza, gok

order by vuz_gorod.nazvanie_vuza

select @it2=0

select @itall=0

open y

fetch y into @uz, @gok, @it1

if (@@fetch_status=-2) begin

print 'Ошибка при выполнении первого FETCH'

close y

return

end

if (@@fetch_status=-1) begin

print 'Данные не найдены'

close y

return

end

select @uz1=@uz

select @str2=@gok+'-'+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+@it1

/*цикл обработки запроса*/

while (@@fetch_status=0)

begin

fetch y into @uz, @gok, @it1

if (@uz1!=@uz) begin

select @str1='Учебное заведение '+@uz1+'-'+str(@it2)+'|'+@str2

select @str2=@str1

select @uz1=@uz

select @it2=0

end

if (@@fetch_status=-1) break

select @str1=@gok+'-'+str(@it1)+'|'+@str2

select @str2=@str1

select @it2=@it2+@it1

select @itall=@itall+@it1

end

close y

if (@@fetch_status=-2) begin

print 'Ошибка при выполнении FETCH'

return

end

select @str1='Всего по запросу-'+str(@itall)+'|'+'----------------------------------'+'|'+'Учебное заведение '+@uz1+'-'+str(@it2)+'|'+@str2

declare @n1 bigint

while (PATINDEX('%|%',@str1)!=0)

begin

select @n1=PATINDEX('%|%',@str1)

if (@n1>1)

begin

select @str2=LEFT(@str1,@n1-1)

print @str2

select @str1=STUFF(@str1,1,@n1,'')

end

end

print @str1

deallocate y

return