3.1. Миниспецификации процессов диаграмм нижнего уровня функциональной модели в терминах псевдокода

Организовать работу абонемента

1. «Найти книги по списку»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= РЕЗУЛЬТАТ ПОИСКА

@СПЕЦПРОЦ А2.1.1 НАЙТИ КНИГИ ПО СПИСКУ

ВЫПОЛНИТЬ потребовать СПИСОК

ВЫПОЛНИТЬ проверить наличие КНИГ в ФОНДЕ

ЕСЛИ КНИГИ есть в НАЛИЧИИ ТО

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА =положительный

ИНАЧЕ

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА =отрицательный

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

2. «Выдать найденную литературу читателю»

@ВХОД= РЕЗУЛЬТАТ ПОИСКА

@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ

@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ

@ВЫХОД= СПИСОК ВЫДАННЫХ КНИГ

@СПЕЦПРОЦ А2.1.2 ВЫДАТЬ НАЙДЕННУЮ ЛИТЕРАТУРУ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ

ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ

ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА=положительный ТО

ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ВЫДАЧе КНИГ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

3. «Прием литературы у читателя»

@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ

@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@СПЕЦПРОЦ А2.1.3 ПРИЕМ ЛИТЕРАТУРЫ У ЧИТАТЕЛЯ

ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ

ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ

ЕСЛИ ДАННЫЕ правильные И КНИГИ в наличии ТО

ВЫПОЛНИТЬ принять КНИГИ ЧИТАТЕЛЯ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ПРИЕМЕ КНИГ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

Организовать работу отдела периодики

4. «Подобрать периодическое издание»

@ВХОД=ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ

@СПЕЦПРОЦ А 3.4 НАЙТИ ПЕРИОДИЧЕСКОЕ ИЗДАНИЕ

ВЫПОЛНИТЬ узнать тему

ВЫПОЛНИТЬ проверить наличие ПЕРИОДИЧЕСКИХ ИЗДАНИЙ ПО ТЕМЕ в ФОНДЕ

ЕСЛИ ПЕРИОДИЧЕСКОЕ ИЗДАНИЕ есть в НАЛИЧИИ ТО

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ =положительный

ИНАЧЕ

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ =отрицательный

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

5. «Выдать читателю периодическое издание»

@ВХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ

@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ

@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ

@ВЫХОД= СПИСОК ВЫДАННОЙ ЛИТЕРАТУРЫ

@СПЕЦПРОЦ А3.3 ВЫДАТЬ НАЙДЕННУЮ ЛИТЕРАТУРУ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ

ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ

ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ =положительный ТО

ВЫПОЛНИТЬ выдать ЛИТЕРАТУРУ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ВЫДАЧе ЛИТЕРАТУРЫ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

Организовать работу читального зала и книгохранилища

6. «Найти необходимую литературу»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= РЕЗУЛЬТАТ ПОИСКА КНИГ

@СПЕЦПРОЦ А2.2.2 НАЙТИ НЕОБХОДИМУЮ ЛИТЕРАТУРУ

ВЫПОЛНИТЬ узнать тему

ВЫПОЛНИТЬ проверить наличие КНИГ в ФОНДЕ

ЕСЛИ КНИГИ есть в НАЛИЧИИ ТО

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА КНИГ =положительный

ИНАЧЕ

ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА КНИГ =отрицательный

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

7. «Выдать книги читателю»

@ВХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ

@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ

@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ

@ВЫХОД= ОТЧЕТ О ПЛАТНЫХ УСЛУГАХ

@СПЕЦПРОЦ А2.2.1 ВЫДАТЬ КНИГИ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ

ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ

ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА КНИГ =положительный КНИГИ ВЫДАЮТСЯ НА ВРЕМЯ ТО

ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ИНАЧЕ

ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА КНИГ =положительный КНИГИ ВЫДАЮТСЯ ПЛАТНО ТО

ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ВЫПОЛНИТЬ принять оплату

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ВЫДАЧе ЛИТЕРАТУРЫ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

8. «Принять книги»

@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ

@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@ВЫХОД= ОТЧЕТ О ПЛАТНЫХ УСЛУГАХ

@СПЕЦПРОЦ А2.2.3 ПРИНЯТЬ КНИГИ

ВЫПОЛНИТЬ проверить КНИГИ

ЕСЛИ КНИГИ в наличии ТО

ВЫПОЛНИТЬ принять КНИГИ ЧИТАТЕЛЯ

ВЫПОЛНИТЬ отдать ЧИТАТЕЛЬСКИЙ БИЛЕТ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ПРИЕМЕ КНИГ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

Организовать работу отдела комплектования

9. «Списать книги»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА

@СПЕЦПРОЦ А1.3.1 СПИСАТЬ КНИГИ

ВЫПОЛНИТЬ проверить КНИГИ

ЕСЛИ КНИГИ устарели ТО

ВЫПОЛНИТЬ составить акт СПИСАНИЯ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в СПИСАНИИ КНИГИ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

10. «Заменить книгу»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА

@СПЕЦПРОЦ А1.3.3 ЗАМЕНИТЬ КНИГИ

ВЫПОЛНИТЬ проверить КНИГИ

ЕСЛИ ЗАМЕНА равноценная ТО

ВЫПОЛНИТЬ составить акт ЗАМЕНЫ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ

ИНАЧЕ

ВЫПОЛНИТЬ отказать в ЗАМЕНЕ КНИГИ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

11 «Обработать новую книгу»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА

@СПЕЦПРОЦ А1.3.2 ОБРАБОТАТЬ НОВУЮ КНИГУ

ВЫПОЛНИТЬ получить КНИГУ

ВЫПОЛНИТЬ присвоить КНИГЕ шифр

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ О КНИГЕ в каталоги

ВЫПОЛНИТЬ отправить КНИГУ в отдел

@КОНЕЦ СПЕЦПРОЦ

«Организовать работу справочно-библиографического отдела»

12. «Составить картотеку периодических изданий»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВЫХОД= КАРТОТЕКА ПЕРИОДИЧЕСКИХ ИЗДАНИЙ

@СПЕЦПРОЦ А4.4 СОСТАВИТЬ КАРТОТЕКУ ПЕРИОДИЧЕСКИХ ИЗДАНИЙ

ВЫПОЛНИТЬ получить ИНФОРМАЦИЮ О ПЕРИОДИЧЕСКИХ ИЗДАНИЯХ

ВЫПОЛНИТЬ получить шифры ПЕРИОДИЧЕСКИХ ИЗДАНИЙ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ О ПЕРИОДИЧЕСКИХ ИЗДАНЯХ в каталоги

@КОНЕЦ СПЕЦПРОЦ

13. «Найти литературу в каталоге»

@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ

@ВХОД= КАРТОТЕКА ПЕРИОДИЧЕСКИХ ИЗДАНИЙ

@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ

@СПЕЦПРОЦ А4.НАЙТИ ЛИТЕРАТУРУ В КАТАЛОГЕ

ВЫПОЛНИТЬ получить информацию о ЛИТЕРАТУРЕ

ЕСЛИ ИНФОРМАЦИЯ правильная ТО

ВЫПОЛНИТЬ выдать ИНФОРМАЦИЮ об месте хранения ЛИТЕРАТУРЫ

ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ

ИНАЧЕ

ВЫПОЛНИТЬ отказать а выдаче ИНФОРМАЦИИР об месте хранения ЛИТЕРАТУРЫ

КОНЕЦЕСЛИ

@КОНЕЦ СПЕЦПРОЦ

3.2. T-SQL-определения регламентированных запросов

1.Вывод ограниченной информации о студентах с фамилией, оканчивающейся на «ов».

CREATE VIEW infoStudent /*Указываем имя представления*/

AS SELECT /*Указываем, какие поля будут выведены*/

Студенты.Имя, Студенты.Фамилия, Студенты.факультет, Студенты.специальность

FROM Студенты /*Из какой таблицы*/

WHERE Студенты.Фамилия LIKE ‘[]ов’

2. Информация о замене экземпляров по программированию на С++.

CREATE VIEW infoZamena

AS

SELECT /*Указываем, какие поля, из каких таблиц будут выведены*/

Книга.Автор, Книга.Название, Экземпляр.Шифр, Замена_экземпляров.Номер_акта_замены

FROM /*Указываем таблицу, и связанные с ней при помощи оператора INNER JOIN таблицы, из которых выбираются связанные данные. После операнда ON указываем, по каким полям связаны две таблицы*/

(Книга INNER JOIN Экземпляр ON Книга.ISBN =Экземпляр.ISBN)

INNER JOIN Замена_экземпляров ON Экземпляр.Шифр = Замена_экземпляров.Шифр

WHERE Книга.Название LIKE '%C++' /*Выбираются только те книги, в названии которых присутствует “C++” */

3. Информация о списанных экземплярах по программированию на Delphi.

CREATE VIEW infoCpicanie

AS

SELECT /*Указываем, какие поля, из каких таблиц будут выведены*/

Книга.Автор, Книга.Название, Экземпляр.Шифр, Списанные_книги.причина_списания, Списанные_книги.номер_протокола_списания, Списанные_книги.Табельный_номер_списавшего

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

Книга INNER JOIN (Экземпляр INNER JOIN Списанные_книги ON Экземпляр.Шифр = Списанные_книги.Шифр) ON Книга.ISBN = Экземпляр.ISBN

WHERE Книга.Название LIKE '%Delphi' /*Выбираются только те книги, в названии которых присутствует “ Delphi */

4. Информация о преподавателях и их заказах на литературу, количество книг должно быть от 10 до 20 или от 25 до 30.

CREATE VIEW infoZakazi /*Объявляем имя представления*/

AS

SELECT /*Указываем, какие поля таблиц будут выведены*/

Преподаватели.Фамилия,Преподаватели.Имя, Преподаватели.Отчество, Книга.Автор, Книга.Название,Заказы.Количество

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

Книга INNER JOIN (Преподаватели INNER JOIN Заказы ON Преподаватели.Читательский_номер = Заказы.Читательский_номер)

ON Книга.ISBN = Заказы.ISBN

WHERE (Заказы.Количество BETWEEN 10 AND 20) OR (Заказы.Количество BETWEEN 25 AND 30) /* 10<количество заказов<20 или 25<количество заказов<30 */

5. Информация о книгах, которыми пользуется студент, и табельный номер сотрудника отдела обслуживания выдавшего книги. Номер отдела обслуживания 11.

CREATE VIEW infoOPolzovaniiStudentov

AS

SELECT /*Указываем, какие поля таблиц будут выведены*/

Студенты.Имя, Студенты.Фамилия, Книга.Автор, Книга.Название, Сотрудники_библиотеки.табельный_номер

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

(((Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN) INNER JOIN

Пользование_библиотекой2 ON Экземпляр.Шифр = Пользование_библиотекой2.Шифр) INNER JOIN

Студенты ON Пользование_библиотекой2.Читательский_номер = Студенты.Читательский_номер) INNER JOIN

Сотрудники_библиотеки ON Пользование_библиотекой2.Табельный_номер = Сотрудники_библиотеки.табельный_номер

WHERE Сотрудники_библиотеки.табельный_номер LIKE '10[]' /*Табельный номер сотрудников должен начинаться с «11»*/

6. Информация о книгах, которыми пользуется преподаватель и табельный номер сотрудника отдела обслуживания выдавшего книги. Номер отдела обслуживания 11.

CREATE VIEW infoOPolzovaniiPrepodovatelej

AS

SELECT /*Указываем, какие поля таблиц будут выведены*/

Преподаватели.Имя, Преподаватели.Фамилия, Книга.Автор, Книга.Название,Сотрудники_библиотеки.табельный_номер

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

(((Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN) INNER JOIN

Пользование_библиотекой3 ON Экземпляр.Шифр = Пользование_библиотекой3.Шифр) INNER JOIN

Преподаватели ON Пользование_библиотекой3.Читательский_номер = Преподаватели.Читательский_номер) INNER JOIN

Сотрудники_библиотеки ON Пользование_библиотекой3.Табельный_номер = Сотрудники_библиотеки.табельный_номер

WHERE Сотрудники_библиотеки.табельный_номер LIKE '10[]' /*Табельный номер сотрудников должен начинаться с «11»*/

7.Информация о отделах 11 и 12 и работающих в них сотрудниках.

CREATE VIEW Otdeli

AS

SELECT /*Указываем какие поля будут выбраны*/

Отделы.номер_отдела, Отделы.название_отдела, Сотрудники_библиотеки.фамилия,

Сотрудники_библиотеки.имя,Сотрудники_библиотеки.отчество

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

Отделы INNER JOIN Сотрудники_библиотеки ON Отделы.Номер_отдела = Сотрудники_библиотеки.Номер_отдела

