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

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

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

Вывод

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

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

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

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

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

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

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