Создание формы “Диплом” (Лабораторная работа № 11)

Страницы работы

Содержание работы

Лабораторная  Работа № 11

ТЕМА :  Создание формы “Диплом”

СРОК  СДАЧИ :  14 апреля 2003 г.

ЦЕЛЬ РАБОТЫ :  Приобретение навыков создания иерархических списков.

ТЕОРЕТИЧЕСКИЕ ЗНАНИЯ :  Создание иерархических списков. Обновление данных. Выполнение исполняемых запросов. Отключение сообщений

Форма “Диплом”

Форма Диплом отображается при нажатии кнопки Диплом на форме Главная и предназначена для отображения дипломных оценок студентов выбранной специальности.

Форма Диплом содержит три свободных списка КодСпециальности, КодСтудента, Оценки, основанные на таблице Специальности и запросах ДипломСтуденты, ДипломОценкиДиплома соответственно.

Запросы формы “Диплом”

Запрос ДипломСреднийБалл

Запрос предназначен для вычисления среднего балла студента по дипломным дисциплинам по которым имеется положительная оценка.

На базе таблиц План, ПланДиплом, Дисциплины, Оценки и ТипыОценок создайте запрос ДипломСреднийБалл, содержащий поля: КодСтудента и СреднийБалл.

Поле

Таблица

Групповая операция

Условие отбора

КодСтудента

Оценки

Группировка

СреднийБалл: Число

ТипыОценок

Avg

Успеваемость

ТипыОценок

Условие

1

Для того, чтобы значение среднего балла отображалось в запросе с двумя знаками после запятой необходимо установить курсор в поле запроса в режиме конструктора, в контекстном меню выбрать команду Свойства и установить следующие свойства запроса:

Свойство

Значение

Формат поля

Фиксированный

Число десятичных знаков

2

Запрос ДипломСтуденты

Запрос предназначен для отображения студентов, обучающихся на выбранной специальности, года приёма в учебное заведение и их среднего балла по диплому.

На базе запроса ДипломСреднийБалл и таблиц Студенты, Состояния и УчебныйГод создайте запрос ДипломСтуденты, содержащий поля: КодСтудента, ГодПриёма, ФИО, СреднийБалл и КодСпециальности.

Записи в запросе должны быть отсортированы по году приёма и фамилии студента. В запросе должны быть отображены все студенты, обучающиеся на выбранной специальности, в том числе и не имеющие оценок.

Поле

Таблица

Сортировка

Условие отбора

КодСтудента

Студенты

ГодПриёма: Left$([Год];4)

по возрастанию

ФИО: [Фамилия] & "U" & Mid([Имя]; 1;1) & "." & Mid([Отчество];1;1) & "."

по возрастанию

СреднийБалл

ДипломСреднийБалл

КодСпециальности

Студенты

[Forms]![Диплом]![КодСпециальности]

Зачислен

Состояния

Истина

Обратите внимание, что запрос ДипломСреднийБалл и таблица Студенты связаны между собой по значению поля КодСтудента левой односторонней связью, что позволяет отображать в запросе всех студентов, обучающихся на выбранной специальности, в том числе и не имеющих оценок.

Запрос ДипломДисциплины

Запрос предназначен для отображения всех дисциплин, включённых в диплом выбранной специальности.

На базе таблиц План, ПланДиплом и Предметы создайте запрос ДипломДисциплины, содержащий поля: КодПлана, Предмет, Семестр, Всего и КодСпециальности.

Поле

Таблица

Условие отбора

КодПлана

План

Предмет

Предметы

Семестр

План

Всего

ПланДиплом

КодСпециальности

План

[Forms]![Диплом]![КодСпециальности]

Запрос ДипломОценкиСтудента

Запрос предназначен для отображения положительных оценок выбранного студента.

На базе таблиц Дисциплины, Оценки и ТипыОценок создайте запрос ДипломОценкиСтудента, содержащий поля: КодПлана, Оценка, КодСтудента и Успеваемость.

Поле

Таблица

Условие отбора

КодПлана

Дисциплины

Оценка

ТипыОценок

КодСтудента

Оценки

[Forms]![Диплом]![КодСтудента]

Успеваемость

ТипыОценок

1

Запрос ДипломОценкиДиплома

Запрос предназначен для отображения всех дисциплин, включённых в диплом, и положительных оценок выбранного студента.

На базе запросов ДипломДисциплины и ДипломОценкиСтудента создайте запрос Диплом-ОценкиДиплома, содержащий поля: Семестр, Предмет, Оценка и Всего. Записи должны быть отсортированы по значению полей Семестр и Предмет.

Поле

Таблица

Сортировка

Семестр

ДипломДисциплины

по возрастанию

Предмет

ДипломДисциплины

по возрастанию

Оценка

ДипломОценкиСтудента

Всего

ДипломДисциплины

Модуль формы Диплом

Private Sub ОбновлениеСтудентов()

Me.КодСтудента.Requery

End Sub

Private Sub ОбновлениеОценок()

Me.Оценки.Requery

End Sub

Private Sub КодСпециальности_Change()

ОбновлениеСтудентов

ОбновлениеОценок

End Sub

Private Sub КодСтудента_AfterUpdate()

ОбновлениеОценок

End Sub

Private Sub КнопкаОценки_Click()

DoCmd.OpenForm "Оценки"

DoCmd.Close acForm, "Долги"

End Sub

Private Sub КнопкаЗакрыть_Click()

DoCmd.Close

End Sub

Контрольные  вопросы

1.  Создание иерархических списков.

2.  Обновление данных.

3.  Выполнение исполняемых запросов.

4.  Отключение сообщений.

Похожие материалы

Информация о работе