mainfrm.dfm

delphi,实现ado分页实现。这是转载。

object frmMain: TfrmMain
  Left = 205
  Top = 133
  Width = 696
  Height = 431
  Caption = 'ADO'#20998#39029#28436#31034
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object sgData: TStringGrid
    Left = 0
    Top = 0
    Width = 688
    Height = 356
    TabStop = False
    Align = alClient
    ColCount = 2
    Ctl3D = True
    DefaultColWidth = 36
    RowCount = 2
    GridLineWidth = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect]
    ParentCtl3D = False
    TabOrder = 0
  end
  object pnlNavigate: TPanel
    Left = 0
    Top = 356
    Width = 688
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnFirst: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = '<< '#39318#39029
      TabOrder = 0
      OnClick = btnFirstClick
    end
    object btnPrior: TButton
      Left = 96
      Top = 8
      Width = 75
      Height = 25
      Caption = '< '#19978#19968#39029
      TabOrder = 1
      OnClick = btnFirstClick
    end
    object btnNext: TButton
      Left = 272
      Top = 8
      Width = 75
      Height = 25
      Caption = #19979#19968#39029' >'
      TabOrder = 2
      OnClick = btnFirstClick
    end
    object btnLast: TButton
      Left = 360
      Top = 8
      Width = 75
      Height = 25
      Caption = #26411#39029' >>'
      TabOrder = 3
      OnClick = btnFirstClick
    end
    object edtPageNO: TEdit
      Left = 184
      Top = 10
      Width = 72
      Height = 20
      TabOrder = 4
      OnKeyDown = edtPageNOKeyDown
    end
  end
  object cnn: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbdemos.mdb;Mode=Re' +
      'ad;Persist Security Info=False'
    CursorLocation = clUseServer
    LoginPrompt = False
    Mode = cmRead
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 88
    Top = 96
  end
  object rst: TADODataSet
    CacheSize = 1000
    Connection = cnn
    CursorType = ctStatic
    CommandText = 
      'SELECT Name AS ['#22269#23478'], Capital AS ['#39318#37117'], Continent AS ['#22823#27954'], Area AS' +
      ' ['#38754#31215'], Population AS ['#20154#21475']'#13#10'FROM  [country]'
    Parameters = <>
    Prepared = True
    Left = 136
    Top = 96
  end
end