сolar лити

Дата добавления: 2015-10-15; просмотров: 649

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

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

Запрос используется также в форме Оценки.

Запрос ПланСессия

Запрос предназначен для вычисления даты начала экзаменационной сессии в выбранном полугодии выбранного учебного года. Вычисленное значение будет использовано в качестве значения по умолчанию для поля ДатаКонтроля в таблице Дисциплины. Количество месяцев между началом учебного года и началом экзаменационной сессии указано в поле Месяцы таблицы Полугодия.

На базе таблиц УчебныйГод и Полугодия создайте запрос ПланСессия, содержащий поля: Сессия, КодГода и КодПолугодия. В запросе должен быть отображён только выбранный учебный год ([Forms]![Дисциплины]![КодГода]), выбранное полугодие ([Forms]![Дисциплины]![КодПолугодия]) и вычислена дата начала сессии. Обратите внимание на то, что таблицы, на которых основан запрос, не связаны между собой, а запрос будет содержать одну запись.

Запрос ПланСеместра

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

На базе таблиц План, Семестры и ПланСессия создайте запрос ПланСеместра, содержащий поля: Сессия и КодПлана. В запросе должен быть отображены только предметы, включённые в план выбранных специальности ([Forms] ! [Дисциплины] ! [КодСпециальности]), отделения ([Forms] ! [Главная] ! [КодОтделения]) курса ([Forms] ! [Главная] ! [Курс]) и полугодия ([Forms] ! [Дисциплины] ! [КодПолугодия]). Кроме того, запрос должен содержать дату начала сессии в выбранном полугодии соответствующего учебного года.

Запрос ПланГруппы

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

На базе таблиц План, Семестры и Дисциплины создайте запрос ПланГруппы, содержащий поле КодПлана. В запросе должен быть отображены только дисциплины, включённые в план выбранной группы ([Forms] ! [Дисциплины] ! [КодГруппы]) в выбранном полугодии ([Forms] ! [Дисциплины] ! [КодПолугодия]).

Запрос ПланОтсут

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

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

Запрос ПланДобавление

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

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

Модуль формы “Дисциплины”

Private Sub ОбновлениеГруппы()

Me.КодГруппы.Requery

Me.КодГруппы = DLookup("[КодГруппы]", "ИерархияГруппы")

Forms.Главная.КодГруппы = Me.КодГруппы

End Sub

Private Sub ОпределениеКурса()

Dim Критерий As String

Критерий = "КодГруппы=Forms!Главная!КодГруппы"

Forms.Главная.Курс = DLookup("[Курс]", "Группы", Критерий)

Forms.Главная.КодОтделения = DLookup("[КодОтделения]", "Группы", Критерий)

End Sub

Private Sub ОпределениеПределовДатыКонтроля()

On Error Resume Next

Dim Критерий As String

Dim Дата As Date

Критерий = "КодГода=Forms!Главная!КодГода"

Дата = DLookup("[Начало]", "УчебныйГод", Критерий)

Me.Список.Form.ДатаКонтроля.MinDate = Дата

End Sub

Private Sub Form_Load()

ОпределениеКурса

ОпределениеПределовДатыКонтроля

End Sub

Private Sub КодГода_Change()

Forms.Главная.КодГода = Me.КодГода

ОбновлениеГруппы

ОпределениеКурса

ОпределениеПределовДатыКонтроля

End Sub

Private Sub КодПолугодия_Change()

Forms.Главная.КодПолугодия = Me.КодПолугодия

End Sub

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

Forms.Главная.КодСпециальности = Me.КодСпециальности

ОбновлениеГруппы

ОпределениеКурса

End Sub

Private Sub КодГруппы_Change()

Forms.Главная.КодГруппы = Me.КодГруппы

ОпределениеКурса

End Sub

Private Sub КнопкаДобавитьДисциплины_Click()

DoCmd.SetWarnings False

DoCmd.OpenQuery "ПланДобавление"

DoCmd.SetWarnings True

Me.Список.Requery

End Sub

Private Sub КнопкаПлан_Click()

DoCmd.Close

DoCmd.OpenForm "План"

End Sub

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

DoCmd.Close

DoCmd.OpenForm "Оценки"

End Sub

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

DoCmd.Close

End Sub

Private Sub Form_Unload(Cancel As Integer)

DoCmd.SetWarnings False

DoCmd.OpenQuery "ДипломСоздать"

DoCmd.SetWarnings True

End Sub

Модуль формы “ДисциплиныГруппы”

Модуль формы ДисциплиныГруппы содержит команды проверки даты экзамена или зачёта и открытия формы Преподаватели.

Private Sub ДатаКонтроля_Change()

Dim Критерий As String

Dim Дата As Date

КодПреподавателя.SetFocus

Критерий = "КодГода=Forms!Главная!КодГода"

Дата = DLookup("[Конец]", "УчебныйГод", Критерий)

While ДатаКонтроля > Дата

ДатаКонтроля = DateAdd("yyyy", -1, ДатаКонтроля)

Wend

End Sub

Private Sub КнопкаПреподаватели_Click()

DoCmd.OpenForm "Преподаватели"

End Sub

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

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

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

3.Вычисления в форме.