Лабораторные работы (А-13-07) / Крамм, Кохов / лаб 8

Лабораторная работа №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