如何將記錄集中在剛剛在DBgrid Delphi中刪除的記錄附近？

Question

我在Delphi中使用TDBgrid而數據集是Adoquery 。 我有很多記錄，其ID從1到1000.現在我想刪除第35個TadoQuery '從...中刪除'有沒有辦法立即關注客戶的第34或第36條記錄，以檢查是否第35號已被刪除。 這是我的刪除按鈕的代碼

StudentID := UniQuery1.FieldValues['StudentID'];
UniQuery1.SQL.Clear();
UniQuery1.SQL.Text :=('Delete from Student where StudentID = ''' + StudentID + '''');
UniQuery1.SQL.Add('select * from Student');
UniQuery1.Execute;

任何人都可以提供幫助，非常感謝你。

Answer 1

如果您使用TClientDataSet（無論如何這是一個好主意），您可以使用FindNearest 。

Answer 2

首先，保存要刪除的元組之前的元組的id。 然后刪除要刪除的元組，然后找到保存的元組。 要轉到上一個元組，請使用uniquery1.moveby（-1）。

Answer 3

在刪除之前保存UniQuery1.RecNo 。 刪除后，重新查詢數據集，該數據集應設置第一個記錄處於活動狀態，然后發出UniQuery1.MoveBy(SavedRecNo - 1)或UniQuery1.MoveBy(SavedRecNo - 2) ，具體取決於您是要移動到成功還是之前的記錄刪除的一個。