метд. БД. Методичка #2.. Методические указания по выполнению лабораторных работ Для студентов специальности 073000
Скачать 258 Kb.
|
Рис. 7. Форма для формирования списков для почты5. Разработайте форму для перемещения записей. 5.1. Разместите в форме левый список, указав для него в качестве источника строк имя запроса, разработанного в пункте 4. Для множественного выделения строк в списке установите значение свойства списка Несвязанное выделение в значение «Простой». Выберите в качестве присоединенного столбца списка ключевой столбец основной таблицы, установив в свойстве Присоединенный столбец номер этого столбца. Задайте ширину столбцов списка. Протестируйте форму. Убедитесь, что в левом списке можно выделить несколько строк. 5.2. Разместите в форме правый список, указав для него в качестве источника строк таблицу «РАБОЧАЯ». Для множественного выделения строк в списке установите значение свойства списка Несвязанное выделение в значение «Простой». Выберите в качестве присоединенного столбца списка ключевой столбец таблицы. 5.3. Разместите 4 кнопки между списками и напишите обработчики событий для этих кнопок. Обработчик события «Нажатие кнопки > » должен обеспечивать перемещение отобранных в левом списке записей в правый список: Если левый список пустой Вывести сообщение Завершить выполнение процедуры Если в левом списке нет выделенных строк Вывести сообщение Завершить выполнение процедуры Цикл по выделенным строкам левого списка Добавить в таблицу «РАБОЧАЯ» информацию о выделенной записи основной таблицы Отменить выделение строки Конец цикла Обновить левый список Обновить правый список При программировании операций добавления или удаления записей таблиц используйте методы RunSQL и/или OpenQuery объекта DoCmd. Пример процедуры обработки события «Нажатие кнопки >» для формы формирования списков заказов для почты приведен на рис. 8. Обработчик события «Нажатие кнопки < » должен перемещать отобранные в правом списке записи в левый список. Обработчик события «Нажатие кнопки >> » должен перемещать все записи левого списка в правый список. Обработчик события «Нажатие кнопки << » должен перемещать все записи правого списка в левый список. 5.4. Разместите кнопку Выполнить. Напишите обработчик события «Нажатие кнопки Выполнить». Он должен перемещать отобранные из основной таблицы записи, которые отображаются в правом списке, в таблицу «АРХИВ» и отображать в форме результат выполнения архивации: Добавить в таблицу «АРХИВ» все отобранные записи Удалить из основной таблицы все отобранные записи Очистить таблицу «РАБОЧАЯ» Обновить левый список Обновить правый список 5.5. Разместите в форме кнопку Выход. Напишите обработчик события «Нажатие кнопки Выход». Он должен обеспечивать очистку таблицы «РАБОЧАЯ», восстановление вывода системных сообщений и закрытие формы. 5.6. Напишите обработчик события «Открытие формы», который должен отменять вывод системных сообщений при выполнении запросов действия. Краткое описание свойств списка, полезных при написании обработчиков событий для разрабатываемой формы, приведено в табл. 5. Таблица 5. Свойства списка
Private Sub Вправо_Click() Dim i If Список1.ListCount = 0 Then MsgBox "Список пустой" Exit Sub End If If Список1.ItemsSelected.Count = 0 Then MsgBox "Нет выделенных строк" Exit Sub End If For Each i In Список1.ItemsSelected DoCmd.RunSQL "insert into [Рабочая]([Код заказа] , “ & _ “[Количество]) select [Код заказа],[Количество]from [Заказы]” _ & “where [Код заказа]= " & Список1.ItemData(i) Список1.Selected(i) = False Next Список1.Requery Список2.Requery End Sub Рис. 8. Текст процедуры для перемещения записей |