Главная страница

метд. БД. Методичка #2.. Методические указания по выполнению лабораторных работ Для студентов специальности 073000


Скачать 258 Kb.
НазваниеМетодические указания по выполнению лабораторных работ Для студентов специальности 073000
Дата19.01.2020
Размер258 Kb.
Формат файлаdoc
Имя файлаБД. Методичка #2..doc
ТипМетодические указания
#104788
страница6 из 8
1   2   3   4   5   6   7   8

Рис. 7. Форма для формирования списков для почты



5. Разработайте форму для перемещения записей.

5.1. Разместите в форме левый список, указав для него в качестве источника строк имя запроса, разработанного в пункте 4. Для множественного выделения строк в списке установите значение свойства списка Несвязанное выделение в значение «Простой». Выберите в качестве присоединенного столбца списка ключевой столбец основной таблицы, установив в свойстве Присоединенный столбец номер этого столбца. Задайте ширину столбцов списка. Протестируйте форму. Убедитесь, что в левом списке можно выделить несколько строк.

5.2. Разместите в форме правый список, указав для него в качестве источника строк таблицу «РАБОЧАЯ». Для множественного выделения строк в списке установите значение свойства списка Несвязанное выделение в значение «Простой». Выберите в качестве присоединенного столбца списка ключевой столбец таблицы.

5.3. Разместите 4 кнопки между списками и напишите обработчики событий для этих кнопок.

Обработчик события «Нажатие кнопки > » должен обеспечивать перемещение отобранных в левом списке записей в правый список:

  • Если в левом списке нет выделенных строк

  • Вывести сообщение

  • Завершить выполнение процедуры

  • Цикл по выделенным строкам левого списка

  • Добавить в таблицу «РАБОЧАЯ» информацию о выделенной записи основной таблицы

  • Отменить выделение строки

  • Конец цикла

  • Обновить левый список

  • Обновить правый список

При программировании операций добавления или удаления записей таблиц используйте методы RunSQL и/или OpenQuery объекта DoCmd. Пример процедуры обработки события «Нажатие кнопки >» для формы формирования списков заказов для почты приведен на рис. 8.

Обработчик события «Нажатие кнопки < » должен перемещать отобранные в правом списке записи в левый список. Обработчик события «Нажатие кнопки >> » должен перемещать все записи левого списка в правый список. Обработчик события «Нажатие кнопки << » должен перемещать все записи правого списка в левый список.

5.4. Разместите кнопку Выполнить. Напишите обработчик события «Нажатие кнопки Выполнить». Он должен перемещать отобранные из основной таблицы записи, которые отображаются в правом списке, в таблицу «АРХИВ» и отображать в форме результат выполнения архивации:

  • Добавить в таблицу «АРХИВ» все отобранные записи

  • Удалить из основной таблицы все отобранные записи

  • Очистить таблицу «РАБОЧАЯ»

  • Обновить левый список

  • Обновить правый список

5.5. Разместите в форме кнопку Выход. Напишите обработчик события «Нажатие кнопки Выход». Он должен обеспечивать очистку таблицы «РАБОЧАЯ», восстановление вывода системных сообщений и закрытие формы.

5.6. Напишите обработчик события «Открытие формы», который должен отменять вывод системных сообщений при выполнении запросов действия.

Краткое описание свойств списка, полезных при написании обработчиков событий для разрабатываемой формы, приведено в табл. 5.

Таблица 5.

Свойства списка

Свойство

Описание

Selected (i)

Состояние выделения i-строки списка (True/False)

ItemData(i)

Значение, содержащееся в присоединенном столбце i-строки списка

Column(j, i)

Значение элемента списка, расположенного в j-столбце и i-строке (нумерация строк и столбцов начинается с 0)

Row­Source

Источник строк списка (имя таблицы, запроса или SQL-команда)

ItemsSe­lected

Семейство, содержащее индексы выделенных строк. Имеет свойство Count – число элементов в семействе (коли­чество выделенных строк списка)

ColumnCount

Количество столбцов в списке

ListCount

Количество строк в списке

Count

Количество элементов в семействе ItemsSe­lected (коли­чество выделенных строк списка)

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. Текст процедуры для перемещения записей
1   2   3   4   5   6   7   8


написать администратору сайта