u_dbgriddivpage.~dfm

Ado和access结合,分页显示数据信息,体现cs结构的分页分格.

object F_SgDivPage: TF_SgDivPage
  Left = 200
  Top = 117
  Width = 498
  Height = 480
  Caption = #20998#39029#26174#31034#25216#26415
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel14: TPanel
    Left = 0
    Top = 0
    Width = 490
    Height = 453
    Align = alClient
    TabOrder = 0
    object Panel16: TPanel
      Left = 1
      Top = 315
      Width = 488
      Height = 51
      Align = alBottom
      Color = clCream
      TabOrder = 0
      object sbFirst: TSpeedButton
        Left = 16
        Top = 12
        Width = 64
        Height = 26
        Caption = #31532#19968#39029
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = sbFirstClick
      end
      object sbprior: TSpeedButton
        Left = 84
        Top = 12
        Width = 64
        Height = 26
        Caption = #19978#19968#39029
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = sbpriorClick
      end
      object sbNext: TSpeedButton
        Left = 152
        Top = 12
        Width = 64
        Height = 26
        Caption = #19979#19968#39029
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = sbNextClick
      end
      object sbLast: TSpeedButton
        Left = 221
        Top = 12
        Width = 64
        Height = 26
        Caption = #26368#21518#19968#39029
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = sbLastClick
      end
      object sbAll: TSpeedButton
        Left = 290
        Top = 12
        Width = 64
        Height = 26
        Caption = #25152#26377
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        OnClick = sbAllClick
      end
    end
    object Panel1: TPanel
      Left = 1
      Top = 366
      Width = 488
      Height = 86
      Align = alBottom
      TabOrder = 1
      object Label9: TLabel
        Left = 27
        Top = 11
        Width = 120
        Height = 13
        Caption = #24800#23433#20248#20248#32593#29256#26435#25152#26377#65306
      end
      object lblHomePage: TLabel
        Left = 147
        Top = 11
        Width = 132
        Height = 12
        Cursor = crHandPoint
        AutoSize = False
        Caption = 'http://www.uu987.com'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = lblHomePageClick
      end
      object Label11: TLabel
        Left = 283
        Top = 12
        Width = 43
        Height = 13
        Caption = 'E_mail'#65306
      end
      object lblEmail: TLabel
        Left = 331
        Top = 12
        Width = 90
        Height = 12
        Cursor = crHandPoint
        AutoSize = False
        Caption = '[e-mail]'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = [fsUnderline]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 285
        Top = 32
        Width = 220
        Height = 12
        AutoSize = False
        Caption = #33509#26377#20219#20309#30097#38382#25110#24314#35758#65292#21487#21040#32593#31449#30041#35328#65281
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 165
        Top = 32
        Width = 60
        Height = 12
        AutoSize = False
        Caption = #29141#23376#24093#22269
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 127
        Top = 32
        Width = 36
        Height = 13
        Caption = #20316#32773#65306
      end
      object Label13: TLabel
        Left = 26
        Top = 32
        Width = 28
        Height = 13
        Caption = 'QQ'#65306
      end
      object Label14: TLabel
        Left = 60
        Top = 32
        Width = 55
        Height = 12
        AutoSize = False
        Caption = '287574180'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 285
        Top = 48
        Width = 220
        Height = 12
        AutoSize = False
        Caption = #33509#26377#26356#26032#29256#26412#65292#35831#21040#20027#39029#19979#36733#65281
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 29
        Top = 56
        Width = 220
        Height = 17
        AutoSize = False
        Caption = #36716#36733#26102#65292#35831#20445#30041#30456#20851#20449#24687#65292#35874#35874#65281
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
    end
    object DBGrid: TDBGrid
      Left = 1
      Top = 1
      Width = 488
      Height = 314
      Align = alClient
      DataSource = DS
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ID'
          Title.Caption = #24207#21495
          Width = 50
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Name'
          Title.Caption = #22995#21517
          Width = 100
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Age'
          Title.Caption = #24180#40836
          Width = 100
          Visible = True
        end>
    end
  end
  object ADOQry: TADOQuery
    Active = True
    Connection = ADOCnt
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from uu987')
    Left = 152
    Top = 176
  end
  object ADOCnt: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=uu987' +
      '.mdb;Mode=Share Deny None;Extended Properties="";Persist Securit' +
      'y Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pat' +
      'h="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet ' +
      'OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=' +
      '2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pa' +
      'ssword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encry' +
      'pt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;J' +
      'et OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fals' +
      'e'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 112
    Top = 176
  end
  object DS: TDataSource
    DataSet = ADOQry
    Left = 192
    Top = 176
  end
end