一个按钮，点击时让query移到下一条记录

Question

一个按钮，点击时让query移到下一条记录，当已经移到最后一条记录时，再点击就移到query的第一条记录！怎么办？

Answer 1

if query.eof then query.first else query.next;

Answer 2

用属性RecNo和RecordCount就可以实现

Answer 3

在按钮的click事件中：
  
   query.next;
   while query.eof do
   query.first;

Answer 4

if query.eof then
query.first
else
query.next;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);var
  i: Integer;
begin
    Min:=0;
    Max := query1.RecordCount;
    query1.First;
    for i := Min to Max do
    begin
      Position := i;
      query1.Next;
    end;
end;

Answer 6

pidi(风之谷):用RecNo和RecordCount怎么做到使指针下移?不是用inc(DataSet.RecNo)吧?

Answer 7

你这样试一下
确定当前的RecNo,然后qsuery1.next;

Answer 8

if query.eof then 
  query.first 
else 
  query.next;

Answer 9

procedure TForm1.Button2Click(Sender: TObject);
begin
  if not query1.Eof then
  begin
     query1.Next;
  end;
  if query1.Eof then
  begin
     query1.First;
  end;
祝你身体健康！身体和工作是一样重要的:D
end;