object Form1: TForm1
  Left = 227
  Top = 145
  Width = 431
  Height = 290
  Caption = 'TColumnsDataSource Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 423
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    Caption = 'Introducing a tool to inhance user control:'
    Font.Color = clPurple
    Font.Height = -21
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 33
    Width = 423
    Height = 230
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 48
      Width = 409
      Height = 176
      DataSource = ColumnsDataSource1
      TabOrder = 0
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'System'
      TitleFont.Style = []
    end
    object DBNavigator1: TDBNavigator
      Left = 8
      Top = 8
      Width = 241
      Height = 25
      DataSource = ColumnsDataSource1
      TabOrder = 1
    end
    object Button1: TButton
      Left = 328
      Top = 8
      Width = 89
      Height = 33
      Caption = 'Columns...'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  object ColumnsDataSource1: TColumnsDataSource
    DataSet = Table1
    IncludeSortBy = False
    IniFileName = 'C:\WINDOWS\DSCOL.INI'
    Left = 288
    Top = 41
  end
  object Table1: TTable
    DatabaseName = 'DBDEMOS'
    TableName = 'PERSONEL.DB'
    Left = 256
    Top = 41
    object Table1EmpNo: TStringField
      DisplayLabel = 'Employee Number'
      FieldName = 'EmpNo'
      Size = 10
    end
    object Table1LastName: TStringField
      DisplayLabel = 'Last Name'
      FieldName = 'LastName'
    end
    object Table1FirstName: TStringField
      DisplayLabel = 'First Name'
      FieldName = 'FirstName'
      Size = 15
    end
    object Table1PhoneExt: TStringField
      DisplayLabel = 'Phone Extension'
      FieldName = 'PhoneExt'
      Size = 4
    end
    object Table1HireDate: TDateTimeField
      DisplayLabel = 'Hire Date'
      FieldName = 'HireDate'
    end
    object Table1Salary: TFloatField
      FieldName = 'Salary'
    end
    object Table1Boss: TStringField
      FieldName = 'Boss'
      Size = 10
    end
  end
end