Курсовая Турнецкая / курсачок3

МИНИСТЕРСТВО НАУКИ И ВЫСШЕГО ОБРАЗОВАНИЯ РОССИЙСКОЙ ФЕДЕРАЦИИ

федеральное государственное автономное образовательное учреждение высшего образования

«САНКТ-ПЕТЕРБУРГСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ АЭРОКОСМИЧЕСКОГО ПРИБОРОСТРОЕНИЯ»

КАФЕДРА ПРИКЛАДНОЙ ИНФОРМАТИКИ

ОЦЕНКА

ПРЕПОДАВАТЕЛЬ

Доцент, кан. тех. наук				Е.Л. Турнецкая
должность, уч. степень, звание		подпись, дата		инициалы, фамилия

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА К КУРСОВОЙ РАБОТЕ. ЧАСТЬ 3. РАЗРАБОТКА БАЗЫ ДАННЫХ ЮВЕЛИРНОЙ МАСТЕРСКОЙ

по дисциплине: ИНФОРМАЦИОННЫЕ СИСТЕМЫ И ТЕХНОЛОГИИ

РАБОТУ ВЫПОЛНИЛ

СТУДЕНТ ГР. №
			подпись, дата		инициалы, фамилия

Санкт-Петербург 2023

Цель работы

Ознакомиться с конструктором запросов в программном продукте Access. Cоставить выборочные запросы по разработанной базе данных. Закрепить знания по разработке базы данных.

Индивидуальное задание

Вариант №16.

В ювелирной мастерской осуществляется изготовление ювелирных изделий из драгоценных материалов (платина, золото, серебро и т.д.) для частных лиц. При заказе администратор салона заносит в базу данных фамилию, имя, отчество клиента; тип ювелирного изделия (брошь, кольцо, браслет, ожерелье и т.д.); цену и стоимость в зависимости от выбранного материала.

Набор сущностей:

• Изделия (Код изделия, Название, Тип, Вес, Цена, Код материала);

• Материалы (Код материала, Название, Цена за грамм);

• Продажи (Код продажи, Код изделия, Дата продажи, Покупатель).

Запросы в MS Excel:

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

• Построить диаграмму, которая для каждого материала отражает уровень популярности по месяцам в заданном диапазоне дат.

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

• Построить диаграмму, которая для каждого типа изделия отображает общую стоимость продаж по месяцам в заданном диапазоне дат.

Ход работы

Создадим таблицу Архив с подробной информацией обо всех продажах (Рисунок 1)

Рисунок 1 – Таблица Архив

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

С помощью Вставка>Сводная диаграмма создадим диаграмму (Рисунок 2).

Рисунок 1 – Создание Сводной диаграммы

Для анализа выберем данные из таблицы Продажи (Рисунок 2).

Рисунок 2 – Выбор данных для анализа

Выберем поля Код продажи, Дата продажи и Годы. Выберем параметр поля значений Количество по Коду продажи (Рисунок 3, 4).

Рисунок 3 – Выбор полей данных

Рисунок 4 – Выбор параметра поля значений

Применим фильтр по дате (Рисунок 5, 6).

Рисунок 5 – Выбор фильтра

Рисунок 6 – Настройка фильтра

Для создания следующих диаграмм понадобятся данные сразу из нескольких таблиц, чтобы это реализовать, создадим модель данных с помощью Power Pivot (Рисунок 7).

Рисунок 7 – Добавление таблицы в модель данных

Создадим связи между таблицами. Соединим Код Материала в таблицах Материалы и Изделия, Код Изделия в таблицах Изделия и Продажи (Рисунок 8).

Рисунок 8 – Создание связей между таблицами

При создании сводной диаграммы выберем в качестве внешнего источника данных созданную Модель Данных Книги (Рисунок 9).

Рисунок 9 – Выбор внешнего источника данных

Для диаграммы выберем поля Название из таблицы Материалы и Дата Продажи (Год), Дата Продажи (Месяц) из таблицы Продажи (Рисунок 10).

Рисунок 10 – Выбор полей диаграммы

С помощью заготовленных стилей изменим внешний вид диаграммы (Рисунок 11).

Рисунок 11 – Выбор стиля

Для фильтрации по дате вставим временную шкалу (Рисунок 12 - 14).

Рисунок 12 – Вставка временной шкалы

Рисунок 13 – Выбор Данных для шкалы

Рисунок 14 – Диаграмма с фильтром продаж за 2022 год

Напишем макросы для анализа данных в таблице Архив (Рисунок 15).

Рисунок 15 – Все созданные макросы

Код макроса ПродажиЗаТекущийГод:

Sub ПродажиЗаТекущийГод()

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=2, Criteria1:= _

13, Operator:=11, Criteria2:=0, SubField:=0

End Sub

Код макроса УбратьФильтры:

Sub УбратьФильтры()

ActiveSheet.ShowAllData

MsgBox "Все фильтры отключены"

End Sub

Код макроса ФильтрМинЦена:

Sub ФильтрМинЦена()

FilterValue = InputBox("Введите миниальную цену", "Фильтр по цене")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=8, Criteria1:=">=" & FilterValue

End Sub

Код макроса ФильтрПокупатель:

Sub ФильтрПокупатель()

FilterValue = InputBox("Введите имя покупателя для фильтра", "Фильтр по имени покупателя")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=9, Criteria1:="=*" & FilterValue & "*"

End Sub

Код макроса ФильтрТипИзделия:

Sub ФильтрТипИзделия()

FilterValue = InputBox("Введите тип изделия", "Фильтр по типу изделия")

ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=5, Criteria1:="=*" & FilterValue & "*"

End Sub

Для удобства вызова макросов создадим пользовательскую форму (Рисунок 16-20).

Рисунок 16 – Добавление пользовательской формы

Рисунок 17 – Добавление изображения на форму

Рисунок 18 – Форма с изображением

Рисунок 19 – Добавление кнопки на форму

Рисунок 20 – Финальный вид формы

Код кнопки Продажи за текущий год:

Private Sub CommandButton1_Click()

ПродажиЗаТекущийГод

End Sub

Код кнопки Фильтр по Покупателю:

Private Sub CommandButton2_Click()

ФильтрПокупатель

End Sub

Код кнопки Фильтр по цене:

Private Sub CommandButton3_Click()

ФильтрМинЦена

End Sub

Код кнопки Фильтр по типу изделия:

Private Sub CommandButton4_Click()

ФильтрТипИзделия

End Sub

Код кнопки Убрать фильтры:

Private Sub CommandButton5_Click()

УбратьФильтры

End Sub

Для вызова формы добавим кнопку на лист Архив (Рисунок 21, 22).

Рисунок 21 – Добавление кнопки на лист

Рисунок 22 – Добавленная кнопка

Код кнопки:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Вывод

В результате работы для анализа и обработки данных были созданы сводные таблицы и диаграммы, макросы на VBA, пользовательская форма.