Порядок выполнения работы

Создать приложение, позволяющее просматривать базу дан­ных.

С оздадим форму (рис. 1) с элементом управления Data, с тремя метками и с тремя текстовыми окнами для вывода соответствующей информации из базы данных, созданной Вами на лабораторной работе №1)

Свойствам объекта Data присваиваются следующие значения:

DataBaseName = C:\STUDENT\IVANOV.MBD (тут укажете путь к своей базе данных)

RecordSourse = Pablishers

Connect = Access.

Свойствам текстовых объектов Text1, Text2 и Text3 присваиваются значения:

DataSourse = Data1 (имя элемента Data — Data1),

DataField = Name (Name — имя того поля таблицы, которое мы хотим видеть в этом окне).

Созданное приложение позволяет просматривать базу дан­ных, получая из нее указанную информацию. Элемент управле­ния Data обеспечивает движение по записям (последовательное движение к последующей записи или к предыдущей записи при щелчке мышью по правой или левой стрелке объекта и переход к первой или последней записи при щелчке мыши по левой или правой кнопке окна).

Аналогичные действия можно проделать без использования мыши, а программно. Для этого применяются методы объекта Data.

Refresh — открытие и закрытие базы данных;

MoveFirst — теку­щей становится первая за­пись из множества записей:

MoveNext — теку­щей становится следующая запись из множества записей;

Move Previous — те­кущей становится предыдущая запись из множества записей;

MoveLast — текущей становится последняя запись из множества записей;

Update — редактированное поле записывается в базу дан­ных ( этот можно применять только для таблиц и динамических множеств);

М одифицируем приведенную выше форму, добавив ко­мандные кнопки.

Для перемещения указателя текущей записи на первую или последнюю записи используются методы MoveFirst и MoveLast:

Data1.Recordset.MoveFirst

Data1.Recordset.MoveLast.

Методы MoveNext и MovePrevious перемещают указатель на следующую и предыдущую записи в наборе записей

Редактирование текущей записи

Для того чтобы изменить данные в вашей базе данных, вы должны сначала сделать запись, подлежащую изменению, текущей записью. Это можно просто сделать при помощи одного из методов Move или при помощи кнопок со стрелками на объекте управления данными. Затем можно провести необходимые изменения содержимого связанных объектов управления. Чтобы сохранить сделанные изменения, достаточно просто переместить указатель текущей записи на любую другую запись или использовать метод Update.

Следующий пример показывает, как с помощью программного кода изменить содержимое поля PubID в первой записи таблицы Titles

Data1.RecordSource = "Titles"

Data1.Recordset.Edit

Data1.Recordset("Author") = "bob"

Data1.Recordset.Update

Добавление новой записи

Для того, чтобы добавить новые записи в набор записей надо проделать следующие действия:

1. Добавить новую пустую запись с помощью метода AddNew объекта Recordset. При этом указатель текущей записи сохраняется и затем перемещается на новую запись.

2. Определить новые значения в полях добавленной записи.

3. Сохранить сделанные изменения использованием метода Update. При этом указатель текущей записи принимает значение, которое у него было перед использованием метода AddNew.

Следующий фрагмент кода показывает, как с помощью программного кода добавить новую запись в таблицу Authors.

Data1.Recordset.AddNew 'Добавить новую запись

Data1.Recordset("Au_ID") = 37 'Установить значения полей

Data1.Recordset("Author") = "Ivanov"

Data1.Recordset("Year Born") = "1954"

Data1.Recordset.Update ' Сохранить изменения

Удаление записей

Чтобы удалить запись, установите указатель на требуемую запись и примените метод Delete объекта Recordset. Чтобы удалить группу записей, надо повторить подобные действия необходимое количество раз. Пример:

Data1.Recordset.Delete

Data1.Recordset.MoveNext

Перемещение по набору записей с помощью закладок

Использование закладки (bookmark) позволяет сначала сохранить указатель на текущую запись и затем, из любого места базы данных непосредственно позиционировать его на этой записи. Свойство Bookmark объекта Recordset содержит указатель на запись. Установкой свойства Bookmark, равному значению сохраненного ранее указателя, вы можете прямо позиционировать указатель на требуемую запись.

Следующий фрагмент кода устанавливает указатель текущей записи в положение, предварительно сохраненное с использованием закладки MyBookmark:

Dim MyBookmark As Variant

MyBookmark = Data1.Recordset.Bookmark

Data1.Recordset.MoveLast

Data1.Recordset.Bookmark=MyBookmark.

Добавьте к своему проекту две кнопки – «поставить закладку» и «перейти на закладку».