lazarus-ccr/components/fpspreadsheet/examples/db_import_export/main.lfm

object Form1: TForm1
  Left = 340
  Height = 310
  Top = 154
  Width = 521
  Caption = 'db_Export_Import'
  ClientHeight = 310
  ClientWidth = 521
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '1.5'
  object PageControl: TPageControl
    Left = 4
    Height = 302
    Top = 4
    Width = 513
    ActivePage = TabDataGenerator
    Align = alClient
    BorderSpacing.Around = 4
    TabIndex = 0
    TabOrder = 0
    OnChange = PageControlChange
    object TabDataGenerator: TTabSheet
      Caption = '1 - Create database'
      ClientHeight = 274
      ClientWidth = 505
      object Label2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 497
        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 = 251
        Top = 23
        Width = 505
        Align = alClient
        BevelOuter = bvNone
        ClientHeight = 251
        ClientWidth = 505
        TabOrder = 0
        object HeaderLabel1: TLabel
          Left = 8
          Height = 15
          Top = 11
          Width = 71
          Caption = 'Record count'
          ParentColor = False
        end
        object EdRecordCount: TEdit
          Left = 107
          Height = 23
          Top = 8
          Width = 64
          Alignment = taRightJustify
          TabOrder = 0
          Text = '50000'
        end
        object BtnCreateDbf: TButton
          Left = 397
          Height = 28
          Top = 218
          Width = 99
          Anchors = [akRight, akBottom]
          Caption = 'Run'
          OnClick = BtnCreateDbfClick
          TabOrder = 1
        end
        object Bevel1: TBevel
          Left = 0
          Height = 3
          Top = 0
          Width = 505
          Align = alTop
          Shape = bsTopLine
        end
        object InfoLabel1: TLabel
          Left = 8
          Height = 15
          Top = 231
          Width = 378
          Anchors = [akLeft, akRight, akBottom]
          BorderSpacing.Around = 4
          Caption = 'InfoLabel1'
          ParentColor = False
        end
        object Label1: TLabel
          Left = 8
          Height = 15
          Top = 40
          Width = 324
          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 = 274
      ClientWidth = 505
      object HeaderLabel2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 497
        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 = 23
        Width = 505
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel2: TLabel
        Left = 8
        Height = 15
        Top = 254
        Width = 386
        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 = 138
        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 = 397
        Height = 28
        Top = 241
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        OnClick = BtnExportClick
        TabOrder = 1
      end
      object RgExportMode: TRadioGroup
        Left = 256
        Height = 158
        Top = 32
        Width = 232
        AutoFill = True
        Caption = 'Export method'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 138
        ClientWidth = 228
        ItemIndex = 0
        Items.Strings = (
          'Virtual mode (memory saving)'
          'FPSExport'
          'FPSExport (multiple sheets)'
        )
        TabOrder = 2
      end
    end
    object TabImport: TTabSheet
      Caption = '3 - Import from spreadsheet'
      ClientHeight = 274
      ClientWidth = 505
      object HeaderLabel3: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 497
        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 = 23
        Width = 505
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel3: TLabel
        Left = 8
        Height = 15
        Top = 254
        Width = 55
        Anchors = [akLeft, akBottom]
        BorderSpacing.Around = 4
        Caption = 'InfoLabel3'
        ParentColor = False
      end
      object BtnImport: TButton
        Left = 397
        Height = 28
        Top = 241
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        Enabled = False
        OnClick = BtnImportClick
        TabOrder = 0
      end
      object FileList: TListBox
        Left = 8
        Height = 186
        Top = 56
        Width = 292
        Anchors = [akTop, akLeft, akBottom]
        ItemHeight = 0
        OnClick = FileListClick
        TabOrder = 1
      end
      object Label3: TLabel
        Left = 8
        Height = 15
        Top = 33
        Width = 221
        Caption = 'Select the spreadsheet file to be imported:'
        ParentColor = False
      end
    end
  end
end