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

object Form1: TForm1
  Left = 340
  Height = 236
  Top = 154
  Width = 450
  Caption = 'db_Export_Import'
  ClientHeight = 236
  ClientWidth = 450
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  LCLVersion = '1.3'
  object PageControl: TPageControl
    Left = 4
    Height = 228
    Top = 4
    Width = 442
    ActivePage = TabImport
    Align = alClient
    BorderSpacing.Around = 4
    TabIndex = 2
    TabOrder = 0
    OnChange = PageControlChange
    object TabDataGenerator: TTabSheet
      Caption = '1 - Create database'
      ClientHeight = 200
      ClientWidth = 434
      object Label2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 426
        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 = 177
        Top = 23
        Width = 434
        Align = alClient
        BevelOuter = bvNone
        ClientHeight = 177
        ClientWidth = 434
        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 = '10000'
        end
        object BtnCreateDbf: TButton
          Left = 326
          Height = 25
          Top = 123
          Width = 99
          Anchors = [akRight, akBottom]
          Caption = 'Run'
          OnClick = BtnCreateDbfClick
          TabOrder = 1
        end
        object Bevel1: TBevel
          Left = 0
          Height = 3
          Top = 0
          Width = 434
          Align = alTop
          Shape = bsTopLine
        end
        object InfoLabel1: TLabel
          Left = 4
          Height = 15
          Top = 158
          Width = 426
          Align = alBottom
          BorderSpacing.Around = 4
          Caption = 'InfoLabe1'
          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 = 200
      ClientWidth = 434
      object HeaderLabel2: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 426
        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 = 434
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel2: TLabel
        Left = 4
        Height = 15
        Top = 181
        Width = 426
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'InfoLabel2'
        ParentColor = False
      end
      object RgFileFormat: TRadioGroup
        Left = 8
        Height = 134
        Top = 32
        Width = 185
        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 = 116
        ClientWidth = 181
        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 = 326
        Height = 25
        Top = 147
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        OnClick = BtnExportClick
        TabOrder = 1
      end
    end
    object TabImport: TTabSheet
      Caption = '3 - Import from spreadsheet'
      ClientHeight = 200
      ClientWidth = 434
      object HeaderLabel3: TLabel
        Left = 4
        Height = 15
        Top = 4
        Width = 426
        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 = 434
        Align = alTop
        Shape = bsTopLine
      end
      object InfoLabel3: TLabel
        Left = 4
        Height = 15
        Top = 181
        Width = 426
        Align = alBottom
        BorderSpacing.Around = 4
        Caption = 'InfoLabel3'
        ParentColor = False
      end
      object BtnImport: TButton
        Left = 326
        Height = 25
        Top = 147
        Width = 99
        Anchors = [akRight, akBottom]
        Caption = 'Run'
        OnClick = BtnImportClick
        TabOrder = 0
      end
      object FileList: TListBox
        Left = 6
        Height = 121
        Top = 56
        Width = 292
        ItemHeight = 0
        TabOrder = 1
      end
      object Label3: TLabel
        Left = 5
        Height = 15
        Top = 33
        Width = 221
        Caption = 'Select the spreadsheet file to be imported:'
        ParentColor = False
      end
    end
  end
end