object fmMain: TfmMain
  Left = 232
  Top = 186
  Width = 682
  Height = 455
  Caption = 'ADO Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 674
    Height = 387
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 284
      Top = 1
      Height = 385
    end
    object dbgIndustry: TDBGrid
      Left = 1
      Top = 1
      Width = 283
      Height = 385
      Align = alLeft
      DataSource = dsIndustry
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnTitleClick = dbgIndustryTitleClick
    end
    object dbgMaster: TDBGrid
      Left = 287
      Top = 1
      Width = 386
      Height = 385
      Align = alClient
      DataSource = dsMaster
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 674
    Height = 41
    ButtonHeight = 36
    ButtonWidth = 97
    Caption = 'ToolBar1'
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 1
    object Panel3: TPanel
      Left = 0
      Top = 2
      Width = 285
      Height = 36
      Align = alLeft
      TabOrder = 0
      object sbDefDB: TSpeedButton
        Left = 251
        Top = 7
        Width = 23
        Height = 21
        Caption = '...'
        OnClick = sbDefDBClick
      end
      object edDefDB: TEdit
        Left = 11
        Top = 7
        Width = 233
        Height = 21
        ReadOnly = True
        TabOrder = 0
      end
    end
    object tbConnect: TToolButton
      Left = 285
      Top = 2
      Caption = #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077
      ImageIndex = 0
      OnClick = tbConnectClick
    end
    object tbSave: TToolButton
      Left = 382
      Top = 2
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
      ImageIndex = 1
      OnClick = tbSaveClick
    end
    object tbFilter: TToolButton
      Left = 479
      Top = 2
      Caption = #1047#1072#1076#1072#1090#1100' '#1092#1080#1083#1100#1090#1088
      ImageIndex = 2
      OnClick = tbFilterClick
    end
    object tbUnFilter: TToolButton
      Left = 576
      Top = 2
      Caption = #1054#1090#1084#1077#1085#1080#1090#1100' '#1092#1080#1083#1100#1090#1088
      ImageIndex = 3
      OnClick = tbUnFilterClick
    end
  end
  object ADOConn: TADOConnection
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE' +
      ' Files'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'MSDASQL.1'
    AfterConnect = ADOConnAfterConnect
    BeforeDisconnect = ADOConnBeforeDisconnect
    Left = 48
    Top = 392
  end
  object tblIndustry: TADOTable
    Connection = ADOConn
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    TableName = 'INDUSTRY'
    Left = 136
    Top = 392
  end
  object dsIndustry: TDataSource
    DataSet = tblIndustry
    Left = 168
    Top = 392
  end
  object tblMaster: TADOTable
    CacheSize = 30
    Connection = ADOConn
    CursorType = ctStatic
    LockType = ltReadOnly
    IndexFieldNames = 'INDUSTRY'
    MasterFields = 'IND_CODE'
    MasterSource = dsIndustry
    TableName = 'MASTER'
    Left = 344
    Top = 392
  end
  object dsMaster: TDataSource
    DataSet = tblMaster
    Left = 376
    Top = 392
  end
  object ImageList1: TImageList
    Left = 112
    Top = 56
    Bitmap = {
      [encoded data, 19520 characters]
      000000000000}
  end
end
