Задание 8
Выдать статистику по годам приема и по специальностям учащихся вашего государства. Отчет должен начинаться с заголовка и цифры общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <год приема> - <цифра>, не равная нулю, а заканчивается перечнем шифров специальностей с цифрами, не равными нулю.
create procedure z8 as
declare @sp char (6)
declare @go char(2)
declare @it1 int
declare @it2 int
declare @itall int
declare @go1 char (2)
declare y cursor for
select gp, spec, count (*)
from uzb
group by spec, gp
select @it2=0
select @itall=0
open y
fetch y into @go, @sp, @it1
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print 'Данные не найдены'
close y
return
end
select @go1=@go
print str(@sp) +' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @go, @sp, @it1
if (@go1 != @go)
begin
print '----------------------------------'
print 'Год приёма ' + @go1 + ' - ' +str(@it2, 4)
select @go1=@go
select @it2=0
end
if (@@fetch_status=-1)
break
print str(@sp)+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении первого FETCH'
return
end
print 'Год приёма ' + str(@go) + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print 'Всего - '+str(@itall, 4)
deallocate y
return
Задание 9
Выдать статистику по категориям обучения и учебным заведениям вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <категория обучения> - <цифра>, не равная нулю, а заканчивается перечнем учебных заведений с цифрами, не равными нулю.
create procedure z9 as
declare @yz char (25)
declare @ko char (16)
declare @it1 int
declare @it2 int
declare @itall int
declare @ko1 char (16)
declare y cursor for
select kat_obucheniya, vuz.uch_zavedenie , count (*)
from uzb
join vuz on vuz_k=vuz.cod
join kat_obuch on kat_obuch_k=kat_obuch.cod
group by kat_obuch.kat_obucheniya, vuz.uch_zavedenie
order by kat_obuch.kat_obucheniya, vuz.uch_zavedenie
select @it2=0
select @itall=0
open y
fetch y into @ko,@yz, @it1
if (@@fetch_status=-2)
begin
print ‘Ошибка при выполнении первого FETCH’
close y
return
end
if (@@fetch_status=-1)
begin
print ‘Данные не найдены’
close y
return
end
select @ko1=@ko
print @yz+' -'+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @ko,@yz, @it1
if (@ko1 !=@ko)
begin
print 'категория обучения ' + @ko1 + ' - ' +str(@it2)
select @ko1=@ko
select @it2=0
end
if (@@fetch_status=-1)
break
print @yz + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print ‘Ошибка при выполнении первого FETCH’
return
end
print 'категория обучения ' + @ko + ' - ' +str(@it2)
print '----------------------------------'
print 'всего по запросу-'+str(@itall)
deallocate y
return
