Задание 13
Выдать статистику по городам и годам окончания вашего государ¬ства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица на-чинается с заголовка: ГОРОД <название> - ВСЕГО <цифра>, не равная ну-лю, а заканчивается перечнем годов окончания с цифрами, не равными нулю.
Запрос:
create procedure z13 as
declare @gor char (20)
declare @go char (2)
declare @it1 int
declare @it2 int
declare @itall int
declare @gor1 char (20)
declare y cursor for
select vuz_gorod.nazvanie_goroda, gok, count (*)
from cir join vuz_gorod on vuz_k=vuz_gorod.cod_vuza
group by vuz_gorod.nazvanie_goroda, gok
order by vuz_gorod.nazvanie_goroda
select @it2=0
select @itall=0
open y
fetch y into @gor, @go, @it1
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1) begin
print 'Данные не найдены'
close y
return
end
select @gor1=@gor
print 'год '+@go+' - '+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @gor, @go, @it1
if (@gor1 !=@gor) begin
print 'Город ' + @gor1 + ' - ВСЕГО ' +str(@it2)
print '---------------- '
select @gor1=@gor
select @it2=0
end
if (@@fetch_status=-1) break
print 'год '+@go + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении последнего FETCH'
return
end
print 'Город ' + @gor + ' ВСЕГО ' +str(@it2)
print '----------------------------------'
print 'Всего по запросу - '+str(@itall)
deallocate y
return
Результат:
год 93 - 1267
год 94 - 336
год 95 - 236
год 96 - 133
Город БИШКЕК - ВСЕГО 1972
----------------
год 93 - 28
Город П-К КИРШЕЛК ВСЕГО 28
----------------------------------
Всего по запросу - 2000
Задание 14
Выдать статистику по лицам мужского пола вашего государства по всем городам и учебным заведениям. Отчет должен начинаться соот-ветствующим заголовком. Далее должна следовать совокупность таблиц, каждая из которых включает перечень учебных заведений одного города с цифрами, не равными нулю (последняя строка таблицы представляет со-бой: ГОРОД <название> - ВСЕГО <цифра>, где <цифра> ^= 0). Заканчива¬ется отчет цифрой - общим количеством записей по запросу (т. е. всего мужчин).
Запрос:
create procedure z14 as
declare @gor char (20)
declare @yz char (25)
declare @it1 int
declare @it2 int
declare @itall int
declare @gor1 char (20)
declare y cursor for
select vuz_gorod.nazvanie_goroda, vuz_gorod.nazvanie_vuza, count (*)
from cir 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 @it2=0
select @itall=0
open y
fetch y into @gor, @yz, @it1
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1) begin
print 'Данные не найдены'
close y
return
end
select @gor1=@gor
print @yz+' - '+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @gor, @yz, @it1
if (@gor1 !=@gor) begin
print 'Город ' + @gor1 + ' - ВСЕГО ' +str(@it2)
print '---------------- '
select @gor1=@gor
select @it2=0
end
if (@@fetch_status=-1) break
print @yz + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении последнего FETCH'
return
end
print 'Город ' + @gor + ' ВСЕГО ' +str(@it2)
print '----------------------------------'
print 'Всего по запросу - '+str(@itall)
deallocate y
return
Результат:
БИШКЕКСК.ПИ - 1034
Город БИШКЕК - ВСЕГО 1034
----------------
КИРШЕЛКСК.ДЕТСК.ДОМ - 28
Город П-К КИРШЕЛК ВСЕГО 28
----------------------------------
Всего по запросу - 1062