15. 

16. Задание 14

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

create procedure lab8_14 as

declare @Town char (20),

@Univer char (25),

@UniverCount int,

@TownCount int,

@TotalCount int,

@Town1 char (20);

declare cur cursor for

select vuz_gorod.nazvanie_goroda, vuz_gorod.nazvanie_vuza, count (*)

from ukr

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 @TownCount=0

select @TotalCount=0

open cur

fetch cur into @Town, @Univer, @UniverCount

if (@@fetch_status=-2)

begin

print 'Ошибка в FETCH'

close cur

return

end

if (@@fetch_status=-1)

begin

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

close cur

return

end

select @Town1=@Town

print @Univer+' - '+str(@UniverCount)

select @TownCount=@TownCount+@UniverCount

select @TotalCount=@TotalCount+@UniverCount

while (@@fetch_status=0)

begin

fetch cur into @Town, @Univer, @UniverCount

if (@Town1 !=@Town)

begin

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

select @Town1=@Town

select @TownCount=0

end

if (@@fetch_status=-1)

break

print @Univer + ' - ' +str(@UniverCount)

select @TownCount=@TownCount+@UniverCount

select @TotalCount=@TotalCount+@UniverCount

end

close cur

if (@@fetch_status=-2)

begin

print 'Ошибка в FETCH'

return

end

print '+Город: ' + @Town + ' ВСЕГО ' +str(@TownCount)

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

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

deallocate cur

return

Запрос: exec lab8_14

Результат:

18. Задание 15

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

create procedure lab8_15 as

declare @spec char (6),

@Univer char (25),

@UniverCount int,

@SpecCount int,

@TotalCount int,

@spec1 char (6);

declare cur cursor for

select spec, vuz_gorod.nazvanie_vuza, count (*)

from ukr 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 @spec, @Univer, @UniverCount

if (@@fetch_status=-2)

begin

print 'Ошибка в FETCH'

close cur

return

end

if (@@fetch_status=-1)

begin

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

close cur

return

end

select @spec1=@spec

print @Univer+' - '+str(@UniverCount)

select @SpecCount=@SpecCount+@UniverCount

select @TotalCount=@TotalCount+@UniverCount

while (@@fetch_status=0)

begin

fetch cur into @spec, @Univer, @UniverCount

if (@spec1 !=@spec)

begin

print 'Специальность ' + @spec1 + ' - ВСЕГО ' +str(@SpecCount)

select @spec1=@spec

select @SpecCount=0

end

if (@@fetch_status=-1)

break

print @Univer + ' - ' +str(@UniverCount)

select @SpecCount=@SpecCount+@UniverCount

select @TotalCount=@TotalCount+@UniverCount

end

close cur

if (@@fetch_status=-2)

begin

print 'Ошибка в FETCH'

return

end

print 'Специальность ' + @spec + ' ВСЕГО ' +str(@SpecCount)

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

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

deallocate cur

return

Запрос: exec lab8_15

Результат: