Задание 10
Выдать статистику по выпуску 1993 года вашего государства по всем учебным заведениям и специальностям. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу (выпуску 1993 г.). Далее перечень таблиц, где каждая таблица начинается с заголовка: <название учебного заведения> - <цифра>, не равная нулю, а заканчивается перечнем шифров специальностей с цифрами, не равными нулю.
alter procedure lab810 (@Year1 Varchar(5)) as
declare @UchZav char (25)
declare @sp char (6)
declare @Counter1 int
declare @Counter2 int
declare @CounterAll int
declare @UchZav1 char (25)
declare curs cursor for
select vuz.uch_zavedenie, spec, count (*)
from arm join vuz on vuz_k=vuz.cod
where gok=@Year1
group by vuz.uch_zavedenie, spec
order by vuz.uch_zavedenie
select @Counter2=0
select @CounterAll=0
open curs
fetch curs into @UchZav, @sp, @Counter1
if (@@fetch_status=-2)
begin
print 'Ошибка выполнения первого FETCH'
close curs
return
end
if (@@fetch_status=-1)
begin
print 'Данные не найдены'
close curs
return
end
select @UchZav1=@UchZav
print @sp+' - '+str(@Counter1)
select @Counter2=@Counter2+@Counter1
select @CounterAll=@CounterAll+@Counter1
while (@@fetch_status=0)
begin
fetch curs into @UchZav, @sp, @Counter1
if (@UchZav1 !=@UchZav)
begin
print 'Учебное заведение ' + @UchZav1 + ' - ' +str(@Counter2)
select @UchZav1=@UchZav
select @Counter2=0
end
if (@@fetch_status=-1) break
print @sp + ' - ' +str(@Counter1)
select @Counter2=@Counter2+@Counter1
select @CounterAll=@CounterAll+@Counter1
end
close curs
if (@@fetch_status=-2)
begin
print 'Ошибка выполнения последнего FETCH'
return
end
print 'Учебное заведение ' + @UchZav + ' - ' +str(@Counter2)
print '----------------------------------'
print 'Всего по запросу -'+str(@CounterAll)
deallocate curs
return
Задание 11
Выдать статистику по приему 1991 года вашего государства по всем категориям обучения и городам. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу (по приему 91-го года). Далее совокупность таблиц, где каждая таблица начинается с заголовка: <название категории обучения> - <цифра>, не равная нулю, а заканчивается перечнем названий городов с цифрами, не равными нулю.
alter procedure lab811 as
declare @ko char (16)
declare @gor char (20)
declare @Counter1 int
declare @Counter2 int
declare @CounterAll int
declare @ko1 char (16)
declare curs cursor for
select kat_obuch.kat_obucheniya, vuz_gorod.nazvanie_goroda, count (*)
from arm join vuz_gorod on vuz_k=vuz_gorod.cod_vuza
join kat_obuch on kat_obuch_k=kat_obuch.cod
where gp='91'
group by kat_obuch.kat_obucheniya, vuz_gorod.nazvanie_goroda
order by kat_obuch.kat_obucheniya
select @Counter2=0
select @CounterAll=0
open curs
fetch curs into @ko, @gor, @Counter1
if (@@fetch_status=-2)
begin
print 'Ошибка выполнения первого FETCH'
close curs
return
end
if (@@fetch_status=-1)
begin
print 'Данные не найдены'
close curs
return
end
select @ko1=@ko
print @gor+' - '+str(@Counter1)
select @Counter2=@Counter2+@Counter1
select @CounterAll=@CounterAll+@Counter1
while (@@fetch_status=0)
begin
fetch curs into @ko, @gor, @Counter1
if (@ko1 !=@ko)
begin
print 'Категория обучения ' + @ko1 + ' - ' +str(@Counter2)
select @ko1=@ko
select @Counter2=0
end
if (@@fetch_status=-1) break
print @gor + ' - ' +str(@Counter1)
select @Counter2=@Counter2+@Counter1
select @CounterAll=@CounterAll+@Counter1
end
close curs
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении последнего FETCH'
return
end
print 'Категория обучения' + @ko + ' - ' +str(@Counter2)
print '----------------------------------'
print 'Всего по запросу - '+str(@CounterAll)
deallocate curs
return