GROUP BY номер.отдела /*По какому полю будут сгруппированы поля*/

WHERE Отделы.номер_отдела BETWEEN 10 AND 13 /*Выбираются отделы, номер которых находится между 10 и 13*/

8.Информация о месте хранения периодических изданий название которых содержит в себе слово «вестник», но при этом д.б. исключены периодические издания, первое слово которых начинается на «Э», например «Экономический вестник».

CREATE VIEW INFOPeriodika

AS

SELECT /*Указываем какие поля будут выбраны*/

Периодические_издания.Название, Периодические_издания.Дата_издания, Отделы.Название_отдела, Отделы.Номер_отдела

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

Отделы INNER JOIN Периодические_издания ON Отделы.Номер_отдела = Периодические_издания.Номер_отдела

WHERE Периодические_издания.Название LIKE '[^Э] %вестник%'

/*[^Э] запрещает начинаться первому слову на «Э», % вестник% – указывает на то, что оставшаяся часть названия должна содержать слово «вестник»*/

9. Полная информация об экземпляре, который был издан с 2000 до текущего года

CREATE VIEW FullInfoEkzemplar

AS

SELECT /*Указываем какие поля будут выбраны*/

Экземпляр.шифр,Книга.Автор,Книга.Название,Книга.Год_издания,Книга.Издательство,Экземпляр.Предметная_область, Экземпляр.Номер_отдела, Экземпляр.Отметка_о_списании, Экземпляр.Отметка_о_замене

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN

WHERE Книга.Год_издания BETWEEN 2000 AND YEAR (GETDATE())

/*GETDATE() возвращает текущую дату, YEAR (<дата>) – год <даты>*/

10. Информация о наличии книги в библиотеке

CREATE VIEW InfoAboutBook

AS

SELECT /*Указываем какие поля будут выбраны*/

Книга.ISBN, Экземпляр.Шифр, Экземпляр.Номер_отдела,

Пользование_библиотекой2.Дата_выдачи,Пользование_библиотекой2.Дата_приема

FROM /*Указываем таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/

(Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN) INNER JOIN

Пользование_библиотекой2 ON Экземпляр.Шифр = Пользование_библиотекой2.Шифр

WHERE Пользование_библиотекой2.Дата_приема BETWEEN Пользование_библиотекой2.Дата_выдачи AND GETDATE() /*Если книгу сдали,т.е. она в наличии в библиотеке, то дата приема будет между датой выдачи и текущей датой*/

11.Информация о месте хранения книги.

CREATE VIEW Books

AS

SELECT Книга.Автор, Книга.Название, Книга.Год_издания,Книга.Количество_страниц

FROM Книга

12.Информация о ценах на книги.

CREATE VIEW Cena

AS

SELECT Книга.Автор,Книга.Название, Книга.Цена

FROM Книга

13.Информация о сотрудниках.

CREATE VIEW Sotrudnik

AS

SELECT Сотрудники_библиотеки.имя, Сотрудники_библиотеки.фамилия,

Сотрудники_библиотеки.отчество,Сотрудники_библиотеки.дата_рождения, Сотрудники_библиотеки.должность

FROM Сотрудники_библиотеки

14.Информация о пользовании библиотекой студентами.

CREATE VIEW infoOPolzovaniiStudentov

AS

SELECT Студенты.Имя, Студенты.Фамилия, Книга.Автор, Книга.Название,Сотрудники_библиотеки.табельный_номер

FROM (((Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN) INNER JOIN

Пользование_библиотекой2 ON Экземпляр.Шифр = Пользование_библиотекой2.Шифр) INNER JOIN

Студенты ON Пользование_библиотекой2.Читательский_номер = Студенты.Читательский_номер) INNER JOIN

Сотрудники_библиотеки ON Пользование_библиотекой2.Табельный_номер = Сотрудники_библиотеки.табельный_номер

WHERE Сотрудники_библиотеки.табельный_номер LIKE '11[]'

15. Информация о пользовании библиотекой её сотрудниками.

CREATE VIEW InfoOPolzovaniiCotrydnikov

AS

SELECT Сотрудники_библиотеки.имя, Сотрудники_библиотеки.фамилия,Книга.Автор, Книга.Название

FROM Сотрудники_библиотеки INNER JOIN ((Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN)

INNER JOIN Пользование_библиотекой1 ON Экземпляр.Шифр = Пользование_библиотекой1.Шифр)

ON Сотрудники_библиотеки.табельный_номер = Пользование_библиотекой1.табельный_номер

3.3. T-SQL-определения триггеров

1. Триггер, который будет запрещать удаление записей таблицы «Пользование библиотекой», если текущий пользователь не владелец базы данных и если поле «дата выдачи» содержит какое-либо значение.

CREATE TRIGGER udalenie /*Обьявляем имя триггера*/

ON Пользование_библиотекой2 /*Указываем имя таблицы, с которой будет связан триггер*/

FOR DELETE /*Указываем операцию, на кот. будет срабатывать триггер (здесь на удаление)*/

AS

IF ( SELECT count(*) /*проверяет записи из таблицы «Пользование библиотекой»*/

from Пользование_библиотекой2

where Пользование_библиотекой2.дата_выдачи is not null)>0 /*условие проверяет наличие записи в поле «дата выдачи». Если count возвращает значение отличное от нуля (означает, что запись есть) то первое условие IF не выполнено*/

AND (CURRENT_USER <> 'dbo') /*вызывается функция определения имени текущего пользователя и проверяется, владелец ли он*/

BEGIN

PRINT 'у вас нет прав на удаление этой записи' /*выдача сообщения о неудаче операции*/

ROLLBACK TRANSACTION /*откат (отмена) транзакции*/

END

2. Проверяет правильность номера отдела. Существует лишь 5 отделов, которым присваиваются номера от 10 до 14 включительно.

CREATE TRIGGER dobavlenie

ON Отделы

FOR INSERT

AS

DECLARE @@f int /*Объявляем переменную*/

Set @@f=10 /*Присваиваем ей значение*/

IF NOT EXISTS (SELECT * FROM Отделы, inserted

WHERE Отделы.Номер_отдела = inserted.Номер_отдела)

Set @@f=0

IF EXISTS (SELECT * FROM Отделы, inserted

WHERE inserted.Номер_отдела>14 OR inserted.Номер_отдела<10) /*Если номер отдела не >14 или <10, то такой отдел не существует*/

Set @@f=0 /*Меняем значение переменной*/

If @@f=0 /*если f=0, значит были ошибки*/

BEGIN

PRINT 'Неверно введены данные' /*выдача сообщения о неудаче операции*/

ROLLBACK TRANSACTION /*откат (отмена) транзакции*/

END

/*inserted – временная таблица, куда заносятся добавляемые данные*/

3. Триггер, который записывает при удалении записей из таблицы «Преподаватели» в отдельную таблицу информацию о дате удаления, пользователе,

Перед созданием такого триггера необходимо создать таблицу DeletedItems, куда будет производится запись:

CREATE TABLE DeletedItem (

[Читательский_номер] [int] NOT NULL , /*объявляем поля таблицы*/

[имя] [varchar] (25) NULL ,

[отчество] [varchar] (75) NULL ,

[фамилия] [varchar] (25) NULL ,

[должность] [varchar] (35) NULL ,

[Имя_пользователя] [varchar] (50) NULL ,

[Дата_удаления] [datetime] NULL

) ON [PRIMARY]

Сам триггер выглядит следующим образом;

CREATE TRIGGER deletedby

ON Преподаватели /*Связываем триггер с таблицей Преподаватели*/

FOR DELETE

AS

INSERT INTO DeletedItem

(Читательский_номер ,имя ,отчество, /*указываем, какие поля нужно вставить*/

фамилия ,должность,Имя_пользователя,Дата_удаления)

SELECT Читательский_номер ,имя ,отчество,фамилия, должность,

SYSTEM_USER, /*функция определяет текущего пользователя*/

getdate() /*функция возвращает текущую дату*/

FROM deleted /*deleted – временная таблица, куда заносятся удаляемые данные*/

4. Триггер, который записывает при добавлении записей в таблицы «Сотрудники_Библиотеки» в отдельную таблицу информацию о дате удаления, пользователе.

Перед созданием такого триггера необходимо создать таблицу InsertedItemSotrydniki, куда будет производится запись:

CREATE TABLE InsertedItemSotrydniki

(

[табельный_номер] [int] NOT NULL , /*объявляем поля таблицы*/

[фамилия] [varchar] (25) NULL ,

[имя] [varchar] (25) NULL ,

[отчество] [varchar] (75) NULL ,

[Дата_рождения] [datetime] NULL ,

[должность] [varchar] (35) NULL ,

[Имя_пользователя] [varchar] (50) NULL ,

[Дата_добавления] [datetime] NULL

) ON [PRIMARY]

Сам триггер выглядит следующим образом;

CREATE TRIGGER infoInsertSotrud

ON Сотрудники_библиотеки /*Связываем триггер с таблицей Сотрудники_библиотеки */

FOR INSERT

AS

INSERT INTO InsertedItemSotrydniki (Табельный_номер , /*указываем, какие поля нужно вставить*/

фамилия ,имя ,отчество,Дата_рождения, должность,Имя_пользователя,Дата_добавления)

SELECT Табельный_номер ,фамилия ,имя ,отчество,Дата_рождения,должность,

SYSTEM_USER, /*функция определяет текущего пользователя*/

getdate() /*функция возвращает текущую дату*/

FROM inserted /*inserted – временная таблица, куда заносятся добавляемые данные*/

5. Триггер, который записывает при изменении записей в таблице «Студенты» в отдельную таблицу информацию о дате удаления, пользователе.

Перед созданием такого триггера необходимо создать таблицу UpdatedStudents, куда будет производится запись:

CREATE TABLE UpdatedStudents

(

[читательский_номер] [int] NOT NULL ,

[фамилия] [varchar] (25) NULL ,

[Имя_пользователя] [varchar] (50) NULL ,

[Дата_добавления] [datetime] NULL

) ON [PRIMARY]

Триггер выглядит следующем образом:

CREATE TRIGGER infoUpdateStudent

ON Студенты /*Связываем с таблицей*/

FOR UPDATE

AS

INSERT INTO UpdatedStudents (Читательский_номер , /*указываем, какие поля нужно вставить*/

фамилия,Имя_пользователя,Дата_добавления)

SELECT Читательский_номер ,фамилия, /*указываем откуда*/

SYSTEM_USER, /*функция определяет текущего пользователя*/

getdate() /*функция возвращает текущую дату*/

FROM updated /*updated – временная таблица, куда заносятся данные*/

6. Триггер запрещает изменять в таблице «Пользование_библиотекой2» запись полей «дата_приема» и «дата выдачи» в воскресенье.

ALTER TRIGGER proverka ON Пользование_библиотекой2

FOR UPDATE

AS

IF UPDATE(дата_приема) /*Проверяет, какое поле обновляется*/

AND datename(dw,GETDATE()) in ('Sunday') /*Проверяет, является ли день воскресеньем*/

BEGIN

PRINT 'В воскресение нельзя принимать книги'

ROLLBACK TRANSACTION

END

IF UPDATE(дата_выдачи) /*Проверяет, какое поле обновляется*/

AND datename(dw,GETDATE()) in ('Sunday') /*Проверяет, является ли день воскресеньем*/

BEGIN

PRINT 'В воскресение нельзя принимать книги'

ROLLBACK TRANSACTION

END

/* datename(dw,GETDATE()) – GETDATE()получает текущую дату, datename(dw,<дата>) получает название дня недели*/

7. Триггер, который записывает при удалении записей из таблицы «Сотрудники_библиотеки» в отдельную таблицу информацию о дате удаления, пользователе,

Перед созданием такого триггера необходимо создать таблицу DeletedSotrudLibrary, куда будет производится запись:

CREATE TABLE DeletedSotrudLibrary (

[Табельный_номер] [int] NOT NULL , /*объявляем поля таблицы*/

[имя] [varchar] (25) NULL ,

[фамилия] [varchar] (25) NULL ,

[отчество] [varchar] (75) NULL ,

[дата_рождения] [datetime] NULL ,

[должность] [varchar] (35) NULL ,

[номер_отдела] [int] NOT NULL ,

[Имя_пользователя] [varchar] (50) NULL ,

[Дата_удаления] [datetime] NULL

) ON [PRIMARY]

Триггер:

CREATE TRIGGER deletesotrud

ON Сотрудники_библиотеки /*Связываем с таблицей*/

FOR DELETE

AS

INSERT INTO DeletedSotrudLibrary /*Указываем таблицу, куда будет производиться запись*/

