ADO对查询出的数据分页显示delphi.docVIP

ADO对查询出的数据分页显示delphi（转） unit MainFrm; interface uses Classes, Controls, Forms, Grids, ToolWin, ComCtrls, StdCtrls, ExtCtrls, DB, ADODB; type TfrmMain = class(TForm) cnn: TADOConnection; rst: TADODataSet; pnlNavigate: TPanel; btnFirst: TButton; btnPrior: TButton; btnNext: TButton; btnLast: TButton; edtPageNO: TEdit; sgData: TStringGrid; procedure FormCreate(Sender: TObject); procedure btnFirstClick(Sender: TObject); procedure edtPageNOKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private FPageNo: Integer