Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Задания_заоч / Лабораторные / Лаб раб 13 Программирование в MS Access часть 3.doc
Скачиваний:
47
Добавлен:
21.05.2015
Размер:
96.26 Кб
Скачать

Группа переключателей

Пример 7.

Создать на форме ФормаКлиентыгруппу переключателей с названиями городов: Омск, Москва, Новосибирск, Томск, - сохранить группу с названиемГруппаГорода(проверьте, чтобы свойствоИмя содержало указанное значение). В зависимости от выбранного значения переключателя автоматически подставлять соответствующее слово в поле Город формыФормаКлиенты. В методеПосле обновленияу компонентаГруппаГороданаписать следующий код:

If Me.ГруппаГорода.Value = 1 Then

Me.Город = "Омск"

ElseIf Me.ГруппаГорода.Value = 2 Then

Me.Город = "Москва"

ElseIf Me.ГруппаГорода.Value = 3 Then

Me.Город = "Новосибирск"

ElseIf Me.ГруппаГорода.Value = 4 Then

Me.Город = "Томск"

End If

Задание 10.

Создать главную форму с группой из 3 переключателей. На событие Двойное нажатие кнопкигруппы создать процедуру, которая будет запускать соответствующую форму из ранее созданных: ФормаКлиенты, ФормаПрограммирование, ПростейшаяМатематика.

Флажок

Пример 8. В зависимости от состояния флажка делать соответствующие поля доступными для редактирования или нет.

Создать на форме ФормаКлиентытри элементаФлажокс подписями: Фамилия, Организация, Город. Созданные флажки переименовать соответственно вФлажокФамилия,ФлажокОрганизация,ФлажокГород.

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

Для ФлажокФамилия:

If Me. ФлажокФамилия = -1 Then

Me.ФлажокКонтакта.Enabled = True

Else

Me.ФлажокКонтакта.Enabled = False

End If

Для ФлажокОрганизация:

If Me.ФлажокОрганизация.Value = -1 Then

Me.ОрганизацияИлиОтдел.Enabled = True

Else

Me.ОрганизацияИлиОтдел.Enabled = False

End If

Для ФлажокГород:

If Me.ФлажокГород.Value = -1 Then

Me.Город.Enabled = True

Else

Me.Город.Enabled = False

End If

Задание 11. Выполнить пример №8. Проверить работу.

Подчиненная форма

Пример 9.

Настроить свойства формы ..., чтобы она стала подчиненной для родительской формы ... и расположить ее элемент подчиненная форма на родительской.

Задание.

Список некоторых свойств и их английские аналоги для справки

Цвет фона (BackColor)

Тип фона (BackStyle)

Цвет границы (BorderColor)

Тип границы (BorderStyle)

Ширина границы (BorderWidth)

Подпись (Caption)

Всплывающая подсказка (ControlTipText) (формы)

Тип элемента, с которым работаем (ControlType)

Режим вывода (DisplayWhen) (формы)

Наклонный (FontItalic)

Шрифт (FontName)

Размер шрифта (FontSize)

Подчеркнутый (FontUnderline)

Насыщенность (FontWeight)

Цвет текста (ForeColor)

Высота (Height)

Идентификатор справки (HelpContextID)

InSelection(формы)

От левого края (Left)

Имя (Name)

Нажатие кнопки (OnClick) (формы)

Двойное нажатие кнопки (OnDblClick) (формы)

Кнопка вниз (OnMouseDown) (формы)

Перемещение указателя (OnMouseMove) (формы)

Кнопка вверх (OnMouseUp) (формы)

Контекстное меню (ShortcutMenuBar)

Оформление (SpecialEffect)

Дополнительные сведения (Tag)

Выравнивание текста (TextAlign)

От верхнего края (Top)

Вывод на экран (Visible)

Ширина (Width)