Как перейти к указанной записи в БД

Delphi , Базы данных , Записи

function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
var
  RecCount: LongInt;
  Bookmark: TBookmark;
  Res: DBIResult;
begin
  Result := False;
  if CheckDatabase then
  begin
    if RecNo < 1 then
      RecNo := 1;
    RecCount := GetRecordCount;
    if RecNo > RecCount then
      RecNo := RecCount;
    Res := DbiSetToRecordNo(FDataLink.DataSource.DataSet.Handle, RecNo);
    if Res = 0 then
    begin
      Bookmark := StrAlloc(GetBookmarkSize);
      DbiGetBookmark(FDataLink.DataSource.DataSet.Handle, Bookmark);
      FDataLink.DataSource.DataSet.GoToBookmark(Bookmark);
      FDataLink.DataSource.DataSet.FreeBookmark(Bookmark);
      Result := True;
    end
    else
      Check(Res);
  end;
end;

Программный функционал для навигации по конкретному записи в базе данных!

Метод GoToRecord является частью класса TBDEDirect, который обеспечивает прямой доступ к таблице базы данных. Он принимает целочисленный параметр RecNo, представляющий номер записи, к которой нужно перейти.

Вот что код делает:

1. Сначала он проверяет, является ли соединение с базой данных действительным, используя процедуру CheckDatabase.
2. Если номер записи меньше 1, он устанавливает его в 1 (чтобы избежать выхода за пределы диапазона).
3. Он получает общее количество записей в таблице, используя метод GetRecordCount.
4. Если номер записи больше общего количества, он устанавливает его на последнюю запись.
5. Метод затем пытается установить указатель на запись к указанному номеру записи, используя функцию DbiSetToRecordNo. Эта функция возвращает код результата (Res), который проверяется на успех (0) или неудачу.
6. Если операция установки записи не удалась, метод пытается альтернативный подход:
   • Он выделяет память для маркера используя StrAlloc.
   • Он получает текущую позицию маркера, используя DbiGetBookmark.
   • Он устанавливает дата-сет на запись, отмеченную маркером, используя GoToBookmark.
   • Наконец, он освобождает выделенную память для маркера, используя FreeBookmark.
7. Если все операции выполнены успешно, метод устанавливает Result в True, указывая, что запись была успешно навигирована.

Альтернативное решение: Если вы ищете более компактную реализацию, можно использовать метод GoToRecordNo, предоставляемый классом TDataSet, который делает то же самое в одном вызове. Например:

function TBDEDirect.GoToRecord(RecNo: LongInt): Boolean;
begin
  Result := FDataLink.DataSource.DataSet.GoToRecordNo(RecNo);
end;

Эта реализация более прямолинейна и легче для чтения, но помните, что она может не обеспечивать такой же уровень обработки ошибок, как оригинальный код.

В статье описывается функция TBDEDirect.GoToRecord, позволяющая перейти к указанной записи в базе данных.

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

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

:: Главная :: Записи ::