метд. БД. Методичка #2.. Методические указания по выполнению лабораторных работ Для студентов специальности 073000
Скачать 258 Kb.
|
Рис. 3. Форма для изменения заказаМетодические указанияРазработайте форму для изменения выбранной записи. Разместите в ней две кнопки. Напишите процедуры обработки событий для этих кнопок. Рис. 4. Окно подтверждения удаления заказа Разработайте ленточную форму. В качестве источника записей для этой формы укажите таблицу или многотабличный запрос на основе таблиц вашей базы данных. Для предотвращения непреднамеренного удаления или изменения записи установите для формы режим, запрещающий удаление и изменение записей через форму. Разместите в форме 4 кнопки. Напишите для этих кнопок процедуры обработки событий. Обработчик события «Нажатие кнопки Добавить» Перевести ленточную форму в скрытое состояние Открыть форму для ввода новой записи Обработчик события «Нажатие кнопки Изменить» Перевести ленточную форму в скрытое состояние Открыть форму для изменения выбранной записи. Обратите внимание на синтаксис задания критерия отбора записи в методе открытия формы объекта DoCmd для строковых полей и полей типа «Дата». Ниже приведены примеры вызова метода открытия формы объекта DoCmd. DoCmd.OpenForm “Изменение”,,,”ФИО= 'Иванов И.И. '” DoCmd.OpenForm “Изменение”,,,”ФИО= '” & Me!ФИО & “'” DoCmd.OpenForm “Изменение”,,,”ФИО= Forms!Просмотр!ФИО ” DoCmd.OpenForm “Изменение”,,,”[Дата рождения]=#01/02/99#” DoCmd.OpenForm “Изменение”,,,”[Дата рождения]=#” & _ Month(Me![Дата рождения]) & “/” & Day(Me![ Дата рождения]) _ & “/” & Year(Me![ Дата рождения]) & “#” Обработчик события «Нажатие кнопки Удалить» Вывести диалоговое окно подтверждения удаления. Для вывода окна используйте функцию MsgBox. Пример использования этой функции в процедуре обработки события «Нажатие кнопки Удаление приведен» ниже. Private Sub Удаление_Click() If MsgBox(“Для удаления заказа нажмите кнопку ДА. “ & _ Chr(10) & “Отмена удаления будет невозможна.”, _ VbYesNo+VbExclamation+VbDefaultButton2, “Удаление заказа”) _ = VbYes Then DoCmd.RunSQL “delete from [заказы] where [код заказа]=“ _ & Me![Код заказа] Me.Requery End If End Sub Если пользователь подтверждает удаление Отменить вывод системных сообщений Удалить запись Обновить ленточную форму (метод формы Requery) Восстановить вывод системных сообщений Обработчик события «Нажатие кнопки Выход» Закрыть ленточную форму 3. Напишите обработчик события «Закрытие формы» для формы ввода записей. Перевести ленточную форму в видимое состояние Обновить ленточную форму 4. Напишите обработчик события «Закрытие формы» для формы изменения записей. 5. Максимизируйте размер ленточной формы. Для этого используйте метод Maximizeобъекта DoCmd. Установите для форм ввода и изменения данных свойство Всплывающее окно в значение «Да». Свойство Всплывающее окно, установленное в значение «Да», обеспечивает возможность сохранить свои размеры формам приложения, которые не должны разворачиваться до максимального размера. ЛАБОРАТОРНАЯ РАБОТА №3 ПОИСК ГРУППЫ ЗАПИСЕЙ Постановка задачиРазработать форму для поиска группы записей по заданным критериям. Пример формы для поиска заказов приведен на рис. 5. Форма содержит поля для задания условий отбора записей, список, в котором отображаются записи, отвечающие условиям поиска, и командные кнопки. Кнопка Поиск выполняет поиск записей и вывод в список найденных записей. Кнопка Сброс сбрасывает текущие условия поиска, заполняя поля пустыми значениями, и выводит все записи. Варианты задания приведены в табл. 4. Рис. 5. Форма для поиска заказов Методические указания 1. Создайте запрос для вывода всех записей. Он будет являться источником строк для списка (свойство списка RowSource) при пустых значениях полей, задающих условия отбора записей. Создайте параметрический запрос, для вывода записей, удовлетворяющих условиям поиска. В выражениях для условий отбора задайте ссылки на поля формы поиска. Для поиска по первым символам строкового значения поля используйте оператор Like или функции Left и Len. Параметрический запрос будет использоваться в качестве источника записей списка при поиске записей с помощью формы. Можно разработать один параметрический запрос для списка и в нем предусмотреть условие для вывода всех записей при пустых значениях полей, задающих условия отбора записей. Текст SQL запроса для поиска заказов для формы «Поиск заказов без предоплаты», приведен на рис. 6. 2. Разработайте несвязанную с источником данных форму для поиска информации. 3. Разместите в форме несвязанные с источниками данных поля для ввода условий поиска. Если для поиска используются даты, то установите для полей формат даты. Для задания критерия отбора можно использовать поле со списком, если количество возможных значений критерия невелико. 4. Разместите в форме список, указав для него в качестве источника строк имя запроса. 5. Разместите в форме кнопки Поиск, Сброс и Выход. Напишите для этих кнопок обработчики событий. Используйте для обновления списка метод Requery или свойство списка RowSource. Включите в обработчик события «Нажатие кнопки Поиск» проверку заполнения всех полей, если условия отбора связаны логической операцией «И». Включите в обработчик события «Нажатие кнопки Сброс» очистку полей ввода условий. 6. Напишите обработчик события «Открытие формы» для установки фокуса на первое поле условия отбора. Таблица 4. Варианты задания
|