delphi如何实现数据分页显示?

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,adoint, Grids, DBGrids, DB, ExtCtrls, DBCtrls, StdCtrls, Spin, ADODB;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    StringGrid1: TStringGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure showdata();
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private    { Private declarations }
  public    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
   adodataset1.Recordset.PageSize:=10;
   adodataset1.Recordset.AbsolutePage:=1;
   showdata;
end;procedure Tform1.showdata;
var
   irow,icol,icount:integer;
   rs:adoint.recordset;
begin
   //cleardata;
   irow:=0;
   icol:=0;
   stringgrid1.Cells[icol,irow]:='顾客编号';
   inc(icol);
   stringgrid1.cells[icol,irow]:='公司名称';
   inc(irow);
   dec(icol);   rs:=adodataset1.recordset;
   for icount:=1 to 10 do
   begin
      stringgrid1.cells[icol,irow]:=rs.fields.get_item('customerid').value;
      inc(icol);
      stringgrid1.cells[icol,irow]:=rs.fields.get_item('companyid').value;
      inc(irow);
      dec(icol);
      rs.movenext;
   end;
end;procedure TForm1.Button2Click(Sender: TObject);
var
abspage:integer;
begin
   abspage:=adodataset1.Recordset.AbsolutePage;
   inc(abspage);
   showdata;
end;
end.

Answer 1

多谢dingsg111(飞天)朋友的指点，我按你提供的方法试了一下，可以实现翻页功能，但是有一个问题就是adodataset1控件不支持向前翻页，只能向后翻页，是不是有些属性我没设置好?

Answer 2

设一个全局变量来定义AbsolutePage;