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

ADO ADO 对查询出的数据分页显示delphi（转） unit unit MainFrm; interface interface uses uses Classes, Controls, Forms, Grids, ToolWin, ComCtrls, StdCtrls, ExtCtrls, DB, Classes, Controls, Forms, Grids, ToolWin, ComCtrls, StdCtrls, ExtCtrls, DB, ADODB; ADODB; type type TfrmMain = class(TForm) TfrmMain = class(TForm) cnn: cnn: TADOConnection; rst: rst: TADODataSet; pnlNavigate: pnlNavigate: TPanel; btnFirst: TButton; btnFirst: TButton; btnPrior: TButton; btnPrior: TButton; btnNext: TButton; btnNext: TButton; btnLast: btnLast: TButton; edtPageNO: TEdit; edtPageNO: TEdit; sgData: sgData: TStringGrid; procedure procedure FormCreate(Sender: TObject); procedure btnFirstClick(Sender: procedure btnFirstClick(Sender: TObject); procedure edtPageNOKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure edtPageNOKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); private private FPageNo: Integer; FPageNo: Integer; procedure SetPageNo(Value: Integer); procedure SetPageNo(Value: Integer); public public property property PageNo: Integer read FPageNo write SetPageNo; end; end; var var frmMain: TfrmMain; frmMain: TfrmMain; implementation implementation uses uses Windows, SysUtils; Windows, SysUtils; {$R {$R *.dfm} const const PAGE_SIZE = PAGE_SIZE = 6; procedure TfrmMain.FormCreate(Sender: procedure TfrmMain.FormCreate(Sender: TObject); i: Integer; i: Integer; var begin begin SetWindowLong(edtPageNO.Handle,GWL_STYLE,GetWindowLong(edtPageNo.Handle, SetWindowLong(edtPageNO.Handle,GWL_STYLE,GetWindowLong(edtPageNo.Handle, GWL_STYLE) or ES_CENTER or GWL_STYLE) or ES_CENTER or ES_NUMBER); rst.Active := rst.Active := True; rst.Recordset.PageSize := rst.Recordset.PageSize := PAGE_SIZE; sgData.ColCount := rst.FieldCount + 1; sgData.ColCount := rst.FieldCount + 1; for for i := 0 to rst.FieldCount - 1 do begin begin sgData.ColWidths[i sgData.ColWidths[i + 1] := rst.Fields[i].DisplayWidth * Canvas.TextWidth(0); sgData.Cells[i sgData.Cells[i + 1, 0] := rst.Fields[i].DisplayName; end;