Задание 12

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

alter procedure lab812 as

declare @sp char (6)

declare @gor char (20)

declare @Counter1 int

declare @Counter2 int

declare @CounterAll int

declare @sp1 char (6)

declare curs cursor for

select spec, vuz_gorod.nazvanie_goroda, count (*)

from arm join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by spec, vuz_gorod.nazvanie_goroda

order by spec

select @Counter2=0

select @CounterAll=0

open curs

fetch curs into @sp, @gor, @Counter1

if (@@fetch_status=-2)

begin

print 'Ошибка первого FETCH'

close curs

return

end

if (@@fetch_status=-1)

begin

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

close curs

return

end

select @sp1=@sp

print @gor+' - '+str(@Counter1)

select @Counter2=@Counter2+@Counter1

select @CounterAll=@CounterAll+@Counter1

while (@@fetch_status=0)

begin

fetch curs into @sp, @gor, @Counter1

if (@sp1 !=@sp)

begin

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

select @sp1=@sp

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 'Специальность ' + @sp + ' ВСЕГО ' +str(@Counter2)

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

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

deallocate curs

return

Задание 13

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

alter procedure lab813 as

declare @gor char (20)

declare @go char (2)

declare @Counter1 int

declare @Counter2 int

declare @CounterAll int

declare @gor1 char (20)

declare curs cursor for

select vuz_gorod.nazvanie_goroda, gok, count (*)

from arm join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_goroda, gok

order by vuz_gorod.nazvanie_goroda

select @Counter2=0

select @CounterAll=0

open curs

fetch curs into @gor, @go, @Counter1

if (@@fetch_status=-2)

begin

print 'Ошибка выполнения первого FETCH'

close curs

return

end

if (@@fetch_status=-1)

begin

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

close curs

return

end

select @gor1=@gor

print 'год '+@go+' - '+str(@Counter1)

select @Counter2=@Counter2+@Counter1

select @CounterAll=@CounterAll+@Counter1

while (@@fetch_status=0)

begin

fetch curs into @gor, @go, @Counter1

if (@gor1 !=@gor)

begin

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

select @gor1=@gor

select @Counter2=0

end

if (@@fetch_status=-1) break

print 'год '+@go + ' - ' +str(@Counter1)

select @Counter2=@Counter2+@Counter1

select @CounterAll=@CounterAll+@Counter1

end

close curs

if (@@fetch_status=-2)

begin

print 'Ошибка выполнения последнего FETCH'

return

end

print 'Город ' + @gor + ' всего ' +str(@Counter2)

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

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

deallocate curs

return

Задание 14

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

alter procedure lab814 as

declare @gor char (20)

declare @UchZav char (25)

declare @Counter1 int

declare @Counter2 int

declare @CounterAll int

declare @gor1 char (20)

declare curs cursor for

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

from arm 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 @Counter2=0

select @CounterAll=0

open curs

fetch curs into @gor, @UchZav, @Counter1

if (@@fetch_status=-2)

begin

print 'Ошибка выполнения перовго FETCH'

close curs

return

end

if (@@fetch_status=-1)

begin

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

close curs

return

end

select @gor1=@gor

print @UchZav+' - '+str(@Counter1)

select @Counter2=@Counter2+@Counter1

select @CounterAll=@CounterAll+@Counter1

while (@@fetch_status=0)

begin

fetch curs into @gor, @UchZav, @Counter1

if (@gor1 !=@gor)

begin

print 'Город ' + @gor1 + ' - всего ' +str(@Counter2)

select @gor1=@gor

select @Counter2=0

end

if (@@fetch_status=-1) break

print @UchZav + ' - ' +str(@Counter1)

select @Counter2=@Counter2+@Counter1

select @CounterAll=@CounterAll+@Counter1

end

close curs

if (@@fetch_status=-2)

begin

print 'Ошибка выполнения последнего FETCH'

return

end

print 'Город ' + @gor + ' всего ' +str(@Counter2)

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

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

deallocate curs

return