Index: PlanScan/Main.dfm
===================================================================
diff -u -r279 -r280
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 279)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 280)
@@ -22,156 +22,164 @@
       000001004F0300004F0300000000000001010C5175657279204C6F6F6B757000
       00000000FFFFFFFF}
   end
-  object tcMain: TTabControl
+  object pcMain: TPageControl
     Left = 0
     Top = 0
     Width = 635
     Height = 336
+    ActivePage = tsDnaCodes
     Align = alClient
     TabOrder = 1
-    Tabs.Strings = (
-      'DnaCodes')
-    TabIndex = 0
-    object dbgDnaCodes: 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 = []
-      Columns = <
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesDnaCode'
-          Title.Caption = 'DnaCode'
-          Visible = True
+    object tsDnaCodes: TTabSheet
+      Caption = 'DnaCodes'
+      ExplicitWidth = 611
+      ExplicitHeight = 123
+      object pnlZoekKnoppen: TPanel
+        Left = 0
+        Top = 0
+        Width = 627
+        Height = 41
+        Align = alTop
+        BevelEdges = []
+        BevelOuter = bvNone
+        TabOrder = 0
+        ExplicitLeft = 4
+        ExplicitTop = 24
+        object btnZoekViaToelevering: TButton
+          Left = 135
+          Top = 9
+          Width = 75
+          Height = 25
+          Caption = 'Toelevering'
+          TabOrder = 0
+          OnClick = btnZoekViaToeleveringClick
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesPallet'
-          Title.Caption = 'Pallet'
-          Visible = True
+        object edtZoekInput: TEdit
+          Left = 8
+          Top = 10
+          Width = 121
+          Height = 21
+          TabOrder = 1
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesToelevering'
-          Title.Caption = 'Toelevering'
-          Visible = True
+        object btnZoekViaPallet: TButton
+          Left = 216
+          Top = 9
+          Width = 75
+          Height = 25
+          Caption = 'Pallet'
+          TabOrder = 2
+          OnClick = btnZoekViaPalletClick
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesStatus'
-          Title.Caption = 'Status'
-          Visible = True
+        object btnZoekViaDnaCode: TButton
+          Left = 297
+          Top = 9
+          Width = 75
+          Height = 25
+          Caption = 'DnaCode'
+          TabOrder = 3
+          OnClick = btnZoekViaDnaCodeClick
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesBatch'
-          Title.Caption = 'Batch'
-          Visible = True
+      end
+      object pnlActies: TPanel
+        Left = 500
+        Top = 41
+        Width = 127
+        Height = 267
+        Align = alRight
+        BevelEdges = []
+        BevelOuter = bvNone
+        TabOrder = 1
+        ExplicitLeft = 504
+        ExplicitTop = 24
+        ExplicitHeight = 140
+        object btnMaatwerketiket: TButton
+          Left = 6
+          Top = 6
+          Width = 115
+          Height = 25
+          Caption = 'Maatwerketiket'
+          TabOrder = 0
+          OnClick = btnMaatwerketiketClick
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesScantijdstip'
-          Title.Caption = 'Scantijdstip'
-          Visible = True
+        object btnKlantEtiket: TButton
+          Left = 6
+          Top = 37
+          Width = 115
+          Height = 25
+          Caption = 'Klantetiket'
+          TabOrder = 1
+          OnClick = btnKlantEtiketClick
         end
-        item
-          Expanded = False
-          FieldName = 'cdsDnaCodesInitialen'
-          Title.Caption = 'Initialen'
-          Visible = True
-        end>
-    end
-    object pnlZoekKnoppen: TPanel
-      Left = 4
-      Top = 24
-      Width = 627
-      Height = 41
-      Align = alTop
-      BevelEdges = []
-      BevelOuter = bvNone
-      TabOrder = 1
-      object btnZoekViaToelevering: TButton
-        Left = 135
-        Top = 9
-        Width = 75
-        Height = 25
-        Caption = 'Toelevering'
-        TabOrder = 0
-        OnClick = btnZoekViaToeleveringClick
+        object btnProboxetiket: TButton
+          Left = 6
+          Top = 68
+          Width = 115
+          Height = 25
+          Caption = 'Proboxetiket'
+          TabOrder = 2
+          Visible = False
+          OnClick = btnProboxetiketClick
+        end
       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'
+      object dbgDnaCodes: TDBGrid
+        Left = 0
+        Top = 41
+        Width = 500
+        Height = 267
+        Align = alClient
+        DataSource = dsDnaCodes
+        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
         TabOrder = 2
-        OnClick = btnZoekViaPalletClick
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'Tahoma'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesDnaCode'
+            Title.Caption = 'DnaCode'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesPallet'
+            Title.Caption = 'Pallet'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesToelevering'
+            Title.Caption = 'Toelevering'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesStatus'
+            Title.Caption = 'Status'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesBatch'
+            Title.Caption = 'Batch'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesScantijdstip'
+            Title.Caption = 'Scantijdstip'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsDnaCodesInitialen'
+            Title.Caption = 'Initialen'
+            Visible = True
+          end>
       end
-      object btnZoekViaDnaCode: TButton
-        Left = 297
-        Top = 9
-        Width = 75
-        Height = 25
-        Caption = 'DnaCode'
-        TabOrder = 3
-        OnClick = btnZoekViaDnaCodeClick
-      end
     end
-    object pnlActies: TPanel
-      Left = 504
-      Top = 65
-      Width = 127
-      Height = 267
-      Align = alRight
-      BevelEdges = []
-      BevelOuter = bvNone
-      TabOrder = 2
-      object btnMaatwerketiket: TButton
-        Left = 6
-        Top = 6
-        Width = 115
-        Height = 25
-        Caption = 'Maatwerketiket'
-        TabOrder = 0
-        OnClick = btnMaatwerketiketClick
-      end
-      object btnKlantEtiket: TButton
-        Left = 6
-        Top = 37
-        Width = 115
-        Height = 25
-        Caption = 'Klantetiket'
-        TabOrder = 1
-        OnClick = btnKlantEtiketClick
-      end
-      object btnProboxetiket: TButton
-        Left = 6
-        Top = 68
-        Width = 115
-        Height = 25
-        Caption = 'Proboxetiket'
-        TabOrder = 2
-        Visible = False
-        OnClick = btnProboxetiketClick
-      end
-    end
   end
   object dsDnaCodes: TDataSource
     DataSet = cdsDnaCodes