ТЕМА : Создание формы “Диплом”
СРОК СДАЧИ : 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. Отключение сообщений.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.