Оставляем Следы в Базах Данных: Сохранение Пометок в Delphi-Приложениях

Delphi , Базы данных , ADO

При разработке приложений, работающих с базами данных, часто возникает необходимость сохранять информацию о важных записях. Одним из способов является использование пометок (bookmarks), которые позволяют "отметить" определённые записи для последующего доступа к ним. В статье рассмотрим, как реализовать сохранение и использование пометок в приложениях на Delphi, использующих компоненты ADO.

Проблема с пометками в ADO

Разработчики часто сталкиваются с проблемой, когда необходимо сохранить несколько пометок для разных записей, а затем использовать их, даже если фильтр, который был применен при создании пометки, уже удалён. Традиционно, пометка в ADO работает только в контексте установленного фильтра, что не позволяет использовать её после его удаления.

Решение проблемы

Delphi предоставляет возможность сохранения пометок для записей в наборе данных. Метод TDataset.Bookmark предназначен для хранения информации о пометке последней посещённой записи. Пометка, сделанная при наличии фильтра, остаётся действительной даже после его удаления. Для проверки валидности пометки можно использовать метод TDataset.BookmarkValid.

Для сохранения списка пометок, а не одной, необходимо использовать дополнительные структуры данных, такие как список строк (TStringList) в более старых версиях Delphi или список (TList из модуля Generics.Collections) в Delphi 2009 и выше. В новых версиях Delphi тип TBookMark определяется как TBytes.

Пример кода

uses
  Generics.Collections;

var
  Bookmarks: TList<TBytes>;
  // Инициализация списка пометок
  Bookmarks := TList<TBytes>.Create;

procedure SaveBookmark(const ADataset: TDataset; const ABookmark: TBookMark);
begin
  Bookmarks.Add(ADataset.Bookmark);
end;

procedure GoToBookmark(const ADataset: TDataset; const ABookmark: TBookMark);
begin
  if ADataset.BookmarkValid(ABookmark) then
    ADataset.GotoBookmark(ABookmark);
end;

procedure FreeBookmarks;
begin
  Bookmarks.Free;
end;

При использовании DBGrid можно воспользоваться свойством SelectedRows для сохранения списка пометок выбранных строк. Для этого необходимо включить многовыделение в опциях DBGrid.

Заключение

Сохранение пометок в Delphi-приложениях позволяет разработчикам сохранять ссылки на важные записи в базе данных, что может быть особенно полезно для пользовательского интерфейса и логики работы с данными. Используя предложенные методы, можно эффективно управлять пометками, даже после изменения состояния набора данных.

Создано по материалам из источника по ссылке.

В статье рассматривается, как в Delphi-приложениях с использованием компонентов ADO можно сохранять и использовать пометки для записей в базе данных, чтобы иметь возможность возвращаться к ним даже после изменения фильтра.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: ADO ::