object Form1: TForm1
  Left = 667
  Height = 368
  Top = 217
  Width = 320
  Caption = 'Croo-tab report demo'
  ClientHeight = 368
  ClientWidth = 320
  OnCreate = FormCreate
  LCLVersion = '1.7'
  object Button1: TButton
    Left = 112
    Height = 25
    Top = 56
    Width = 97
    AutoSize = True
    Caption = 'Design report'
    OnClick = Button1Click
    TabOrder = 0
  end
  object Button2: TButton
    Left = 112
    Height = 25
    Top = 120
    Width = 90
    AutoSize = True
    Caption = 'Show report'
    OnClick = Button2Click
    TabOrder = 1
  end
  object Label1: TLabel
    Left = 16
    Height = 15
    Top = 8
    Width = 117
    Caption = 'Croo-tab report demo'
    ParentColor = False
  end
  object Label2: TLabel
    Left = 16
    Height = 15
    Top = 24
    Width = 213
    Caption = 'Report used standart demo from firebird'
    ParentColor = False
  end
  object SQLQuery1: TSQLQuery
    FieldDefs = <    
      item
        Name = 'CUST_NO'
        DataType = ftInteger
        Precision = -1
      end    
      item
        Name = 'CUSTOMER'
        DataType = ftString
        Precision = -1
        Size = 25
      end    
      item
        Name = 'ORDER_YEAR'
        DataType = ftSmallint
        Precision = -1
      end    
      item
        Name = 'TOTAL_VALUE'
        DataType = ftBCD
        Precision = 9
        Size = 2
      end>
    Database = IBConnection1
    Transaction = SQLTransaction1
    SQL.Strings = (
      'select'
      '  CUSTOMER.CUST_NO,'
      '  CUSTOMER.CUSTOMER,'
      '  EXTRACT(year from sales.order_date) as order_year,'
      '  sales.total_value'
      'from'
      '  SALES'
      '  inner join CUSTOMER on (CUSTOMER.CUST_NO =  SALES.CUST_NO)'
      ''
    )
    Options = []
    Params = <>
    left = 24
    top = 288
  end
  object SQLTransaction1: TSQLTransaction
    Active = False
    Database = IBConnection1
    Options = []
    left = 56
    top = 248
  end
  object IBConnection1: TIBConnection
    Connected = False
    LoginPrompt = False
    DatabaseName = 'employee'
    KeepConnection = False
    Password = 'masterkey'
    Transaction = SQLTransaction1
    UserName = 'sysdba'
    CharSet = 'utf8'
    HostName = '127.0.0.1'
    Options = []
    left = 24
    top = 248
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    Options = []
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    DataType = dtDataSet
    left = 66
    top = 183
  end
  object frDesigner1: TfrDesigner
    left = 104
    top = 183
  end
  object lrCrossObject1: TlrCrossObject
    left = 144
    top = 184
  end
end