Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

2

.docx
Скачиваний:
1
Добавлен:
01.06.2021
Размер:
3.92 Mб
Скачать

ГУАП

КАФЕДРА № 41

ОТЧЕТ

ЗАЩИЩЕН С ОЦЕНКОЙ

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

ассистент

М. С. Иванова

должность, уч. степень, звание

подпись, дата

инициалы, фамилия

ОТЧЕТ О ЛАБОРАТОРНОЙ РАБОТЕ №2

СОЗДАНИЕ ПОДСИСТЕМЫ ДЛЯ АНАЛИТИКА

по курсу: ПРОЕКТНЫЙ ПРАКТИКУМ

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

СТУДЕНТКА ГР.

4716

Е.А. Шуб

С.А. Янышева

подпись, дата

инициалы, фамилия

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

2021

Лабораторная работа № 2

Создание подсистемы для аналитика

  1. Цель работы

Создать модуль для пользователя – «аналитик».

  1. Выполнение работы

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

В СУБД MS Access создана форма авторизации, графический ключ и форма для аналитика, которая открывается при успешной авторизации. Для начала нужно ввести логин и пароль (рисунок 1-2), после успешной авторизации нужно ввести графический ключ (рисунок 3), после чего будут доступны определенные функции для конкретного пользователя (рисунок 4).

Рисунок 1 – Ввод логина пользователя

Рисунок 2 – Ввод пароля

Рисунок 3 – Открыта форма после успешной авторизации, функции не доступны

Рисунок 4 – При успешном вводе графического пароля функции доступны

При неправильном вводе графического ключа появляется окно с ошибкой (рисунок 5).

Рисунок 5 – Ошибка входа

Для аналитика в базе данных доступен просмотр основных таблиц и их редактирование и форм отображающих различные статистические данные. Пример доступа продемонстрирован на рисунках 6 и 7.

Рисунок 6 – Просмотр и редактирование таблицы

Рисунок 7 – Предметы без учителей

При нажатии на кнопку «Перейти в Tableau» будет запущено приложение Tableau, в котором аналитик сможет визуализировать данные и производить их анализ.

В нём для аналитика были выбраны все данные ученика и назначен фильтр на ФИО ученика, результат продемонстрирован на рисунке 8.

Рисунок 8 – Выполнение запроса 4

Был выбран столбец ФИО, к нему применена функция AVG, результат продемонстрирован на рисунке 9.

Рисунок 9 – Состав 9 класса

Были выбраны столбцы ФИО ученика и Адрес прописки, назначен фильтр на город, результат продемонстрирован на рисунке 10.

Рисунок 10 – Выполнение запроса 6

Был выбран столбец с фамилиями учеников, номером класса и использована диаграмма packed bubbles, результат продемонстрирован на рисунке 11.

Рисунок 11 – Количество учеников в классах

  1. Вывод

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

Листинг 1 – Авторизация

Option Compare Database

Option Explicit

Private gp As String

Private pw As String

Private C As Integer

Private cc As Integer

Private i As Integer

Private Sub Form_Open(Cancel As Integer)

gp = ""

C = 1

cc = 0

DoCmd.SetProperty "Кнопка10", acPropertyEnabled, "0"

DoCmd.SetProperty "Кнопка11", acPropertyEnabled, "0"

DoCmd.SetProperty "Кнопка12", acPropertyEnabled, "0"

On Error Resume Next

DoCmd.Close acForm, "Users"

TempVars.Add "name", InputBox("Введите имя пользователя", "Авторизация")

TempVars.Add "password", InputBox("Введите пароль", "Авторизация")

DoCmd.OpenForm "Users", acNormal, "", "[Имя пользователя]=[TempVars]![name] And [Пароль]=[TempVars]![password]", acReadOnly, acHidden

If (Forms![Users]![Имя пользователя] <> TempVars!Name And Forms![Users]!Пароль <> TempVars!Password) Then

MsgBox "Имя пользователя или пароль введены не верно", vbOKOnly, "Ошибка"

DoCmd.Close acForm, "Users"

DoCmd.Close acForm, "5)Авторизация"

End If

TempVars.RemoveAll

End Sub

Private Sub Click(b As String)

pw = "4268"

cc = cc + 1

gp = gp + b

If (cc = 4) Then

If (gp = pw) Then

For i = 1 To 9

DoCmd.SetProperty "Кнопка" & CStr(i), acPropertyEnabled, "0"

Next

If (Forms![Users]!Удаление) Then

DoCmd.SetProperty "Кнопка10", acPropertyEnabled, "1"

DoCmd.SetProperty "Кнопка11", acPropertyEnabled, "1"

DoCmd.SetProperty "Кнопка12", acPropertyEnabled, "1"

ElseIf (Forms![Users]![Добавление и изменение]) Then

DoCmd.SetProperty "Кнопка11", acPropertyEnabled, "1"

DoCmd.SetProperty "Кнопка12", acPropertyEnabled, "1"

ElseIf (Forms![Users]!Просмотр) Then

DoCmd.SetProperty "Кнопка12", acPropertyEnabled, "1"

Else

DoCmd.Close acForm, "Выбрать действие"

MsgBox "Ошибка права доступа", vbExclamation, "Ошибка"

End If

DoCmd.Close acForm, "Users"

Else

C = C + 1

gp = ""

cc = 0

If (C > 3) Then

MsgBox "Ключ неверный", vbOKOnly, "Ошибка"

DoCmd.Close acForm, "5)Авторизация"

Else

MsgBox "Ключ неверный. Попытка " & CStr(C) & " из 3.", vbOKOnly, "Ошибка"

End If

End If

End If

End Sub

Листинг 2 – Кнопка перехода в Tableua

Private Sub Кнопка19_Click()

Dim go

go = Shell("C:\Program Files\Tableau\Tableau Public 2020.4\bin\tabpublic.exe", 1)

End Sub

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в предмете Проектный практикум