Arrow Name
|
Entity Name
|
Attribute
Name
|
Информация о
новых книгах
|
Книга
|
|
Информация о
сотрудниках
|
Преподаватели
|
Должность
|
|
|
Имя
|
|
|
Отчество
|
|
|
Фамилия
|
|
|
Читательский
номер
|
|
Сотрудники
библиотеки
|
дата рождения
|
|
|
должность
|
|
|
имя
|
|
|
номер отдела
|
|
|
Номер отдела
|
|
|
отчество
|
|
|
табельный номер
|
|
|
фамилия
|
Информация о
студентах
|
Студенты
|
год окончания
|
|
|
год поступления
|
|
|
Имя
|
|
|
номер приказа
|
|
|
Отчество
|
|
|
специальность
|
|
|
факультет
|
|
|
Фамилия
|
|
|
форма обучения
|
|
|
Читательский
номер
|
Информация о
фонде
|
Периодические
издания
|
Дата издания
|
|
|
Название
|
|
|
Номер отдела
|
|
|
Шифр периодики
|
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Картотека
периодических изданий
|
Периодические
издания
|
Дата издания
|
|
|
Название
|
|
|
Номер отдела
|
|
|
Шифр периодики
|
Новая
литература
|
Книга
|
ISBN
|
|
|
Автор
|
|
|
Год издания
|
|
|
Издательство
|
|
|
Кодичество
страниц
|
|
|
Название
|
|
|
Цена
|
Отчет о
выданных книгах
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Отчет о платных
услугах
|
Периодические
издания
|
Дата издания
|
|
|
Название
|
|
|
Номер отдела
|
|
|
Шифр периодики
|
|
Студенты
|
год окончания
|
|
|
год поступления
|
|
|
Имя
|
|
|
номер приказа
|
|
|
Отчество
|
|
|
специальность
|
|
|
факультет
|
|
|
Фамилия
|
|
|
форма обучения
|
|
|
Читательский
номер
|
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Отчет о
посещаемости
|
Преподаватели
|
Должность
|
|
|
Имя
|
|
|
Отчество
|
|
|
Фамилия
|
|
|
Читательский
номер
|
|
Студенты
|
год окончания
|
|
|
год поступления
|
|
|
Имя
|
|
|
номер приказа
|
|
|
Отчество
|
|
|
специальность
|
|
|
факультет
|
|
|
Фамилия
|
|
|
Читательский
номер
|
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Отчет о
проведении библиотечных мероприятий
|
Отделы
|
Название отдела
|
|
|
Номер отдела
|
|
|
табельный номер
начальника
|
|
|
фамилия
начальника отдела
|
|
|
Шифр периодики
|
Отчет об
изменениях книжного фонда
|
Замена
экземпляров
|
Номер акта
замены
|
|
|
Шифр
|
|
Списанные книги
|
номер протокола
списания
|
|
|
причина
списания
|
|
|
Табельный номер
списавшего
|
|
|
Шифр
|
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Результат
подбора литературы
|
Периодические
издания
|
Дата издания
|
|
|
Название
|
|
|
Номер отдела
|
|
|
Шифр периодики
|
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
Результат
поиска книг
|
Экземпляр
|
ISBN
|
|
|
Номер отдела
|
|
|
Отметка о
замене
|
|
|
Отметка о
списании
|
|
|
Предметная
область
|
|
|
Шифр
|
3. Реализация системы
.1
Миниспецификации процессов диаграмм нижнего уровня функциональной модели в
терминах псевдокода
Организовать работу абонемента
1. «Найти книги по списку»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= РЕЗУЛЬТАТ ПОИСКА
@СПЕЦПРОЦ А2.1.1 НАЙТИ КНИГИ ПО СПИСКУ
ВЫПОЛНИТЬ потребовать СПИСОК
ВЫПОЛНИТЬ проверить наличие КНИГ в ФОНДЕ
ЕСЛИ КНИГИ есть в НАЛИЧИИ ТО
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА =положительный
ИНАЧЕ
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА =отрицательный
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Выдать найденную литературу читателю»
@ВХОД= РЕЗУЛЬТАТ ПОИСКА
@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ
@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ
@ВЫХОД= СПИСОК ВЫДАННЫХ КНИГ
@СПЕЦПРОЦ А2.1.2 ВЫДАТЬ НАЙДЕННУЮ ЛИТЕРАТУРУ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ
ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ
ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА=положительный
ТО
ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ВЫДАЧе КНИГ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Прием литературы у читателя»
@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ
@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@СПЕЦПРОЦ А2.1.3 ПРИЕМ ЛИТЕРАТУРЫ У ЧИТАТЕЛЯ
ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ
ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ
ЕСЛИ ДАННЫЕ правильные И КНИГИ в наличии ТО
ВЫПОЛНИТЬ принять КНИГИ ЧИТАТЕЛЯ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ПРИЕМЕ КНИГ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
Организовать работу отдела периодики
. «Подобрать периодическое издание»
@ВХОД=ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ
@СПЕЦПРОЦ А 3.4 НАЙТИ ПЕРИОДИЧЕСКОЕ ИЗДАНИЕ
ВЫПОЛНИТЬ узнать тему
ВЫПОЛНИТЬ проверить наличие ПЕРИОДИЧЕСКИХ ИЗДАНИЙ ПО ТЕМЕ
в ФОНДЕ
ЕСЛИ ПЕРИОДИЧЕСКОЕ ИЗДАНИЕ есть в НАЛИЧИИ ТО
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ =положительный
ИНАЧЕ
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ =отрицательный
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Выдать читателю периодическое издание»
@ВХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ
@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ
@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ
@ВЫХОД= СПИСОК ВЫДАННОЙ ЛИТЕРАТУРЫ
@СПЕЦПРОЦ А3.3 ВЫДАТЬ НАЙДЕННУЮ ЛИТЕРАТУРУ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ
ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ
ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОДБОРА
ЛИТЕРАТУРЫ =положительный ТО
ВЫПОЛНИТЬ выдать ЛИТЕРАТУРУ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ВЫДАЧе ЛИТЕРАТУРЫ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
Организовать работу читального зала и
книгохранилища
. «Найти необходимую литературу»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= РЕЗУЛЬТАТ ПОИСКА КНИГ
@СПЕЦПРОЦ А2.2.2 НАЙТИ НЕОБХОДИМУЮ ЛИТЕРАТУРУ
ВЫПОЛНИТЬ узнать тему
ВЫПОЛНИТЬ проверить наличие КНИГ в ФОНДЕ
ЕСЛИ КНИГИ есть в НАЛИЧИИ ТО
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА КНИГ =положительный
ИНАЧЕ
ВЫПОЛНИТЬ присвоить РЕЗУЛЬТАТ ПОИСКА КНИГ =отрицательный
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Выдать книги читателю»
@ВХОД= РЕЗУЛЬТАТ ПОДБОРА ЛИТЕРАТУРЫ
@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ
@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@ВЫХОД= ОТЧЕТ О ВЫДАННЫХ КНИГАХ
@ВЫХОД= ОТЧЕТ О ПЛАТНЫХ УСЛУГАХ
@СПЕЦПРОЦ А2.2.1 ВЫДАТЬ КНИГИ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ потребовать ЧИТАТЕЛЬСКИЙ БИЛЕТ
ВЫПОЛНИТЬ проверить данные ЧИТАТЕЛЯ
ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА
КНИГ =положительный КНИГИ ВЫДАЮТСЯ НА ВРЕМЯ ТО
ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ИНАЧЕ
ЕСЛИ ДАННЫЕ правильные И РЕЗУЛЬТАТ ПОИСКА
КНИГ =положительный КНИГИ ВЫДАЮТСЯ ПЛАТНО ТО
ВЫПОЛНИТЬ выдать КНИГИ ЧИТАТЕЛЮ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ВЫПОЛНИТЬ принять оплату
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ВЫДАЧе ЛИТЕРАТУРЫ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Принять книги»
@ВХОД= ИНФОРМАЦИЯ О СОТРУДНИКАХ
@ВХОД= ИНФОРМАЦИЯ О СТУДЕНТАХ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@ВЫХОД= ОТЧЕТ О ПЛАТНЫХ УСЛУГАХ
@СПЕЦПРОЦ А2.2.3 ПРИНЯТЬ КНИГИ
ВЫПОЛНИТЬ проверить КНИГИ
ЕСЛИ КНИГИ в наличии ТО
ВЫПОЛНИТЬ принять КНИГИ ЧИТАТЕЛЯ
ВЫПОЛНИТЬ отдать ЧИТАТЕЛЬСКИЙ БИЛЕТ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТЫ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ПРИЕМЕ КНИГ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
Организовать работу отдела комплектования
9. «Списать книги»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА
@СПЕЦПРОЦ А1.3.1 СПИСАТЬ КНИГИ
ВЫПОЛНИТЬ проверить КНИГИ
ЕСЛИ КНИГИ устарели ТО
ВЫПОЛНИТЬ составить акт СПИСАНИЯ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в СПИСАНИИ КНИГИ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
. «Заменить книгу»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА
@СПЕЦПРОЦ А1.3.3 ЗАМЕНИТЬ КНИГИ
ВЫПОЛНИТЬ проверить КНИГИ
ЕСЛИ ЗАМЕНА равноценная ТО
ВЫПОЛНИТЬ составить акт ЗАМЕНЫ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ
ИНАЧЕ
ВЫПОЛНИТЬ отказать в ЗАМЕНЕ КНИГИ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
«Обработать новую книгу»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= ОТЧЕТ О ИЗМЕНЕНИИ КНИЖНОГО ФОНДА
@СПЕЦПРОЦ А1.3.2 ОБРАБОТАТЬ НОВУЮ КНИГУ
ВЫПОЛНИТЬ получить КНИГУ
ВЫПОЛНИТЬ присвоить КНИГЕ шифр
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ О КНИГЕ в каталоги
ВЫПОЛНИТЬ отправить КНИГУ в отдел
@КОНЕЦ СПЕЦПРОЦ
«Организовать работу справочно-библиографического отдела»
. «Составить картотеку периодических изданий»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВЫХОД= КАРТОТЕКА ПЕРИОДИЧЕСКИХ ИЗДАНИЙ
@СПЕЦПРОЦ А4.4 СОСТАВИТЬ КАРТОТЕКУ ПЕРИОДИЧЕСКИХ ИЗДАНИЙ
ВЫПОЛНИТЬ получить ИНФОРМАЦИЮ О ПЕРИОДИЧЕСКИХ
ИЗДАНИЯХ
ВЫПОЛНИТЬ получить шифры ПЕРИОДИЧЕСКИХ ИЗДАНИЙ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ О ПЕРИОДИЧЕСКИХ
ИЗДАНЯХ в каталоги
@КОНЕЦ СПЕЦПРОЦ
13. «Найти литературу в каталоге»
@ВХОД= ИНФОРМАЦИЯ О ФОНДЕ
@ВХОД= КАРТОТЕКА ПЕРИОДИЧЕСКИХ ИЗДАНИЙ
@ВЫХОД= ОТЧЕТ О ПОСЕЩАЕМОСТИ
@СПЕЦПРОЦ А4.НАЙТИ ЛИТЕРАТУРУ В КАТАЛОГЕ
ВЫПОЛНИТЬ получить информацию о ЛИТЕРАТУРЕ
ЕСЛИ ИНФОРМАЦИЯ правильная ТО
ВЫПОЛНИТЬ выдать ИНФОРМАЦИЮ об месте хранения ЛИТЕРАТУРЫ
ВЫПОЛНИТЬ занести ИНФОРМАЦИЮ в ОТЧЕТ
ИНАЧЕ
ВЫПОЛНИТЬ отказать а выдаче ИНФОРМАЦИИР об месте
хранения ЛИТЕРАТУРЫ
КОНЕЦЕСЛИ
@КОНЕЦ СПЕЦПРОЦ
3.2
T-SQL-определения регламентированных запросов
1. Вывод ограниченной информации о студентах с
фамилией, оканчивающейся на «ов».
CREATE VIEW infoStudent /*Указываем
имя представления*/SELECT /*Указываем, какие поля будут
выведены*/
Студенты. Имя, Студенты. Фамилия, Студенты.факультет,
Студенты.специальность
FROM Студенты /*Из какой
таблицы*/
WHERE Студенты. Фамилия LIKE ‘[] ов’
. Информация о замене экземпляров по
программированию на С++.
CREATE VIEW infoZamena
AS /*Указываем, какие поля, из
каких таблиц будут выведены*/
Книга. Автор, Книга. Название, Экземпляр. Шифр,
Замена_экземпляров. Номер_акта_замены /*Указываем таблицу, и
связанные с ней при помощи оператора INNER JOIN таблицы, из которых
выбираются связанные данные. После операнда ON указываем, по каким
полям связаны две таблицы*/
(Книга INNER JOIN Экземпляр ON Книга.ISBN
=Экземпляр.ISBN)JOIN Замена_экземпляров ON Экземпляр. Шифр =
Замена_экземпляров. ШифрКнига. Название LIKE ' % C++' /*Выбираются
только те книги, в
названии которых присутствует «C++» */
. Информация о списанных экземплярах по
программированию на Delphi.
CREATE VIEW infoCpicanie /*Указываем,
какие поля, из каких таблиц будут выведены*/
Книга. Автор, Книга. Название, Экземпляр. Шифр,
Списанные_книги. причина_списания, Списанные_книги. номер_протокола_списания,
Списанные_книги. Табельный_номер_списавшего /*Указываем
таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/
Книга INNER JOIN (Экземпляр INNER JOIN Списанные_книги ON
Экземпляр. Шифр = Списанные_книги. Шифр) ON Книга.ISBN = Экземпляр.ISBNКнига.
Название LIKE ' % Delphi' /*Выбираются только
те книги, в названии которых присутствует «Delphi */
4. Информация о преподавателях и их заказах на
литературу, количество книг должно быть от 10 до 20 или от 25 до 30.
CREATE VIEW infoZakazi /*Объявляем имя
представления*/
AS /*Указываем, какие поля таблиц
будут выведены*/
Преподаватели. Фамилия, Преподаватели. Имя, Преподаватели.
Отчество, Книга. Автор, Книга. Название, Заказы. Количество /*Указываем
таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/
Книга INNER JOIN (Преподаватели INNER JOIN Заказы ON
Преподаватели. Читательский_номер = Заказы. Читательский_номер)Книга.ISBN =
Заказы.ISBN
WHERE (Заказы. Количество BETWEEN 10 AND 20) OR (Заказы. Количество BETWEEN 25 AND 30) /*
10<количество заказов<20 или 25<количество
заказов<30 */
. Информация о книгах, которыми пользуется студент,
и табельный номер сотрудника отдела обслуживания выдавшего книги. Номер отдела
обслуживания 11.
CREATE VIEW infoOPolzovaniiStudentov /*Указываем,
какие поля таблиц будут выведены*/
Студенты. Имя, Студенты. Фамилия, Книга. Автор, Книга.
Название, Сотрудники_библиотеки. табельный_номер /*Указываем
таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/
(((Книга 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 /*Указываем,
какие поля таблиц будут выведены*/
Преподаватели. Имя, Преподаватели. Фамилия, Книга. Автор,
Книга. Название, Сотрудники_библиотеки. табельный_номер/*Указываем таблицу,
и связанные с ней таблицы, из которых выбираются связанные данные.*/
(((Книга 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 /*Указываем какие поля будут выбраны*/
Отделы.номер_отдела, Отделы.название_отдела,
Сотрудники_библиотеки. фамилия,
Сотрудники_библиотеки. имя, Сотрудники_библиотеки. отчество/*Указываем
таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/
Отделы INNER JOIN Сотрудники_библиотеки ON Отделы.
Номер_отдела = Сотрудники_библиотеки. Номер_отдела
GROUP BY номер. отдела /*По какому полю
будут сгруппированы поля*/
WHERE Отделы.номер_отдела BETWEEN 10 AND 13 /*Выбираются
отделы, номер которых находится между 10 и 13*/
8. Информация о месте хранения периодических
изданий название которых содержит в себе слово «вестник», но при этом д.б.
исключены периодические издания, первое слово которых начинается на «Э»,
например «Экономический вестник».
CREATE VIEW INFOPeriodika /*Указываем какие
поля будут выбраны*/
Периодические_издания. Название, Периодические_издания.
Дата_издания, Отделы. Название_отдела, Отделы. Номер_отдела /*Указываем
таблицу, и связанные с ней таблицы, из которых выбираются связанные данные.*/
Отделы INNER JOIN Периодические_издания ON Отделы.
Номер_отдела = Периодические_издания. Номер_отдела
WHERE Периодические_издания. Название LIKE '[^Э]%вестник % '
/*[^Э] запрещает начинаться первому слову на «Э»,
% вестник% - указывает на то, что оставшаяся часть названия должна содержать
слово «вестник»*/
9. Полная информация об экземпляре, который был
издан с 2000 до текущего года
CREATE VIEW FullInfoEkzemplar /*Указываем
какие поля будут выбраны*/
Экземпляр.шифр, Книга. Автор, Книга. Название, Книга.
Год_издания, Книга. Издательство, Экземпляр. Предметная_область, Экземпляр.
Номер_отдела, Экземпляр. Отметка_о_списании, Экземпляр. Отметка_о_замене
/*Указываем таблицу, и связанные с ней таблицы, из которых выбираются
связанные данные.*/
Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN
WHERE Книга. Год_издания BETWEEN 2000 AND YEAR (GETDATE())
/*GETDATE() возвращает текущую
дату, YEAR (<дата>) - год <даты>*/
10. Информация о наличии книги в библиотеке
CREATE VIEW InfoAboutBook /*Указываем
какие поля будут выбраны*/
Книга.ISBN, Экземпляр. Шифр, Экземпляр. Номер_отдела,
Пользование_библиотекой2. Дата_выдачи, Пользование_библиотекой2.
Дата_приема /*Указываем таблицу, и связанные с ней таблицы,
из которых выбираются связанные данные.*/
(Книга INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN)
INNER JOIN
Пользование_библиотекой2 ON Экземпляр. Шифр =
Пользование_библиотекой2. Шифр
WHERE Пользование_библиотекой2. Дата_приема BETWEEN
Пользование_библиотекой2. Дата_выдачи AND GETDATE() /*Если
книгу сдали, т.е. она в наличии в библиотеке, то дата приема будет между датой
выдачи и текущей датой*/
11. Информация о месте хранения книги.
CREATE VIEW BooksКнига. Автор, Книга. Название,
Книга. Год_издания, Книга. Количество_страницКнига
12. Информация о ценах на книги.
CREATE VIEW CenaКнига. Автор, Книга. Название, Книга. Цена
FROM Книга
13. Информация о сотрудниках.
CREATE VIEW Sotrudnik
ASСотрудники_библиотеки. имя,
Сотрудники_библиотеки. фамилия,
Сотрудники_библиотеки. отчество, Сотрудники_библиотеки.
дата_рождения, Сотрудники_библиотеки. должность
FROM Сотрудники_библиотеки
14. Информация о пользовании библиотекой
студентами.
CREATE VIEW infoOPolzovaniiStudentovСтуденты. Имя, Студенты. Фамилия,
Книга. Автор, Книга. Название, Сотрудники_библиотеки. табельный_номер(((Книга
INNER JOIN Экземпляр ON Книга.ISBN = Экземпляр.ISBN) INNER JOIN
Пользование_библиотекой2 ON Экземпляр. Шифр =
Пользование_библиотекой2. Шифр) INNER JOIN
Студенты ON Пользование_библиотекой2. Читательский_номер =
Студенты. Читательский_номер) INNER JOIN
Сотрудники_библиотеки ON Пользование_библиотекой2.
Табельный_номер = Сотрудники_библиотеки. табельный_номерСотрудники_библиотеки.
табельный_номер LIKE '11 []'
15. Информация о пользовании библиотекой её
сотрудниками.
CREATE VIEW InfoOPolzovaniiCotrydnikovСотрудники_библиотеки.
имя, Сотрудники_библиотеки. фамилия, Книга. Автор, Книга.
НазваниеСотрудники_библиотеки INNER JOIN ((Книга INNER JOIN Экземпляр ON
Книга.ISBN = Экземпляр.ISBN)JOIN Пользование_библиотекой1 ON Экземпляр. Шифр =
Пользование_библиотекой1. Шифр)Сотрудники_библиотеки. табельный_номер =
Пользование_библиотекой1.табельный_номер
3.3
T-SQL-определения триггеров
1. Триггер, который будет запрещать удаление
записей таблицы «Пользование библиотекой», если текущий пользователь не
владелец базы данных и если поле «дата выдачи» содержит какое-либо значение.
CREATE TRIGGER udalenie /*Обьявляем
имя триггера*/
ON Пользование_библиотекой2 /*Указываем имя
таблицы, с которой будет связан триггер*/
FOR DELETE /*Указываем операцию, на кот. будет срабатывать
триггер (здесь на удаление)*/
AS
IF (SELECT count(*) /*проверяет
записи из таблицы «Пользование библиотекой»*/Пользование_библиотекой2
where Пользование_библиотекой2.дата_выдачи is not null)>0 /*условие
проверяет наличие записи в поле «дата выдачи». Если count возвращает значение
отличное от нуля (означает, что запись есть) то первое условие IF не выполнено*/
AND (CURRENT_USER <> 'dbo') /*вызывается функция
определения имени текущего пользователя и проверяется, владелец ли он*/
BEGIN «у вас нет прав на удаление этой записи» /*выдача
сообщения о неудаче операции*/
ROLLBACK TRANSACTION /*откат
(отмена) транзакции*/
END
2. Проверяет правильность номера отдела.
Существует лишь 5 отделов, которым присваиваются номера от 10 до 14
включительно.
CREATE TRIGGER dobavlenieОтделыINSERT
DECLARE @@f int /*Объявляем
переменную*/
Set @@f=10 /*Присваиваем
ей значение*/
IF NOT EXISTS (SELECT * FROM Отделы, inserted Отделы. Номер_отдела = inserted. Номер_отдела)@@f=0EXISTS
(SELECT * FROM Отделы, insertedinserted. Номер_отдела>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 DELETEINTO DeletedItem
(Читательский_номер, имя, отчество, /*указываем, какие
поля нужно вставить*/
фамилия, должность, Имя_пользователя,
Дата_удаления)Читательский_номер, имя, отчество, фамилия, должность,
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 (Табельный_номер,
/*указываем, какие поля нужно вставить*/
фамилия, имя, отчество, Дата_рождения, должность,
Имя_пользователя, Дата_добавления)Табельный_номер, фамилия, имя, отчество,
Дата_рождения, должность,_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 (Читательский_номер, /*указываем,
какие поля нужно вставить*/
фамилия, Имя_пользователя,
Дата_добавления)Читательский_номер, фамилия, /*указываем
откуда*/_USER, /*функция определяет
текущего пользователя*/
getdate() /*функция
возвращает текущую дату*/
FROM updated /*updated - временная
таблица, куда заносятся данные*/
6. Триггер запрещает изменять в таблице
«Пользование_библиотекой2» запись полей «дата_приема» и «дата выдачи» в
воскресенье.
ALTER TRIGGER proverka ON Пользование_библиотекой2 UPDATE
AS
IF UPDATE (дата_приема)
/*Проверяет, какое поле обновляется*/
AND datename (dw, GETDATE()) in ('Sunday') /*Проверяет, является ли день
воскресеньем*/
BEGIN'В воскресение нельзя принимать книги'TRANSACTION
IF UPDATE (дата_выдачи)
/*Проверяет, какое поле обновляется*/
AND datename (dw, GETDATE()) in ('Sunday') /*Проверяет, является ли день
воскресеньем*/
BEGIN'В воскресение нельзя принимать книги'TRANSACTION
/* 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 Сотрудники_библиотеки /*Связываем
с таблицей*/
FOR DELETE
AS
INSERT INTO DeletedSotrudLibrary /*Указываем
таблицу, куда будет производиться запись*/
(Табельный_номер, имя, фамилия, отчество, дата_рождения, /*Пречисляем
поля таблицы*/должность, номер_отдела, Имя_пользователя, Дата_удаления)
SELECT /*Причисляем
вносимые значения*/
Табельный_номер, имя, фамилия, отчество, дата_рождения,
должность, номер_отдела,_USER, getdate() 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ПреподавателиINSERTINTO
InsertedItemPrepdavateli
(Читательский_номер, имя, отчество, фамилия, должность,
Имя_пользователя, Дата_удаления)Читательский_номер, имя, отчество, фамилия,
должность,_USER, getdate()inserted
9. Триггер, запрещающий ввод значения в поле
«год_поступления», если оно превышает номер текущего года.
CREATE TRIGGER proverka_Studentov ON Студенты FOR INSERT
DECLARE @@t int /*Объявляем
переменную*/@@t=5 /*Присваиваем
ей значение*/
IF NOT EXISTS (SELECT * FROM Студенты, inserted
WHERE Студенты.год_поступления = inserted.год_поступления)
Set @@t=0EXISTS (SELECT * FROM Студенты, inserted inserted.год_поступления>YEAR (GETDATE())) /*Проверяем,
больше ли значения вводимого года, чем у текущего*/
Set @@t=0 /*Если да, то меняем
значение переменной*/@@t=0 /*если f=0,
значит были ошибки*/
BEGIN«Неверно введен год поступления» /*выдача
сообщения о неудаче операции*/
ROLLBACK TRANSACTION /*откат (отмена)
транзакции*/
END
10. Триггер, запрещающий обновление значения в
поле «год_отчисления», если оно превышает номер текущего года.
CREATE TRIGGER proverka_otchislenia_StudentovСтудентыUPDATE@@t int
/*Объявляем переменную*/
Set @@t=5 /*Присваиваем
ей значение*/
IF NOT EXISTS (SELECT * FROM Студенты, inserted
WHERE Студенты.год_окончания = inserted.год_окончания)
Set @@t=0EXISTS (SELECT * FROM Студенты, inserted inserted.год_окончания>YEAR (GETDATE())) /*Проверяем,
больше ли значения вводимого года, чем у текущего*/
Set @@t=0 /*Меняем значение
переменной*/@@t=0 /*если f=0, значит были
ошибки*/«Неверно введен год отчисления» /*выдача сообщения о неудаче
операции*/TRANSACTION /*откат (отмена) транзакции*/
3.4 T-SQL-определения хранимых
процедур
. Список выдач книг за текущий день.
CREATE PROCEDURE CpicokVidach/*Перечисляем поля,
которые будут выведены в результате запроса */
Пользование_библиотекой2. Табельный_номер, COUNT
(Пользование_библиотекой2. Дата_выдачи) /*указываем имя таблицы из которых
выбираются записи*/
Пользование_библиотекой2/*задаем условие отбора*/
Пользование_библиотекой2. Дата_выдачи=(SELECT GETDATE())BY /*производится
группировка по указанному полю*/
Табельный_номер
/*SELECT GETDATE() позволяет получить текущую
дату (год, месяц, число)(<поле>) возвращает количество записей
какого-либо поля*/
2. Количество экземпляров какой-либо книги.
CREATE PROCEDURE KolExzemplarov
/*Объявляем необходимые переменные*/
@ISBN varchar(20)
AS
/* Следующая конструкция проверяет, существуют ли
записи в таблице «Книги» с заданным ISBN*/
IF not EXISTS (SELECT * FROM Книга WHERE ISBN =
@ISBN) 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) /*Оператор
удаления*/
FROM Студенты /*Имя таблицы, откуда нужно
удалить*/
WHERE /*Условие удаления - удаляем строку, для которой
значение поля Читательский_номер совпадает с нужным*/
Читательский_номер=@Chit_nom
5. Вставка в таблицу «Заказы». Разрешена, если в
таблицах «Книга» и «Преподаватели» есть записи, на которые будет ссылаться новая
запись.
PROCEDURE NewZakaz
@Kolvo int, /*Объявляем
необходимые переменные*/
@data_zakaza datetime,
@Chit_nomer int,
@ISBN varchar(20) /*Проверяем, есть ли запись в
таблице «Заказы» с такими же значениями ключевых полей, как у новой записи*/
IF EXISTS (SELECT * FROM Заказы WHERE ISBN =
@ISBN AND Читательский_номер=@Chit_nomer) 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 /*полю
фамилия присваиваем новое значение*/Читательский_номер = @Chit_nom /*если
читательский номер записи равен искомому*/
7. Вставка в таблицу «Пользование библиотекой2».
Разрешается, если есть в таблицах «Студенты», «Сотрудники_библиотеки» и
«Экземпляр» соответствующие записи.
ALTER PROCEDURE NewPolzovanieStydentov
@Chit_nomer int, /*Объявляем необходимые
переменные*/
@data_vidachi datetime,
@data_priema datetime,
@tab_nomer int,
@Shifr varchar(20)
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) /* записи в
таблице «Сотрудники_библиотеки»*/
/*если условия выполняются, добавляем*/
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) /*записи
с таким же значением поля номер_отдела*/ /*если
условие выполняется, добавляем*/
INTO Сотрудники_библиотеки /*в
таблицу новые значения*/
VALUES (@Tab_nom,@Fam, @Name, @Sec_name,
@data_rogd, @Dolgn, @Nom_otd)
9. Сколько существует должностей в библиотеке.
CREATE PROCEDURE KolDolgnSELECT COUNT (DISTINCT Сотрудники_библиотеки. должность) Сотрудники_библиотеки /*COUNT (DISTINCT <поле>)
подсчитывает количество разноименных значений какого-либо поля в таблице*/
10. Обновление таблицы «Отделы». Изменился
начальник отдела.
ALTER PROCEDURE UpdateOtdel
@Nom_otdela int,
@Fam_New_Nach_otd varchar(20),
@Tab_Nom_New_Nach_otd int 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 /*меняем значение поля
«табельный номер начальника отдела» на новое*/Номер_отдела =
@Nom_otdela /*меняем только для записи, у которой
значение «номер_отдела» равно искомому*/
11. Вставка в таблицу «Списание экземпляров»
CREATE PROCEDURE NewCpicanExzemplar
@Prichina varchar(20),
@Nom_act int,
@tab_nomer int,
@Shifr varchar(20)EXISTS (SELECT * FROM Списанные_книги WHERE Шифр =
@Shifr)0EXISTS (SELECT * FROM Экземпляр WHERE Шифр = @Shifr)EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE табельный_номер = @tab_nomer) 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)EXISTS (SELECT * FROM
Пользование_библиотекой1 WHERE Шифр = @Shifr AND
Табельный_номер=@Tab_nomer)0EXISTS (SELECT * FROM Экземпляр WHERE Шифр =
@Shifr)EXISTS (SELECT * FROM Сотрудники_библиотеки WHERE табельный_номер =
@tab_nomer) 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)EXISTS (SELECT * FROM Экземпляр WHERE Шифр =
@Shifr)0EXISTS (SELECT * FROM Отделы WHERE Номер_отдела = @Nom_otd) AND EXISTS (SELECT * FROM Книга WHERE ISBN =
@ISBN)INTO Экземпляр VALUES
(@ISBN, @otm_o_cpicanii, @otm_o_zamene, @predmet, @Nom_otd, @Shifr)
14. Обновление таблицы «Сотрудники_библиотеки»
CREATE PROCEDURE UpdateCotpyd
@Tab_nom int,
@Fam varchar(20)EXISTS (SELECT * FROM
Сотрудники_библиотеки WHERE табельный_номер = @Tab_nom)Сотрудники_библиотеки SET фамилия=@Fam табельный_номер = @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 intEXISTS (SELECT * FROM Сотрудники_библиотеки WHERE Табельный_номер =
@Tab_nom)0EXISTS (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 CURSORSCROLL KEYSET
TYPE_WARNING /*Сервер будет информировать
пользователя о неявном изменении типа курсора, если он несовместим с запросом
SELECT*/
FOR /*Что будет показано в курсоре*/
Преподаватели. Фамилия, Преподаватели. Имя, Преподаватели.
Отчество, Книга. Автор, Книга. Название, Заказы. Количество, Книга. ЦенаКнига
INNER JOIN (Преподаватели INNER JOIN Заказы ON Преподаватели. Читательский_номер
= Заказы. Читательский_номер)
ON Книга.ISBN = Заказы.ISBN
FOR UPDATE /*Курсор для обновления*/
open global curs2
@@Fam varchar(20),
@@Name varchar(20),
@@Sec_name varchar(20),
@@Autor varchar(20),
@@Nazv varchar(20),
@@Kolvo int,
@@Cena int,
@@Counter int,
@@Var1 int@@Counter = 1 @@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 curs2curs2
3. Удаление преподавателя.
DECLARE curs5 CURSORSCROLL KEYSET SELECT Преподаватели.читательский_номер,
Преподаватели. Имя, Преподаватели. Отчество, Преподаватели.
Фамилия, Преподаватели.должность
FROM Преподаватели
FOR UPDATE
open curs5
@@Chit_nom int,
@@Name varchar(20),
@@Sec_name varchar(20),
@@Fam varchar(20),
@@Dolgn varchar(20),
@@Counter int@@Counter = 0@@COUNTER<
@@CURSOR_ROWScurs5@@Chit_nom=NULL@@Name=NULL@@Sec_name=NULL@@Fam=NULL@@Dolgn=NULLCURRENT
OF curs5@@Counter =@@Counter +1curs5
3. Пользование студентов
DECLARE curs1 CURSORSCROLL KEYSET TYPE_WARNING
SELECT
Студенты. Читательский_номер, Студенты. Имя, Студенты.
Фамилия, Студенты. Отчество, Студенты.год_поступления,
Студенты.год_окончания, Студенты.факультет,
Студенты.специальность, Студенты.форма_обучения, Студенты.номер_приказа
FROM СтудентыREAD ONLYglobal curs1
@@Counter int@@Counter
=@@CURSOR_ROWS@@Countercurs1curs1
5. Информация о студентах и их количестве
DECLARE curs1 CURSORSCROLL KEYSET TYPE_WARNING
FOR
Студенты. Читательский_номер, Студенты. Имя, Студенты. Фамилия,
Студенты. Отчество, Студенты.год_поступления,
Студенты.год_окончания, Студенты.факультет,
Студенты.специальность, Студенты.форма_обучения, Студенты.номер_приказа
FROM СтудентыREAD ONLYglobal curs1
@@Counter int@@Counter
=@@CURSOR_ROWS@@Countercurs1curs1
3.6 Описание клиентских приложений
При разработке клиентского приложения были созданы следующие
формы.
При запуске приложения появляется форма «Регистрация» (рис.
13). на форме присутствует кнопк «Вход», нажатие на которую открывает другие
формы. Код кнопки:Sub Вход_Click()stDocName
As StringstLinkCriteria As String(Группа26. Value = 1 And Поле9. Value = «Директор») Then.
OpenForm «Директор»
Поле9. Value = «»(Группа26. Value = 2 And Поле9. Value = «Библиотекарь») Then.
OpenForm «Выбор»
Поле9. Value = «»(Группа26. Value = 3) Then. OpenForm «Поиск»
Поле9. Value = «»
Else: MsgBox «Неправильный пароль»IfSub
Рисунок 13 - Форма «Регистрация»
Для пользователя «Директор», открывается одноименная форма -
рисунок 14. На ней присутствуют следующие кнопки: «Работа с сотрудниками
библиотеки», «Информация о посетителях библиотеки», «Отчеты о работе
библиотеки».
Рисунок 14 - Форма «Директор»
После нажатия на кнопку «Работа с сотрудниками библиотеки»
появится форма «Работа с сотрудниками библиотеки» - рисунок 15. На форме
присуетсвуют кнопки «Уволить сотрудника», «Информация о сотруднике», «Принять
на работу сотрудника».
При нажатии кнопки «Уволить сотрудника», будет уволен
выбранный сотрудник. Код обработки нажатия кнопки:
Private Sub Кнопка5_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As
Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком³.SetFocus= ПолеСоСписком³.Text= «DELETE FROM dbo_Сотрудники_библиотеки WHERE табельный_номер=» + strdate.
QueryDefs. Delete («my»)qdf = dbs. CreateQueryDef («my», strSQL)dbs = Nothing
При нажатии кнопки «Информация о сотруднике» - будет показан
отчет, содеожащий информацию о библиотекаре. Код обработки нажатия кнопки:
Private Sub Кнопка6_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As
Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком³.SetFocus= ПолеСоСписком³.Text = «SELECT dbo_Сотрудники_библиотеки. табельный_номер, dbo_Сотрудники_библиотеки.
имя, dbo_Сотрудники_библиотеки. фамилия, dbo_Сотрудники_библиотеки.
отчество, dbo_Сотрудники_библиотеки. дата_рождения, dbo_Сотрудники_библиотеки.
должность, dbo_Сотрудники_библиотеки. Номер_отдела FROM dbo_Сотрудники_библиотеки WHERE табельный_номер=» + strdate
DoCmd. OpenReport «my1», acPreview
Если нажать на кнопку «Принять на работу сотрудника», то
откроется форма «dbo_Cотрудники_библиотеки»,
на которой необходимо будет внести информацию о новом сотруднике.
Если же на форме «Директор» нажать кнопку «Информация о
посетителях библиотеки, то появится форма «Посетители» - рисунок 17, а если
кнопку «Отчеты о работе библиотеки», то форма «Информация» - рисунок 18.
На форме «Посетители» располагается кнопка «Получить
информацию». Она предназначена для вызова хранимой процедуры, которая формирует
отчет, содержащий информацию о студентах или преподавателях. Код обработки
нажатия кнопки:
Private Sub Кнопка11_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As
Stringstrdat As Integer, strdate As Stringdbs = CurrentDbГруппа0. Value = 1
Then
ПолеСоСписком16. SetFocus= ПолеСоСписком16. Text= «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. OpenReport «999», acPreviewIfГруппа0. Value = 2
Then ПолеСоСписком18. SetFocus= ПолеСоСписком18. Text=
«SELECT dbo_Преподаватели. Читательский_номер,
dbo_Преподаватели. Имя, dbo_Преподаватели. Отчество, dbo_Преподаватели.
Фамилия, dbo_Преподаватели. Должность FROM dbo_Преподаватели WHERE
dbo_Преподаватели. Читательский_номер=» + strdate
dbs. QueryDefs. Delete («333»)
Set qdf = dbs. CreateQueryDef («333», strSQL)
Set dbs = Nothing. OpenReport «333», acPreview
End If
End Sub
Если пользователь зарегистрировался как «Библиотекарь», то
после формы «Регистрация» следующей появится форма «Выбор».
При нажатии на кнопку «Работа с фондом» появится форма
«Фонд», на которой также после нажатия на соответствующую кнопку появятся
следующие пользовательские формы:
«dbo_Книга» при нажатии на кнопку «Обработка новых книг»;
«Экземпляр» при нажатии на кнопку «Обработка новых
экземпляров»;
«Списанные_книги» при нажатии на кнопку «Списание книги»;
«Замена_экземпляров» при нажатии на кнопку «Замена книг»;
На форме «dbo_Книга» присутствуют кнопки с изображением
стрелок, которые служат для добавления новых записей в таблицу «Книга», а также
кнопка «Добавить новый экземпляр», которая открывает форму «Экземпляр».
На форме «Экземпляр» расположены кнопки с изображением
стрелок, которые служат для добавления новых записей в таблицу «Экземпляр»,
кнопка «Добавить новую книгу» для перехода на форму «dbo_Книга», и кнопка
«Информация об экземплярах книг», нажатие на которую выводит список книг
библиотеки.
На форме «dbo_списанные_книги» располагается кнопка с
изображением стрелки, которая вызывает процедуру добавления записей в таблицу
«Списанные книги», и кнопка «Информация о списанных книгах». Она предназначена
для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о
книгах списанных по протоколу списания, номер которого вводится в поле рядом с
кнопкой. Код обработки нажатия кнопки «Информация о списанных книгах»:
Private Sub Кнопка13_Click()
Dim stDocName As Stringdbs As Database, qdf As
QueryDef, strSQL As Stringstrdat As Integerstrdate As Stringdbs = CurrentDb
Поле23. SetFocus= Поле23. Text= «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 («списание»)qdf = dbs.
CreateQueryDef («списание», strSQL). OpenReport «списание», acPreview dbs = Nothing
End Sub
На форме «Замена_экземпляров» располагается кнопка с
изображением стрелки, которая вызывает процедуру добавления записей в таблицу
«Замена_экземпляров», и кнопка «Просмотр». Она предназначена для вызова
хранимой процедуры, которая формирует отчет, содержащий информацию о книгах,
которые заменили по акту замены. Номер акта замены вводится в поле рядом с
кнопкой. Код обработки нажатия кнопки «Просмотр»:
Private Sub Просмотр _Click()stDocName As Stringdbs As
Database, qdf As QueryDef, strSQL As Stringstrdat As Integerstrdate As
Stringdbs = CurrentDb
Поле13. SetFocus= Поле13. Text= «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»)qdf = dbs.
CreateQueryDef («замена3», strSQL). OpenReport «замена3», acPreview dbs = NothingSub
Если на форма «Выбор» была нажата кнопка «Работа с
посетителями», то появится следующей форма «Работа с посетителями».
После нажатия на соответствующую кнопку на форме «Работа с
посетителями» появятся следующие пользовательские формы:
«Студенты» при нажатии на «Записать читателя в бибилитеку»;
«dbo_Пользование_библиотекой2» при нажатии на «Выдать книги»;
«Принять книги» при нажатии на «Принять книги».
«dbo_Платные услуги» при нажатии на «Платные услуги».
На форме «Студенты» располагается кнопка с изображением
стрелки, которая вызывает стандартную процедуру добавления записей в таблицу
«Студенты».
На форме «dbo_Пользование_библиотекой2» располагается кнопка с
изображением стрелки, которая вызывает стандартную процедуру добавления записей
в таблицу «dbo_Пользование_библиотекой2».
На форме «Принять книги» располагается кнопка с изображением
стрелки, которая вызывает стандартную процедуру добавления записей в таблицу «dbo_Пользование_библиотекой2».
На форме «dbo_Платные_услуги» располагается кнопка с
изображением стрелки, которая вызывает процедуру добавления записей в таблицу
«Платные_услуги», и две кнопки «Показать отчет». Они предназначена для вызова
хранимой процедуры, которая формирует отчет, содержащий информацию о платных
услугах библиотеки, которые были оказаны в отчетном месяце или году. Номер акта
замены вводится в поле рядом с кнопкой. Код обработки нажатия кнопки
«Показать_отчет» (за год):
Private Sub Кнопка53_Click()stDocName As Stringdbs As
Database, qdf As QueryDef, strSQL As Stringstrdat As Integer, strdate As
Stringdbs = CurrentDb
Поле29. SetFocus= Поле29. Text
'strdate = «» + strdat + «"»= «SELECT dbo_Платные_услуги. табельный_номер, dbo_Платные_услуги. Сумма, dbo_Платные_услуги.
читательский_номер, dbo_Платные_услуги. Дата_услуги FROM dbo_Платные_услуги WHERE Year (dbo_Платные_услуги.
Дата_услуги)=» + strdate. QueryDefs. Delete («услуги»)qdf = dbs. CreateQueryDef («услуги», strSQL)
DoCmd. OpenReport «услуги», acPreview
Set dbs = NothingSub
За месяц:Sub Кнопка27_Click()stDocName
As Stringdbs As Database, qdf As QueryDef, strSQL As Stringstrdat As
Integerstrdate As Stringdbs = CurrentDb
ПолеСоСписком²5. SetFocus= ПолеСоСписком²5. Text
strSQL = «SELECT dbo_Платные_услуги.
табельный_номер, dbo_Платные_услуги. Сумма, dbo_Платные_услуги. читательский_номер, dbo_Платные_услуги.
Дата_услуги FROM dbo_Платные_услуги WHERE Month (dbo_Платные_услуги. Дата_услуги)=» + strdate
dbs. QueryDefs. Delete («услуги»)
Set qdf = dbs. CreateQueryDef («услуги», strSQL)
DoCmd. OpenReport «услуги», acPreviewdbs = Nothing
End Sub
Форма «Поиск» является общей для пользователя «Библиотекарь»
и «Посетитель» и появляется соответственно либо при нажатии на форме «Выбор»
кнопки «Поиск литературы» либо при входе пользователя с формы «Регтстрация».
Если на ней выбрать кнопку «Поиск книг», то появится форма «Форма_поиска»
(рисунок 32), а если кнопку - «Поиск перидических изданий», то форма «Поиск
периодики» (рисунок 33).
На форме «Форма_поиска» располагается кнопка «Список книг»,
нажатие на которую показывает отчет, содержащий список всех книг библиотеки», и
кнопка «Найти». Она предназначена для вызова хранимой процедуры, которая
формирует отчет, содержащий информацию о книгах, которые удовлетворяют
критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия
кнопки «Найти»:
Private Sub Кнопка13_Click()
Dim stDocName As Stringdbs As Database, qdf As
QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком11. SetFocus= ПолеСоСписком11. Text= «'» + strdat +
«'»= «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. QueryDefs. Delete
(«поиск книги»)qdf = dbs. CreateQueryDef («поиск книги», strSQL)
DoCmd. OpenReport «поиск книги», acPreviewdbs = Nothing
End Sub
На форме «Поиск периодики» располагается кнопка «Список
периодических изданий», нажатие на которую показывает отчет, содержащий список
всех периодических изданий библиотеки», и кнопки «Найти».
Кнопка «Найти» в разделе «Поиск изданий» предназначена для
вызова хранимой процедуры, которая формирует отчет, содержащий информацию о
периодических изданиях, которые удовлетворяют критериям поиска. Критерий поиска
задается пользователем. Код обработки нажатия кнопки «Найти»:
Private Sub Кнопка10_Click()
Dim stDocName As Stringdbs As Database, qdf As
QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком8. SetFocus= ПолеСоСписком8. Text= «'» + strdat +
«'»= «SELECT dbo_Периодические_издания. Шифр_периодики, dbo_Периодические_издания.
Название, dbo_Периодические_издания. Дата_издания, dbo_Периодические_издания.
Номер_отдела FROM dbo_Периодические_издания WHERE (dbo_Периодические_издания. Шифр_периодики)=» + strdate
dbs. QueryDefs. Delete («шифр поиск период»)
Set qdf = dbs. CreateQueryDef («шифр поиск период», strSQL)
DoCmd. OpenReport «шифр поиск период», acPreview
Set dbs = NothingSub
Кнопка «Найти» в разделе «Поиск статей» предназначена для
вызова хранимой процедуры, которая формирует отчет, содержащий информацию о
статьях, которые удовлетворяют критериям поиска. Критерий поиска задается
пользователем. Код обработки нажатия кнопки «Найти»:
Private Sub Кнопка29_Click()
Dim stDocName As Stringdbs As Database, qdf As
QueryDef, strSQL As Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком²1. SetFocus= ПолеСоСписком²1. Text= «'» + strdat + «'»= 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) = «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 = NothingSub
Кнопка «Найти» в разделе «Поиск по ключевым» предназначена
для вызова хранимой процедуры, формирующей отчет о статьях, которые содержат
указанные ключевые слова. Код обработки нажатия кнопки «Найти»:
Private Sub Кнопка38_Click()
Dim stDocName As String
Dim dbs As Database, qdf As QueryDef, strSQL As
Stringstrdat As Stringstrdate As Stringdbs = CurrentDb
ПолеСоСписком²5. SetFocus= ПолеСоСписком²5. TextПереключатель36. Value = True Then= strdat +», %'»= «SELECT
dbo_Периодические_издания. Шифр_периодики, dbo_Периодические_издания.
Название, dbo_Периодические_издания. Дата_издания, dbo_Статьи. Номер_статьи, dbo_Статьи. Название, dbo_Статьи. Тема, dbo_Статьи.
Предметная_область FROM dbo_Статьи INNER JOIN dbo_Периодические_издания ON dbo_Статьи. Шифр_периодики =
dbo_Периодические_издания.
Шифр_периодики WHERE dbo_Статьи. Тема LIKE '%» + strdate.
QueryDefs. Delete («Статьи»)qdf = dbs. CreateQueryDef («Статьи», strSQL). OpenReport «Статьи»,
acPreviewdbs = Nothing= strdat + «%'»
strSQL = «SELECT dbo_Периодические_издания. Шифр_периодики,
dbo_Периодические_издания. Название, dbo_Периодические_издания. Дата_издания,
dbo_Статьи. Номер_статьи, dbo_Статьи. Название, dbo_Статьи. Тема, dbo_Статьи.
Предметная_область FROM dbo_Статьи INNER JOIN dbo_Периодические_издания ON
dbo_Статьи. Шифр_периодики = dbo_Периодические_издания. Шифр_периодики WHERE
dbo_Статьи. Тема LIKE '%» + strdate. QueryDefs. Delete («Статьи»)qdf = dbs.
CreateQueryDef («Статьи», strSQL). OpenReport «Статьи», acPreviewdbs = NothingIf_Кнопка38_Click:
End Sub
Последняя форма «dbo_Заказы» появляется при нажатии кнопки «Заказ
литературы» на форме «Выбор». Кнопка с изображением стрелки на форме «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. Прокомментированный скрипт создания базы
данных
TABLE Заказы // Создание таблицы «Заказы»
(
Количество int NULL,
Дата_заказа datetime NULL,
Читательский_номер int NOT NULL,
ISBN varchar(20) NOT NULL
)TABLE Заказы // Изменение таблицы «Заказы»
ADD PRIMARY KEY (Читательский_номер, ISBN)
goTABLE Замена_экземпляров (
Номер_акта_замены int NULL,
Шифр varchar(20) NOT NULL
)
go
ALTER TABLE Замена_экземпляров // Изменение таблицы
«Замена_экземпляров»
ADD PRIMARY KEY (Шифр)TABLE Книга ( // Создание таблицы «Книга»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 (Номер_отдела)
goTABLE Периодические_издания ( // Создание таблицы
«Периодические_издания»
Шифр_периодики varchar(20) NOT NULL,
Название varchar(20) NULL,
Дата_издания datetime NULL,
Номер_отдела int NULL
)TABLE Периодические_издания // Изменение таблицы
«Периодические_издания»
ADD PRIMARY KEY (Шифр_периодики)
go
TABLE Пользование_библиотекой1 ( // Создание таблицы
«Пользование_библиотекой1»
табельный_номер int NOT NULL,
Дата_выдачи datetime NULL,
Дата_приема char(18) NULL,
Шифр varchar(20) NOT NULL
)
go
ALTER TABLE Пользование_библиотекой1 // Изменение таблицы
«Пользование_библиотекой1»PRIMARY KEY (табельный_номер, Шифр)TABLE
Пользование_библиотекой2 ( // Создание таблицы «Пользование_библиотекой2»
Читательский_номер int NOT NULL,
Дата_выдачи datetime NULL,
Дата_приема datetime NULL,
Табельный_номер int NULL,
Шифр varchar(20) NOT NULL
)
go
ALTER TABLE Пользование_библиотекой2 // Изменение таблицы
«Пользование_библиотекой2»
ADD PRIMARY KEY (Читательский_номер, Шифр)TABLE
Пользование_библиотекой3 ( // Создание таблицы «Пользование_библиотекой3»
Читательский_номер int NOT NULL,
Дата_выдачи datetime NULL,
Дата_приема datetime NULL,
Табельный_номер int NULL,
Шифр varchar(20) NOT NULL
)
go
ALTER TABLE Пользование_библиотекой3 // Изменение таблицы
«Пользование_библиотекой3
ADD PRIMARY KEY (Читательский_номер, Шифр)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 (табельный_номер) 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 Студенты / /Изменение таблицы
«Студенты»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)КнигаDELETE NO
ACTIONUPDATE NO ACTION
ALTER TABLE Заказы // Изменение таблицы «Заказы»
ADD FOREIGN KEY (Читательский_номер)
REFERENCES ПреподавателиDELETE NO ACTIONUPDATE NO
ACTION
TABLE Замена_экземпляров
// Изменение таблицы «Замена_экземпляров»
ADD FOREIGN KEY (Шифр)
REFERENCES ЭкземплярDELETE NO ACTIONUPDATE NO
ACTION
TABLE Периодические_издания
// Изменение таблицы «Периодические_издания»
ADD FOREIGN KEY (Номер_отдела)
REFERENCES Отделы
go
ALTER TABLE Пользование_библиотекой1
// Изменение таблицы «Пользование_библиотекой1»
ADD FOREIGN KEY (Шифр)
REFERENCES ЭкземплярDELETE NO ACTIONUPDATE NO
ACTION
TABLE Пользование_библиотекой1
// Изменение таблицы «Пользование_библиотекой1»FOREIGN KEY
(табельный_номер)
REFERENCES Сотрудники_библиотекиDELETE NO
ACTIONUPDATE NO ACTIONTABLE Пользование_библиотекой2
// Изменение таблицы «Пользование_библиотекой2»
ADD FOREIGN KEY (Шифр)
REFERENCES ЭкземплярDELETE NO ACTIONUPDATE NO
ACTIONTABLE Пользование_библиотекой2
// Изменение таблицы «Пользование_библиотекой2»FOREIGN KEY
(Читательский_номер)
REFERENCES СтудентыDELETE NO ACTIONUPDATE NO ACTION
TABLE Пользование_библиотекой3
// Изменение таблицы «Пользование_библиотекой3»FOREIGN KEY
(Читательский_номер)
REFERENCES ПреподавателиDELETE NO ACTIONUPDATE NO
ACTIONTABLE Пользование_библиотекой3
// Изменение таблицы «Пользование_библиотекой3»
ADD FOREIGN KEY (Шифр)
REFERENCES ЭкземплярDELETE NO ACTIONUPDATE NO
ACTIONTABLE Сотрудники_библиотеки
// Изменение таблицы «Сотрудники_библиотеки»
ADD FOREIGN KEY (Номер_отдела)
REFERENCES ОтделыDELETE NO ACTIONUPDATE NO ACTIONTABLE Списанные_книги
// Изменение таблицы «Списанные_книги»
ADD FOREIGN KEY (Шифр)
REFERENCES ЭкземплярDELETE NO ACTIONUPDATE NO
ACTIONTABLE Экземпляр
// Изменение таблицы «Экземпляр»FOREIGN KEY (ISBN)КнигаDELETE NO
ACTIONUPDATE NO ACTION
TABLE Экземпляр
// Изменение таблицы «Экземпляр»
ADD FOREIGN KEY (Номер_отдела)
REFERENCES ОтделыDELETE NO ACTIONUPDATE NO ACTIONtrigger
tD_Заказы on Заказы for DELETE as
// Создание триггера на удаление из таблицы «Заказы»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Заказы */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга Заказы ON CHILD DELETE NO ACTION */exists (select *
from deleted, Книга
/* deleted.ISBN = Книга.ISBN */.ISBN = Книга.ISBN
andexists (* from Заказы
/* Заказы.ISBN = Книга.ISBN */
Заказы.ISBN = Книга.ISBN
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Заказы because Книга exists.' error
end
// Создание триггера на удаление из таблицы «Преподаватели»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели Делают Заказы ON CHILD
DELETE NO ACTION */exists (select * from deleted, Преподаватели
where
/* deleted. Читательский_номер = Преподаватели.
Читательский_номер */. Читательский_номер = Преподаватели. Читательский_номер and
not exists (
select * from Заказы
/* Заказы. Читательский_номер = Преподаватели.
Читательский_номер */
Заказы. Читательский_номер = Преподаватели.
Читательский_номер
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Заказы because Преподаватели exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
trigger tU_Заказы on Заказы for UPDATE as
// Создание триггера на обновление таблицы «Заказы»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Заказы */
declare @numrows int, // объявление переменных
@nullcnt int,
@validcnt int,
@insЧитательский_номер int,
@insISBN varchar(20),
@errno int,
@errmsg varchar(255)
@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга Заказы ON CHILD UPDATE NO ACTION */
/* update(ISBN) */(ISBN)@nullcnt = 0@validcnt =
count(*)inserted, Книга
/* inserted.ISBN = Книга.ISBN */.ISBN = Книга.ISBN
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Заказы because Книга does not
exist.' error
end
end
// Создание триггера на обновление таблицы «Преподаватели»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели Делают Заказы ON CHILD
UPDATE NO ACTION */
/* update (Читательский_номер) */(Читательский_номер)
begin@nullcnt = 0@validcnt = count(*)inserted, Преподаватели
/* inserted. Читательский_номер = Преподаватели.
Читательский_номер */. Читательский_номер = Преподаватели. Читательский_номер
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Заказы because Преподаватели does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы
«Замена_экземпляров»
create trigger tD_Замена_экземпляров on Замена_экземпляров for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Замена_экземпляров */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Заменили Замена_экземпляров ON CHILD DELETE NO ACTION */exists (select *
from deleted, Экземпляр
/* deleted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр andexists ( * from Замена_экземпляров
where
/* Замена_экземпляров. Шифр = Экземпляр. Шифр */
Замена_экземпляров. Шифр = Экземпляр. Шифр
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Замена_экземпляров because Экземпляр exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы
«Замена_экземпляров»
create trigger tU_Замена_экземпляров on Замена_экземпляров for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Замена_экземпляров */@numrows
int,
@nullcnt int,
@validcnt int,
@insШифр varchar(20),
@errno int,
@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Заменили Замена_экземпляров ON CHILD UPDATE NO ACTION */
/* update(Шифр) */(Шифр)@nullcnt = 0@validcnt = count(*)inserted,
Экземпляр
/* inserted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр
/* */
@validcnt + @nullcnt!= @numrows@errno = 30007,
@errmsg = 'Cannot UPDATE Замена_экземпляров because Экземпляр does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление таблицы «Книга»
create trigger tD_Книга on Книга for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Книга */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга зарегестрировали в Экземпляр ON PARENT
DELETE NO ACTION */exists (* from deleted, Экземпляр
/* Экземпляр.ISBN = deleted.ISBN */
Экземпляр.ISBN = deleted.ISBN
)@errno = 30001,
@errmsg = 'Cannot DELETE Книга because Экземпляр exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга Заказы ON PARENT DELETE NO ACTION */exists (* from
deleted, Заказы
/* Заказы.ISBN = deleted.ISBN */
Заказы.ISBN = deleted.ISBN
)@errno = 30001,
@errmsg = 'Cannot DELETE Книга because Заказы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы «Книга»
create trigger tU_Книга on Книга for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Книга */@numrows
int,
@nullcnt int,
@validcnt int,
@insISBN varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга зарегестрировали в Экземпляр ON PARENT
UPDATE NO ACTION */
/* update(ISBN) */(ISBN)exists (* from deleted, Экземпляр
/* Экземпляр.ISBN = deleted.ISBN */
Экземпляр.ISBN = deleted.ISBN
)@errno = 30005,
@errmsg = 'Cannot UPDATE Книга because Экземпляр exists.' error
end
end
// Создание триггера на обновление таблицы «Заказы»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга Заказы ON PARENT UPDATE NO ACTION */
/* update(ISBN) */(ISBN)exists (* from deleted, Заказы
/* Заказы.ISBN = deleted.ISBN */
Заказы.ISBN = deleted.ISBN
)@errno = 30005,
@errmsg = 'Cannot UPDATE Книга because Заказы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Отделы»
create trigger tD_Отделы on Отделы for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Отделы */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы находятся в
Периодические_издания ON PARENT
DELETE SET NULL */ Периодические_издания
/* Периодические_издания. Номер_отдела = NULL */
Периодические_издания. Номер_отдела =
NULLПериодические_издания, deleted
/* Периодические_издания. Номер_отдела = deleted.
Номер_отдела */
Периодические_издания. Номер_отдела = deleted. Номер_отдела
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Экземпляр ON PARENT DELETE NO ACTION */exists (* from
deleted, Экземпляр
where
/* Экземпляр. Номер_отдела = deleted. Номер_отдела */
Экземпляр. Номер_отдела = deleted. Номер_отдела
)@errno = 30001,
@errmsg = 'Cannot DELETE Отделы because Экземпляр exists.' error
end
// Создание триггера на удаление из таблицы
«Сотрудники_библиотеки»
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Сотрудники_библиотеки ON PARENT DELETE NO ACTION */exists (* from
deleted, Сотрудники_библиотеки
where
/* Сотрудники_библиотеки. Номер_отдела = deleted.
Номер_отдела */
Сотрудники_библиотеки. Номер_отдела = deleted. Номер_отдела
)@errno = 30001,
@errmsg = 'Cannot DELETE Отделы because Сотрудники_библиотеки exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Отделы»
create trigger tU_Отделы on Отделы for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Отделы */@numrows
int,
@nullcnt int,
@validcnt int,
@insНомер_отдела int,
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы находятся в Периодические_издания ON PARENT UPDATE SET NULL */
if
/* update (Номер_отдела)
*/(Номер_отдела)Периодические_издания
/* Периодические_издания. Номер_отдела = NULL */
Периодические_издания. Номер_отдела =
NULLПериодические_издания, deleted
/* Периодические_издания. Номер_отдела = deleted.
Номер_отдела */
Периодические_издания. Номер_отдела = deleted. Номер_отдела
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Экземпляр ON PARENT UPDATE NO ACTION */
if
/* update (Номер_отдела) */(Номер_отдела)
beginexists (* from deleted, Экземпляр
where
/* Экземпляр. Номер_отдела = deleted. Номер_отдела */
Экземпляр. Номер_отдела = deleted. Номер_отдела
)@errno = 30005,
@errmsg = 'Cannot UPDATE Отделы because Экземпляр exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Сотрудники_библиотеки ON PARENT UPDATE NO ACTION */
if
/* update (Номер_отдела) */(Номер_отдела)
beginexists (* from deleted, Сотрудники_библиотеки
where
/* Сотрудники_библиотеки. Номер_отдела = deleted.
Номер_отдела */
Сотрудники_библиотеки. Номер_отдела = deleted. Номер_отдела
)@errno = 30005,
@errmsg = 'Cannot UPDATE Отделы because Сотрудники_библиотеки exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на вставку в таблицу
«Периодические_издания»
create trigger tI_Периодические_издания on Периодические_издания for INSERT as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* INSERT trigger on Периодические_издания */@numrows
int,
@nullcnt int,
@validcnt int,
@errno int,
@errmsg varchar(255)
@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы находятся в Периодические_издания ON CHILD INSERT
SET NULL */
/* update (Номер_отдела)
*/(Номер_отдела)Периодические_издания
/* Периодические_издания. Номер_отдела = NULL */
Периодические_издания. Номер_отдела =
NULLПериодические_издания, inserted
/* Периодические_издания. Шифр_периодики = inserted.
Шифр_периодики */
Периодические_издания. Шифр_периодики = inserted. Шифр_периодики andexists (*
from Отделы
/* inserted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела
)
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы «Периодические_издания»
create trigger tU_Периодические_издания on Периодические_издания for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Периодические_издания */@numrows
int,
@nullcnt int,
@validcnt int,
@insШифр_периодики varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы находятся в
Периодические_издания ON CHILD
UPDATE SET NULL */
if
/* update (Номер_отдела)
*/(Номер_отдела)Периодические_издания
/* Периодические_издания. Номер_отдела = NULL */
Периодические_издания. Номер_отдела =
NULLПериодические_издания, inserted
/* Периодические_издания. Шифр_периодики = inserted.
Шифр_периодики */
Периодические_издания. Шифр_периодики = inserted. Шифр_периодики andexists (*
from Отделы
/* inserted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела
)
/* ERwin Builtin Tue May 29 17:12:41 2007 */:@errno
@errmsgtransaction
go
// Создание триггера на на удаление из таблицы
«Пользование_библиотекой1»
create trigger tD_Пользование_библиотекой1
on Пользование_библиотекой1
for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Пользование_библиотекой1 */@errno
int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/16 Пользование_библиотекой1 ON CHILD
DELETE NO ACTION */exists (select * from deleted, Экземпляр
/* deleted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр andexists (
select * from Пользование_библиотекой1
/* Пользование_библиотекой1. Шифр = Экземпляр. Шифр */
Пользование_библиотекой1. Шифр = Экземпляр. Шифр
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой1 because Экземпляр exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON
CHILD DELETE NO ACTION */
if exists (select * from deleted, Сотрудники_библиотеки
where
/* deleted.табельный_номер = Сотрудники_библиотеки.
табельный_номер */.табельный_номер = Сотрудники_библиотеки. табельный_номер and
not exists (* from Пользование_библиотекой1
where
/* Пользование_библиотекой1.табельный_номер =
Сотрудники_библиотеки. табельный_номер */
Пользование_библиотекой1.табельный_номер =
Сотрудники_библиотеки. табельный_номер
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой1
because Сотрудники_библиотеки exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы
«Пользование_библиотекой1»
create trigger tU_Пользование_библиотекой1
on Пользование_библиотекой1
for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Пользование_библиотекой1 */@numrows
int,
@nullcnt int,
@validcnt int,
@insтабельный_номер int,
@insШифр varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/16 Пользование_библиотекой1 ON CHILD
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)@nullcnt = 0@validcnt = count(*)inserted,
Экземпляр
/* inserted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой1 because Экземпляр does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON
CHILD UPDATE NO ACTION */
/* update (табельный_номер) */(табельный_номер)
begin@nullcnt = 0@validcnt = count(*)
from inserted, Сотрудники_библиотеки
/* inserted.табельный_номер = Сотрудники_библиотеки.
табельный_номер */.табельный_номер = Сотрудники_библиотеки. табельный_номер
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой1 because Сотрудники_библиотеки does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на на удаление из таблицы
«Пользование_библиотекой2»
create trigger tD_Пользование_библиотекой2
on Пользование_библиотекой2
for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Пользование_библиотекой2 */@errno
int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/13 Пользование_библиотекой2 ON CHILD
DELETE NO ACTION */exists (select * from deleted, Экземпляр
/* deleted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр andexists (
select * from Пользование_библиотекой2
/* Пользование_библиотекой2. Шифр = Экземпляр. Шифр */
Пользование_библиотекой2. Шифр = Экземпляр. Шифр
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой2 because Экземпляр exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Студенты R/12 Пользование_библиотекой2 ON CHILD
DELETE NO ACTION */exists (select * from deleted, Студенты
where
/* deleted. Читательский_номер = Студенты. Читательский_номер
*/. Читательский_номер = Студенты. Читательский_номер and
not exists (
select * from Пользование_библиотекой2
/* Пользование_библиотекой2. Читательский_номер = Студенты.
Читательский_номер */
Пользование_библиотекой2. Читательский_номер = Студенты.
Читательский_номер
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой2 because Студенты exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы
«Пользование_библиотекой1»
create trigger tU_Пользование_библиотекой2
on Пользование_библиотекой2
for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Пользование_библиотекой2 */@numrows
int,
@nullcnt int,
@validcnt int,
@insЧитательский_номер int,
@insШифр varchar(20),
@errno int,
@errmsg varchar(255)
@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/13 Пользование_библиотекой2 ON CHILD
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)@nullcnt = 0@validcnt = count(*)inserted,
Экземпляр
/* inserted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой2 because Экземпляр does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Студенты R/12 Пользование_библиотекой2 ON CHILD
UPDATE NO ACTION */
/* update (Читательский_номер) */(Читательский_номер)
begin@nullcnt = 0@validcnt = count(*)inserted, Студенты
/* inserted. Читательский_номер = Студенты. Читательский_номер
*/. Читательский_номер = Студенты. Читательский_номер
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой2 because Студенты does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы
«Пользование_библиотекой3»
create trigger tD_Пользование_библиотекой3
on Пользование_библиотекой3
for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Пользование_библиотекой3 */@errno
int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели R/11 Пользование_библиотекой3 ON CHILD
DELETE NO ACTION */exists (select * from deleted, Преподаватели
where
/* deleted. Читательский_номер = Преподаватели.
Читательский_номер */. Читательский_номер = Преподаватели. Читательский_номер and
not exists (
select * from Пользование_библиотекой3
/* Пользование_библиотекой3. Читательский_номер =
Преподаватели. Читательский_номер */
Пользование_библиотекой3. Читательский_номер = Преподаватели.
Читательский_номер
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой3 because Преподаватели exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/10 Пользование_библиотекой3 ON CHILD
DELETE NO ACTION */exists (select * from deleted, Экземпляр
/* deleted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр andexists (
select * from Пользование_библиотекой3
/* Пользование_библиотекой3. Шифр = Экземпляр. Шифр */
Пользование_библиотекой3. Шифр = Экземпляр. Шифр
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Пользование_библиотекой3 because Экземпляр exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы
«Пользование_библиотекой3»
create trigger tU_Пользование_библиотекой3
on Пользование_библиотекой3
for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Пользование_библиотекой3 */@numrows
int,
@nullcnt int,
@validcnt int,
@insЧитательский_номер int,
@insШифр varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели R/11 Пользование_библиотекой3 ON CHILD
UPDATE NO ACTION */
if
/* update (Читательский_номер) */(Читательский_номер)
begin@nullcnt = 0@validcnt = count(*)inserted, Преподаватели
/* inserted. Читательский_номер = Преподаватели.
Читательский_номер */. Читательский_номер = Преподаватели. Читательский_номер
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой3 because Преподаватели does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/10 Пользование_библиотекой3 ON CHILD
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)@nullcnt = 0@validcnt = count(*)inserted,
Экземпляр
/* inserted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Пользование_библиотекой3 because Экземпляр does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Преподаватели»
create trigger tD_Преподаватели on Преподаватели for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Преподаватели */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели R/11 Пользование_библиотекой3 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой3
where
Пользование_библиотекой3. Читательский_номер = deleted.
Читательский_номер
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Преподаватели because Пользование_библиотекой3
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели Делают Заказы ON PARENT
DELETE NO ACTION */exists (* from deleted, Заказы
where
/* Заказы. Читательский_номер = deleted. Читательский_номер
*/
Заказы. Читательский_номер = deleted. Читательский_номер
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Преподаватели because Заказы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы «Преподаватели»
create trigger tU_Преподаватели on Преподаватели for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Преподаватели */@numrows
int,
@nullcnt int,
@validcnt int,
@insЧитательский_номер int,
@errno int,
@errmsg varchar(255)
@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели R/11 Пользование_библиотекой3 ON PARENT
UPDATE NO ACTION */
if
/* update (Читательский_номер) */(Читательский_номер)
beginexists (* from deleted, Пользование_библиотекой3
where
/* Пользование_библиотекой3. Читательский_номер = deleted.
Читательский_номер */
Пользование_библиотекой3. Читательский_номер = deleted.
Читательский_номер
)@errno = 30005,
@errmsg = 'Cannot UPDATE Преподаватели because
Пользование_библиотекой3 exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Преподаватели Делают Заказы ON PARENT
UPDATE NO ACTION */
/* update (Читательский_номер) */(Читательский_номер)
beginexists (* from deleted, Заказы
where
/* Заказы. Читательский_номер = deleted. Читательский_номер
*/
Заказы. Читательский_номер = deleted. Читательский_номер
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Преподаватели because Заказы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы
«Сотрудники_библиотеки»
create trigger tD_Сотрудники_библиотеки on Сотрудники_библиотеки for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Сотрудники_библиотеки */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой1
where
/* Пользование_библиотекой1.табельный_номер =
deleted.табельный_номер */
Пользование_библиотекой1.табельный_номер = deleted.табельный_номер
)@errno = 30001,
@errmsg = 'Cannot DELETE Сотрудники_библиотеки because
Пользование_библиотекой1 exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Сотрудники_библиотеки ON CHILD DELETE NO ACTION */exists (select *
from deleted, Отделы
where
/* deleted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела andexists ( * from Сотрудники_библиотеки
/* Сотрудники_библиотеки. Номер_отдела = Отделы. Номер_отдела
*/
Сотрудники_библиотеки. Номер_отдела = Отделы. Номер_отдела
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Сотрудники_библиотеки because Отделы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы
«Сотрудники_библиотеки»
create trigger tU_Сотрудники_библиотеки on Сотрудники_библиотеки for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Сотрудники_библиотеки */@numrows
int,
@nullcnt int,
@validcnt int,
@insтабельный_номер int,
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Сотрудники_библиотеки R/15 Пользование_библиотекой1 ON PARENT
UPDATE NO ACTION */
if
/* update (табельный_номер) */(табельный_номер)
beginexists (* from deleted, Пользование_библиотекой1
where
/* Пользование_библиотекой1.табельный_номер =
deleted.табельный_номер */
Пользование_библиотекой1.табельный_номер =
deleted.табельный_номер
)@errno = 30005,
@errmsg = 'Cannot UPDATE Сотрудники_библиотеки because
Пользование_библиотекой1 exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Сотрудники_библиотеки ON CHILD UPDATE NO ACTION */
/* update (Номер_отдела) */(Номер_отдела)
begin@nullcnt = 0@validcnt = count(*)inserted, Отделы
/* inserted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Сотрудники_библиотеки because Отделы does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Списанные_книги»
create trigger tD_Списанные_книги on Списанные_книги for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Списанные_книги */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Списали Списанные_книги ON CHILD
DELETE NO ACTION */exists (select * from deleted, Экземпляр
/* deleted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр andexists (
select * from Списанные_книги
/* Списанные_книги. Шифр = Экземпляр. Шифр */
Списанные_книги. Шифр = Экземпляр. Шифр
)
)
begin
select @errno = 30010,
@errmsg = 'Cannot DELETE last Списанные_книги because Экземпляр exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера обновление таблицы «Списанные_книги»
create trigger tU_Списанные_книги on Списанные_книги for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Списанные_книги */@numrows
int,
@nullcnt int,
@validcnt int,
@insШифр varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Списали Списанные_книги ON CHILD UPDATE NO ACTION */
if
/* update(Шифр) */(Шифр)@nullcnt = 0@validcnt = count(*)inserted,
Экземпляр
/* inserted. Шифр = Экземпляр. Шифр */. Шифр = Экземпляр. Шифр
/* */@validcnt + @nullcnt!= @numrows@errno =
30007,
@errmsg = 'Cannot UPDATE Списанные_книги because Экземпляр does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Студенты»
create trigger tD_Студенты on Студенты for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Студенты */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Студенты R/12 Пользование_библиотекой2 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой2
where
/* Пользование_библиотекой2. Читательский_номер = deleted.
Читательский_номер */
Пользование_библиотекой2. Читательский_номер = deleted.
Читательский_номер
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Студенты because Пользование_библиотекой2
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы «Студенты»
create trigger tU_Студенты on Студенты for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Студенты */@numrows
int,
@nullcnt int,
@validcnt int,
@insЧитательский_номер int,
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Студенты R/12 Пользование_библиотекой2 ON PARENT
UPDATE NO ACTION */
/* update (Читательский_номер) */(Читательский_номер)
beginexists (* from deleted, Пользование_библиотекой2
where
/* Пользование_библиотекой2. Читательский_номер = deleted.
Читательский_номер */
Пользование_библиотекой2. Читательский_номер = deleted.
Читательский_номер
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Студенты because Пользование_библиотекой2
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на удаление из таблицы «Экземпляр»
create trigger tD_Экземпляр on Экземпляр for DELETE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* DELETE trigger on Экземпляр */@errno int,
@errmsg varchar(255)
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/16 Пользование_библиотекой1 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой1
where
/* Пользование_библиотекой1. Шифр = deleted. Шифр */
Пользование_библиотекой1. Шифр = deleted. Шифр
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой1 exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/13 Пользование_библиотекой2 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой2
where
/* Пользование_библиотекой2. Шифр = deleted. Шифр */
Пользование_библиотекой2. Шифр = deleted. Шифр
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой2
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/10 Пользование_библиотекой3 ON PARENT
DELETE NO ACTION */exists (* from deleted, Пользование_библиотекой3
where
/* Пользование_библиотекой3. Шифр = deleted. Шифр */
Пользование_библиотекой3. Шифр = deleted. Шифр
)
begin
select @errno = 30001,
@errmsg = 'Cannot DELETE Экземпляр because Пользование_библиотекой3
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Списали Списанные_книги ON PARENT
DELETE NO ACTION */exists (* from deleted, Списанные_книги
/* Списанные_книги. Шифр = deleted. Шифр */
Списанные_книги. Шифр = deleted. Шифр
)@errno = 30001,
@errmsg = 'Cannot DELETE Экземпляр because Списанные_книги exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Заменили Замена_экземпляров ON PARENT DELETE NO ACTION */exists (* from
deleted, Замена_экземпляров
/* Замена_экземпляров. Шифр = deleted. Шифр */
Замена_экземпляров. Шифр = deleted. Шифр
)@errno = 30001,
@errmsg = 'Cannot DELETE Экземпляр because Замена_экземпляров exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Книга зарегестрировали в Экземпляр ON CHILD
DELETE NO ACTION */exists (select * from deleted, Книга
/* deleted.ISBN = Книга.ISBN */.ISBN = Книга.ISBN
andexists (* from Экземпляр
/* Экземпляр.ISBN = Книга.ISBN */
Экземпляр.ISBN = Книга.ISBN
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Экземпляр because Книга exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Отделы Экземпляр ON CHILD DELETE NO ACTION */exists (select *
from deleted, Отделы
where
/* deleted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела andexists (* from Экземпляр
/* Экземпляр. Номер_отдела = Отделы.
Номер_отдела */
Экземпляр. Номер_отдела = Отделы. Номер_отдела
)
)@errno = 30010,
@errmsg = 'Cannot DELETE last Экземпляр because Отделы exists.'error
/* ERwin Builtin Tue May 29 17:12:41 2007
*/:@errno @errmsgtransaction
go
// Создание триггера на обновление таблицы «Экземпляр»
create trigger tU_Экземпляр on Экземпляр for UPDATE as
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* UPDATE trigger on Экземпляр */@numrows
int,
@nullcnt int,
@validcnt int,
@insШифр varchar(20),
@errno int,
@errmsg varchar(255)@numrows = @@rowcount
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/16 Пользование_библиотекой1 ON PARENT
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)exists (* from deleted, Пользование_библиотекой1
where
/* Пользование_библиотекой1. Шифр = deleted. Шифр */
Пользование_библиотекой1. Шифр = deleted. Шифр
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой1
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/13 Пользование_библиотекой2 ON PARENT
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)exists (* from deleted, Пользование_библиотекой2
where
/* Пользование_библиотекой2. Шифр = deleted. Шифр */
Пользование_библиотекой2. Шифр = deleted. Шифр
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой2
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр R/10 Пользование_библиотекой3 ON PARENT
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)exists (* from deleted, Пользование_библиотекой3
where
/* Пользование_библиотекой3. Шифр = deleted. Шифр */
Пользование_библиотекой3. Шифр = deleted. Шифр
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Экземпляр because Пользование_библиотекой3
exists.'
goto error
/* ERwin Builtin Tue May 29 17:12:41 2007 */
/* Экземпляр Списали Списанные_книги ON PARENT
UPDATE NO ACTION */
/* update(Шифр) */(Шифр)exists (* from deleted, Списанные_книги
/* Списанные_книги. Шифр = deleted. Шифр */
Списанные_книги. Шифр = deleted. Шифр
)
begin@errno = 30005,
@errmsg = 'Cannot UPDATE Экземпляр because Списанные_книги exists.'error
/* Экземпляр Заменили Замена_экземпляров ON PARENT UPDATE NO ACTION *//* update(Шифр) */(Шифр)exists (*
from deleted, Замена_экземпляров
/* Замена_экземпляров. Шифр = deleted. Шифр */
Замена_экземпляров. Шифр = deleted. Шифр
)
begin
select @errno = 30005,
@errmsg = 'Cannot UPDATE Экземпляр because Замена_экземпляров exists.'
goto error/* update(ISBN) */(ISBN)@nullcnt =
0@validcnt = count(*)inserted, Книга
/* inserted.ISBN = Книга.ISBN */.ISBN = Книга.ISBN@validcnt
+ @nullcnt!= @numrows@errno = 30007,
@errmsg = 'Cannot UPDATE Экземпляр because Книга does not
exist.'error
/* ERwin Builtin Tue May 29 17:12:41 2007 Отделы Экземпляр ON CHILD
UPDATE NO ACTION */
if /* update (Номер_отдела) */(Номер_отдела)
begin@nullcnt = 0@validcnt = count(*)inserted, Отделы
/* inserted. Номер_отдела = Отделы. Номер_отдела */.
Номер_отдела = Отделы. Номер_отдела
if @validcnt + @nullcnt!= @numrows@errno = 30007,
@errmsg = 'Cannot UPDATE Экземпляр because Отделы does not
exist.'error:@errno @errmsgtransaction
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 с.
. Жилинский
А. Самоучитель Microsoft SQL Server 2005. - СПб:BHV, 2004. - 224 с.
. Кишори
Бхамидипати. SQL. Справочник программиста.-М.:Эком, 2003. - 304 с.
. Конспект
лекций «Базы данных»
. Литвин
П., Гетц К., Гунделой М. Разработка настольных приложений в Access 2002. Для
профессионалов. - СПб.:Питер; К.: Издательская группа BHV, 2002. - 1008 с.
. Литвин
П., Гетц К., Гунделой М. Разработка корпоративных приложений в Access 2002. Для
профессионалов. - СПб.:Питер; Киев: BHV, 2002. - 1008 с.
. Роберт
Виейра. Программирование баз данных Microsoft SQL Server 2005. Базовый курс. -
М.:Вильямс, 2003. - 848 с.
. Уилтон
П., Колби Дж. SQL для начинающих. - М.: Вильямс, 2006. - 496 с.
. Фленов
М. Transact SQL в подлиннике. - СПб:BHV, 2006. - 576 с.
. Практическое
руководство по SQL. - М.: Вильямс, 2002. - 352 с.
. Моисеенко
С. SQL. Задачи и решения. СПб.:
Питер, 2006. - 256 с.