назад | содержание | вперед

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

Вернемся к нашему проекту. Вы можете не только просматривать, но и изменять данные. Например, введите в поле Организация текст ОАО Теремок и переместитесь на другую запись. При этом произведенные вами изменения будут внесены в базу данных. Чтобы это проверить, вернитесь на предыдущую запись и убедитесь, что наименование организации изменено. Мы можем редактировать данные, однако нельзя добавить новую запись или удалить существующую. Исправим это. Мы уже предусмотрели в нашем элементе управления соответствующие кнопки Добавить и Удалить, теперь осталось описать те действия, которые будут выполняться при их нажатии.

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

Private Sub cmdinsert Click()

mrstMain.AddNew

End Sub

Private Sub cmdDelete_Click ()

mrstMain.Delete

End Sub

По сути дела мы просто перекладываем свою работу на объект Recordset, вызывая его стандартные методы AddNew и Delete.

Запустите приложение и нажмите кнопку Добавить. Содержимое всех полей очистится, и в них можно ввести новые значения. Не забывайте о том, что некоторые поля в нашей таблице не допускают ввода пустых значений. Если этого не учитывать, то при добавлении новой строки может возникнуть ошибка. Итак, вы ввели все необходимые данные, теперь переместитесь на предыдущую запись так же, как это было в случае редактирования данных, описанном выше. В этом момент произойдет вставка новой строки. Вы можете найти новую строку, переместившись на последнюю запись с помощью кнопки Конец.

Для удаления записи нажмите кнопку Удалить. Запись будет удалена из таблицы, но не с экрана. Однако если вы покинете эту запись, то не сможете вернуться на нее вновь, поскольку ее уже не существует.

назад | содержание | вперед