(Табельный_номер ,имя ,фамилия ,отчество,дата_рождения, /*Пречисляем поля таблицы*/

должность,номер_отдела, Имя_пользователя,Дата_удаления)

SELECT /*Причисляем вносимые значения*/

Табельный_номер, имя, фамилия, отчество, дата_рождения, должность, номер_отдела,

SYSTEM_USER, getdate()

FROM deleted /*deleted – временная таблица, куда заносятся удаляемые данные*/

8. Триггер, который записывает при добавлении записей в таблицы «Преподаватели» в отдельную таблицу информацию о дате удаления, пользователе.

Перед созданием такого триггера необходимо создать таблицу InsertedItemPrepdavateli, куда будет производится запись

CREATE TABLE InsertedItemPrepdavateli

(

[Читательский_номер] [int] NOT NULL , /*объявляем поля таблицы*/

[имя] [varchar] (25) NULL ,

[отчество] [varchar] (75) NULL ,

[фамилия] [varchar] (25) NULL ,

[должность] [varchar] (35) NULL ,

[Имя_пользователя] [varchar] (50) NULL ,

[Дата_удаления] [datetime] NULL

) ON [PRIMARY]

Триггер:

CREATE TRIGGER infoInsertPred

ON Преподаватели

FOR INSERT

AS

INSERT INTO InsertedItemPrepdavateli

(Читательский_номер, имя, отчество, фамилия ,должность, Имя_пользователя, Дата_удаления)

SELECT Читательский_номер, имя, отчество, фамилия, должность,

SYSTEM_USER, getdate()

FROM inserted

9. Триггер, запрещающий ввод значения в поле «год_поступления», если оно превышает номер текущего года.

CREATE TRIGGER proverka_Studentov ON Студенты FOR INSERT

AS

DECLARE @@t int /*Объявляем переменную*/

Set @@t=5 /*Присваиваем ей значение*/

IF NOT EXISTS (SELECT * FROM Студенты, inserted

WHERE Студенты.год_поступления = inserted.год_поступления)

Set @@t=0

IF EXISTS (SELECT * FROM Студенты, inserted

WHERE inserted.год_поступления>YEAR(GETDATE())) /*Проверяем, больше ли значения вводимого года, чем у текущего*/

Set @@t=0 /*Если да, то меняем значение переменной*/

If @@t=0 /*если f=0, значит были ошибки*/

BEGIN

PRINT 'Неверно введен год поступления' /*выдача сообщения о неудаче операции*/

ROLLBACK TRANSACTION /*откат (отмена) транзакции*/

END

10. Триггер, запрещающий обновление значения в поле «год_отчисления», если оно превышает номер текущего года.

CREATE TRIGGER proverka_otchislenia_Studentov

ON Студенты

FOR UPDATE

AS

DECLARE @@t int /*Объявляем переменную*/

Set @@t=5 /*Присваиваем ей значение*/

IF NOT EXISTS (SELECT * FROM Студенты, inserted

WHERE Студенты.год_окончания = inserted.год_окончания)

Set @@t=0

IF EXISTS (SELECT * FROM Студенты, inserted

WHERE inserted.год_окончания>YEAR(GETDATE())) /*Проверяем, больше ли значения вводимого года, чем у текущего*/

Set @@t=0 /*Меняем значение переменной*/

If @@t=0 /*если f=0, значит были ошибки*/

BEGIN

PRINT 'Неверно введен год отчисления' /*выдача сообщения о неудаче операции*/

ROLLBACK TRANSACTION /*откат (отмена) транзакции*/

END

3.4. T-SQL-определения хранимых процедур

1. Список выдач книг за текущий день.

CREATE PROCEDURE CpicokVidach

AS

SELECT /*Перечисляем поля, которые будут выведены в результате запроса */

Пользование_библиотекой2.Табельный_номер, COUNT(Пользование_библиотекой2.Дата_выдачи)

FROM /*указываем имя таблицы из которых выбираются записи*/

Пользование_библиотекой2

WHERE /*задаем условие отбора*/

Пользование_библиотекой2.Дата_выдачи=(SELECT GETDATE())

GROUP BY /*производится группировка по указанному полю*/

Табельный_номер

/*SELECT GETDATE() позволяет получить текущую дату (год, месяц, число)

COUNT (<поле>) возвращает количество записей какого-либо поля*/

2. Количество экземпляров какой-либо книги.

CREATE PROCEDURE KolExzemplarov

/*Объявляем необходимые переменные*/

@ISBN varchar(20)

AS

/* Следующая конструкция проверяет, существуют ли записи в таблице «Книги» с заданным ISBN*/

IF not EXISTS (SELECT * FROM Книга WHERE ISBN = @ISBN)

RETURN 0 /*Вызывает конец процедуры KolExzemplarov */

SELECT Экземпляр.ISBN

INTO TEMP1 /*Сохраняет выбранные поля во временной таблице Temp1*/

FROM Экземпляр

WHERE ISBN = @ISBN

SELECT COUNT(ISBN) /*Count подсчитывает количество неповторяющихся записей поля ISBN*/

FROM TEMP1

3. Список книг, которыми пользовался какой-либо студент

CREATE PROCEDURE CpicokKnigCtudenta

@Chit_nom int /*Объявляем необходимые переменные*/

AS SELECT Студенты.Имя, Студенты.Фамилия, Пользование_библиотекой2.Шифр, Книга.Автор, Книга.Название

FROM /*указываем имена таблиц, из которых выбираются записи*/

Книга, Экземпляр ,Студенты , Пользование_библиотекой2

WHERE (Студенты.Читательский_номер = Пользование_библиотекой2.Читательский_номер) AND (Экземпляр.Шифр = Пользование_библиотекой2.Шифр) AND (Экземпляр.ISBN =Книга.ISBN)

/* AND позволяет задать в операторе WHERE несколько условий, которые должны выполняться одновременно*/

4. Удаление из таблицы «Студенты». Допустимо, если в таблице «Пользование библиотекой2» нет ссылающихся записей.

CREATE PROCEDURE DeleteStudent

@Chit_nom int /*Объявляем необходимые переменные*/

AS /*Проверяем, если ссылающиеся записи, если записей нет, разрешается удаление.*/

IF not EXISTS (SELECT * FROM Пользование_библиотекой2 WHERE Читательский_номер=@Chit_nom)

DELETE /*Оператор удаления*/

FROM Студенты /*Имя таблицы, откуда нужно удалить*/

WHERE /*Условие удаления – удаляем строку, для которой значение поля Читательский_номер совпадает с нужным*/

Читательский_номер=@Chit_nom

5. Вставка в таблицу «Заказы». Разрешена, если в таблицах «Книга» и «Преподаватели» есть записи, на которые будет ссылаться новая запись.

PROCEDURE NewZakaz

@Kolvo int, /*Объявляем необходимые переменные*/

@data_zakaza datetime,

@Chit_nomer int,

@ISBN varchar(20)

AS /*Проверяем, есть ли запись в таблице «Заказы» с такими же значениями ключевых полей, как у новой записи*/

IF EXISTS (SELECT * FROM Заказы WHERE ISBN = @ISBN AND Читательский_номер=@Chit_nomer)

RETURN 0 /*Если есть, завершаем выполнение процедуры*/

IF EXISTS (SELECT * FROM Преподаватели WHERE Читательский_номер = @Chit_nomer)

/*Проверили, есть ли в «Преподаватели» соответствующая запись*/

IF EXISTS (SELECT * FROM Книга WHERE ISBN = @ISBN)

/*Проверили, есть ли в «Книга» соответствующая запись*/

INSERT INTO Заказы /*Указываем таблицу, куда вставляем запись*/

VALUES ( @Kolvo,@data_zakaza,@Chit_nomer, @ISBN) /*Указываем какие значения*/

6. Обновление таблицы «Студенты». Изменение фамилии студента.

CREATE PROCEDURE UpdateStudent

@Chit_nom int, /*Объявляем необходимые переменные*/

@Fam varchar(20)

AS

IF EXISTS (SELECT * FROM Студенты /*Проверяем, существуют ли студенты,*/

WHERE Читательский_номер = @Chit_nom) /*читательский номер которых равен искомому*/

UPDATE Студенты /*Если такие есть обновляем «Студенты»

SET Фамилия=@Fam /*полю фамилия присваиваем новое значение*/

WHERE Читательский_номер = @Chit_nom /*если читательский номер записи равен искомому*/

7. Вставка в таблицу «Пользование библиотекой2». Разрешается, если есть в таблицах «Студенты», «Сотрудники_библиотеки» и «Экземпляр» соответствующие записи.

ALTER PROCEDURE NewPolzovanieStydentov

@Chit_nomer int, /*Объявляем необходимые переменные*/

@data_vidachi datetime,

@data_priema datetime,

@tab_nomer int,

@Shifr varchar(20)

AS

IF EXISTS (SELECT * FROM Пользование_библиотекой2 /*Проверяем, нет ли уже в таблице */

WHERE Шифр = @Shifr AND /*записи с таким же значением первичного ключа*/

Читательский_номер=@Chit_nomer)

RETURN 0 /*если есть, завершается процедура*/

IF EXISTS (SELECT * FROM Студенты /*проверяем наличие соответствующей записи в*/

WHERE Читательский_номер = @Chit_nomer) /*таблице «Студенты»*/

IF EXISTS (SELECT * FROM Экземпляр /*проверяем наличие соответствующей записи в*/

WHERE Шифр = @Shifr) /*таблице «Экземпляр»*/

IF EXISTS (SELECT * FROM Сотрудники_библиотеки /*проверяем наличие соответствующей */

WHERE табельный_номер = @tab_nomer) /* записи в таблице «Сотрудники_библиотеки»*/

INSERT /*если условия выполняются, добавляем*/

INTO Пользование_библиотекой2 /*в таблицу новые значения*/

VALUES ( @Chit_nomer,@data_vidachi,@data_priema,@tab_nomer,@Shifr)

8. Вставка в таблицу «Сотрудники_библиотеки». Проверяется , наличие соответствующей записи в поле номер-отдела в таблице «Отделы».

CREATE PROCEDURE NewSotrudnik

@Tab_nom int, /*Объявляем необходимые переменные*/

@Fam varchar(20),

@Name varchar(20),

@Sec_name varchar(20),

@data_rogd datetime,

@Dolgn varchar(20),

@Nom_otd int

AS

IF EXISTS (SELECT * FROM Сотрудники_библиотеки /*Проверяем, нет ли уже в таблице */

WHERE Табельный_номер = @Tab_nom) /*записи с таким же значением первичного ключа*/

RETURN 0 /*если есть, завершается процедура*/

IF EXISTS (SELECT * FROM Отделы /*Проверяем, есть ли уже в таблице «Отделы» */

WHERE Номер_отдела = @Nom_otd) /*записи с таким же значением поля номер_отдела*/

INSERT /*если условие выполняется, добавляем*/

INTO Сотрудники_библиотеки /*в таблицу новые значения*/

VALUES ( @Tab_nom ,@Fam , @Name, @Sec_name, @data_rogd, @Dolgn, @Nom_otd)

9. Сколько существует должностей в библиотеке.

CREATE PROCEDURE KolDolgn

AS SELECT COUNT (DISTINCT Сотрудники_библиотеки.должность)

FROM Сотрудники_библиотеки /*COUNT (DISTINCT <поле>) подсчитывает количество разноименных значений какого-либо поля в таблице*/

10. Обновление таблицы «Отделы». Изменился начальник отдела.

ALTER PROCEDURE UpdateOtdel

@Nom_otdela int,

@Fam_New_Nach_otd varchar(20),

@Tab_Nom_New_Nach_otd int

AS

IF not EXISTS (SELECT * FROM Сотрудники_библиотеки /*Условие проверяет, есть ли в */

WHERE табельный_номер = @Tab_Nom_New_Nach_otd /* библиотеке сотрудник с искомыми*/

AND фамилия=@Fam_New_Nach_otd) /*фамилией и табельным номером*/

RETURN 0 /*если нет, завершается процедура*/

IF EXISTS (SELECT * FROM Отделы /*Условие проверяет, есть ли в библиотеке*/

WHERE Номер_отдела = @Nom_otdela) /*искомый номер отдела*/

UPDATE Отделы

SET фамилия_начальника_отдела=@Fam_New_Nach_otd /*меняем значение поля «фамилия начальника отдела» на новое*/

UPDATE Отделы

SET табельный_номер_начальника=@Tab_Nom_New_Nach_otd /*меняем значение поля «табельный номер начальника отдела» на новое*/

