Удаление записи и локация предидущей.

[tarakan1983]

Здравствуйте, использую БД *.fdb и Delphi 7.
Для отображения данных у меня на форме GridEh, связанный через Dataset с pFIBDataSet.
Всегда удалял так:

dm.pFIBDataSet1.Active:=false;
dm.pFIBQuery1.SQL.Clear;
dm.pFIBQuery1.SQL.Add('delete from KONTRAGENT where id = :id');
dm.pFIBQuery1.ParamByName('id').AsInteger:=ID;
dm.pFIBQuery1.ExecQuery;

dm.pFIBQuery1.SQL.Clear;
dm.pFIBQuery1.SQL.Add('commit');
dm.pFIBQuery1.ExecQuery;
dm.pFIBDataSet1.Active:=true;

Если в таблице 5 или 10 записей , то все нормально, а если 1586 то после удаления курсор становиться на первую запись и это не всегда удобно. Подскажите как правильно проводить удаления и локатить или предыдущую запись или последующую, учитывая что в таблице может быть одна или 2 записи?

[evg_m]

Подскажите как правильно проводить удаления и локатить или предыдущую запись или последующую

1. Перед удалением получить информацию о предыдущей и последующей записях.
2. После удаления воспользоваться этими знаниями.

Учесть что как предыдущей, так и последующей может не оказаться.
Учесть что в многопользовательской БД каждая из этих (предыдушая/последующая) также может оказаться недоступной (например быть удаленной другим пользователем).

[tarakan1983]

Сообщение от evg_m

Учесть что в многопользовательской БД каждая из этих (предыдушая/последующая) также может оказаться недоступной (например быть удаленной другим пользователем).

1 и 2 осуществил, а как осуществить ЭТО. Дайте хоть намек.

[Sciv]

Определить максимальный ИД, который меньше запомненного (того, что удалили) и перейти к этой записи (это для локации на предыдущую запись).
Или минимальный из больших (для следующей записи)

[Yurk@]

удаляй так:

begin
DataSet.DeleteSQL.Text:='delete from KONTRAGENT where id = :id';
DataSet.Delete;
DataSet.Transaction.CommitRetaining;

при этом неплохо было бы настроить RefreshSQL т.к. после удаления он захочет обновиться ... но курсон должен остаться на месте

[tarakan1983]

Сообщение от Yurk@

при этом неплохо было бы настроить RefreshSQL т.к. после удаления он захочет обновиться ... но курсон должен остаться на месте

А как её настроить?