Лабораторные работы (А-13-07) / Крамм, Кохов / лаб 8
.doc
Лабораторная работа №8
по Базам Данных
Выполнили: Кохов В.В
Крамм Е.М
Группа: А-13-07
Преподаватель: Сидорова Н. П.
Задание 8
Выдать статистику по годам приема и по специальностям учащихся вашего государства. Отчет должен начинаться с заголовка и цифры общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <год приема> - <цифра>, не равная нулю, а заканчивается перечнем шифров специальностей с цифрами, не равными нулю.
alter procedure pr8 as
declare @sp char (6)
declare @go char(2)
declare @it1 int
declare @it2 int
declare @itall int
declare @sp1 char (25) -- ãîä
declare y cursor for
select gp, spec, count (*)
from azer
group by gp,spec
select @it2=0
select @itall=0
open y
fetch y into @go, @sp, @it1
if (@@fetch_status=-2) begin
print ' Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1) begin
print ' Данные не найдены'
close y
return
end
select @sp1=@go
print @sp+' -'+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @go, @sp, @it1
if (@sp1 !=@go) begin
print ' год ' + @sp1 + ' - ' +str(@it2)
select @sp1=@go
select @it2=0
end
if (@@fetch_status=-1) break
print @sp + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2) begin
print ' Ошибка при выполнении первого FETCH'
return
end
print ' год ' + @go + ' - ' +str(@it2)
print '----------------------------------'
print ' всего по запросу -'+str(@itall)
deallocate y
return
Задание 9
Выдать статистику по категориям обучения и учебным заведениям вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <категория обучения> - <цифра>, не равная нулю, а заканчивается перечнем учебных заведений с цифрами, не равными нулю.
create procedure pr9 as
declare @yz char (25)
declare @ko char (16)
declare @it1 int
declare @it2 int
declare @itall int
declare @yz1 char (25)
declare y cursor for
select vuz.uch_zavedenie, kat_obucheniya, count (*)
from azer join vuz on vuz_k=vuz.cod
join kat_obuch on kat_obuch_k=kat_obuch.cod
group by vuz.uch_zavedenie, kat_obuch.kat_obucheniya
select @it2=0
select @itall=0
open y
fetch y into @yz, @ko, @it1
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1) begin
print 'Данные не найдены'
close y
return
end
select @yz1=@yz
print @ko+' -'+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @yz, @ko, @it1
if (@yz1 !=@yz) begin
print ' учебное заведение' + @yz1 + ' - ' +str(@it2)
select @yz1=@yz
select @it2=0
end
if (@@fetch_status=-1) break
print @ko + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2) begin
print ' Ошибка при выполнении FETCH'
return
end
print ' категория обучения ' + @yz + ' - ' +str(@it2)
print '----------------------------------'
print ' всего по запросу -'+str(@itall)
deallocate y
return
Задание 10
Выдать статистику по выпуску 1993 года вашего государства по всем учебным заведениям и специальностям. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу (выпуску 1993 г.). Далее перечень таблиц, где каждая таблица начинается с заголовка: <название учебного заведения> - <цифра>, не равная нулю, а заканчивается перечнем шифров специальностей с цифрами, не равными нулю.
create procedure pr10 as
declare @yz char (25)
declare @sp char (6)
declare @it1 int
declare @it2 int
declare @itall int
declare @yz1 char (25)
declare y cursor for
select vuz.uch_zavedenie, spec, count (*)
from azer join vuz on vuz_k=vuz.cod
where gok='93'
group by vuz.uch_zavedenie, spec
select @it2=0
select @itall=0
open y
fetch y into @yz, @sp, @it1
if (@@fetch_status=-2) begin
print ' Ошибка при выполнении первого FETCH
close y
return
end
if (@@fetch_status=-1) begin
print ' Данные не найдены '
close y
return
end
select @yz1=@yz
print @sp+' -'+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin fetch y into @yz, @sp, @it1
if (@yz1 !=@yz) begin
print ' учебное заведение' + @yz1 + ' - ' +str(@it2)
select @yz1=@yz
select @it2=0
end
if (@@fetch_status=-1) break
print @sp + ' - ' +str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении первого FETCH'
return
end
print учебное заведение' + @yz + ' - ' +str(@it2)
print '----------------------------------'
print ' всего по запросу-'+str(@itall)
deallocate y
return
Задание 11
Выдать статистику по приему 1991 года вашего государства по всем категориям обучения и городам. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу (по приему 91-го года). Далее совокупность таблиц, где каждая таблица начинается с заголовка: <название категории обучения> - <цифра>, не равная нулю, а заканчивается перечнем названий городов с цифрами, не равными нулю.
ALTER procedure [dbo].[pr11] (@godp char(2)) as
declare @ng char (20)
declare @ko char(16)
declare @it1 int
declare @it2 int
declare @itall int
declare @ko1 char (16)
declare y cursor for
select kat_obucheniya, vuz_gorod.nazvanie_goroda, count (*)
from azer
join vuz_gorod on vuz_k = cod_vuza
join kat_obuch on kat_obuch_k = kat_obuch.cod
where gp=@godp
group by kat_obucheniya, vuz_gorod.nazvanie_goroda
order by kat_obucheniya, vuz_gorod.nazvanie_goroda
select @it2=0
select @itall=0
open y
fetch y into @ko, @ng, @it1
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print ' Данные не найдены '
close y
return
end
select @ko1=@ko
print @ng+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @ko, @ng, @it1
if (@ko1 != @ko)
begin
print 'Категория обучения' + @ko1 + ' - ' +str(@it2, 4)
select @ko1=@ko
select @it2=0
end
if (@@fetch_status=-1)
break
print @ng+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении первого FETCH '
return
end
print 'Категория обучения' + @ko + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print ' Всего - '+str(@itall, 4)
deallocate y
return
Задание 12
Выдать статистику по специальностям и городам вашего государства. Отчет должен начинаться заголовком и цифрой - общим количеством записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: СПЕЦИАЛЬНОСТЬ <шифр> - ВСЕГО <цифра>, не равная нулю, а заканчивается перечнем названий городов с цифрами, не равными нулю.
alter procedure pr12 as
declare @ng char (20)
declare @sp char(16)
declare @it1 int
declare @it2 int
declare @itall int
declare @sp1 char (16)
declare y cursor for
select spec, vuz_gorod.nazvanie_goroda, count (*)
from azer
join vuz_gorod on vuz_k = cod_vuza
group by spec, vuz_gorod.nazvanie_goroda
order by spec, vuz_gorod.nazvanie_goroda
select @it2=0
select @itall=0
open y
fetch y into @sp, @ng, @it1
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print ' Данные не найдены'
close y
return
end
select @sp1=@sp
print @ng+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @sp, @ng, @it1
if (@sp1 != @sp)
begin
print ' Специальность ' + @sp1 + ' - ' +str(@it2, 4)
select @sp1=@sp
select @it2=0
end
if (@@fetch_status=-1)
break
print @ng+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print 'Ошибка при выполнении первого FETCH'
return
end
print ' Специальность ' + @sp + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print ' Всего - '+str(@itall, 4)
deallocate y
return
Задание 13
Выдать статистику по городам и годам окончания вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: ГОРОД <название> - ВСЕГО <цифра>, не равная нулю, а заканчивается перечнем годов окончания с цифрами, не равными нулю.
create procedure pr13 as
declare @gk char (2)
declare @ng char(20)
declare @it1 int
declare @it2 int
declare @itall int
declare @ng1 char (20)
declare y cursor for
select vuz_gorod.nazvanie_goroda, gok , count (*)
from azer
join vuz_gorod on vuz_k = cod_vuza
group by gok, vuz_gorod.nazvanie_goroda
order by gok, vuz_gorod.nazvanie_goroda
select @it2=0
select @itall=0
open y
fetch y into @ng, @gk, @it1
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print ' Данные не найдены'
close y
return
end
select @ng1=@ng
print @gk+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @ng, @gk, @it1
if (@ng1 != @ng)
begin
print ' Город ' + @ng1 + ' - ' +str(@it2, 4)
select @ng1=@ng
select @it2=0
end
if (@@fetch_status=-1)
break
print @gk+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH '
return
end
print ' Город ' + @ng + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print ' Город - '+str(@itall, 4)
deallocate y
return
Задание 14
Выдать статистику по лицам мужского пола вашего государства по всем городам и учебным заведениям. Отчет должен начинаться соответствующим заголовком. Далее должна следовать совокупность таблиц, каждая из которых включает перечень учебных заведений одного города с цифрами, не равными нулю (последняя строка таблицы представляет собой: ГОРОД <название> - ВСЕГО <цифра>, где <цифра> ^= 0). Заканчивается отчет цифрой - общим количеством записей по запросу (т. е. всего мужчин).
create procedure pr14 as
declare @yz char (25)
declare @ng char(20)
declare @it1 int
declare @it2 int
declare @itall int
declare @ng1 char (20)
declare y cursor for
select vuz_gorod.nazvanie_goroda, vuz.uch_zavedenie , count (*)
from azer
join vuz_gorod on vuz_k = cod_vuza
join vuz on vuz_k=vuz.cod
where pol = 'Ì'
group by vuz.uch_zavedenie, vuz_gorod.nazvanie_goroda
order by vuz.uch_zavedenie, vuz_gorod.nazvanie_goroda
select @it2=0
select @itall=0
open y
fetch y into @ng, @yz, @it1
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print ' Данные не найдены'
close y
return
end
select @ng1=@ng
print @yz+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @ng, @yz, @it1
if (@ng1 != @ng)
begin
print ' Город ' + @ng1 + ' - ' +str(@it2, 4)
select @ng1=@ng
select @it2=0
end
if (@@fetch_status=-1)
break
print @yz+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
return
end
print ' Город ' + @ng + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print ' Город - '+str(@itall, 4)
deallocate y
return
Задание 15
Выдать статистику по специальностям и учебным заведениям вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: СПЕЦИАЛЬНОСТЬ <шифр> - ВСЕГО <цифра>, не равная нулю, а заканчивается перечнем названий учебных заведений с цифрами, не равными нулю.
create procedure pr15 as
declare @yz char (25)
declare @sp char(16)
declare @it1 int
declare @it2 int
declare @itall int
declare @sp1 char (16)
declare y cursor for
select spec, vuz.uch_zavedenie, count (*)
from azer
join vuz on vuz_k = vuz.cod
group by spec, vuz.uch_zavedenie
order by spec, vuz.uch_zavedenie
select @it2=0
select @itall=0
open y
fetch y into @sp, @yz, @it1
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1)
begin
print ' Данные не найдены'
close y
return
end
select @sp1=@sp
print @yz+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @sp, @yz, @it1
if (@sp1 != @sp)
begin
print ' Специальность ' + @sp1 + ' - ' +str(@it2, 4)
select @sp1=@sp
select @it2=0
end
if (@@fetch_status=-1)
break
print @yz+' - '+str(@it1, 4)
select @it2=@it2+@it1
select @itall=@itall+@it1
end
close y
if (@@fetch_status=-2)
begin
print ' Ошибка при выполнении первого FETCH'
return
end
print ' Специальность ' + @sp + ' - ' + str(@it2, 4)
print '-----------------------------------------------------------'
print ' Всего - '+str(@itall, 4)
deallocate y
return