WHERE Номер_отдела = @Nom_otdela /*меняем только для записи, у которой значение «номер_отдела» равно искомому*/

11.Вставка в таблицу “Списание экземпляров”

CREATE PROCEDURE NewCpicanExzemplar

@Prichina varchar(20),

@Nom_act int,

@tab_nomer int,

@Shifr varchar(20)

AS

IF EXISTS (SELECT * FROM Списанные_книги WHERE Шифр = @Shifr)

RETURN 0

IF EXISTS (SELECT * FROM Экземпляр WHERE Шифр = @Shifr)

IF EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE табельный_номер = @tab_nomer)

INSERT INTO Списанные_книги VALUES ( @Prichina, @Nom_act ,@tab_nomer ,@Shifr)

12. Вставка в таблицу “Пользование библиотекой2”

CREATE PROCEDURE NewPolzovanieBibliotekarej

@Tab_nomer int,

@data_vidachi datetime,

@data_priema datetime,

@Shifr varchar(20)

AS

IF EXISTS (SELECT * FROM Пользование_библиотекой1 WHERE Шифр = @Shifr AND Табельный_номер=@Tab_nomer)

RETURN 0

IF EXISTS (SELECT * FROM Экземпляр WHERE Шифр = @Shifr)

IF EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE табельный_номер = @tab_nomer)

INSERT INTO Пользование_библиотекой1 VALUES (@tab_nomer, @data_vidachi, @data_priema, @Shifr)

13. Вставка в таблицу “Экземпляры”

CREATE PROCEDURE NewExzemplar

@ISBN varchar(20),

@otm_o_cpicanii varchar(20),

@otm_o_zamene varchar(20),

@predmet varchar(20),

@Nom_otd int,

@Shifr varchar(20)

AS

IF EXISTS (SELECT * FROM Экземпляр WHERE Шифр = @Shifr)

RETURN 0

IF EXISTS (SELECT * FROM Отделы WHERE Номер_отдела = @Nom_otd) AND EXISTS (SELECT * FROM Книга WHERE ISBN = @ISBN)

INSERT INTO Экземпляр VALUES ( @ISBN, @otm_o_cpicanii, @otm_o_zamene, @predmet, @Nom_otd, @Shifr)

14. Обновление таблицы «Сотрудники_библиотеки»

CREATE PROCEDURE UpdateCotpyd

@Tab_nom int,

@Fam varchar(20)

AS

IF EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE табельный_номер = @Tab_nom)

UPDATE Сотрудники_библиотеки SET фамилия=@Fam

WHERE табельный_номер = @Tab_nom

15.Вставка в таблицу «Сотрудники_библиотеки»

PROCEDURE NewSotrudnik

@Tab_nom int,

@Fam varchar(20),

@Name varchar(20),

@Sec_name varchar(20),

@data_rogd datetime,

@Dolgn varchar(20),

@Nom_otd int

AS

IF EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE Табельный_номер = @Tab_nom)

RETURN 0

IF EXISTS (SELECT * FROM Отделы WHERE Номер_отдела = @Nom_otd)

INSERT INTO Сотрудники_библиотеки VALUES ( @Tab_nom ,@Fam , @Name, @Sec_name, @data_rogd, @Dolgn, @Nom_otd)

3.5. T-SQL-определения курсоров

1. Курсор для просмотра информации о студентах и выдача информации об их количестве.

DECLARE curs1 CURSOR

GLOBAL /*Создается глобальный курсор, который будет существовать до закрытия данного соединения*/

SCROLL /*Создает прокручиваемый курсор*/

KEYSET /*Будет создан ключевой курсор*/

TYPE_WARNING

FOR

SELECT /*Какие поля будут показаны в курсоре*/

Студенты.Читательский_номер,Студенты.Имя, Студенты.Фамилия, Студенты.Отчество, Студенты.год_поступления,

Студенты.год_окончания,Студенты.факультет,Студенты.специальность,Студенты.форма_обучения,Студенты.номер_приказа

FROM Студенты /*Из какой таблицы выбираются данные*/

FOR READ ONLY /*Только для чтения*/

open global curs1 /*открываем глобальный курсор*/

DECLARE /*объявляем переменную*/

@@Counter int

SET @@Counter =@@CURSOR_ROWS /*присваиваем ей число рядов курсора*/

Select @@Counter /*выводим результат на экран*/

CLOSE curs1 /*закрываем курсор*/

DEALLOCATE curs1 /*освобождаем курсор*/

2. Курсор для просмотра заказов и подсчета общего количества заказанных книг.

DECLARE curs2 CURSOR

GLOBAL SCROLL KEYSET

TYPE_WARNING /*Сервер будет информировать пользователя о неявном изменении типа курсора, если он несовместим с запросом SELECT*/

FOR

SELECT /*Что будет показано в курсоре*/

Преподаватели.Фамилия, Преподаватели.Имя, Преподаватели.Отчество, Книга.Автор, Книга.Название, Заказы.Количество, Книга.Цена

FROM Книга INNER JOIN (Преподаватели INNER JOIN Заказы ON Преподаватели.Читательский_номер = Заказы.Читательский_номер)

ON Книга.ISBN = Заказы.ISBN

FOR UPDATE /*Курсор для обновления*/

open global curs2

DECLARE

@@Fam varchar(20),

@@Name varchar(20),

@@Sec_name varchar(20),

@@Autor varchar(20),

@@Nazv varchar(20),

@@Kolvo int,

@@Cena int,

@@Counter int,

@@Var1 int

SET @@Counter = 1

SET @@Var1 = 0

WHILE @@COUNTER< @@CURSOR_ROWS /*Пока счетчик просмотренных строк меньше их общего числа*/

BEGIN

FETCH curs2 INTO @@Fam,@@Name,@@Sec_name,@@Autor,@@Nazv,@@Kolvo /*Просматриваем строки и значения*/

SET @@Counter =@@Counter +1 /*Меняем значение счетчика при переходе к другой строке*/

SET @@Var1=@@Var1+@@Kolvo *@@Cena /*Суммируем стоимости заказанных книг*/

END

Select @@Var1 /*выводим сумму на экран*/

CLOSE curs2

DEALLOCATE curs2

3.Удаление преподавателя.

DECLARE curs5 CURSOR

LOCAL SCROLL KEYSET

FOR SELECT Преподаватели.читательский_номер,

Преподаватели.Имя, Преподаватели.Отчество,Преподаватели.Фамилия, Преподаватели.должность

FROM Преподаватели

FOR UPDATE

open curs5

DECLARE

@@Chit_nom int,

@@Name varchar(20),

@@Sec_name varchar(20),

@@Fam varchar(20),

@@Dolgn varchar(20),

@@Counter int

SET @@Counter = 0

WHILE @@COUNTER< @@CURSOR_ROWS

BEGIN

DELETE curs5

SET @@Chit_nom=NULL

set @@Name=NULL

set @@Sec_name=NULL

SET @@Fam=NULL

SET @@Dolgn=NULL

WHERE CURRENT OF curs5

SET @@Counter =@@Counter +1

END

CLOSE curs5

3. Пользование студентов

DECLARE curs1 CURSOR

GLOBAL SCROLL KEYSET TYPE_WARNING

FOR

SELECT

Студенты.Читательский_номер,Студенты.Имя, Студенты.Фамилия, Студенты.Отчество, Студенты.год_поступления,

Студенты.год_окончания, Студенты.факультет,Студенты.специальность, Студенты.форма_обучения, Студенты.номер_приказа

FROM Студенты

FOR READ ONLY

open global curs1

DECLARE

@@Counter int

SET @@Counter =@@CURSOR_ROWS

Select @@Counter

CLOSE curs1

DEALLOCATE curs1

5.Информация о студентах и их количестве

DECLARE curs1 CURSOR

GLOBAL SCROLL KEYSET TYPE_WARNING

FOR

SELECT

Студенты.Читательский_номер,Студенты.Имя, Студенты.Фамилия, Студенты.Отчество, Студенты.год_поступления,

Студенты.год_окончания, Студенты.факультет, Студенты.специальность, Студенты.форма_обучения,Студенты.номер_приказа

FROM Студенты

FOR READ ONLY

open global curs1

DECLARE

@@Counter int

SET @@Counter =@@CURSOR_ROWS

Select @@Counter

CLOSE curs1

DEALLOCATE curs1

3.6. Описание клиентских приложений

При разработке клиентского приложения были созданы следующие формы.

При запуске приложения появляется форма «Регистрация» (рис.13). на форме присутствует кнопк «Вход», нажатие на которую открывает другие формы. Код кнопки:

Private Sub Вход_Click()

Dim stDocName As String

Dim stLinkCriteria As String

If (Группа26.Value = 1 And Поле9.Value = "Директор") Then

DoCmd.OpenForm "Директор"

Поле9.Value = ""

ElseIf (Группа26.Value = 2 And Поле9.Value = "Библиотекарь") Then

DoCmd.OpenForm "Выбор"

Поле9.Value = ""

ElseIf (Группа26.Value = 3) Then

DoCmd.OpenForm "Поиск"

Поле9.Value = ""

Else: MsgBox "Неправильный пароль"

End If

End Sub

Рисунок 13 – Форма «Регистрация».

Для пользователя «Директор», открывается одноименная форма – рисунок 14. На ней присутствуют следующие кнопки: «Работа с сотрудниками библиотеки», «Информация о посетителях библиотеки», «Отчеты о работе библиотеки».

Рисунок 14 – Форма «Директор».

После нажатия на кнопку «Работа с сотрудниками библиотеки» появится форма «Работа с сотрудниками библиотеки» – рисунок 15. На форме присуетсвуют кнопки «Уволить сотрудника», «Информация о сотруднике», «Принять на работу сотрудника».

При нажатии кнопки «Уволить сотрудника», будет уволен выбранный сотрудник. Код обработки нажатия кнопки:

Private Sub Кнопка5_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком3.SetFocus

strdate = ПолеСоСписком3.Text

strSQL = "DELETE FROM dbo_Сотрудники_библиотеки WHERE табельный_номер=" + strdate

dbs.QueryDefs.Delete ("my")

Set qdf = dbs.CreateQueryDef("my", strSQL)

Set dbs = Nothing

При нажатии кнопки «Информация о сотруднике» – будет показан отчет, содеожащий информацию о библиотекаре. Код обработки нажатия кнопки:

Private Sub Кнопка6_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком3.SetFocus

strdate = ПолеСоСписком3.Text

strSQL = "SELECT dbo_Сотрудники_библиотеки.табельный_номер, dbo_Сотрудники_библиотеки.имя, dbo_Сотрудники_библиотеки.фамилия, dbo_Сотрудники_библиотеки.отчество, dbo_Сотрудники_библиотеки.дата_рождения, dbo_Сотрудники_библиотеки.должность, dbo_Сотрудники_библиотеки.Номер_отдела FROM dbo_Сотрудники_библиотеки WHERE табельный_номер=" + strdate

dbs.QueryDefs.Delete ("my1")

Set qdf = dbs.CreateQueryDef("my1", strSQL)

Set dbs = Nothing

DoCmd.OpenReport "my1", acPreview

Если нажать на кнопку «Принять на работу сотрудника», то откроется форма «dbo_Cотрудники_библиотеки», на которой необходимо будет внести информацию о новом сотруднике – рисунок 16.

Рисунок 15 – Форма «Работа с сотрудниками библиотеки»

Рисунок 16 – Форма «dbo_Cотрудники_библиотеки»

Если же на форме «Директор» нажать кнопку «Информация о посетителях библиотеки, то появится форма «Посетители» – рисунок 17, а если кнопку «Отчеты о работе библиотеки», то форма «Информация» – рисунок 18.

На форме «Посетители» располагается кнопка «Получить информацию». Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о студентах или преподавателях. Код обработки нажатия кнопки:

Private Sub Кнопка11_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As Integer, strdate As String

Set dbs = CurrentDb

If Группа0.Value = 1 Then

ПолеСоСписком16.SetFocus

strdate = ПолеСоСписком16.Text

strSQL = "SELECT dbo_Студенты.Читательский_номер, dbo_Студенты.Фамилия, dbo_Студенты.Имя, dbo_Студенты.Отчество, dbo_Студенты.год_поступления, dbo_Студенты.год_окончания, dbo_Студенты.факультет, dbo_Студенты.специальность, dbo_Студенты.факультет, dbo_Студенты.специальность, dbo_Студенты.форма_обучения, dbo_Студенты.номер_приказа FROM dbo_Студенты WHERE dbo_Студенты.Читательский_номер=" + strdate

dbs.QueryDefs.Delete ("999")

Set qdf = dbs.CreateQueryDef("999", strSQL)

