ПРОЕКТИРОВАНИЕ БАЗЫ ДАННЫХ «ЭЛЕКТРОННАЯ ВЫСТАВКА «ТВОРЧЕСТВО МАРИНЫ ЦВЕТАЕВОЙ» (НА ПРИМЕРЕ МБУ «ЦЕНТРАЛЬНАЯ ГОРОДСКАЯ БИБЛИОТЕКА» г. СЕВЕРСКА) Курсовой проект

Отчеты являются не менее важными элементами информационной системы, поскольку через создание отчетов можно распечатывать данные из информационной системы на бумагу, предварительно выбрав необходимые уровни группировки данных, что очень удобно при работе с большими объемами данных.[10]ЗАКЛЮЧЕНИЕСовременные системы управления базами данных действительно являются мощным средством управления большим объемом данных. Они позволяют производить быструю сортировку большого массива данных, осуществлять быстрый переход по записям в произвольном порядке, производить быструю выборку большого количества данных из всего массива данных по заданным критериям. В таких СУБД каждый файл данных рассматривается как двухмерная таблица, столбцы которой соответствуют полям записей, а строки соответствуют отдельным записям файла и обращение к данным идет через указание номера записи имени поля. При этом работа с отдельным полем таблицы данных напоминает работу с переменными – обращение к данным максимально упрощено, и пользователю не нужно знать всю иерархическую структуру данных. К тому же язык команд этих систем управления базами данных содержит широкий набор команд, выполняющих действия сложных конструкций, например, сортировка записей файла сводится только к двум командам. БД позволяет эффективно выполнять поставленные перед ней задачи: удобное и быстрое добавление данных о новых студентах-читателях и новых поступлениях книг;хранение и редактирование информации о выдаче той или иной книги студенту.Реализуемые задачи позволяют контролировать работу библиотеки университета в целом, что отвечает ряду требований разработки базы данных:обеспечивает удобный просмотр и редактирование информации о читателях;имеет все необходимые документы в виде автоматически формируемых отчетов, позволяющих просматривать и распечатывать информацию в удобном виде;имеет два уровня доступа к информации: для студента-читателя (ограниченный) и для работника библиотеки (расширенный);имеет парольную защиту.В результате выполнения данного курсового проекта были решены задачи, поставленные в начале работы. Разработанная программа устойчиво выполняет все свои функции, но теперь стоит задача сделать ее более совершенной и более расширенной.Список литературыАгальцов, В.П. данных. В 2-х т. Т. 2. Распределенные и базы данных: В.П. Агальцов. - М.: ИД ИНФРА-М, 2018. - 272 c.Бодров, О.А. Предметно-ориентированные экономические информационные системы: Учебник для вузов / О.А. Бодров. - М.: Гор. линия-Телеком, 2017. - 244 c.Варфоломеева, А.О. Информационные системы предприятия: Учебное пособие / А.О. Варфоломеева, А.В. Коряковский, В.П. Романов. - М.: НИЦ ИНФРА-М, 2017. - 283 c.Велихов, А. С. Основы информатики и компьютерной техники: учебное пособие / А. С. Велихов. – Москва: СОЛОН-Пресс, 2019. – 539 с.Гаврилов, М.В. Информатика и информационные технологии: Учебник для прикладного бакалавриата / М.В. Гаврилов, В.А. Климов. - Люберцы: Юрайт, 2018. - 383 c.Гвоздева, В. А. Информатика, автоматизированные информационные технологии и системы: учебник / В. А. Гвоздева. – Москва: Форум: Инфра-М, 2018. – 541 с.Горбенко, А.О. Информационные системы в экономике / А.О. Горбенко. - М.: БИНОМ. ЛЗ, 2017. - 292 c.Гришин, В.Н. Информационные технологии в профессиональной деятельности: Учебник / В.Н. Гришин, Е.Е. Панфилова. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2018. - 416 c.Исаев, Г.Н. Информационные технологии.Учебное пособие. / Г.Н. Исаев. - М.: Омега-Л, 2019. - 464 c.Исаев, Г.Н. Информационные технологии: Учебное пособие / Г.Н. Исаев. - М.: Омега-Л, 2019. - 464 c.Туманов, В.Е. Основы проектирования реляционных баз данных / В.Е. Туманов. - М.: Бином, 2018. - 420 c.Приложение 1.Код программы для формы ввода логина и пароляОткрытие формы при успешном логинеSubLogining(userID)Dim AmbID As Integer AmbID = User_GetAmb(userID) If AmbID = 1 Then DoCmd.OpenForm "Каталогкниг" End If If AmbID = 2 Then DoCmd.OpenForm "Учетный_номер" End If If AmbID = 3 Then DoCmd.OpenForm "Сведенья_о_библиотеке" End IfEnd SubSub Logining_Error() MsgBox ("Логин/Пароль не верен")If Try > 1 Then Try = Try - 2 Me.Try_Text.Caption = Str(Try) Else DoCmd.Close End IfEnd SubSub GP_Hide() Dim mineColor, GP_Color mineColor = RGB(255, 255, 255) Me.Mine_1.BackColor = mineColor Me.Mine_2.BackColor = mineColor Me.Mine_3.BackColor = mineColor Me.Mine_4.BackColor = mineColor Me.Mine_5.BackColor = mineColor GP_Color = RGB(255, 255, 255) Me.GP_1.BackColor = GP_Color Me.GP_2.BackColor = GP_Color Me.GP_3.BackColor = GP_Color Me.GP_4.BackColor = GP_Color Me.GP_5.BackColor = GP_ColorEnd SubSub GP_Show() Dim mineColor, GP_Color mineColor = RGB(217, 150, 148) Me.Mine_1.BackColor = mineColor Me.Mine_2.BackColor = mineColor Me.Mine_3.BackColor = mineColor Me.Mine_4.BackColor = mineColor Me.Mine_5.BackColor = mineColor GP_Color = RGB(195, 214, 155) Me.GP_1.BackColor = GP_Color Me.GP_2.BackColor = GP_Color Me.GP_3.BackColor = GP_Color Me.GP_4.BackColor = GP_Color Me.GP_5.BackColor = GP_ColorEnd SubSub GraphPassword_Check(should) If GP = should - 1 Or GP = should Then GP = should Else GP = 0 End If Me.GP_Text.Caption = Str(GP)End SubSub GraphPassword_Mine() GP = 0 Me.GP_Text.Caption = Str(GP) Me.Try_Text.Caption = Str(Try)End SubFunction User_FindByloginPass(login, pass) Set q = CurrentDb.QueryDefs("User_FindByloginPass") q.Parameters!WithLogin = login q.Parameters!WithPass = pass Set r = q.OpenRecordset User_FindByloginPass = r![UserCount]End FunctionFunction User_GetID(login, pass) Set q = CurrentDb.QueryDefs("User_GetID") q.Parameters!WithLogin = login q.Parameters!WithPass = pass Set r = q.OpenRecordset r.MoveFirst User_GetID = r![userID]End FunctionFunction User_GetRole(userID) Set q = CurrentDb.QueryDefs("User_GetRole") q.Parameters!SetID = userID Set r = q.OpenRecordset r.MoveFirst User_GetRole = r![role]End FunctionFunction User_GetAmb(userID) Set q = CurrentDb.QueryDefs("User_GetAmb") q.Parameters!WithID = userID Set r = q.OpenRecordset r.MoveFirst If IsNull(r![AmbID]) Then User_GetContract = 0 Else User_GetAmb = r![AmbID] End IfEnd FunctionPrivate Sub btn_ok_Click()' Проверка введен ли пароль/логин нужной длинны ' Если Логин/Пароль допустимой длинныIf ((Len(Me.txt_Login.Value) >= 3) And (Len(Me.txt_Pass.Value) >= 4)) Then ' Запоминаемлогин/пароль Dim login, pass As String login = Me.txt_Login.Value pass = Me.txt_Pass.Value' Находим количество пользователей с парой логин/парольDim UsersCount As Integer UsersCount = User_FindByloginPass(login, pass)' Если такие есть есть ок и переход на формуIf UsersCount Then ' узнаем userID (global var) userID = User_GetID(login, pass) Dim role role = User_GetRole(userID) If role = 4 Then Call Logining(userID) Else Call Logining(userID) End If Else Call Logining_Error End If' Если логин/пароль меньше минимальнйо длинны Else MsgBox ( _ "Логин/Пароль не корректны" _ & Chr(13) _ & Chr(13) & "Логин не менее 3 символов" _ & Chr(13) & "Пароль не менее 4 символов")End IfEnd SubPrivate Sub CB_Debug_Click() If Me.CB_Debug.Value = 0 Then Call GP_Hide Else Call GP_Show End IfEnd SubPrivate Sub Form_Open(Cancel As Integer) GP = 0 Try = 3End SubPrivate Sub GP_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_Check(1)End SubPrivate Sub GP_2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_Check(2)End SubPrivate Sub GP_3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_Check(3)End SubPrivate Sub GP_4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_Check(4)End SubPrivate Sub GP_5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_Check(5)End SubPrivate Sub Mine_1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_MineEnd SubPrivate Sub Mine_2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_MineEnd SubPrivate Sub Mine_3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_MineEnd SubPrivate Sub Mine_4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Call GraphPassword_MineEnd SubPrivate Sub Mine_5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Call GraphPassword_MineEnd Sub