Задание 12

Выдать статистику по специальностям и городам вашего государ­ства. Отчет должен начинаться заголовком и цифрой - общим количеством записей по запросу. Далее совокупность таблиц, где каждая таблица на­чинается с заголовка: СПЕЦИАЛЬНОСТЬ <шифр> - ВСЕГО <цифра>, не равная нулю, а заканчивается перечнем названий городов с цифрами, не равными нулю.

create procedure Proc8_12

as

begin

declare @Speciality char (6)

declare @Sity char (20)

declare @SityCount int

declare @SpecCount int

declare @TotalCount int

declare @Speciality1 char (6)

declare cur cursor for

select spec, vuz_gorod.nazvanie_goroda, count (*)

from bel

join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by spec, vuz_gorod.nazvanie_goroda

order by spec

select @SpecCount=0

select @TotalCount=0

open cur

fetch cur into @Speciality, @Sity, @SityCount

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 @Sity+' - '+str(@SityCount)

select @SpecCount=@SpecCount+@SityCount

select @TotalCount=@TotalCount+@SityCount

while (@@fetch_status=0)

begin

fetch cur into @Speciality, @Sity, @SityCount

if (@Speciality1 !=@Speciality)

begin

print 'Специальность ' + @Speciality1 + ' Всего ' +str(@SpecCount)

select @Speciality1=@Speciality

select @SpecCount=0

end

if (@@fetch_status=-1)

break

print @Sity + ' - ' +str(@SityCount)

select @SpecCount=@SpecCount+@SityCount

select @TotalCount=@TotalCount+@SityCount

end

close cur

if (@@fetch_status=-2)

begin

print 'Ошибка FETCH'

return

end

print 'Специальность ' + @Speciality + ' Всего ' +str(@SpecCount)

print '----------------------------------'

print 'Всего по запросу - '+str(@TotalCount)

deallocate cur

return

end

Задание 13

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

alter procedure Proc8_13 as

begin

declare @City char (20)

declare @GradYear char (2)

declare @GradYearCount int

declare @CityCount int

declare @TotalCount int

declare @City1 char (20)

declare cur cursor for

select vuz_gorod.nazvanie_goroda, gok, count (*)

from bel

join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_goroda, gok

order by vuz_gorod.nazvanie_goroda

select @CityCount=0

select @TotalCount=0

open cur

fetch cur into @City, @GradYear, @GradYearCount

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 'год '+@GradYear+' - '+str(@GradYearCount)

select @CityCount=@CityCount+@GradYearCount

select @TotalCount=@TotalCount+@GradYearCount

while (@@fetch_status=0)

begin

fetch cur into @City, @GradYear, @GradYearCount

if (@City1 !=@City)

begin

print 'Город ' + @City1 + ' - ВСЕГО ' +str(@CityCount)

select @City1=@City

select @CityCount=0

end

if (@@fetch_status=-1)

break

print 'год '+@GradYear + ' - ' +str(@GradYearCount)

select @CityCount=@CityCount+@GradYearCount

select @TotalCount=@TotalCount+@GradYearCount

end

close cur

if (@@fetch_status=-2)

begin

print 'Ошибка в FETCH'

return

end

print 'Город ' + @City + ' ВСЕГО ' +str(@CityCount)

print '----------------------------------'

print 'Всего по запросу - '+str(@TotalCount)

deallocate cur

return

end