unit1.dfm

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

object Form1: TForm1
  Left = 217
  Top = 142
  Width = 449
  Height = 470
  Caption = #25968#25454#34920#20013#22270#35937#30340#26174#31034
  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 Edit1: TEdit
    Left = 248
    Top = 208
    Width = 145
    Height = 21
    TabOrder = 0
  end
  object ScrollBar1: TScrollBar
    Left = 40
    Top = 208
    Width = 177
    Height = 25
    PageSize = 0
    TabOrder = 1
    OnScroll = ScrollBar1Scroll
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 248
    Width = 361
    Height = 169
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = DBGrid1DrawDataCell
  end
  object DBImage1: TDBImage
    Left = 40
    Top = 16
    Width = 361
    Height = 129
    DataField = 'Graphic'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBNavigator1: TDBNavigator
    Left = 48
    Top = 160
    Width = 340
    Height = 33
    DataSource = DataSource1
    TabOrder = 4
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 56
    Top = 32
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'biolife.db'
    Left = 56
    Top = 80
  end
end