procedure TBasMCBrowse.FBNextClick(Sender: TObject); begin if not AdoM.Eof then AdoM.Next;//下一条 end;procedure TBasMCBrowse.FBPreviousClick(Sender: TObject); begin if not AdoM.Bof then AdoM.Prior;//上一条 end;procedure TBasMCBrowse.FBFirstClick(Sender: TObject); begin if not AdoM.Bof then AdoM.First;//第一条 end;procedure TBasMCBrowse.FBLastClick(Sender: TObject); begin if not AdoM.Eof then AdoM.Last;//最后一条 end;
或者两个按钮,adoquery1.MoveNext,MovePrior,MoveFirst, MoveLast
begin
if not AdoM.Eof then AdoM.Next;//下一条
end;procedure TBasMCBrowse.FBPreviousClick(Sender: TObject);
begin
if not AdoM.Bof then AdoM.Prior;//上一条
end;procedure TBasMCBrowse.FBFirstClick(Sender: TObject);
begin
if not AdoM.Bof then AdoM.First;//第一条
end;procedure TBasMCBrowse.FBLastClick(Sender: TObject);
begin
if not AdoM.Eof then AdoM.Last;//最后一条
end;