Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
37
Добавлен:
28.06.2014
Размер:
227.84 Кб
Скачать

Задание 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

Соседние файлы в папке Авдиенков, Шутова