main.dfm

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

object Form1: TForm1
  Left = 47
  Top = 105
  Width = 640
  Height = 431
  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 DBText1: TDBText
    Left = 360
    Top = 208
    Width = 161
    Height = 17
    DataField = 'AREA'
    DataSource = DataSource1
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 345
    Height = 185
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Color = clInactiveCaptionText
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = #21160#29289#21517#23383
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SIZE'
        Title.Caption = #23610#23544
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WEIGHT'
        Title.Caption = #37325#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AREA'
        Title.Caption = #22320#21306
        Visible = True
      end>
  end
  object DBEdit1: TDBEdit
    Left = 360
    Top = 232
    Width = 121
    Height = 21
    DataField = 'SIZE'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBImage1: TDBImage
    Left = 8
    Top = 200
    Width = 345
    Height = 185
    DataField = 'BMP'
    DataSource = DataSource1
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 360
    Top = 8
    Width = 265
    Height = 185
    Caption = 'TDBNavigator'#32452#20214#28436#31034
    TabOrder = 3
    object DBNavigator1: TDBNavigator
      Left = 16
      Top = 24
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 0
    end
    object CheckBox1: TCheckBox
      Left = 16
      Top = 56
      Width = 97
      Height = 17
      Caption = 'First'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object CheckBox2: TCheckBox
      Tag = 1
      Left = 16
      Top = 80
      Width = 97
      Height = 17
      Caption = 'Priort'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 2
      OnClick = CheckBox1Click
    end
    object CheckBox3: TCheckBox
      Tag = 2
      Left = 16
      Top = 104
      Width = 97
      Height = 17
      Caption = 'Next'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object CheckBox4: TCheckBox
      Tag = 3
      Left = 16
      Top = 128
      Width = 97
      Height = 17
      Caption = 'Last'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 4
      OnClick = CheckBox1Click
    end
    object CheckBox5: TCheckBox
      Tag = 4
      Left = 16
      Top = 152
      Width = 97
      Height = 17
      Caption = 'Insert'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 5
      OnClick = CheckBox1Click
    end
    object CheckBox6: TCheckBox
      Tag = 5
      Left = 112
      Top = 56
      Width = 97
      Height = 17
      Caption = 'Delete'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 6
      OnClick = CheckBox1Click
    end
    object CheckBox7: TCheckBox
      Tag = 6
      Left = 112
      Top = 80
      Width = 97
      Height = 17
      Caption = 'Edit'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 7
      OnClick = CheckBox1Click
    end
    object CheckBox8: TCheckBox
      Tag = 7
      Left = 112
      Top = 104
      Width = 97
      Height = 17
      Caption = 'Post'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 8
      OnClick = CheckBox1Click
    end
    object CheckBox9: TCheckBox
      Tag = 8
      Left = 112
      Top = 128
      Width = 97
      Height = 17
      Caption = 'Cancel'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 9
      OnClick = CheckBox1Click
    end
    object CheckBox10: TCheckBox
      Tag = 9
      Left = 112
      Top = 152
      Width = 97
      Height = 17
      Caption = 'Refresh'#25353#38062
      Checked = True
      State = cbChecked
      TabOrder = 10
      OnClick = CheckBox1Click
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'animals.dbf'
    Left = 576
    Top = 176
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 576
    Top = 136
  end
end