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

发布时间：2022-12-28 21:11:45

ADO对查询出的数据分页显示delphi
ADO对查询出的数据分页显示delphi（转）unitMainFrm;interfaceuses
Classes,Controls,Forms,Grids,ToolWin,ComCtrls,StdCtrls,ExtCtrls,DB,ADODB;
type
TfrmMain=class(TFormcnn:TADOConnection;rst:TADODataSet;pnlNavigate:TPanel;btnFirst:TButton;btnPrior:TButton;btnNext:TButton;btnLast:TButton;edtPageNO:TEdit;sgData:TStringGrid;
procedureFormCreate(Sender:TObject;procedurebtnFirstClick(Sender:TObject;
procedureedtPageNOKeyDown(Sender:TObject;varKey:Word;Shift:TShiftState;private
FPageNo:Integer;
procedureSetPageNo(Value:Integer;public
propertyPageNo:IntegerreadFPageNowriteSetPageNo;end;var
frmMain:TfrmMain;

implementationuses
Windows,SysUtils;{$R*.dfm}const
PAGE_SIZE=6;
procedureTfrmMain.FormCreate(Sender:TObject;vari:Integer;begin
SetWindowLong(edtPageNO.Handle,GWL_STYLE,GetWindowLong(edtPageNo.Handle,GWL_STYLEorES_CENTERorES_NUMBER;
rst.Active:=True;
rst.Recordset.PageSize:=PAGE_SIZE;sgData.ColCount:=rst.FieldCount+1;fori:=0torst.FieldCount-1dobegin
sgData.ColWidths[i+1]:=rst.Fields[i].DisplayWidth*Canvas.TextWidth('0';
sgData.Cells[i+1,0]:=rst.Fields[i].DisplayName;end;
sgData.Cells[0,0]:='序号';PageNo:=1;end;
procedureTfrmMain.btnFirstClick(Sender:TObject;begin
ifSender=btnFirstthenPageNo:=1
elseifSender=btnPriorthen

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

推荐内容

相关推荐