Отчёт к лабораторной работе №8

по Базам Данных

Выполнил студент группы

А-13-07

Беляков Р.Д.

Задание 1

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

create procedure z1 as

declare @gor1 char(20)

declare @gor2 char(20)

declare @sp char(6)

declare @it1 integer

declare @it2 integer

declare @itall integer

select count(*) as 'Общее число' from poss

declare cur cursor for

select vuz_gorod.nazvanie_goroda, spec, count(*)

from poss join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_goroda, spec

order by vuz_gorod.nazvanie_goroda

select @it2=0

select @itall=0

open cur

fetch cur into @gor1,@sp,@it1

if (@@fetch_status=-2)

begin

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

close cur

return

end

if (@@fetch_status=-1)

begin

print 'Данные неверны'

close cur

return

end

select @gor2=@gor1

print @sp+'-'+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+1

while (@@fetch_status=0)

begin

fetch cur into @gor1, @sp, @it1

if (@gor1!=@gor2)

begin

print 'город '+@gor2+'-'+ str (@it2)

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

select @gor2=@gor1

select @it2=0

end

if (@@fetch_status=-1) break

print @sp + ' - ' +str(@it1)

select @it2=@it2+@it1

select @itall=@itall+1

end

close cur

if (@@fetch_status=-2)

begin

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

return

end

print 'город ' + @gor1 + ' - ' +str(@it2)

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

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

deallocate cur

return

Задание 2

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

create procedure z2 as

declare @gor1 char(20)

declare @gor2 char(20)

declare @v char(25)

declare @it1 integer

declare @it2 integer

declare @itall integer

select count(*) as 'Общее число' from poss

declare cur cursor for

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

from poss join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_goroda,vuz_gorod.nazvanie_vuza

order by vuz_gorod.nazvanie_goroda

select @it2=0

select @itall=0

open cur

fetch cur into @gor1,@v,@it1

if (@@fetch_status=-2)

begin

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

close cur

return

end

if (@@fetch_status=-1)

begin

print 'Данные неверны'

close cur

return

end

select @gor2=@gor1

print @v+'-'+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+@it1

while (@@fetch_status=0)

begin

fetch cur into @gor1, @v, @it1

if (@gor1!=@gor2)

begin

print 'город '+@gor2+'-'+ str (@it2)

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

select @gor2=@gor1

select @it2=0

end

if (@@fetch_status=-1) break

print @v + ' - ' +str(@it1) select @it2=@it2+@it1

select @itall=@itall+@it1

end

close cur

if (@@fetch_status=-2)

begin

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

return

end

print 'город ' + @gor1 + ' - ' +str(@it2)

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

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

deallocate cur

return

Задание 3

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

create procedure z3 as

declare @gor char (20)

declare @ko char (2)

declare @it1 int

declare @it2 int

declare @itall int

declare @gor1 char (20)

declare y cursor for

select vuz_gorod.nazvanie_goroda, kat_obuch_k , count (*)

from poss join vuz_gorod on vuz_k=vuz_gorod.cod_vuza

group by vuz_gorod.nazvanie_goroda, kat_obuch_k

order by vuz_gorod.nazvanie_goroda

select @it2=0

select @itall=0

open y

fetch y into @gor, @ko, @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 @ko+' - '+str(@it1)

select @it2=@it2+@it1

select @itall=@itall+@it1

while (@@fetch_status=0)

begin

y into @gor, @ko, @it1

if (@gor1 !=@gor) begin

print 'Город ' + @gor1 + ' Всего ' +str(@it2)

select @gor1=@gor

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 'Город ' + @gor + ' Всего ' +str(@it2)

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

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

deallocate y

return