
Задание 14
Выдать статистику по лицам мужского пола вашего государства по всем городам и учебным заведениям. Отчет должен начинаться соответствующим заголовком. Далее должна следовать совокупность таблиц, каждая из которых включает перечень учебных заведений одного города с цифрами, не равными нулю (последняя строка таблицы представляет собой: ГОРОД <название> - ВСЕГО <цифра>, где <цифра> ^= 0). Заканчивается отчет цифрой - общим количеством записей по запросу (т. е. всего мужчин).
alter procedure Proc8_14 as
begin
declare @City char (20)
declare @University char (25)
declare @UniversityCount int
declare @CityCount int
declare @TotalCount int
declare @City1 char (20)
declare cur cursor for
select vuz_gorod.nazvanie_goroda, vuz_gorod.nazvanie_vuza, count (*)
from bel
join vuz_gorod on vuz_k=vuz_gorod.cod_vuza
where pol='М'
group by vuz_gorod.nazvanie_goroda, vuz_gorod.nazvanie_vuza
order by vuz_gorod.nazvanie_goroda
select @CityCount=0
select @TotalCount=0
open cur
fetch cur into @City, @University, @UniversityCount
if (@@fetch_status=-2)
begin
print 'Ошибка в FETCH'
close cur
return
end
if (@@fetch_status=-1)
begin
print 'Данные не найдены'
close cur
return
end
select @City1=@City
print @University+' - '+str(@UniversityCount)
select @CityCount=@CityCount+@UniversityCount
select @TotalCount=@TotalCount+@UniversityCount
while (@@fetch_status=0)
begin
fetch cur into @City, @University, @UniversityCount
if (@City1 !=@City)
begin
print '+Город: ' + @City1 + ' - ВСЕГО ' +str(@CityCount)
select @City1=@City
select @CityCount=0
end
if (@@fetch_status=-1)
break
print @University + ' - ' +str(@UniversityCount)
select @CityCount=@CityCount+@UniversityCount
select @TotalCount=@TotalCount+@UniversityCount
end
close cur
if (@@fetch_status=-2)
begin
print 'Ошибка в FETCH'
return
end
print '+Город: ' + @City + ' ВСЕГО ' +str(@CityCount)
print '----------------------------------'
print 'Всего по запросу - '+str(@TotalCount)
deallocate cur
return
end
Задание 15
Выдать статистику по специальностям и учебным заведениям вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: СПЕЦИАЛЬНОСТЬ <шифр> - ВСЕГО <цифра>, не равная нулю, а заканчивается перечнем названий учебных заведений с цифрами, не равными нулю.
create procedure Proc8_15 as
begin
declare @Speciality char (6)
declare @University char (25)
declare @UniversityCount int
declare @SpecCount int
declare @TotalCount int
declare @Speciality1 char (6)
declare cur cursor for
select spec, vuz_gorod.nazvanie_vuza, count (*)
from bel join vuz_gorod on vuz_k=vuz_gorod.cod_vuza
group by spec, vuz_gorod.nazvanie_vuza
order by spec
select @SpecCount=0
select @TotalCount=0
open cur
fetch cur into @Speciality, @University, @UniversityCount
if (@@fetch_status=-2)
begin
print 'Ошибка в FETCH'
close cur
return
end
if (@@fetch_status=-1)
begin
print 'Данные не найдены'
close cur
return
end
select @Speciality1=@Speciality
print @University+' - '+str(@UniversityCount)
select @SpecCount=@SpecCount+@UniversityCount
select @TotalCount=@TotalCount+@UniversityCount
while (@@fetch_status=0)
begin
fetch cur into @Speciality, @University, @UniversityCount
if (@Speciality1 !=@Speciality)
begin
print 'Специальность ' + @Speciality1 + ' - ВСЕГО ' +str(@SpecCount)
select @Speciality1=@Speciality
select @SpecCount=0
end
if (@@fetch_status=-1)
break
print @University + ' - ' +str(@UniversityCount)
select @SpecCount=@SpecCount+@UniversityCount
select @TotalCount=@TotalCount+@UniversityCount
end
close cur
if (@@fetch_status=-2)
begin
print 'Ошибка в FETCH'
return
end
print 'Специальность ' + @Speciality + ' ВСЕГО ' +str(@SpecCount)
print '----------------------------------'
print 'Всего по запросу - '+str(@TotalCount)
deallocate cur
return
end