Set dbs = Nothing

DoCmd.OpenReport "999", acPreview

End If

If Группа0.Value = 2 Then ПолеСоСписком18.SetFocus

strdate = ПолеСоСписком18.Text

strSQL = "SELECT dbo_Преподаватели.Читательский_номер, dbo_Преподаватели.Имя, dbo_Преподаватели.Отчество, dbo_Преподаватели.Фамилия, dbo_Преподаватели.Должность FROM dbo_Преподаватели WHERE dbo_Преподаватели.Читательский_номер=" + strdate

dbs.QueryDefs.Delete ("333")

Set qdf = dbs.CreateQueryDef("333", strSQL)

Set dbs = Nothing

DoCmd.OpenReport "333", acPreview

End If

End Sub

Рисунок 17 – Форма «Посетители»

Рисунок 18 – Форма «Информация»

Если пользователь зарегистрировался как «Библиотекарь», то после формы «Регистрация» следующей появится форма «Выбор» – рисунок 19.

Рисунок 19 – Форма «Выбор»

При нажатии на кнопку «Работа с фондом» появится форма «Фонд» (рис. 21), на которой также после нажатия на соответствующую кнопку появятся следующие пользовательские формы:

- «dbo_Книга» при нажатии на кнопку «Обработка новых книг» (рис. 22);

- «Экземпляр» при нажатии на кнопку «Обработка новых экземпляров» (рис. 23);

- «Списанные_книги» при нажатии на кнопку «Списание книги» (рис. 24);

-«Замена_экземпляров» при нажатии на кнопку «Замена книг» (рис. 25);

Рисунок 21 – Форма «Фонд»

Рисунок 22 – Форма «dbo_Книга»

На форме «dbo_Книга» присутствуют кнопки с изображением стрелок, которые служат для добавления новых записей в таблицу «Книга», а также кнопка «Добавить новый экземпляр», которая открывает форму «Экземпляр».

На форме «Экземпляр» расположены кнопки с изображением стрелок, которые служат для добавления новых записей в таблицу «Экземпляр», кнопка «Добавить новую книгу» для перехода на форму «dbo_Книга», и кнопка «Информация об экземплярах книг», нажатие на которую выводит список книг библиотеки.

Рисунок 23 – Форма «Экземпляр»

Рисунок 24 – Форма «dbo_списанные_книги»

На форме «dbo_списанные_книги» располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу «Списанные книги», и кнопка «Информация о списанных книгах». Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах списанных по протоколу списания, номер которого вводится в поле рядом с кнопкой. Код обработки нажатия кнопки «Информация о списанных книгах»:

Private Sub Кнопка13_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As Integer

Dim strdate As String

Set dbs = CurrentDb

Поле23.SetFocus

strdate = Поле23.Text

strSQL = "SELECT dbo_Книга.Автор, dbo_Книга.Название, dbo_Списанные_книги.номер_протокола_списания, dbo_Сотрудники_библиотеки.фамилия, dbo_Списанные_книги.дата_списания FROM dbo_Сотрудники_библиотеки INNER JOIN ((dbo_Книга INNER JOIN dbo_Экземпляр ON dbo_Книга.ISBN = dbo_Экземпляр.ISBN) INNER JOIN dbo_Списанные_книги ON dbo_Экземпляр.Шифр = dbo_Списанные_книги.Шифр) ON dbo_Сотрудники_библиотеки.табельный_номер = dbo_Списанные_книги.Табельный_номер_списавшего WHERE dbo_Списанные_книги.номер_протокола_списания=" + strdate

dbs.QueryDefs.Delete ("списание")

Set qdf = dbs.CreateQueryDef("списание", strSQL)

DoCmd.OpenReport "списание", acPreview

Set dbs = Nothing

End Sub

Рисунок 25 – Форма «Замена_экземпляров»

На форме «Замена_экземпляров» располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу «Замена_экземпляров», и кнопка «Просмотр». Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах, которые заменили по акту замены. Номер акта замены вводится в поле рядом с кнопкой. Код обработки нажатия кнопки «Просмотр»:

Private Sub Просмотр _Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As Integer

Dim strdate As String

Set dbs = CurrentDb

Поле13.SetFocus

strdate = Поле13.Text

strSQL = "SELECT dbo_Книга.Автор, dbo_Книга.Название, dbo_Экземпляр.Шифр, dbo_Замена_экземпляров.Номер_акта_замены FROM (dbo_Экземпляр INNER JOIN dbo_Книга ON dbo_Экземпляр.ISBN = dbo_Книга.ISBN) INNER JOIN dbo_Замена_экземпляров ON dbo_Экземпляр.Шифр = dbo_Замена_экземпляров.Шифр WHERE (dbo_Замена_экземпляров.Номер_акта_замены)= " + strdate

dbs.QueryDefs.Delete ("замена3")

Set qdf = dbs.CreateQueryDef("замена3", strSQL)

DoCmd.OpenReport "замена3", acPreview

Set dbs = Nothing

End Sub

Если на форма «Выбор» была нажата кнопка «Работа с посетителями», то появится следующей форма «Работа с посетителями» – рисунок 26.

После нажатия на соответствующую кнопку на форме «Работа с посетителями» появятся следующие пользовательские формы:

- «Студенты» при нажатии на «Записать читателя в бибилитеку» – рисунок 27;

- «dbo_Пользование_библиотекой2» при нажатии на «Выдать книги» – рисунок 28;

- «Принять книги» при нажатии на «Принять книги» – рисунок 29.

- «dbo_Платные услуги» при нажатии на «Платные услуги» – рисунок 30.

Рисунок 26 – Форма «Работа с посетителями»

На форме «Студенты» располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу «Студенты».

На форме «dbo_Пользование_библиотекой2» располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу «dbo_Пользование_библиотекой2».

На форме «Принять книги» располагается кнопка с изображением стрелки, которая вызывает стандартную процедуру добавления записей в таблицу «dbo_Пользование_библиотекой2».

Рисунок 27 – Форма «Студенты»

Рисунок 28 – Форма «dbo_Пользование_библиотекой2»

Рисунок 29 – Форма «Принять книги»

Рисунок 30 – Форма «dbo_Платные_услуги»

На форме «dbo_Платные_услуги» располагается кнопка с изображением стрелки, которая вызывает процедуру добавления записей в таблицу «Платные_услуги», и две кнопки «Показать отчет». Они предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о платных услугах библиотеки, которые были оказаны в отчетном месяце или году. Номер акта замены вводится в поле рядом с кнопкой. Код обработки нажатия кнопки «Показать_отчет» (за год):

Private Sub Кнопка53_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As Integer, strdate As String

Set dbs = CurrentDb

Поле29.SetFocus

strdate = Поле29.Text

'strdate = "" + strdat + """

strSQL = "SELECT dbo_Платные_услуги.табельный_номер, dbo_Платные_услуги.Сумма,dbo_Платные_услуги.читательский_номер,dbo_Платные_услуги.Дата_услуги FROM dbo_Платные_услуги WHERE Year(dbo_Платные_услуги.Дата_услуги)=" + strdate

dbs.QueryDefs.Delete ("услуги")

Set qdf = dbs.CreateQueryDef("услуги", strSQL)

DoCmd.OpenReport "услуги", acPreview

Set dbs = Nothing

End Sub

За месяц:

Private Sub Кнопка27_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As Integer

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком25.SetFocus

strdate = ПолеСоСписком25.Text

strSQL = "SELECT dbo_Платные_услуги.табельный_номер, dbo_Платные_услуги.Сумма,dbo_Платные_услуги.читательский_номер,dbo_Платные_услуги.Дата_услуги FROM dbo_Платные_услуги WHERE Month(dbo_Платные_услуги.Дата_услуги)=" + strdate

dbs.QueryDefs.Delete ("услуги")

Set qdf = dbs.CreateQueryDef("услуги", strSQL)

DoCmd.OpenReport "услуги", acPreview

Set dbs = Nothing

End Sub

Рисунок 31 – Форма «Поиск»

Форма «Поиск» (рисунок 31) является общей для пользователя «Библиотекарь» и «Посетитель» и появляется соответственно либо при нажатии на форме «Выбор» кнопки «Поиск литературы» либо при входе пользователя с формы «Регтстрация». Если на ней выбрать кнопку «Поиск книг», то появится форма «Форма_поиска» (рисунок 32), а если кнопку – «Поиск перидических изданий», то форма «Поиск периодики» (рисунок 33).

На форме «Форма_поиска» располагается кнопка «Список книг», нажатие на которую показывает отчет, содержащий список всех книг библиотеки», и кнопка «Найти». Она предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о книгах, которые удовлетворяют критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия кнопки «Найти»:

Private Sub Кнопка13_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком11.SetFocus

strdat = ПолеСоСписком11.Text

strdate = "'" + strdat + "'"

strSQL = "SELECT dbo_Книга.ISBN, dbo_Книга.Автор, dbo_Книга.Название, dbo_Книга.Год_издания, dbo_Книга.Издательство, dbo_Книга.Кодичество_страниц, dbo_Книга.Цена, dbo_Экземпляр.Шифр, dbo_Экземпляр.Отметка_о_замене, dbo_Экземпляр.Отметка_о_списании FROM dbo_Книга INNER JOIN dbo_Экземпляр ON dbo_Книга.ISBN = dbo_Экземпляр.ISBN WHERE (dbo_Экземпляр.Шифр)= " + strdate

dbs.QueryDefs.Delete ("поиск книги")

Set qdf = dbs.CreateQueryDef("поиск книги", strSQL)

DoCmd.OpenReport "поиск книги", acPreview

Set dbs = Nothing

End Sub

Рисунок 32 – Форма «Форма_поиска»

Рисунок 33 – Форма «Поиск периодики»

На форме «Поиск периодики» располагается кнопка «Список периодических изданий», нажатие на которую показывает отчет, содержащий список всех периодических изданий библиотеки», и кнопки «Найти».

Кнопка «Найти» в разделе «Поиск изданий» предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о периодических изданиях, которые удовлетворяют критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия кнопки «Найти»:

Private Sub Кнопка10_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком8.SetFocus

strdat = ПолеСоСписком8.Text

strdate = "'" + strdat + "'"

strSQL = "SELECT dbo_Периодические_издания.Шифр_периодики, dbo_Периодические_издания.Название, dbo_Периодические_издания.Дата_издания, dbo_Периодические_издания.Номер_отдела FROM dbo_Периодические_издания WHERE (dbo_Периодические_издания.Шифр_периодики)= " + strdate

dbs.QueryDefs.Delete ("шифр поиск период")

Set qdf = dbs.CreateQueryDef("шифр поиск период", strSQL)

DoCmd.OpenReport "шифр поиск период", acPreview

Set dbs = Nothing

End Sub

Кнопка «Найти» в разделе «Поиск статей» предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о статьях, которые удовлетворяют критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия кнопки «Найти»:

Private Sub Кнопка29_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком21.SetFocus

strdat = ПолеСоСписком21.Text

strdate = "'" + strdat + "'"

stDocName = ChrW(100) & ChrW(98) & ChrW(111) & ChrW(95) & ChrW(1055) & ChrW(1077) & ChrW(1088) & ChrW(1080) & ChrW(1086) & ChrW(1076) & ChrW(1080) & ChrW(1095) & ChrW(1077) & ChrW(1089) & ChrW(1082) & ChrW(1080) & ChrW(1077) & ChrW(95) & ChrW(1080) & ChrW(1079) & ChrW(1076) & ChrW(1072) & ChrW(1085) & ChrW(1080) & ChrW(1103)

strSQL = "SELECT dbo_Периодические_издания.Шифр_периодики, dbo_Периодические_издания.Название, dbo_Периодические_издания.Дата_издания, dbo_Статьи.Номер_статьи, dbo_Статьи.Название, dbo_Статьи.Тема, dbo_Статьи.Предметная_область FROM dbo_Статьи INNER JOIN dbo_Периодические_издания ON dbo_Статьи.Шифр_периодики = dbo_Периодические_издания.Шифр_периодики WHERE dbo_Статьи.Номер_статьи=" + strdate

dbs.QueryDefs.Delete ("Статьи")

Set qdf = dbs.CreateQueryDef("Статьи", strSQL)

DoCmd.OpenReport "Статьи", acPreview

Set dbs = Nothing

End Sub

Кнопка «Найти» в разделе «Поиск по ключевым» предназначена для вызова хранимой процедуры, формирующей отчет о статьях, которые содержат указанные ключевые слова. Код обработки нажатия кнопки «Найти»:

Private Sub Кнопка38_Click()

