Создание и обработка базы данных средствами СУБД Access

OpenQuery stDocName, acNormal, acEdit

Exit_Студенты_с_высоким_средним_баллом_C:

Exit Sub

Err_Студенты_с_высоким_средним_баллом_Click:

MsgBox Err. Description

Resume Exit_Студенты_с_высоким_средним_баллом_C

End Sub

7. Вывод сведений об институтах, у которых процент бюджетников больше произвольно заданной величины. Сведения представить в таком виде:

Институт % бюджетников Курс Кол-во групп на курсе Кол-во студентов Для реализации задания создаем запрос «Сведения об институтах» (рис. 13). Для подсчета количества групп и студентов используем групповую операцию Count. Для вывода записей об институтах, процент бюджетников в которых превышает заданный, устанавливаем условие отбора: >[Укажите процент бюджетников (проценты)]

Рис. 13. Запрос «Сведения об институтах»

Результат выполнения запроса для процента бюджетников 40 представлен на рис. 14.

Рис. 14. Результат запроса «Сведения об институтах»

Вызов:

С помощью мастера инициируем создание следующей процедуры:

Private Sub Вывод_сведений_об_институтах_Click ()

On Error GoTo Err_Вывод_сведений_об_институтах_Click

Dim stDocName As String

stDocName = ChrW (1057) & ChrW (1074) & ChrW (1077) & ChrW (1076) & ChrW (1077) & ChrW (1085) & ChrW (1080) & ChrW (1103) & ChrW (32) & ChrW (1086) & ChrW (1073) & ChrW (32) & ChrW (1080) & ChrW (1085) & ChrW (1089) & ChrW (1090) & ChrW (1080) & ChrW (1090) & ChrW (1091) & ChrW (1090) & ChrW (1072) & ChrW (1093)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Вывод_сведений_об_институтах_Click:

Exit Sub

Err_Вывод_сведений_об_институтах_Click:

MsgBox Err. Description

Resume Exit_Вывод_сведений_об_институтах_Click

End Sub

8. Удалить с помощью запроса записи о студентах, имеющих более трех двоек.

Для реализации задания необходимо создать два запроса. Запрос «Успеваемость Запрос» (рис. 15) является вспомогательным. С помощью него осуществляется фильтрация студентов, имеющих хотя бы одну двойку (условие отбора), а также подсчет количества двоек для каждого студента с помощью Построителя запросов.

Рис. 15. Запрос «Успеваемость Запрос»

Далее на основе этого запроса создаем запрос «Успеваемость Запрос2» (рис. 16), где с помощью условия отбора >3 выбираем только те записи, где студенты имеют более 3-х двоек. Далее меняем тип запроса с запроса на выборку в запрос на удаление (Меню Запрос (Удаление).

Рис. 16. Запрос «Успеваемость Запрос2»

Вызов:

С помощью мастера инициируем создание следующей процедуры:

Private Sub Удаление_двоечников_Click ()

On Error GoTo Err_Удаление_двоечников_Click

Dim stDocName As String

stDocName = ChrW (1059) & ChrW (1089) & ChrW (1087) & ChrW (1077) & ChrW (1074) & ChrW (1072) & ChrW (1077) & ChrW (1084) & ChrW (1086) & ChrW (1089) & ChrW (1090) & ChrW (1100) & ChrW (32) & ChrW (1047) & ChrW (1072) & ChrW (1087) & ChrW (1088) & ChrW (1086) & ChrW (99) & ChrW (50)

DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Удаление_двоечников_Click:

Exit Sub

Err_Удаление_двоечников_Click:

MsgBox Err. Description

Resume Exit_Удаление_двоечников_Click

End Sub

9. Вывод отчета:

Для реализации задания с помощью мастера создаем отчет «Институты», с 3-мя уровнями: Институт, Курс, Группа, используя возможность подсчета Итога (Avg). Далее получившийся отчет редактируем в режиме конструктора.

Вызов:

С помощью мастера инициируем создание следующей процедуры:

Private Sub Вывод_отчета_Click ()

On Error GoTo Err_Вывод_отчета_Click

Dim stDocName As String

stDocName = ChrW (1048) & ChrW (1085) & ChrW (1089) & ChrW (1090) & ChrW (1080) & ChrW (1090) & ChrW (1091) & ChrW (1090) & ChrW (1099)

DoCmd.OpenReport stDocName, acPreview

Exit_Вывод_отчета_Click:

Exit Sub

Err_Вывод_отчета_Click:

MsgBox Err. Description

Resume Exit_Вывод_отчета_Click

End Sub

10. Закрытие базы данных.

Для реализации этого пункта меню создаем на форме кнопку с именем «Закрытие базы данных».

С помощью мастера инициируем создание следующей процедуры:

Private Sub Выход_Click ()

On Error GoTo Err_Выход_Click

DoCmd.Quit

Exit_Выход_Click:

Exit Sub

Err_Выход_Click:

MsgBox Err. Description

Resume Exit_Выход_Click

End Sub

Для вызова формы «Меню пользователя» на экран после входа в базу данных устанавливаем свойства:

Сервис (Параметры запуска (Вывод формы/страницы (Меню пользователя) (рис. 17).

Рис. 17. Параметры запуска

Распечатка Отчета Режим конструктора

Фрагменты кода VBA

Для реализации задания 3 была создана пользовательская функция minimize в модуле Module1:

Public Function minimize (o1, o2, o3, o4, o5, o6)

Dim a (6) As Integer

Dim i As Byte

Dim p As Integer

Dim f As Boolean

a (1) = o1

a (2) = o2

a (3) = o3

a (4) = o4

a (5) = o5

a (6) = o6

Do

f = True

For i = 1 To 5

If a (i) < a (i + 1) Then

p = a (i)

a (i) = a (i + 1)

a (i + 1) = p

f = False

End If

Next:

Loop Until f = True

For i = 1 To 6

minimize = minimize & «» & Str (a (i))

Next

End Function

Функция осуществляет сортировку 6-ти чисел в порядке убывания. Для этого используется массив из а (6), сортировка в котором осуществляется «методом пузырька». Результат записывается в переменную minimize.

Заключение

В ходе работы по подготовке данной курсовой были углублены знания по теме «Базы данных», «MS Access», «VBA в MS Access».

В результате работы были закреплены знания по следующим разделам:

Создание баз данных;

Изучены основные принципы работы с базами данных;

Формирование таблиц;

Формирование и построение запросов;

Формирование отчетов;

Настройка параметров баз данных.

Созданная база данных была полностью настроена в соответствии с индивидуальным заданием, под данную предметную область.

Институт

Число специальностей

Курс

Группа

ФИО

Средний балл

Итоги по группе

Институт

Число специальностей

Курс

Группа

ФИО

Средний балл

Итоги по группе