&&&&&&&&&&&&&&&&如何使数据库的当前记录指针不能移动

Question

在delphi中，如何使数据库的当前记录指针不能移动

Answer 1

BeforePost:
  if (some condition)
    Abort;

Answer 2

datasource.ondatachange:
  
  if ... then abort;

Answer 3

设置一个BookMark;
var BookMark: TBookMark;BookMark := Query1.GetBookMark;
...............................各种操作
...............................
Query1.GotoBookMark(BookMark);
Query1.FreeBookMark(BookMark);可不可以满足你的要求呢？

Answer 4

with query1 do
begin
     disablecontrols;   //<---------     first;
     while not eof do
     begin
        .........
        next;
     end;     enablecontrols;     //<---------
end;