Dim stDocName As String

Dim dbs As Database, qdf As QueryDef, strSQL As String

Dim strdat As String

Dim strdate As String

Set dbs = CurrentDb

ПолеСоСписком25.SetFocus

strdat = ПолеСоСписком25.Text

If Переключатель36.Value = True Then

strdate = strdat + ",%'"

strSQL = "SELECT dbo_Периодические_издания.Шифр_периодики, dbo_Периодические_издания.Название, dbo_Периодические_издания.Дата_издания, dbo_Статьи.Номер_статьи, dbo_Статьи.Название, dbo_Статьи.Тема, dbo_Статьи.Предметная_область FROM dbo_Статьи INNER JOIN dbo_Периодические_издания ON dbo_Статьи.Шифр_периодики = dbo_Периодические_издания.Шифр_периодики WHERE dbo_Статьи.Тема LIKE '%" + strdate

dbs.QueryDefs.Delete ("Статьи")

Set qdf = dbs.CreateQueryDef("Статьи", strSQL)

DoCmd.OpenReport "Статьи", acPreview

Set dbs = Nothing

Else

strdate = strdat + "%'"

strSQL = "SELECT dbo_Периодические_издания.Шифр_периодики, dbo_Периодические_издания.Название, dbo_Периодические_издания.Дата_издания, dbo_Статьи.Номер_статьи, dbo_Статьи.Название, dbo_Статьи.Тема, dbo_Статьи.Предметная_область FROM dbo_Статьи INNER JOIN dbo_Периодические_издания ON dbo_Статьи.Шифр_периодики = dbo_Периодические_издания.Шифр_периодики WHERE dbo_Статьи.Тема LIKE '%" + strdate

dbs.QueryDefs.Delete ("Статьи")

Set qdf = dbs.CreateQueryDef("Статьи", strSQL)

DoCmd.OpenReport "Статьи", acPreview

Set dbs = Nothing

End If

Exit_Кнопка38_Click:

End Sub

Последняя форма «dbo_Заказы» появляется при нажатии кнопки «Заказ литературы» на форме «Выбор» – рисунок 34. Кнопка с изображением стрелки на форме «dbo_Заказы» служит для добавления записей в таблицу «Заказы».

Рисунок 34 – Форма «dbo_Заказы»

4. Проектирование системы безопасности. Управление авторизацией, управление ролями, управление разрешениями средствами Transact SQL.

Система безопасности базы данных контролирует выполняемые действия и определяет информацию, доступную для просмотра и модификации. Надежная система безопасности гарантирует защиту данных независимо от того, как пользователи получают доступ к базе данных.

Чтобы пользовательское учетное имя получило доступ к БД, одного ввода имени пользователя и пароля недостаточно. Должно быть разрешение на исполнение SQL-выражений или на работу с объектами.

Назначение разрешений каждому пользователю в отдельности занимает много времени при сопровождении БД со средним и большим числом пользователей. Для облегчения операций по назначению разрешений пользователям SQL Server 2000 поддерживает роли SQL Server.

Роли создаются и сопровождаются в рамках SQL Server. Существует два типа ролей: стандартные и прикладные. Стандартным ролям (standard roles) назначаются привилегии, которые могут наследоваться пользователями, получающими членство в роли. Стандартные роли могут содержать все типы учетных имен: учетные записи пользователей и групп Windows, идентификаторы SQL Server и другие стандартные роли.

Для упрощения администрирования БД и самого сервера в SQL Server предусмотрен ряд стандартных предопределенных ролей. В основном их можно разделить на две категории: фиксированные роли на уровне сервера, или серверные роли (fixed server role), и фиксированные роли на уровне БД (fixed database role). Членство в фиксированных ролях на уровне сервера дает возможность администрирования сервера. Члены фиксированных ролей на уровне БД могут администрировать некоторые БД.

Прикладные роли разработаны для управления привилегиями пользователей, обращающихся к БД через некоторое приложение.

5. Прокомментированный скрипт создания базы данных

CREATE TABLE Заказы //Создание таблицы «Заказы»

(

Количество int NULL,

Дата_заказа datetime NULL,

Читательский_номер int NOT NULL,

ISBN varchar(20) NOT NULL

)

go

ALTER TABLE Заказы //Изменение таблицы «Заказы»

ADD PRIMARY KEY (Читательский_номер, ISBN)

go

