Лабораторная работа №8
по курсу «Базы данных и экспертные системы»
Группа: А-13-07
Преподаватель: Сидорова Н. П.
Выполнили: Катков А.С., Моисеев Н.А.
Задание 8
Выдать статистику по годам приема и по специальностям учащихся вашего государства. Отчет должен начинаться с заголовка и цифры общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <год приема> - <цифра>, не равная нулю, а заканчивается перечнем шифров специальностей с цифрами, не равными нулю.
create procedure lab88 as
declare @gpr char (2)
declare @sp char (6)
declare @it1 int
declare @it2 int
declare @itall int
declare @gpr1 char (6)
declare y cursor for
select gp, spec, count (*)
from kaza
group by gp, spec
order by gp
select @it2=0
select @itall=0
open y
fetch y into @gpr, @sp, @it1
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении первого FETCH'
close y
return
end
if (@@fetch_status=-1) begin
print 'Данные не найдены'
close y
return
end
select @gpr1=@gpr
print @sp+' -'+str(@it1)
select @it2=@it2+@it1
select @itall=@itall+@it1
while (@@fetch_status=0)
begin
fetch y into @gpr, @sp, @it1
if (@gpr1 !=@gpr) begin
print 'Год приема ' + @gpr1 + ' - ' +str(@it2)
print '---------------- '
select @gpr1=@gpr
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 'Год приема ' + @gpr + ' - ' +str(@it2)
print '----------------------------------'
print 'Всего по запросу -'+str(@itall)
deallocate y
return
Задание 9
Выдать статистику по категориям обучения и учебным заведениям вашего государства. Отчет должен начинаться с заголовка и цифры - общего количества записей по запросу. Далее совокупность таблиц, где каждая таблица начинается с заголовка: <категория обучения> - <цифра>, не равная нулю, а заканчивается перечнем учебных заведений с цифрами, не равными нулю.
create procedure lab891 as
declare @ko char (16)
declare @yz char (25)
declare @it1 int
declare @it2 int
declare @itall int
declare @ko1 char (16)
declare y cursor for
select kat_obuch.kat_obucheniya, vuz.uch_zavedenie, count (*)
from kaza join vuz on vuz_k=vuz.cod
join kat_obuch on kat_obuch_k=kat_obuch.cod
group by kat_obuch.kat_obucheniya, vuz.uch_zavedenie
order by kat_obuch.kat_obucheniya
declare z cursor for
select kat_obuch.kat_obucheniya, count(*)
from kaza join kat_obuch on kat_obuch_k=kat_obuch.cod
group by kat_obuch.kat_obucheniya
open z
select @it1=0
select @itall=0
fetch z into @ko, @it1
select @itall=@it1
while (@@fetch_status=0)
begin
fetch z into @ko, @it1
if (@@fetch_status=-1) break
select @itall=@itall+@it1
end
print 'Всего по запросу' + str(@itall)
print '-------------------------------'
close z
deallocate z
select @it2=0
open y
fetch y into @ko, @yz, @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 @yz+' - '+str(@it1)
select @it2=@it2+@it1
while (@@fetch_status=0)
begin
fetch y into @ko, @yz, @it1
if (@ko1 !=@ko) begin
print 'Категория обучения ' + @ko1 + ' - ' +str(@it2)
print '---------------- '
select @ko1=@ko
select @it2=0
end
if (@@fetch_status=-1) break
print @yz + ' - ' +str(@it1)
select @it2=@it2+@it1
end
close y
if (@@fetch_status=-2) begin
print 'Ошибка при выполнении последнего FETCH'
return
end
print 'Категория обучения ' + @ko + ' - ' +str(@it2)
deallocate y
return
