Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНОБРНАУКИ РФ
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«Юго-Западный государственный университет»
Кафедра программного обеспечения вычислительной техники
Лабораторная работа №7
Создание и обработка баз данных Access
Вариант 12
|
Выполнили: |
ст. гр. ПО-91 Кулабухов С.А. Рышкова А.А. |
|
|
Проверил: |
доц. Малышев. А.В. |
Курск - 2013
Цель: Изучение способов построения и программной обработки на языках VBA и SQL связанных таблиц баз данных Microsoft Access.
Вариант предметной области
Задание:
3.Страховая компания
- Выплаты (НомерДоговора, Дата заключения, Страховая сумма,
СуммаВыплаты, Код филиала, Код вида страхования)
- ВидСтрахования (КодВида, Наименование, Комиссионное вознаграждение)
- Филиал (КодФилиала, Наименование филиала, Адрес, Телефон).
Выполнение работы
Создание 1-й таблицы
Таблица Payments (Выплаты)
Создание 2-й таблицы
Таблица ВидСтрахования (InsuranceKind)
Создание 3-й таблицы
Таблица Филиал (Branches)
Схема данных
Добавление таблицы
Схема базы данных
Таблицы
Создание форм
Создание 1-й формы
Создание 2-й формы
Сохранение таблицы 1 в формате Excel и запуск Excel
Создание макроса
Экспорт в Excel
Вывод количества страховых договоров и общей суммы выплат по каждому филиалу
Запрос в режиме конструктора:
В режиме SQL
Результат
Вывод форм
При щелчке на поле и именем появляется общая сумма страховых выплат за год по этому филиалу
Код функции для подсчета выплат за год
Public Function GetPerYearSum(MonthSum) As Long
Dim result
result = 12 * MonthSum
GetPerYearSum = result
End Function
Вид запроса в режиме SQL
Чтобы при щелчке на поле с наименованием филиала появлялась приблизительная общая сумма страховых выплат за год необходимо создать 2 макроса
Этот макрос будет делать невидимым поле с общей годовой суммой.
2-й макрос
Этот макрос будет делать видимым поле с общей годовой суммой
В свойствах формы 1 присваиваем строке «текущая запись» значение mm3
Далее заходим в свойства поля «наименование» (name). На вкладке события строке нажатие кнопки присваиваем значение mm4. Тем самым при нажатии на поле «наименование» будет выполняться макрос mm4 и поле с общей годовой суммой станет видимым
При щелчке на кнопке формы появляется вторая форма
Для того, чтобы связать первую форму со второй, при создании кнопки устанавливаем следующие параметры
Вывод соотношения между страховой суммой и суммой выплаты
Функция для выявления соотношения
Public Function CorrBetweenSums(s1, s2) As String
Dim result As String
If (s1 > s2) Then
result = "Страховая сумма больше"
ElseIf (s1 = s2) Then
result = "Страховая сумма равна сумме выплаты"
ElseIf (s1 < s2) Then
result = "Страховая выплата больше страховой суммы"
End If
CorrBetweenSums = result
End Function
Запрос в режиме SQL
Запрос в режиме таблицы
Вывод количества выплат по каждому виду контрактоа
Запрос в режиме SQL
Запрос в режиме таблицы
Создание отчета
Для создания отчета создадим запрос, который будет вычислять общие суммы страховых выплат
Запрос в режиме конструктора
Запрос в режиме SQL
На вкладке отчеты окна БД выбираем «создать отчет в режиме мастера». В отчет включаем все поля запроса ForReport. Отчет в режиме конструктора будет иметь следующий вид:
Вид=>Сортировка и группировка. По полю предприятие:
Для конечных сумм добавляем поля
Удаление записей по произвольно заданному изделию
Создаём запрос. Вкладка запросы БД. Создать запрос в режиме конструктора. Меню «запрос» => удаление. Итак, наш запрос принял вид запроса удаление.
Запрос в режиме конструктора
Запрос в режиме SQL
При запуске запроса получаем окно
Закрытие БД, выход из Access
На вкладке Макросы панели БД выбираем Создать. Назовём макрос m14. Структура макроса:
В макрокоманде «закрыть» не указываем аргументов. Во время выполнения макроса будет выдано сообщение:
База данных будет закрыта и будет осуществлён выход из Access