dblistbox.dfm

《delphi数据库设计与实例开发》随书光盘

object Form1: TForm1
  Left = 229
  Top = 119
  Width = 505
  Height = 318
  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 Splitter1: TSplitter
    Left = 161
    Top = 0
    Height = 264
  end
  object Panel1: TPanel
    Left = 0
    Top = 264
    Width = 497
    Height = 27
    Align = alBottom
    TabOrder = 0
    object DBNavigator1: TDBNavigator
      Left = 0
      Top = 0
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 0
    end
    object Button1: TButton
      Left = 416
      Top = 0
      Width = 75
      Height = 25
      Caption = #36864#20986
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 161
    Height = 264
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 1
    object DBListBox1: TDBListBox
      Left = 1
      Top = 1
      Width = 159
      Height = 262
      Align = alClient
      DataField = 'Salary'
      DataSource = DataSource1
      ItemHeight = 13
      Items.Strings = (
        '40000'
        '25050'
        '40350'
        '34500'
        '45332'
        '35699'
        '27000'
        '32500'
        '40500'
        '35600'
        '28900'
        '19599'
        '23040')
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 164
    Top = 0
    Width = 333
    Height = 264
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 331
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      ParentBiDiMode = False
      TabOrder = 0
      object DBComboBox1: TDBComboBox
        Left = 144
        Top = 0
        Width = 185
        Height = 21
        DataField = 'PhoneExt'
        DataSource = DataSource1
        ItemHeight = 13
        Items.Strings = (
          '250'
          '227'
          '877'
          '288'
          '23'
          '845'
          '233'
          '221')
        TabOrder = 0
      end
    end
    object Panel5: TPanel
      Left = 1
      Top = 25
      Width = 331
      Height = 238
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel5'
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 331
        Height = 238
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'employee.db'
    Left = 16
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 48
    Top = 8
  end
end