Запросы СтудентыИмя и СтудентыОтчество

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

Модуль формы “Анкета”

Модуль формы Анкета содержит команды обновления полей списком Имя и Отчество при переходе на другую запись и изменении пола студента. Кроме того, при входе в поля со списком – списки открываются.

Private Sub ОбновлениеСписковИмениОтчества()

Me.Отчество.Requery

Me.Имя.Requery

End Sub

Private Sub Form_Load()

Me.Рождение.MaxDate = DateAdd("yyyy", -14, Now())

Me.Рождение.MinDate = DateAdd("yyyy", -35, Now())

End Sub

Private Sub КодПола_Change()

If Me.КодПола.OldValue <> Me.КодПола.Value Then Имя = " " : Отчество = " "

ОбновлениеСписковИмениОтчества

End Sub

Private Sub Form_Current()

ОбновлениеСписковИмениОтчества

End Sub

Private Sub Имя_AfterUpdate()

ОбновлениеСписковИмениОтчества

End Sub

Private Sub Имя_Enter()

Me.Имя.Dropdown

End Sub

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

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

End Sub

Private Sub Отчество_AfterUpdate()

ОбновлениеСписковИмениОтчества

End Sub

Private Sub Отчество_Enter()

Me.Отчество.Dropdown

End Sub

Private Sub КодПола_Enter()

Me.КодПола.Dropdown

End Sub

Private Sub Рождение_Change()

Me.КодГода.SetFocus

End Sub

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

Me.КодГода.Dropdown

End Sub

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

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

End Sub

Private Sub КнопкаНовая_Click()

DoCmd.GoToRecord , , acNewRec

End Sub

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

DoCmd.Close

End Sub

Форма “План”

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

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

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

Простая форма План основана на запросе ПланСпециальности и содержит подчинённую ленточную форму ПланСпециальности, основанную на запросе ПланСпециальности. Формы связаны по значению полей КодОтделения, КодСпециальности, Семестр.

Ленточная форма ПланСпециальности содержит поле со списком КодПредмета, которое основано на SQL-запросе:

SELECT [Предметы].[КодПредмета], [Предметы].[Предмет] FROM Предметы ORDER BY [Предметы].[Предмет];

который содержит все записи таблицы Предметы, отсортированные по алфавиту. Поле со списком КодКотроля основано на таблице Контроль.

В примечании форма ПланСпециальности расположены поля, отображающие итоговые значения плана текущего семестра: Дисциплин, Экзаменов, Часов, для которых значения свойства Данные установлено равным = Count([КодПредмета]), = - Sum([КодКонтроля]), = Sum([Часы]) соответственно. Значения других свойств приведены в таблице.

Запросы формы “План”

Запрос ПланСпециальности

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

Модуль формы “План”

Модуль формы План содержит команды передачи значений управляющих полей на форму Главная.

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.Close

DoCmd.OpenForm "Предметы"

End Sub

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

DoCmd.Close

End Sub

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

DoCmd.Close

DoCmd.OpenForm "Дисциплины"

End Sub

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

1.Создание подчинённой формы.

2.Основные и подчинённые поля.

3.Условия, необходимые для связывания основной и подчинённой форм

Дата добавления: 2015-07-26; просмотров: 200; Нарушение авторских прав

Мы поможем в написании ваших работ!