Е.А. Бессонов Access. Объекты доступа к данным

20

. Элемент управления Должность представляет собой раскрывающийся список со свойствами:

Имя элемента управления	Должность
Данные	Должность
Тип источника строк	Список значений
Источник строк	Ассистент; Ст.преподаватель;
	Доцент; Профессор
Число столбцов	1
Заглавия столбцов	Нет
Связанный столбец	1

Уполей Степень и Звание в свойство Tag записана единица.

Вновой строке из раскрывающегося списка выбрана должность “Доцент”. Степень и звание автоматически вставлены из строки 3 (это последняя строка с такой должностью). В новую строку осталось ввести только номер преподавателя и фамилию.

Пример 10

Sub Form_Timer() Dim db As Database Dim R As RecordSet

Set db = DBEngine.WorkSpaces(0).Databases(0) Set R = db. OpenRecordSet (“Заставка”)

If Me.TimerInterval <> 0 Then

If R.Fields(“Отображать”).Value = 0 Then DoCmd.OpenForm “Введение”

Else

DoCmd.OpenForm “Счет” End If

End If

R.Close

DoCmd.Close A_Form, “Заставка” End Sub

Обычно при открытии БД вначале выводится специальная заставка. Это можно обеспечить командой Сервис|Параметры запуска, которая открывает диалоговое окно, содержащее поле для ввода имени формызаставки.

Процедура обработки события Form_Timer установлена в модуле формы “Заставка”. Заставка выводится кратковременно со сведениями

21

о правах интеллектуальной собственности, эмблеме и т.п. Затем открывается форма Введение, содержащая более подробные сведения о приложении.

Закрытие формы Введение приводит к запуску формы, с которой и ведется основная работа (в рассматриваемом примере это форма Счет). Для этого необходимо свойству Закрытие формы Введение присвоить процедуру обработки события

Private Sub Form_Close()

DoCmd.OpenForm(“Счет”) End Sub

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

Вывод формы Введение можно отменить и сразу перейти к форме Счет. Для этого на форме Введение следует установить флажок с подписью “Не отображать введение”. Для запоминания состояния флажка служит таблица Заставка с одним полем “Отображать” логического типа.

Инструкция Set устанавливает переменную R на таблицу Заставка. Внешняя инструкция If проверяет значение свойства формы TimerInterval (Интервал таймера). Если оно не равно нулю, выполняется внутренняя инструкция If. В ней проверяется состояние поля “Отображать” таблицы Заставка. Если в нем записано Нет (флажок “Не отображать введение” не установлен), то с помощью метода OpenForm открывается форма Введение. Если флажок установлен, открывается форма

Счет.

Задание

При разработке учебной базы данных самостоятельно составить и отладить процедуру с использованием объектов доступа к данным.

Список рекомендуемой литературы

Бессонов Е.А. Access. Программирование на языке SQL: Методические указания к лаб. работе/ КузГТУ. Кемерово,2001.

Бессонов Е.А. Access. Пользовательские функции: Методические указания к лаб. работе/ КузГТУ. Кемерово,2002.

Бессонов Е.А. Access. Объекты и события: Методические указания к лаб. работе/ КузГТУ. Кемерово, 2002.

Составитель

Евгений Александрович Бессонов

ACCESS

Объекты доступа к данным

Методические указания к лабораторной работе для студентов специальности “Экономика и управление на предприятиях ” по курсу “Автоматизация экономических расчетов”

Редактор Е.Л.Наркевич НД № 06536 от 16.01.02.

Подписано в печать 21.11.01.

Формат 60х84 /16. Бумага офсетная. Отпечатано на ризографе. Уч.-изд.л. 1,3. Тираж 50 экз. Заказ ГУ Кузбасский государственный технический университет. 650026, Кемерово, ул. Весенняя, 28.

Типография ГУ Кузбасский государственный технический университет. 650099, Кемерово, ул. Д. Бедного, 4А