Разработка ИС для музыкального магазина.

Рисунок Схема данных2.4 Создание запросовСоздадим запрос с параметром на поиск исполнителя по жанру.Рисунок Создание запросаРисунок Результат запросаСоздадим запрос сумма заказов.Рисунок Запрос сумма заказовРисунок Сумма заказовСоздание формСоздадим формы с запросами и отчетом:Рисунок Форма с запросамиРисунок Форма ПродуктыСоздание заказа:Рисунок Пустая форма создания заказаЗаполняем данные.Если клиент не найден – выберем добавить клиента, вводим данные.Рисунок Новый клиентНажимаем обновить кнопку возле кнопки новый клиент и клиент появляется в списке.Рисунок Обновление покупателяРисунок Заполненная формаНажимаем сохранить заказ. Заказ сохранен.Рисунок Сохранение заказаЕсли нужно добавить еще один товар – выбираем товар и нажимаем добавить позицию в заказ.Рисунок Добавление позицииЧтобы закрыть форму – нажимаем кнопку закрыть форму.Рисунок Главная кнопочная форма2.6 Создание отчетаСоздадим отчет Каталог товаров.Рисунок Отчет каталог товаров2.7 Защита базы данныхУ нас есть таблица с доверенными МАС адресами. Сделаем проверку – если адрес есть в таблице – тогда загружаем кнопочную форму и разрешаем работать, если нет – закрываем приложение. Ставим процедуру на загрузку формы. Прописываем код.Рисунок Свойства формыРисунок Код на загрузку формыРисунок Код на проверку адресаЧтобы код закрывал приложение, необходимо убрать комментарий 'Application.Quit чтоб получилось Application.Quit.Рисунок Проверка физического адреса успешнаРисунок Проверка физического адреса неуспешнаВ параметрах прописываем формы просмотра – кнопочная форма. Чтоб при загрузке Базы данных она загружалась первой.Рисунок НастройкиЗаключениеВ ходе данного проекта была разработана информационная система для музыкального магазина на базе базы данных MicrosoftAccess. Благодаря гибкости и масштабируемости Access, система может быть легко настроена под конкретные потребности магазина и быстро адаптирована к изменяющимся условиям рынка.Основные возможности информационной системы включают учет продукции, обработку заказов, управление клиентской базой.В целом, разработка информационной системы для музыкального магазина на базе базы данных MicrosoftAccess является важным шагом в направлении современной цифровизации и оптимизации бизнес-процессов. Все цели работы были достигнуты.Анализ литературы и источников: цель этого этапа состоит в том, чтобы изучить существующие подходы к проектированию баз данных, провести оценку их эффективности и применимости. Проектирование базы данных: цель этого этапа - разработать структуру базы данных. Определены необходимые таблиц, связей между ними и основные атрибутов. Разработка на платформе MicrosoftAccess: цель этого этапа - создание базы данных на основе разработанной структуры с использованием инструментов MicrosoftAccess. Проведена защита базы данных по МАС адресу с помощью кода VBA.Тестирование и оценка функциональности: на данном этапе провелось тестирование разработанной базы данных на соответствие поставленным требованиям. Целью было убедиться в правильной работе всех функций базы данных.Список использованной литературыГандерлой Автоматизация MicrosoftAccess с помощью VBA / Гандерлой, ХаркинзМайк;,СейлзСьюзан. - М.: Вильямс, 2021. - 416c.Голенищев Э.П., Клименко И.В. Информационное обеспечение систем управления. Серия "Учебники и учебные пособия". Ростов н/Д: "Феникс", 2023. – 352 с.Епанешников, А. М. Практика создания приложений в Access / А.М. Епанешников, В.А. Епанешников. - Москва: Гостехиздат, 2021. - 440c.Кошелев, В. Е. Access 2007. Эффективное использование / В.Е. Кошелев. - М.: Бином-Пресс, 2021. - 590 cКронан, Джон Microsoft Office Access 2003. Быстрые шаги / Джон Кронан и др. - М.: НТ Пресс, 2020. - 226 cСавицкий Н.И. Технология организации, хранения и обработки данных: Учеб. пособие. – М.: ИНФРА-М, 2021. – 232 с. – (Серия "Высшее образование").Смирнова, О. В. Access 2007 на практике / О.В. Смирнова. - М.: Феникс, 2021. - 160 c.Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко. – Издание второе, дополненное и переработанное – СПб.: КОРОНА принт, 2022. – 672 с.Прамодкумар, Дж. СадаладжNoSQL. Новая методология разработки нереляционных баз данных / Прамодкумар Дж. Садаладж, Мартин Фаулер. - М.: Вильямс, 2020. - 192 c.Фаулер, М. NoSQL: новая методология разработки нереляционных баз данных / М. Фаулер. - М.: Диалектика / Вильямс, 2021. - 609 c.Мартишин, С. А. Базы данных. Практическое примечание СУБД SQL и NoSOL. Учебное пособие / С.А. Мартишин, В.Л. Симонов, М.В. Храпченко. - М.: Форум, Инфра-М, 2020. - 368 c.Степанов, Е.А. Информационная безопасность и защита информации. Учебное пособие / Е.А. Степанов, И.К. Корнеев. - М.: ИНФРА-М, 2020. - 304 c.https://ru.wikipedia.org/wiki/Microsoft_Accesshttps://www.microsoft.com/ru-ru/microsoft-365/accessПриложение - Листинг программыФорма – ДобавлениезаказаOption Compare DatabasePrivate maxOrderIDAs LongPrivate Sub cmdAdd_Click()Dim dbAs Database, rst As Recordset, rsr1 As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("СоставЗаказа")'Добавляем новые записи + Update Их (Для занесения в таблицу)With rst.AddNewrst!OrderID = maxOrderIDrst!ProductID = Product_idrst!Quantity = Quantityrst!Price = Price.Update End WithSetdb = NothingMsgBox "Запись добавлена в базу!", vbInformation, "Администратор"СоставЗаказа.Form.RequeryEnd SubPrivate Sub cmdSave_Click()Dim strWhereAs StringDim dbAs Database, rst As Recordset, rsr1 As Recordset Set db = CurrentDb Set rst = db.OpenRecordset("Заказы")'Добавляем новые записи + Update Их (Для занесения в таблицу)With rst.AddNewrst!CustomerID = Customer.Column(1)rst!OrderDate = Date_orderrst!Status = "выполнен"rst!EmployeeID = Employer.Column(1).Update End With Set db = Nothing Set db = CurrentDb' Выполняем запрос на получение максимального номера заказаSet rs = db.OpenRecordset("SELECT MAX(OrderID) AS MaxOrderID FROM Заказы")maxOrderID = rs("MaxOrderID")rs.Close ' Освобождаемресурсы Set rs = Nothing Set db = NothingOrder_num.Value = maxOrderIDcmdAdd_Click'ФильтрпримененияstrWhere = "" If Not IsNull(Order_num) Then Module1.max_orderstrWhere = "OrderID =" & Order_num.ValueEndIfWithСоставЗаказа.Form 'задать условие фильтрации+егоприминение.Filter = strWhere.FilterOn = True End WithEnd SubPrivate Sub Form_Load() Dim dbAs Database Dim rsAsRecordset Dim maxOrderIDAs Long Dim strWhereAs String 'ФильтрпримененияstrWhere = "OrderID = " & 0 With СоставЗаказа.Form'задать условие фильтрации+егоприминение.Filter = strWhere.FilterOn = True End WithEnd SubPrivate Sub Product_AfterUpdate()Price.SetFocusPrice.Value = ""Price.Value = Product.Column(1)Product_id.SetFocusProduct_id.Value = ""Product_id.Value = Product.Column(2)Quantity.SetFocusEnd SubPrivate Sub Кнопка12_Click()Customer.SetFocusCustomer.RequeryEndSubФормаДобавлениеклиентаOption Compare DatabaseDim tel_erorAs BooleanPrivate Sub cmdAdd_Click()Dim dbAs Database, rst As Recordset, rsr1 As RecordsetOnErrorGoTometka_error'Проверка на наличии пустых элементовIfIsNull(ФИО) ThenMsgBox "Не указано ФИО", vbCritical, "Администратор" ФИО.SetFocus Exit Sub End If If IsNull(Телефон) ThenMsgBox "НеукаазанТелефон", vbCritical, "Администратор"Телефон.SetFocus Exit Sub End IfIf IsNull(Емаил) ThenMsgBox "НеукаазанаДолжность", vbCritical, "Администратор"Емаил.SetFocus Exit Sub End If'Проверка телефона еще разТелефон_AfterUpdateIftel_eror = TrueThenMsgBox "Такой номер телефона уже есть ", vbCritical, "Администратор"ExitSubEndIf'Проверка на длинуТелефон.SetFocusIf Len(Телефон.Text) > 14 ThenMsgBox "Не верный номер телефона", vbCritical, "Администратор" Телефон.SetFocus Exit SubEnd If Set db = CurrentDb Set rst = db.OpenRecordset("Клиенты")'Добавляем новые записи + Update Их (Для занесения в таблицу)With rst.AddNewrst!FullName = ФИОrst!Phone = Телефонrst!Email = Емаил.Update End With Set db = NothingMsgBox "Запись добавлена в базу!", vbInformation, "Администратор"DoCmd.CloseExitSubmetka_error: MsgBox "Произошел сбой,что-то не так!", vbCritical, "Администатор"End SubPrivate Sub cmdClose_Click()On Error GoToErr_cmdClose_ClickDoCmd.CloseExit_cmdClose_Click: Exit SubErr_cmdClose_Click:MsgBoxErr.Description Resume Exit_cmdClose_ClickEnd SubPrivate Sub Телефон_AfterUpdate()tel_eror = False'Проверка на повторение телефонаSetdb = CurrentDbSetrst = db.OpenRecordset("SELECT Клиенты.Phone FROM Клиенты WHERE Клиенты.Phone=" & "'" & Телефон & "'")Ifrst.RecordCount > 0 ThenMsgBox "Такой номер телефона уже есть ", vbCritical, "Администратор"tel_eror = True Exit Sub End IfEndSub