CREATE TABLE Замена_экземпляров (

Номер_акта_замены int NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Замена_экземпляров //Изменение таблицы «Замена_экземпляров»

ADD PRIMARY KEY (Шифр)

go

CREATE TABLE Книга ( //Создание таблицы «Книга»

ISBN varchar(20) NOT NULL,

Автор varchar(20) NULL,

Название varchar(20) NULL,

Год_издания int NULL,

Издательство varchar(20) NULL,

Кодичество_страниц int NULL,

Цена int NULL

)

go

ALTER TABLE Книга //Изменение таблицы «Книга»

ADD PRIMARY KEY (ISBN)

go

CREATE TABLE Отделы ( //Создание таблицы «Отделы»

Номер_отдела int NOT NULL,

фамилия_начальника_отдела varchar(20) NULL,

Название_отдела varchar(20) NULL,

табельный_номер_начальника int NULL

)

go

ALTER TABLE Отделы //Изменение таблицы «Отделы»

ADD PRIMARY KEY (Номер_отдела)

go

CREATE TABLE Периодические_издания ( //Создание таблицы «Периодические_издания»

Шифр_периодики varchar(20) NOT NULL,

Название varchar(20) NULL,

Дата_издания datetime NULL,

Номер_отдела int NULL

)

go

ALTER TABLE Периодические_издания //Изменение таблицы «Периодические_издания»

ADD PRIMARY KEY (Шифр_периодики)

go

CREATE TABLE Пользование_библиотекой1 (//Создание таблицы «Пользование_библиотекой1»

табельный_номер int NOT NULL,

Дата_выдачи datetime NULL,

Дата_приема char(18) NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Пользование_библиотекой1// Изменение таблицы «Пользование_библиотекой1»

ADD PRIMARY KEY (табельный_номер, Шифр)

go

CREATE TABLE Пользование_библиотекой2 (//Создание таблицы «Пользование_библиотекой2»

Читательский_номер int NOT NULL,

Дата_выдачи datetime NULL,

Дата_приема datetime NULL,

Табельный_номер int NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Пользование_библиотекой2// Изменение таблицы «Пользование_библиотекой2»

ADD PRIMARY KEY (Читательский_номер, Шифр)

go

CREATE TABLE Пользование_библиотекой3 (//Создание таблицы «Пользование_библиотекой3»

Читательский_номер int NOT NULL,

Дата_выдачи datetime NULL,

Дата_приема datetime NULL,

Табельный_номер int NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Пользование_библиотекой3 // Изменение таблицы «Пользование_библиотекой3

ADD PRIMARY KEY (Читательский_номер, Шифр)

go

CREATE TABLE Преподаватели // Создание таблицы «Преподаватели»

(

Читательский_номер int NOT NULL,

Имя varchar(20) NULL,

Отчество varchar(20) NULL,

Фамилия varchar(20) NULL,

Должность varchar(20) NULL

)

go

ALTER TABLE Преподаватели // Изменение таблицы «Преподаватели»

ADD PRIMARY KEY (Читательский_номер)

go

CREATE TABLE Сотрудники_библиотеки (// Создание таблицы «Сотрудники_библиотеки»

табельный_номер int NOT NULL,

имя varchar(20) NULL,

фамилия varchar(20) NULL,

отчество varchar(20) NULL,

дата_рождения datetime NULL,

должность varchar(20) NULL,

Номер_отдела int NOT NULL

)

go

ALTER TABLE Сотрудники_библиотеки //Изменение таблицы«Сотрудники_библиотеки»

ADD PRIMARY KEY (табельный_номер)

go

CREATE TABLE Списанные_книги (/ /Создание таблицы«Списанные_книги»

//

причина_списания varchar(20) NULL,

номер_протокола_списания int NULL,

Табельный_номер_списавшего int NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Списанные_книги / /Изменение таблицы«Списанные_книги»

ADD PRIMARY KEY (Шифр)

go

CREATE TABLE Студенты (/ /Создание таблицы«Студенты»

Читательский_номер int NOT NULL,

Имя varchar(20) NULL,

Фамилия varchar(20) NULL,

Отчество varchar(20) NULL,

год_поступления int NULL,

год_окончания int NULL,

факультет varchar(20) NULL,

специальность varchar(20) NULL,

форма_обучения varchar(20) NULL,

номер_приказа int NULL

)

go

ALTER TABLE Студенты / /Изменение таблицы«Студенты»

ADD PRIMARY KEY (Читательский_номер)

go

CREATE TABLE Экземпляр ( / /Создание таблицы«Экземпляр»

ISBN varchar(20) NOT NULL,

Отметка_о_списании varchar(20) NULL,

Отметка_о_замене varchar(20) NULL,

Предметная_область varchar(20) NULL,

Номер_отдела int NOT NULL,

Шифр varchar(20) NOT NULL

)

go

ALTER TABLE Экземпляр //Изменение таблицы«Экземпляр »

ADD PRIMARY KEY (Шифр)

go

ALTER TABLE Заказы //Изменение таблицы«Заказы »

ADD FOREIGN KEY (ISBN)

REFERENCES Книга

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Заказы //Изменение таблицы«Заказы »

ADD FOREIGN KEY (Читательский_номер)

REFERENCES Преподаватели

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Замена_экземпляров

//Изменение таблицы «Замена_экземпляров»

ADD FOREIGN KEY (Шифр)

REFERENCES Экземпляр

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Периодические_издания

//Изменение таблицы «Периодические_издания»

ADD FOREIGN KEY (Номер_отдела)

REFERENCES Отделы

go

ALTER TABLE Пользование_библиотекой1

//Изменение таблицы «Пользование_библиотекой1»

ADD FOREIGN KEY (Шифр)

REFERENCES Экземпляр

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Пользование_библиотекой1

//Изменение таблицы «Пользование_библиотекой1»

ADD FOREIGN KEY (табельный_номер)

REFERENCES Сотрудники_библиотеки

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Пользование_библиотекой2

//Изменение таблицы «Пользование_библиотекой2»

ADD FOREIGN KEY (Шифр)

REFERENCES Экземпляр

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Пользование_библиотекой2

//Изменение таблицы «Пользование_библиотекой2»

ADD FOREIGN KEY (Читательский_номер)

REFERENCES Студенты

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Пользование_библиотекой3

//Изменение таблицы «Пользование_библиотекой3»

ADD FOREIGN KEY (Читательский_номер)

REFERENCES Преподаватели

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Пользование_библиотекой3

//Изменение таблицы «Пользование_библиотекой3»

ADD FOREIGN KEY (Шифр)

REFERENCES Экземпляр

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Сотрудники_библиотеки

//Изменение таблицы «Сотрудники_библиотеки»

ADD FOREIGN KEY (Номер_отдела)

REFERENCES Отделы

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Списанные_книги

//Изменение таблицы «Списанные_книги»

ADD FOREIGN KEY (Шифр)

REFERENCES Экземпляр

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Экземпляр

//Изменение таблицы «Экземпляр»

ADD FOREIGN KEY (ISBN)

REFERENCES Книга

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

ALTER TABLE Экземпляр

//Изменение таблицы «Экземпляр»

ADD FOREIGN KEY (Номер_отдела)

REFERENCES Отделы

ON DELETE NO ACTION

ON UPDATE NO ACTION

go

create trigger tD_Заказы on Заказы for DELETE as

//Создание триггера на удаление из таблицы «Заказы»

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Заказы */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга Заказы ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Книга

where

/* deleted.ISBN = Книга.ISBN */

deleted.ISBN = Книга.ISBN and

not exists (

select * from Заказы

where

/* Заказы.ISBN = Книга.ISBN */

Заказы.ISBN = Книга.ISBN

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Заказы because Книга exists.'

goto error

end

//Создание триггера на удаление из таблицы «Преподаватели»

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели Делают Заказы ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Преподаватели

where

/* deleted.Читательский_номер = Преподаватели.Читательский_номер */

deleted.Читательский_номер = Преподаватели.Читательский_номер and

not exists (

select * from Заказы

where

/* Заказы.Читательский_номер = Преподаватели.Читательский_номер */

Заказы.Читательский_номер = Преподаватели.Читательский_номер

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Заказы because Преподаватели exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

create trigger tU_Заказы on Заказы for UPDATE as

//Создание триггера на обновление таблицы «Заказы»

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Заказы */

begin

declare @numrows int, //объявление переменных

@nullcnt int,

@validcnt int,

@insЧитательский_номер int,

@insISBN varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга Заказы ON CHILD UPDATE NO ACTION */

if

/* update(ISBN) */

update(ISBN)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Книга

where

/* inserted.ISBN = Книга.ISBN */

inserted.ISBN = Книга.ISBN

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Заказы because Книга does not exist.'

goto error

end

end

//Создание триггера на обновление таблицы «Преподаватели»

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели Делают Заказы ON CHILD UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Преподаватели

where

/* inserted.Читательский_номер = Преподаватели.Читательский_номер */

inserted.Читательский_номер = Преподаватели.Читательский_номер

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Заказы because Преподаватели does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Замена_экземпляров»

create trigger tD_Замена_экземпляров on Замена_экземпляров for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Замена_экземпляров */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Заменили Замена_экземпляров ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Экземпляр

where

/* deleted.Шифр = Экземпляр.Шифр */

deleted.Шифр = Экземпляр.Шифр and

not exists (

select * from Замена_экземпляров

where

/* Замена_экземпляров.Шифр = Экземпляр.Шифр */

Замена_экземпляров.Шифр = Экземпляр.Шифр

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Замена_экземпляров because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Замена_экземпляров»

create trigger tU_Замена_экземпляров on Замена_экземпляров for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Замена_экземпляров */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Заменили Замена_экземпляров ON CHILD UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Экземпляр

where

/* inserted.Шифр = Экземпляр.Шифр */

inserted.Шифр = Экземпляр.Шифр

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Замена_экземпляров because Экземпляр does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление таблицы «Книга »

create trigger tD_Книга on Книга for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Книга */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга зарегестрировали в Экземпляр ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Экземпляр

where

/* Экземпляр.ISBN = deleted.ISBN */

Экземпляр.ISBN = deleted.ISBN

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Книга because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга Заказы ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Заказы

where

/* Заказы.ISBN = deleted.ISBN */

Заказы.ISBN = deleted.ISBN

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Книга because Заказы exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Книга »

create trigger tU_Книга on Книга for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Книга */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insISBN varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга зарегестрировали в Экземпляр ON PARENT UPDATE NO ACTION */

if

/* update(ISBN) */

update(ISBN)

begin

if exists (

select * from deleted,Экземпляр

where

/* Экземпляр.ISBN = deleted.ISBN */

Экземпляр.ISBN = deleted.ISBN

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Книга because Экземпляр exists.'

goto error

end

end

//Создание триггера на обновление таблицы «Заказы »

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга Заказы ON PARENT UPDATE NO ACTION */

if

/* update(ISBN) */

update(ISBN)

begin

if exists (

select * from deleted,Заказы

where

/* Заказы.ISBN = deleted.ISBN */

Заказы.ISBN = deleted.ISBN

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Книга because Заказы exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Отделы»

create trigger tD_Отделы on Отделы for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Отделы */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы находятся в Периодические_издания ON PARENT DELETE SET NULL */

update Периодические_издания

set

/* Периодические_издания.Номер_отдела = NULL */

Периодические_издания.Номер_отдела = NULL

from Периодические_издания,deleted

where

/* Периодические_издания.Номер_отдела = deleted.Номер_отдела */

Периодические_издания.Номер_отдела = deleted.Номер_отдела

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Экземпляр ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Экземпляр

where

/* Экземпляр.Номер_отдела = deleted.Номер_отдела */

Экземпляр.Номер_отдела = deleted.Номер_отдела

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Отделы because Экземпляр exists.'

goto error

end

//Создание триггера на удаление из таблицы «Сотрудники_библиотеки»

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Сотрудники_библиотеки ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Сотрудники_библиотеки

where

/* Сотрудники_библиотеки.Номер_отдела = deleted.Номер_отдела */

Сотрудники_библиотеки.Номер_отдела = deleted.Номер_отдела

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Отделы because Сотрудники_библиотеки exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Отделы»

create trigger tU_Отделы on Отделы for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Отделы */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insНомер_отдела int,

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы находятся в Периодические_издания ON PARENT UPDATE SET NULL */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

update Периодические_издания

set

/* Периодические_издания.Номер_отдела = NULL */

Периодические_издания.Номер_отдела = NULL

from Периодические_издания,deleted

where

/* Периодические_издания.Номер_отдела = deleted.Номер_отдела */

Периодические_издания.Номер_отдела = deleted.Номер_отдела

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Экземпляр ON PARENT UPDATE NO ACTION */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

if exists (

select * from deleted,Экземпляр

where

/* Экземпляр.Номер_отдела = deleted.Номер_отдела */

Экземпляр.Номер_отдела = deleted.Номер_отдела

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Отделы because Экземпляр exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Сотрудники_библиотеки ON PARENT UPDATE NO ACTION */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

if exists (

select * from deleted,Сотрудники_библиотеки

where

/* Сотрудники_библиотеки.Номер_отдела = deleted.Номер_отдела */

Сотрудники_библиотеки.Номер_отдела = deleted.Номер_отдела

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Отделы because Сотрудники_библиотеки exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на вставку в таблицу «Периодические_издания»

create trigger tI_Периодические_издания on Периодические_издания for INSERT as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* INSERT trigger on Периодические_издания */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы находятся в Периодические_издания ON CHILD INSERT SET NULL */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

update Периодические_издания

set

/* Периодические_издания.Номер_отдела = NULL */

Периодические_издания.Номер_отдела = NULL

from Периодические_издания,inserted

where

/* Периодические_издания.Шифр_периодики = inserted.Шифр_периодики */

Периодические_издания.Шифр_периодики = inserted.Шифр_периодики and

not exists (

select * from Отделы

where

/* inserted.Номер_отдела = Отделы.Номер_отдела */

inserted.Номер_отдела = Отделы.Номер_отдела

)

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Периодические_издания»

create trigger tU_Периодические_издания on Периодические_издания for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Периодические_издания */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insШифр_периодики varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы находятся в Периодические_издания ON CHILD UPDATE SET NULL */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

update Периодические_издания

set

/* Периодические_издания.Номер_отдела = NULL */

Периодические_издания.Номер_отдела = NULL

from Периодические_издания,inserted

where

/* Периодические_издания.Шифр_периодики = inserted.Шифр_периодики */

Периодические_издания.Шифр_периодики = inserted.Шифр_периодики and

not exists (

select * from Отделы

where

/* inserted.Номер_отдела = Отделы.Номер_отдела */

inserted.Номер_отдела = Отделы.Номер_отдела

)

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на на удаление из таблицы «Пользование_библиотекой1»

create trigger tD_Пользование_библиотекой1 on Пользование_библиотекой1 for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Пользование_библиотекой1 */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/16 Пользование_библиотекой1 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Экземпляр

where

/* deleted.Шифр = Экземпляр.Шифр */

deleted.Шифр = Экземпляр.Шифр and

not exists (

select * from Пользование_библиотекой1

where

/* Пользование_библиотекой1.Шифр = Экземпляр.Шифр */

Пользование_библиотекой1.Шифр = Экземпляр.Шифр

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой1 because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Сотрудники_библиотеки

where

/* deleted.табельный_номер = Сотрудники_библиотеки.табельный_номер */

deleted.табельный_номер = Сотрудники_библиотеки.табельный_номер and

not exists (

select * from Пользование_библиотекой1

where

/* Пользование_библиотекой1.табельный_номер = Сотрудники_библиотеки.табельный_номер */

Пользование_библиотекой1.табельный_номер = Сотрудники_библиотеки.табельный_номер

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой1 because Сотрудники_библиотеки exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Пользование_библиотекой1»

create trigger tU_Пользование_библиотекой1 on Пользование_библиотекой1 for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Пользование_библиотекой1 */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insтабельный_номер int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/16 Пользование_библиотекой1 ON CHILD UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Экземпляр

where

/* inserted.Шифр = Экземпляр.Шифр */

inserted.Шифр = Экземпляр.Шифр

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой1 because Экземпляр does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON CHILD UPDATE NO ACTION */

if

/* update(табельный_номер) */

update(табельный_номер)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Сотрудники_библиотеки

where

/* inserted.табельный_номер = Сотрудники_библиотеки.табельный_номер */

inserted.табельный_номер = Сотрудники_библиотеки.табельный_номер

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой1 because Сотрудники_библиотеки does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на на удаление из таблицы «Пользование_библиотекой2»

create trigger tD_Пользование_библиотекой2 on Пользование_библиотекой2 for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Пользование_библиотекой2 */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/13 Пользование_библиотекой2 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Экземпляр

where

/* deleted.Шифр = Экземпляр.Шифр */

deleted.Шифр = Экземпляр.Шифр and

not exists (

select * from Пользование_библиотекой2

where

/* Пользование_библиотекой2.Шифр = Экземпляр.Шифр */

Пользование_библиотекой2.Шифр = Экземпляр.Шифр

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой2 because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Студенты R/12 Пользование_библиотекой2 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Студенты

where

/* deleted.Читательский_номер = Студенты.Читательский_номер */

deleted.Читательский_номер = Студенты.Читательский_номер and

not exists (

select * from Пользование_библиотекой2

where

/* Пользование_библиотекой2.Читательский_номер = Студенты.Читательский_номер */

Пользование_библиотекой2.Читательский_номер = Студенты.Читательский_номер

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой2 because Студенты exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Пользование_библиотекой1»

create trigger tU_Пользование_библиотекой2 on Пользование_библиотекой2 for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Пользование_библиотекой2 */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insЧитательский_номер int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/13 Пользование_библиотекой2 ON CHILD UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Экземпляр

where

/* inserted.Шифр = Экземпляр.Шифр */

inserted.Шифр = Экземпляр.Шифр

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой2 because Экземпляр does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Студенты R/12 Пользование_библиотекой2 ON CHILD UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Студенты

where

/* inserted.Читательский_номер = Студенты.Читательский_номер */

inserted.Читательский_номер = Студенты.Читательский_номер

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой2 because Студенты does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Пользование_библиотекой3»

create trigger tD_Пользование_библиотекой3 on Пользование_библиотекой3 for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Пользование_библиотекой3 */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели R/11 Пользование_библиотекой3 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Преподаватели

where

/* deleted.Читательский_номер = Преподаватели.Читательский_номер */

deleted.Читательский_номер = Преподаватели.Читательский_номер and

not exists (

select * from Пользование_библиотекой3

where

/* Пользование_библиотекой3.Читательский_номер = Преподаватели.Читательский_номер */

Пользование_библиотекой3.Читательский_номер = Преподаватели.Читательский_номер

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой3 because Преподаватели exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/10 Пользование_библиотекой3 ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Экземпляр

where

/* deleted.Шифр = Экземпляр.Шифр */

deleted.Шифр = Экземпляр.Шифр and

not exists (

select * from Пользование_библиотекой3

where

/* Пользование_библиотекой3.Шифр = Экземпляр.Шифр */

Пользование_библиотекой3.Шифр = Экземпляр.Шифр

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Пользование_библиотекой3 because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Пользование_библиотекой3»

create trigger tU_Пользование_библиотекой3 on Пользование_библиотекой3 for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Пользование_библиотекой3 */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insЧитательский_номер int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели R/11 Пользование_библиотекой3 ON CHILD UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Преподаватели

where

/* inserted.Читательский_номер = Преподаватели.Читательский_номер */

inserted.Читательский_номер = Преподаватели.Читательский_номер

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой3 because Преподаватели does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/10 Пользование_библиотекой3 ON CHILD UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Экземпляр

where

/* inserted.Шифр = Экземпляр.Шифр */

inserted.Шифр = Экземпляр.Шифр

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Пользование_библиотекой3 because Экземпляр does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Преподаватели»

create trigger tD_Преподаватели on Преподаватели for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Преподаватели */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели R/11 Пользование_библиотекой3 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой3

where

/* Пользование_библиотекой3.Читательский_номер = deleted.Читательский_номер */

Пользование_библиотекой3.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Преподаватели because Пользование_библиотекой3 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели Делают Заказы ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Заказы

where

/* Заказы.Читательский_номер = deleted.Читательский_номер */

Заказы.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Преподаватели because Заказы exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Преподаватели»

create trigger tU_Преподаватели on Преподаватели for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Преподаватели */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insЧитательский_номер int,

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели R/11 Пользование_библиотекой3 ON PARENT UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

if exists (

select * from deleted,Пользование_библиотекой3

where

/* Пользование_библиотекой3.Читательский_номер = deleted.Читательский_номер */

Пользование_библиотекой3.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Преподаватели because Пользование_библиотекой3 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Преподаватели Делают Заказы ON PARENT UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

if exists (

select * from deleted,Заказы

where

/* Заказы.Читательский_номер = deleted.Читательский_номер */

Заказы.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Преподаватели because Заказы exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Сотрудники_библиотеки»

create trigger tD_Сотрудники_библиотеки on Сотрудники_библиотеки for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Сотрудники_библиотеки */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой1

where

/* Пользование_библиотекой1.табельный_номер = deleted.табельный_номер */

Пользование_библиотекой1.табельный_номер = deleted.табельный_номер

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Сотрудники_библиотеки because Пользование_библиотекой1 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Сотрудники_библиотеки ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Отделы

where

/* deleted.Номер_отдела = Отделы.Номер_отдела */

deleted.Номер_отдела = Отделы.Номер_отдела and

not exists (

select * from Сотрудники_библиотеки

where

/* Сотрудники_библиотеки.Номер_отдела = Отделы.Номер_отдела */

Сотрудники_библиотеки.Номер_отдела = Отделы.Номер_отдела

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Сотрудники_библиотеки because Отделы exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Сотрудники_библиотеки»

create trigger tU_Сотрудники_библиотеки on Сотрудники_библиотеки for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Сотрудники_библиотеки */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insтабельный_номер int,

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON PARENT UPDATE NO ACTION */

if

/* update(табельный_номер) */

update(табельный_номер)

begin

if exists (

select * from deleted,Пользование_библиотекой1

where

/* Пользование_библиотекой1.табельный_номер = deleted.табельный_номер */

Пользование_библиотекой1.табельный_номер = deleted.табельный_номер

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Сотрудники_библиотеки because Пользование_библиотекой1 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Сотрудники_библиотеки ON CHILD UPDATE NO ACTION */

if

/* update(Номер_отдела) */

update(Номер_отдела)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Отделы

where

/* inserted.Номер_отдела = Отделы.Номер_отдела */

inserted.Номер_отдела = Отделы.Номер_отдела

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Сотрудники_библиотеки because Отделы does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Списанные_книги»

create trigger tD_Списанные_книги on Списанные_книги for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Списанные_книги */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Списали Списанные_книги ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Экземпляр

where

/* deleted.Шифр = Экземпляр.Шифр */

deleted.Шифр = Экземпляр.Шифр and

not exists (

select * from Списанные_книги

where

/* Списанные_книги.Шифр = Экземпляр.Шифр */

Списанные_книги.Шифр = Экземпляр.Шифр

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Списанные_книги because Экземпляр exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера обновление таблицы «Списанные_книги»

create trigger tU_Списанные_книги on Списанные_книги for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Списанные_книги */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Списали Списанные_книги ON CHILD UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Экземпляр

where

/* inserted.Шифр = Экземпляр.Шифр */

inserted.Шифр = Экземпляр.Шифр

/* */

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Списанные_книги because Экземпляр does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Студенты»

create trigger tD_Студенты on Студенты for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Студенты */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Студенты R/12 Пользование_библиотекой2 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой2

where

/* Пользование_библиотекой2.Читательский_номер = deleted.Читательский_номер */

Пользование_библиотекой2.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Студенты because Пользование_библиотекой2 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Студенты»

create trigger tU_Студенты on Студенты for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Студенты */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insЧитательский_номер int,

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Студенты R/12 Пользование_библиотекой2 ON PARENT UPDATE NO ACTION */

if

/* update(Читательский_номер) */

update(Читательский_номер)

begin

if exists (

select * from deleted,Пользование_библиотекой2

where

/* Пользование_библиотекой2.Читательский_номер = deleted.Читательский_номер */

Пользование_библиотекой2.Читательский_номер = deleted.Читательский_номер

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Студенты because Пользование_библиотекой2 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на удаление из таблицы «Экземпляр»

create trigger tD_Экземпляр on Экземпляр for DELETE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* DELETE trigger on Экземпляр */

begin

declare @errno int,

@errmsg varchar(255)

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/16 Пользование_библиотекой1 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой1

where

/* Пользование_библиотекой1.Шифр = deleted.Шифр */

Пользование_библиотекой1.Шифр = deleted.Шифр

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой1 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/13 Пользование_библиотекой2 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой2

where

/* Пользование_библиотекой2.Шифр = deleted.Шифр */

Пользование_библиотекой2.Шифр = deleted.Шифр

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой2 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/10 Пользование_библиотекой3 ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Пользование_библиотекой3

where

/* Пользование_библиотекой3.Шифр = deleted.Шифр */

Пользование_библиотекой3.Шифр = deleted.Шифр

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой3 exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Списали Списанные_книги ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Списанные_книги

where

/* Списанные_книги.Шифр = deleted.Шифр */

Списанные_книги.Шифр = deleted.Шифр

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Экземпляр because Списанные_книги exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Заменили Замена_экземпляров ON PARENT DELETE NO ACTION */

if exists (

select * from deleted,Замена_экземпляров

where

/* Замена_экземпляров.Шифр = deleted.Шифр */

Замена_экземпляров.Шифр = deleted.Шифр

)

begin

select @errno = 30001,

@errmsg = 'Cannot DELETE Экземпляр because Замена_экземпляров exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Книга зарегестрировали в Экземпляр ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Книга

where

/* deleted.ISBN = Книга.ISBN */

deleted.ISBN = Книга.ISBN and

not exists (

select * from Экземпляр

where

/* Экземпляр.ISBN = Книга.ISBN */

Экземпляр.ISBN = Книга.ISBN

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Экземпляр because Книга exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Отделы Экземпляр ON CHILD DELETE NO ACTION */

if exists (select * from deleted,Отделы

where

/* deleted.Номер_отдела = Отделы.Номер_отдела */

deleted.Номер_отдела = Отделы.Номер_отдела and

not exists (

select * from Экземпляр

where

/* Экземпляр.Номер_отдела = Отделы.Номер_отдела */

Экземпляр.Номер_отдела = Отделы.Номер_отдела

)

)

begin

select @errno = 30010,

@errmsg = 'Cannot DELETE last Экземпляр because Отделы exists.'

goto error

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

//Создание триггера на обновление таблицы «Экземпляр»

create trigger tU_Экземпляр on Экземпляр for UPDATE as

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* UPDATE trigger on Экземпляр */

begin

declare @numrows int,

@nullcnt int,

@validcnt int,

@insШифр varchar(20),

@errno int,

@errmsg varchar(255)

select @numrows = @@rowcount

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/16 Пользование_библиотекой1 ON PARENT UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

if exists (

select * from deleted,Пользование_библиотекой1

where

/* Пользование_библиотекой1.Шифр = deleted.Шифр */

Пользование_библиотекой1.Шифр = deleted.Шифр

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой1 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/13 Пользование_библиотекой2 ON PARENT UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

if exists (

select * from deleted,Пользование_библиотекой2

where

/* Пользование_библиотекой2.Шифр = deleted.Шифр */

Пользование_библиотекой2.Шифр = deleted.Шифр

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой2 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр R/10 Пользование_библиотекой3 ON PARENT UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

if exists (

select * from deleted,Пользование_библиотекой3

where

/* Пользование_библиотекой3.Шифр = deleted.Шифр */

Пользование_библиотекой3.Шифр = deleted.Шифр

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой3 exists.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 */

/* Экземпляр Списали Списанные_книги ON PARENT UPDATE NO ACTION */

if

/* update(Шифр) */

update(Шифр)

begin

if exists (

select * from deleted,Списанные_книги

where

/* Списанные_книги.Шифр = deleted.Шифр */

Списанные_книги.Шифр = deleted.Шифр

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Экземпляр because Списанные_книги exists.'

goto error

end

end

/* Экземпляр Заменили Замена_экземпляров ON PARENT UPDATE NO ACTION */

if /* update(Шифр) */

update(Шифр)

begin

if exists (

select * from deleted,Замена_экземпляров

where

/* Замена_экземпляров.Шифр = deleted.Шифр */

Замена_экземпляров.Шифр = deleted.Шифр

)

begin

select @errno = 30005,

@errmsg = 'Cannot UPDATE Экземпляр because Замена_экземпляров exists.'

goto error

end

end

if /* update(ISBN) */

update(ISBN)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Книга

where

/* inserted.ISBN = Книга.ISBN */

inserted.ISBN = Книга.ISBN

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Экземпляр because Книга does not exist.'

goto error

end

end

/* ERwin Builtin Tue May 29 17:12:41 2007 Отделы Экземпляр ON CHILD UPDATE NO ACTION */

if /* update(Номер_отдела) */

update(Номер_отдела)

begin

select @nullcnt = 0

select @validcnt = count(*)

from inserted,Отделы

where

/* inserted.Номер_отдела = Отделы.Номер_отдела */

inserted.Номер_отдела = Отделы.Номер_отдела

if @validcnt + @nullcnt != @numrows

begin

select @errno = 30007,

@errmsg = 'Cannot UPDATE Экземпляр because Отделы does not exist.'

goto error

end

end

return

error:

raiserror @errno @errmsg

rollback transaction

end

go

6. Результат тестирования информационной системы

Для нормальной работы системы необходимо 256 Мбайт оперативной памяти, Windows NT/2000/XP и выше, Access2000 и выше.

Результатом тестирования в данном случае может послужить создание отчета, содержащего информацию о работе библиотеке.

После тестирования получили результаты:

- Информационная система поддерживает многопользовательский режим.

- Тестирование запросов прошло успешно.

В данном курсовом проекте разработана база данных с тремя клиентскими приложениями, которая хранится на SQL сервере. Для каждого пользователя составлены запросы формы и отчеты. Формы составлены на основе запросов и таблиц, и используются для занесения и модификации информации в базе данных.

Отчеты составлены на основе запросов и используются для получения информации и оформления документации.

Заключение

Прогресс, достигнутый за последние несколько лет во всех аспектах вычислительной техники, включая теорию, технологию и приложения, привели к значительному расширению области применения компьютеров и росту числа их пользователей. Существенной частью современного общества являются разнообразные системы доступа и хранения информации, которые являются неотъемлемой составляющей современного научно-технического прогресса. Существует много веских причин перевода существующей информации на компьютерную основу, т.к. более быстрая обработка данных и централизация их хранения с использованием клиент/серверных технологий позволяют сберечь значительные средства, а главное и время для получения необходимой информации, а также упрощает доступ и ведение.

Современные СУБД - многопользовательские системы управления базой данных, которые специализируется на управлении массивом ин­формации одним или множеством одновременно работающих пользователей.

Во время выполнения курсовой работы было разработано многопользовательская информационная система «Университетская библиотека».

При создании ИС использовались СУБД Microsoft ACCESS 2000, средство моделирования баз данных All Fusion Data Modeler 4.1, средство моделирования бизнес-процессов All Fusion Process Modeler 4.1, сервер баз данных Microsoft SQL server 2000, язык баз данных T-SQL.

Функциональная модель ИС описывает три клиентских приложения. При разработке программного обеспечения использовались представления, хранимые процедуры с параметрами, триггеры, курсоры.

Все пункты курсового задания были выполнены, разработанная система выполняет поставленную перед ним задачу.

Список использованных литературных источников

1. Microsoft SQL Server 7 для профессионалов. – СПб.: Питер, 2000. – 896 с.

2. Алан Бьюли, Энди Оппель. Изучаем SQL. – М.:Символ, 2007. – 312 с.

3. Жилинский А. Самоучитель Microsoft SQL Server 2005. – СПб:BHV, 2004. – 224 с.

4. Кишори Бхамидипати. SQL. Справочник программиста.–М.:Эком, 2003. – 304 с.

5. Конспект лекций «Базы данных»

6. Литвин П., Гетц К.,Гунделой М. Разработка настольных приложений в Access 2002. Для профессионалов. – СПб.:Питер; К.: Издательская группа BHV, 2002. – 1008 с.

7. Литвин П., Гетц К.,Гунделой М. Разработка корпоративных приложений в Access 2002. Для профессионалов. – СПб.:Питер; Киев: BHV, 2002. – 1008 с.

8. Роберт Виейра. Программирование баз данных Microsoft SQL Server 2005. Базовый курс. – М.:Вильямс, 2003. – 848 с.

9. Уилтон П., Колби Дж. SQL для начинающих. – М.: Вильямс, 2006. – 496 с.

10. Фленов М. Transact SQL в подлиннике. – СПб:BHV, 2006. – 576 с.

11. Практическое руководство по SQL. – М.: Вильямс, 2002. – 352 с.

12. Моисеенко С. SQL. Задачи и решения. СПб.: Питер, 2006. – 256 с.