Курсовое проектирование в среде СУБД Acсess

Оглавление
Задание на курсовой проект
Введение
Распечатка таблиц с исходными данными
Описание структуры записей таблиц в режиме конструктора
Распечатка формы, содержащей меню курсового проекта
Описание способов реализации каждого пункта задания и его вызова из меню
Просмотр и корректировка данных первой таблицы
Просмотр и корректировка данных второй таблицы
Вывод итоговых данных по специальностям. По каждой специальности вывести ее название, план приема на 1-й курс, количество студентов, количество отличников.
Вывод формы
Вывод сведений о группах самой плохой успеваемостью (имеющих минимальный средний балл по группе). По каждой из таких групп нужно вывести: специальность, курс, группа, средний балл.
Удаление данных о неуспевающих (имеющих хотя бы одну двойку).
Вывод отчета
Закрытие базы данных
Тексты созданных процедур VBA
Созданные макросы
Заключение
Список использованной литературы

Создан дополнительный запрос Максимальный средний балл в группе
Конструктор запроса
Рис.27
Запрос в режиме SQL:
SELECT Группы.Курс, Группы.Группа, Max(Round(([Группы]![Оценка1]+[Группы]![Оценка2]+[Группы]![Оценка3]+[Группы]![Оценка4]+[Группы]![Оценка5]+[Группы]![Оценка6])/6,2)) AS [Средний балл]
FROM Группы
GROUP BY Группы.Курс, Группы.Группа;
Результат
Рис.28
На основе созданного запроса создан итоговый запрос.
Конструктор запроса
Рис.29
Запрос в режиме SQL:
SELECT Группы.Курс, Группы.Группа, Группы.[Фамилия ИО], Round(([Группы]![Оценка1]+[Группы]![Оценка2]+[Группы]![Оценка3]+[Группы]![Оценка4]+[Группы]![Оценка5]+[Группы]![Оценка6])/6,2) AS Выражение1, Специальности.[Название специальности]
FROM [Максимальный средний балл в группе], Группы INNER JOIN Специальности ON Группы.[Шифр специальности] = Специальности.[Шифр специальности]
WHERE (((Группы.Группа)=[Максимальный средний балл в группе]![Группа]) AND ((Round(([Группы]![Оценка1]+[Группы]![Оценка2]+[Группы]![Оценка3]+[Группы]![Оценка4]+[Группы]![Оценка5]+[Группы]![Оценка6])/6,2))=[Максимальный средний балл в группе]![Средний балл]));
Результат
Рис.30
Удаление данных о неуспевающих (имеющих хотя бы одну двойку).
Создается запрос на удаление:
Конструктор запроса
Рис.31
Запрос в режиме SQL:
DELETE Группы.Оценка1, Группы.Оценка2, Группы.Оценка3, Группы.Оценка4, Группы.Оценка5, Группы.Оценка6
FROM Группы
WHERE (((Группы.Оценка1)=2)) OR (((Группы.Оценка2)=2)) OR (((Группы.Оценка3)=2)) OR (((Группы.Оценка4)=2)) OR (((Группы.Оценка5)=2)) OR (((Группы.Оценка6)=2));
Результат
При запуске данного запроса все студенты имеющие хотя бы одну двойку будут удалены из таблицы Группы
Вывод отчета
Сформирован вспомогательный Запрос для отчет:
Конструктор запроса
Рис.32
Запрос в режиме SQL:
SELECT Специальности.[Название специальности], Группы.Курс, Группы.Группа, Группы.[Фамилия ИО], Round((Группы.Оценка1+Группы.Оценка2+Группы.Оценка3+Группы.Оценка4+Группы.Оценка5+Группы.Оценка6)/6,2) AS [Средний балл]
FROM Специальности INNER JOIN Группы ON Специальности.[Шифр специальности] = Группы.[Шифр специальности];
Результат
Рис.33
На основе созданного запроса формируем с помощью мастера отчет.
Рис.34
Задается группировка данных
Рис.35
Рис.36
Выбирается макет
Выбирается стиль
Конструктор отчета
Рис.37
Отредактированный отчет согласно заданию
Рис.38
Результат
Рис.39
Закрытие базы данных
Реализовано с помощью Макрос_Закрытие базы данных.
Тексты созданных процедур VBA
Функция определения трех наилучших оценок
Public Function funMax(Оценка1 As Double, Оценка2 As Integer, Оценка3 As Integer, Оценка4 As Integer, Оценка5 As Integer, Оценка6 As Integer) As String
Dim m() As Integer
Dim m_max As Integer
ReDim m(1 To 6)
m(1) = Оценка1
m(2) = Оценка2
m(3) = Оценка3
m(4) = Оценка4
m(5) = Оценка5
m(6) = Оценка6

'сортировка массива
For i = 2 To UBound(m) Step 1
For j = UBound(m) To i Step -1
If m(i - 1) < m(j) Then
m_max = m(i - 1)
m(i - 1) = m(j)
m(j) = m_max
End If
Next j
Next i
funMax = ""
For i = 1 To 3
funMax = funMax & m(i) & " "
Next
End Function
Процедура вывода итогов
Private Sub Кнопка14_Click()
MsgBox ("Максимальный балл =" & Me![Максимальный балл] & "Минимальный балл=" & Me![Минимальный балл])
End Sub
Созданные макросы
Создано девять макросов
Рис.40
Макрос_Изменение в таблице Группы ОткрытьТаблицу Имя таблицы Группы Режим Таблица Макрос_Изменение в таблице Специальности ОткрытьТаблицу Имя таблицы Специальности Режим Талица Макрос_Сведения по специальности ОткрытьЗапрос Имя запроса Сведения по произвольно заданной специальности Режим Талица Макрос_Итоговые данные по специальностям ОткрытьЗапрос Имя запроса Итоговые данные по специальностям Режим Талица Макрос_Вывод формы ОткрытьФормы Имя формы Итоги Режим Форма Макрос_Сведения о группах самой плохой успеваемостью ОткрытьЗапрос Имя запроса Группы с минимальным средним баллом Режим Талица Макрос_Сведения о самых лучших студентах в каждой группе ОткрытьЗапрос Имя запроса Сведения о самых лучших студентах в каждой группе Режим Талица Макрос_Удаление данных о неуспевающих ОткрытьЗапрос Имя запроса Удаление данных о неуспевающих Режим Талица Макрос_Вывод отчета ОткрытьОтчет Имя отчета Группы Режим Просмотр Макрос_Закрытие базы данных Выход Заключение
При выполнении курсовой работы были получены знания и практические навыки работы в MS Access и среде разработки VBA. Разработана база данных и к ней форма с меню отчеты и запросы для получения необходимой информации.
Список использованной литературы
Гарнаев А. Самоучитель VBA. СПб: БХВ-Петербург, 2004, 542 с.
Бекаревич Ю.Б., Пушкина Н.В. Самоучитель Microsoft Access 2003. СПб: БХВ-Петербург, 2004, 738 с.
Дунаев В. В. Базы данных. Язык SQL для студента. СПб: БХВ-Петербург, 2006, 288 с.
Полякова Л.Н. Основы SQL: Курс лекций. Учебное пособие/ Л.Н. Полякова. М.: Интернет-Университет Информационных Технологий, 2004, 368 с.
Тимошок Т. В. Microsoft Access 2003. Киев: Диалектика, 2004, 464 с.
6
Группа
Курс
Фамилия И.О.
Итоги
Средний балл
Специальность