main.~dfm

Delphi7数据库开发教程,包含该书21套实例

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 553
  Height = 383
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBNavigator2: TDBNavigator
    Left = 16
    Top = 8
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 48
    Width = 329
    Height = 177
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBImage1: TDBImage
    Left = 344
    Top = 48
    Width = 185
    Height = 177
    DataField = 'BMP'
    DataSource = DataSource1
    TabOrder = 2
  end
  object btnExit: TButton
    Left = 448
    Top = 304
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = btnExitClick
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 240
    Width = 193
    Height = 97
    Caption = #36890#36807'TTable'#32452#20214#30340#26041#27861#27983#35272#25968#25454
    TabOrder = 4
    object bbtnFirst: TBitBtn
      Left = 16
      Top = 24
      Width = 75
      Height = 25
      Caption = 'First'
      TabOrder = 0
      OnClick = bbtnFirstClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF3333333333333744333333333333F773333333333337
        44473333333333F777F3333333333744444333333333F7733733333333374444
        4433333333F77333733333333744444447333333F7733337F333333744444444
        433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
        9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
        C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
        CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
        CCC333333333333777FF33333333333333CC3333333333333773}
      NumGlyphs = 2
    end
    object bbtnNext: TBitBtn
      Left = 104
      Top = 24
      Width = 75
      Height = 25
      Caption = 'Next'
      TabOrder = 1
      OnClick = bbtnNextClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333FF3333333333333003333
        3333333333773FF3333333333309003333333333337F773FF333333333099900
        33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
        99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
        33333333337F3F77333333333309003333333333337F77333333333333003333
        3333333333773333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object bbtnLast: TBitBtn
      Left = 16
      Top = 56
      Width = 75
      Height = 25
      Caption = 'Last'
      TabOrder = 2
      OnClick = bbtnLastClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333FF3333333333333447333333333333377FFF33333333333744473333333
        333337773FF3333333333444447333333333373F773FF3333333334444447333
        33333373F3773FF3333333744444447333333337F333773FF333333444444444
        733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
        999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
        33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
        333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
        33333777333333333333CC333333333333337733333333333333}
      NumGlyphs = 2
    end
    object bbtnPrior: TBitBtn
      Left = 104
      Top = 56
      Width = 75
      Height = 25
      Caption = 'Prior'
      TabOrder = 3
      OnClick = bbtnPriorClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333FF3333333333333003333333333333F77F33333333333009033
        333333333F7737F333333333009990333333333F773337FFFFFF330099999000
        00003F773333377777770099999999999990773FF33333FFFFF7330099999000
        000033773FF33777777733330099903333333333773FF7F33333333333009033
        33333333337737F3333333333333003333333333333377333333333333333333
        3333333333333333333333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 216
    Top = 240
    Width = 169
    Height = 97
    Caption = #23545#27604#31105#27490'/'#20801#35768#32452#20214#26356#26032
    TabOrder = 5
    object btnNavigate: TButton
      Left = 30
      Top = 56
      Width = 91
      Height = 25
      Caption = #25191#34892#27983#35272
      TabOrder = 0
      OnClick = btnNavigateClick
    end
    object cbxDisableControls: TCheckBox
      Left = 24
      Top = 24
      Width = 113
      Height = 17
      Caption = #31105#27490#32452#20214#26356#26032
      TabOrder = 1
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 336
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 296
  end
end