
- •Введение
- •1 Индивидуальное задание
- •1.1 Описание предметной области
- •1.2 Запросов в ms Access
- •Запросов в ms Excel
- •2 Разработка базы данных в ms Access
- •2.1 Определение объектов предметной области
- •2.2 Определение атрибутов каждой сущности
- •2.3 Программирование базы данных
- •2.4 Разработка запросов к базе данных
- •3 Разработка пользовательского интерфейса в ms Access
- •4 Разработка пользовательского интерфейса в ms Excel
- •4.1 Импортирование базы данных
- •4.2 Построение диаграмм
- •4.3 Обработка данных с помощью языка программирования vba
- •4.4 Описание созданных функций
- •Заключение
- •Список использованных источников
- •Приложение а Код макросов
- •Приложение б Код кнопок
Список использованных источников
1. Демин В.М., Кузьмин А.В. Разработка баз данных в системе Microsoft
Access. – М.: Феникс, 2016.
2. Евсеев Г.С., Ильинская Д.М., Турнецкая Е.Л. Базы данных в Microsoft
Access. / Методические указания по выполнению лабораторных работ. –
СПб: ГУАП, 2015.
3. Аграновский А.В., Ильинская Д.М., Турнецкая Е.Л. Обработка данных
средствами электронных таблиц Microsoft Excel. / Методические указания
по выполнению лабораторных работ. – СПб: ГУАП, 2015. 4. Справочная информация по MS Access: https://support.microsoft.com/ru-ru/access (дата посещения 25.03.2023).
4. Справочная информация по MS Excel: https://support.microsoft.com/ru-ru/excel (дата посещения 25.03.2023).
5. Бурнаева Э., Леора С. Обработка и представление данных в MS Excel:. – М.: Лань, 2016.
Приложение а Код макросов
Таблица А.1 – Код макроса «ПродажиЗаТекущийГод»
Sub ПродажиЗаТекущийГод() |
ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=2, Criteria1:= _ |
13, Operator:=11, Criteria2:=0, SubField:=0 |
End Sub |
Таблица А.2 – Код макроса «УбратьФильтры»
Sub УбратьФильтры()
ActiveSheet.ShowAllData
MsgBox "Все фильтры отключены"
End Sub
Таблица А.3 – Код макроса «ФильтрМинЦена»
Sub ФильтрМинЦена()
FilterValue = InputBox("Введите минимальную цену", "Фильтр по цене")
ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=8, Criteria1:=">=" & FilterValue
End Sub
Таблица А.4 – Код макроса «ФильтрПокупатель»
Sub ФильтрПокупатель()
FilterValue = InputBox("Введите имя покупателя для фильтра", "Фильтр по имени покупателя")
ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=9, Criteria1:="=*" & FilterValue & "*"
End Sub
Таблица А.5 – Код макроса «ФильтрТипИзделия»
Sub ФильтрТипИзделия()
FilterValue = InputBox("Введите тип изделия", "Фильтр по типу изделия")
ActiveSheet.ListObjects("Таблица4").Range.AutoFilter Field:=5, Criteria1:="=*" & FilterValue & "*"
End Sub
Приложение б Код кнопок
Таблица Б.1 – Код кнопки «Продажи за текущий год»
Private Sub CommandButton1_Click()
ПродажиЗаТекущийГод
End Sub
Таблица Б.2 – Код кнопки «Фильтр по Покупателю»
Private Sub CommandButton2_Click()
ФильтрПокупатель
End Sub
Таблица Б.3 – Код кнопки «Фильтр по цене»
Private Sub CommandButton3_Click()
ФильтрМинЦена
End Sub
Таблица Б.4 – Код кнопки «Фильтр по типу изделия»
Private Sub CommandButton4_Click()
ФильтрТипИзделия
End Sub
Таблица Б.5 – Код кнопки «Убрать фильтры»
Private Sub CommandButton5_Click()
УбратьФильтры
End Sub
Таблица Б.6 – Код кнопки «Открыть форму»
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub