unit1.nfm.~2~

《Delphi 2005程序设计及其应用开发》源代码

object Form1: TForm1
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Height = 342
  Width = 426
  Left = 8
  Top = 8
  PixelsPerInch = 96
  TextHeight = 13
  object DBCtrlGrid1: TDBCtrlGrid
    DataSource = DataSource1
    PanelHeight = 112
    PanelWidth = 336
    TabOrder = 0
    RowCount = 2
    Left = 24
    Top = 24
    Width = 353
    Height = 225
    object Label1: TLabel
      Caption = 'Name'
      Left = 24
      Top = 24
      Width = 27
      Height = 13
    end
    object Label2: TLabel
      Caption = 'Size'
      Left = 24
      Top = 48
      Width = 19
      Height = 13
    end
    object Label3: TLabel
      Caption = 'Weight'
      Left = 24
      Top = 72
      Width = 34
      Height = 13
    end
    object DBEdit1: TDBEdit
      DataField = 'NAME'
      DataSource = DataSource1
      TabOrder = 0
      Left = 64
      Top = 24
      Width = 121
      Height = 21
    end
    object DBEdit2: TDBEdit
      DataField = 'SIZE'
      DataSource = DataSource1
      TabOrder = 1
      Left = 64
      Top = 48
      Width = 121
      Height = 21
    end
    object DBImage1: TDBImage
      DataField = 'BMP'
      DataSource = DataSource1
      QuickDraw = False
      Stretch = True
      TabOrder = 2
      Left = 216
      Top = 8
      Width = 105
      Height = 89
    end
    object DBEdit3: TDBEdit
      DataField = 'WEIGHT'
      DataSource = DataSource1
      TabOrder = 3
      Left = 64
      Top = 72
      Width = 121
      Height = 21
    end
  end
  object DBNavigator1: TDBNavigator
    DataSource = DataSource1
    TabOrder = 1
    Left = 32
    Top = 272
    Width = 350
    Height = 25
  end
  object DataSource1: TDataSource
    DataSet = Table1
  end
  object Table1: TTable
    TableName = 'animals.dbf'
    DatabaseName = 'DBMEMOS'
    Active = True
    Top = 0
  end
end