Проектирование многопользовательской информационной системы "Университетская библиотека"
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
?олагается кнопка Список периодических изданий, нажатие на которую показывает отчет, содержащий список всех периодических изданий библиотеки, и кнопки Найти.
Кнопка Найти в разделе Поиск изданий предназначена для вызова хранимой процедуры, которая формирует отчет, содержащий информацию о периодических изданиях, которые удовлетворяют критериям поиска. Критерий поиска задается пользователем. Код обработки нажатия кнопки Найти:
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). Членство в фиксированных ролях на уровне сервера дает возможность администрирования сервера. Члены фиксированных ролей на уровне БД могут администрировать н