object fmMain: TfmMain
  Left = 0
  Top = 0
  Caption = 'PlanScan'
  ClientHeight = 336
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object CacheQuery1: TCacheQuery
    Left = 344
    Top = 192
    Width = 32
    Height = 32
    ControlData = {
      000001004F0300004F0300000000000001010C5175657279204C6F6F6B757000
      00000000FFFFFFFF}
  end
  object tcMain: TTabControl
    Left = 0
    Top = 0
    Width = 635
    Height = 336
    Align = alClient
    TabOrder = 1
    Tabs.Strings = (
      'DnaCodes')
    TabIndex = 0
    ExplicitTop = 8
    ExplicitWidth = 609
    ExplicitHeight = 193
    object DBGrid1: TDBGrid
      Left = 4
      Top = 65
      Width = 500
      Height = 267
      Align = alClient
      DataSource = dsDnaCodes
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
    end
    object pnlZoekKnoppen: TPanel
      Left = 4
      Top = 24
      Width = 627
      Height = 41
      Align = alTop
      BevelEdges = []
      BevelOuter = bvNone
      TabOrder = 1
      ExplicitLeft = 24
      ExplicitTop = 32
      ExplicitWidth = 185
      object btnZoekViaToelevering: TButton
        Left = 135
        Top = 9
        Width = 75
        Height = 25
        Caption = 'Toelevering'
        TabOrder = 0
        OnClick = btnZoekViaToeleveringClick
      end
      object edtZoekInput: TEdit
        Left = 8
        Top = 10
        Width = 121
        Height = 21
        TabOrder = 1
      end
      object btnZoekViaPallet: TButton
        Left = 216
        Top = 9
        Width = 75
        Height = 25
        Caption = 'Pallet'
        TabOrder = 2
        OnClick = btnZoekViaToeleveringClick
      end
    end
    object pnlActies: TPanel
      Left = 504
      Top = 65
      Width = 127
      Height = 267
      Align = alRight
      BevelEdges = []
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object dsDnaCodes: TDataSource
    DataSet = cdsDnaCodes
    Left = 144
    Top = 184
  end
  object cdsDnaCodes: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'cdsDnaCodesDnaCode'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'cdsDnaCodesPallet'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'cdsDnaCodesToelevering'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'cdsDnaCodesStatus'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'cdsDnaCodesBatch'
        DataType = ftString
        Size = 6
      end
      item
        Name = 'cdsDnaCodesScantijdstip'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'cdsDnaCodesInitialen'
        DataType = ftString
        Size = 3
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 184
  end
end