object Form1: TForm1
  Left = 340
  Height = 310
  Top = 154
  Width = 639
  Caption = 'db_Export_Import'
  ClientHeight = 310
  ClientWidth = 639
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '1.3'
  object PageControl: TPageControl
    Left = 4
    Height = 302
    Top = 4
    Width = 631
    ActivePage = TabDataGenerator
    Align = alClient
    BorderSpacing.Around = 4
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControlChange
    object TabDataGenerator: TTabSheet
      Caption = '1 - Create database'
      ClientHeight = 269
      ClientWidth = 623
      object Label2: TLabel
        Left = 4
        Height = 20
        Top = 4
        Width = 615
        Align = alTop
        BorderSpacing.Around = 4
        Caption = 'Create a database with random records'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Panel1: TPanel
        Left = 0
        Height = 241
        Top = 28
        Width = 623
        Align = alClient
        BevelOuter = bvNone
        ClientHeight = 241
        ClientWidth = 623
        TabOrder = 0
        object HeaderLabel1: TLabel
          Left = 8
          Height = 20
          Top = 11
          Width = 88
          Caption = 'Record count'
          ParentColor = False
        end
        object EdRecordCount: TEdit
          Left = 107
          Height = 28
          Top = 8
          Width = 64
          Alignment = taRightJustify
          TabOrder = 0
          Text = '50000'
        end
        object BtnCreateDbf: TButton
          Left = 515
          Height = 28
          Top = 208
          Width = 99
          Anchors = [akRight, akBottom]
          Caption = 'Run'
          OnClick = BtnCreateDbfClick
          TabOrder = 1
        end
        object Bevel1: TBevel
          Left = 0
          Height = 3
          Top = 0
          Width = 623
          Align = alTop
          Shape = bsTopLine
        end
        object InfoLabel1: TLabel
          Left = 8
          Height = 20
          Top = 216
          Width = 496
          Anchors = [akLeft, akRight, akBottom]
          BorderSpacing.Around = 4
          Caption = 'InfoLabel1'
          ParentColor = False
        end
        object Label1: TLabel
          Left = 8
          Height = 20
          Top = 40
          Width = 409
          Caption = 'Please note: the binary xls files can handle only 65536 records.'
          ParentColor = False
        end
      end
    end
    object TabExport: TTabSheet
      Caption = '2 - Export to spreadsheet'
      ClientHeight = 269
      ClientWidth = 623
      object HeaderLabel2: TLabel
        Left = 4
        Height = 20
        Top = 4
        Width = 615
        Align = alTop
        BorderSpacing.Around = 4
        Caption = 'Export database table to spreadsheet file'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Bevel2: TBevel
        Left = 0
        Height = 3
        Top = 28
        Width = 623
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel2: TLabel
        Left = 8
        Height = 20
        Top = 244
        Width = 504
        Anchors = [akLeft, akRight, akBottom]
        BorderSpacing.Around = 4
        Caption = 'InfoLabel2'
        ParentColor = False
      end
      object RgFileFormat: TRadioGroup
        Left = 8
        Height = 158
        Top = 32
        Width = 232
        AutoFill = True
        Caption = 'Spreadsheet file format'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 136
        ClientWidth = 228
        ItemIndex = 2
        Items.Strings = (
          'xls (Excel 2)'
          'xls (Excel5)'
          'xls (Excel 97-2003)'
          'xlsx (Excel 2007 and later)'
          'ods'
        )
        TabOrder = 0
      end
      object BtnExport: TButton
        Left = 515
        Height = 28
        Top = 236
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        OnClick = BtnExportClick
        TabOrder = 1
      end
    end
    object TabImport: TTabSheet
      Caption = '3 - Import from spreadsheet'
      ClientHeight = 269
      ClientWidth = 623
      object HeaderLabel3: TLabel
        Left = 4
        Height = 20
        Top = 4
        Width = 615
        Align = alTop
        BorderSpacing.Around = 4
        Caption = 'Import spreadsheet file in database table'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
      end
      object Bevel3: TBevel
        Left = 0
        Height = 3
        Top = 28
        Width = 623
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel3: TLabel
        Left = 8
        Height = 20
        Top = 244
        Width = 70
        Anchors = [akLeft, akBottom]
        BorderSpacing.Around = 4
        Caption = 'InfoLabel3'
        ParentColor = False
      end
      object BtnImport: TButton
        Left = 515
        Height = 28
        Top = 236
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        Enabled = False
        OnClick = BtnImportClick
        TabOrder = 0
      end
      object FileList: TListBox
        Left = 8
        Height = 181
        Top = 56
        Width = 292
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnClick = FileListClick
        TabOrder = 1
      end
      object Label3: TLabel
        Left = 8
        Height = 20
        Top = 33
        Width = 282
        Caption = 'Select the spreadsheet file to be imported:'
        ParentColor = False
      end
    end
  end
end