unit1.dfm

Delphi面向对象编程思想附书源码 好用哦！

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 577
  Height = 522
  Caption = #24039#29992'TStream'#25277#35937#31867
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 14
  object Memo1: TMemo
    Left = 32
    Top = 16
    Width = 297
    Height = 233
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object RadioGroup1: TRadioGroup
    Left = 352
    Top = 16
    Width = 185
    Height = 161
    Caption = #36873#25321#27969#31867#22411
    ItemIndex = 0
    Items.Strings = (
      'TFileStream'
      'TMemoryStream'
      'TBlobStream')
    TabOrder = 1
  end
  object Button1: TButton
    Left = 360
    Top = 216
    Width = 75
    Height = 25
    Caption = #28436#31034
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 464
    Top = 216
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 3
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 32
    Top = 280
    Width = 521
    Height = 136
    DataSource = DataSource1
    TabOrder = 4
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Notes'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Species No'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Category'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Common_Name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Species Name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Length (cm)'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Length_In'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Graphic'
        Visible = True
      end>
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 488
    Top = 32
    object Table1Notes: TMemoField
      FieldName = 'Notes'
      BlobType = ftMemo
      Size = 50
    end
    object Table1SpeciesNo: TFloatField
      FieldName = 'Species No'
    end
    object Table1Category: TStringField
      FieldName = 'Category'
      Size = 15
    end
    object Table1Common_Name: TStringField
      FieldName = 'Common_Name'
      Size = 30
    end
    object Table1SpeciesName: TStringField
      FieldName = 'Species Name'
      Size = 40
    end
    object Table1Lengthcm: TFloatField
      FieldName = 'Length (cm)'
    end
    object Table1Length_In: TFloatField
      FieldName = 'Length_In'
    end
    object Table1Graphic: TGraphicField
      FieldName = 'Graphic'
      BlobType = ftGraphic
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 488
    Top = 64
  end
end