刚来几位朋友的意见还是行不通呀，有哪位朋友能给出正确答案

Question

猜不着你的意思。我想你可能是想是样做：按一下按钮就下移一条记录是不是？这样做：
在FromCreate事件中加入
  with dm1.query4 do
     begin
        close;
        sql.Clear;
        sql.Add('select * from equipment');
        open;
     end;
把Button的过程这样写：
procedure Tsetfincial.SpeedButton4Click(Sender: TObject);//实现跳到下一条的功能
begin
     if not dm1.query4.eof then
       begin
         displaydata;
         dm1.query4.next;
       end;
end;