сем4 / coursework_Zhovtyak_4016

Рисунок 63 – Четвертая диаграмма

5) Ценообразование товаров И последнее, для показа ценообразование товаров переносится значение

Код детали (Dimension) в поле Columns и Цена (Measure) в поле Rows. После этого вызываем Show Me и выбираем тип графика Vertical bars. В графе Marks-

Сolor я меняю цвет шкал и добавляю им границы. Далее, в Marks-Label ставлю галочку на Show marks label для более полного отображения картины запроса. И

для наглядности в верхней панели управления сортирую данные по возрастанию.

Результат представлен на рисунке 64.

31

Рисунок 64 – Пятая диаграмма

Теперь составляется дашборд. Результат сборки представлен на рисунке

65.

Рисунок 65 – Созданный дашборд

32

Листинг программного кода

Module1. Фильтр по коду детали

Private Sub CommandButton1_Click()

Dim Kod_det, kod As String

Kod_det = ActiveCell.CurrentRegion.Address

kod = InputBox("Введите код детали", "Ввод фильтра") Range(Kod_det).AutoFilter Field:=2, _

Criteria1:=kod

MsgBox "Задан фильтр по коду детали"

End Sub

Module2. Фильтр по названию организации

Private Sub CommandButton2_Click()

Dim Kod_org, org As String

Kod_org = ActiveCell.CurrentRegion.Address

org = InputBox("Введите название организации", "Ввод фильтра") Range(Kod_org).AutoFilter Field:=4, _

Criteria1:=org

MsgBox "Задан фильтр по названию организации"

End Sub

Module3. Фильтр по дате

Private Sub CommandButton3_Click()

Dim strAddress, data

strAddress = ActiveCell.CurrentRegion.Address data = InputBox("Введите дату", "Ввод фильтра") Range(strAddress).AutoFilter Field:=6, _ Criteria1:=">=" & Format(data, "mm-dd-yyyy") End Sub

Module4. Снятие фильтрации

Private Sub CommandButton4_Click()

On Error Resume Next

If ActiveSheet.ShowAllData = True Then

ActiveSheet.ShowAllData

MsgBox "Фильтрация снята"

End If

End Sub

Module5. Экспорт в Word

Private Sub CommandButton5_Click()

Dim WordApp As Object

Dim strAddress As String

strAddress = ActiveCell.CurrentRegion.Address

33

ActiveSheet.Range(strAddress).Copy

Set WordApp = CreateObject("Word.Application")

With WordApp

.Visible = True

.Documents.Add

.Selection.Paste End With

End Sub

Module6. Переход к архивной таблице

Private Sub CommandButton6_Click()

Sheets("Архив").Activate

ActiveSheet.Cells(1, 1).Select

End Sub

Module7. Запуск формы

Sub Запуск_формы()

UserForm1.Show

End Sub

34

Вывод

Результатом курсовой работы является реализованная база данных фирмы по закупке запчастей и деталей. Она предназначена для автоматизации работы данной компании. Курсовая работа была выполнена с целью повторения и более глубоко изучения возможностей MS Access и MS Excel.

Во-первых, были созданы таблицы в MS Access с данными из продаж строительного магазина с помощью конструктора и между ними в схеме данных была установлена связь. Далее была создана форма для доступа пользователей с разными возможностями, для администратора открыты все возможности:

изменение, добавление и удаление новых записей. Для менеджера доступно только чтение существующих таблиц и запросов. Также была создана форма с различными запросами для удобства пользования. Была создана форма для авторизации. Вышеперечисленные формы были реализованы с помощью макросов. Макросы в MS Access используются для автоматизации процессов,

защиты данных и простых переходов между таблицами, запросами, формами.

Во-вторых, были созданы сложные запросы с вводом необходимых значений после запуска. Они были реализованы с помощью SQL кода, он имеет больше возможностей, чем конструктор запросов.

В-третьих, после осуществления запросов был реализован импорт данных в MS Excel с помощью архивной таблицы. Сама архивная таблица была создана через запрос в MS Access. После были построены диаграммы в MS Excel. Для этого сначала были созданы сводные таблицы с необходимыми фильтрами на основе архивной таблицы.

В-четвертых, в работе были реализованы макросы в среде разработки

VBA. Для применения этих макросов создана форма с кнопками. На кнопках были встроены макросы с фильтрами, экспортом в Word, снятием фильтров.

В-пятых, была проведена работа в среде Tableau public. Был реализован импорт из MS Excel в Tableau public. После этого в данной среде была создана визуализация запросов с помощью диаграмм разного цвета и различными

35

параметрами и показателями. Также реализованные диаграммы были перенесены на Dashboard.

При выполнении данной работы проблем не возникало. Реализованная БД готова к использованию и доступна для модификации.

36

Список используемой литературы

1. «Методические указания по выполнению курсового проектирования»,

ГУАП. Составители: А.В. Аграновский, М.С. Иванова, Е.Л. Турнецкая

37