lazarus-ccr/components/flashfiler/examples/Lazffsql/excustu.dfm

object Form1: TForm1
  Left = 224
  Height = 287
  Top = 96
  Width = 540
  Caption = 'FlashFiler Example - Customer Data'
  ClientHeight = 268
  ClientWidth = 540
  Color = clBtnFace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Menu = MainMenu1
  OnShow = FormShow
  LCLVersion = '1.6.1.0'
  object ToolBar1: TToolBar
    Left = 0
    Height = 23
    Top = 0
    Width = 540
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object TlBtnRunQuery: TToolButton
      Left = 1
      Top = 2
      Caption = 'RunQuery'
      ImageIndex = 0
      OnClick = TlBtnRunQueryClick
    end
    object ToolButton2: TToolButton
      Left = 57
      Height = 21
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object DBNavigator1: TDBNavigator
      Left = 65
      Height = 21
      Top = 2
      Width = 250
      BevelOuter = bvNone
      ChildSizing.EnlargeHorizontal = crsScaleChilds
      ChildSizing.EnlargeVertical = crsScaleChilds
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclLeftToRightThenTopToBottom
      ChildSizing.ControlsPerLine = 100
      ClientHeight = 21
      ClientWidth = 250
      DataSource = CustomerData
      Flat = True
      Options = []
      TabOrder = 0
    end
  end
  object CustomerGrid: TDBGrid
    Left = 0
    Height = 156
    Top = 112
    Width = 540
    Align = alClient
    Color = clWindow
    Columns = <>
    DataSource = CustomerData
    TabOrder = 1
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
  end
  object Memo1: TMemo
    Left = 0
    Height = 89
    Top = 23
    Width = 540
    Align = alTop
    Lines.Strings = (
      'select * from ExCust where State=''NC''  AND CustomerID<50'
    )
    OnKeyDown = Memo1KeyDown
    TabOrder = 2
  end
  object ltMain: TffLegacyTransport
    Enabled = True
    ServerName = 'Local server'
    left = 352
    top = 88
  end
  object ffRSE: TFFRemoteServerEngine
    Transport = ltMain
    left = 320
    top = 88
  end
  object ffClient: TffClient
    ClientName = 'ffClient'
    ServerEngine = ffRSE
    left = 320
    top = 56
  end
  object ffSess: TffSession
    ClientName = 'ffClient'
    SessionName = 'ExCust'
    left = 352
    top = 56
  end
  object CustomerTable: TffTable
    DatabaseName = 'Tutorial'
    FieldDefs = <>
    FilterOptions = []
    IndexName = 'ByID'
    SessionName = 'ExCust'
    TableName = 'ExCust'
    Timeout = 10000
    left = 420
    top = 124
  end
  object CustomerData: TDataSource
    DataSet = ffQuery1
    left = 416
    top = 56
  end
  object MainMenu1: TMainMenu
    left = 448
    top = 56
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open'
        OnClick = Open1Click
      end
      object Close1: TMenuItem
        Caption = '&Close'
        Enabled = False
        OnClick = Close1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object Navigate1: TMenuItem
      Caption = '&Navigate'
      Enabled = False
      object First1: TMenuItem
        Caption = '&First'
        OnClick = First1Click
      end
      object Last1: TMenuItem
        Caption = '&Last'
        OnClick = Last1Click
      end
      object Next1: TMenuItem
        Caption = '&Next'
        OnClick = Next1Click
      end
      object Prior1: TMenuItem
        Caption = '&Prior'
        OnClick = Prior1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Enabled = False
      object Append1: TMenuItem
        Caption = '&Append'
        OnClick = Append1Click
      end
      object Insert1: TMenuItem
        Caption = '&Insert'
        OnClick = Insert1Click
      end
      object Post1: TMenuItem
        Caption = '&Post'
        OnClick = Post1Click
      end
      object Refresh1: TMenuItem
        Caption = '&Refresh'
        OnClick = Refresh1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Cancel1: TMenuItem
        Caption = '&Cancel'
        OnClick = Cancel1Click
      end
    end
  end
  object ffQuery1: TffQuery
    DatabaseName = 'Tutorial'
    FilterOptions = []
    SessionName = 'ExCust'
    SQL.Strings = (
      'select * from ExCust where State=''NC''  AND CustomerID<50'
    )
    left = 382
    top = 38
  end
end