Index: PlanScan/Main.dfm
===================================================================
diff -u -r347 -r348
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 347)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 348)
@@ -2,8 +2,8 @@
   Left = 0
   Top = 0
   Caption = 'PlanScan'
-  ClientHeight = 360
-  ClientWidth = 640
+  ClientHeight = 408
+  ClientWidth = 698
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -27,180 +27,36 @@
       00000000FFFFFFFF}
   end
   object pcMain: TPageControl
-    Left = 0
-    Top = 0
-    Width = 640
-    Height = 360
+    Left = 197
+    Top = 184
+    Width = 368
+    Height = 184
     ActivePage = tsDnaCodes
-    Align = alClient
+    MultiLine = True
     TabOrder = 1
-    ExplicitWidth = 635
-    ExplicitHeight = 336
+    TabPosition = tpLeft
     object tsDnaCodes: TTabSheet
       Caption = 'DnaCodes'
-      ExplicitWidth = 627
-      ExplicitHeight = 308
-      object pnlZoekKnoppen: TPanel
-        Left = 0
-        Top = 0
-        Width = 632
-        Height = 41
-        Align = alTop
-        BevelEdges = []
-        BevelOuter = bvNone
-        TabOrder = 0
-        ExplicitWidth = 627
-        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 = btnZoekViaPalletClick
-        end
-        object btnZoekViaDnaCode: TButton
-          Left = 297
-          Top = 9
-          Width = 75
-          Height = 25
-          Caption = 'DnaCode'
-          TabOrder = 3
-          OnClick = btnZoekViaDnaCodeClick
-        end
-      end
-      object pnlActies: TPanel
-        Left = 505
-        Top = 41
-        Width = 127
-        Height = 291
-        Align = alRight
-        BevelEdges = []
-        BevelOuter = bvNone
-        TabOrder = 1
-        ExplicitLeft = 500
-        ExplicitHeight = 267
-        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
-      object dbgDnaCodes: TDBGrid
-        Left = 0
-        Top = 41
-        Width = 505
-        Height = 291
-        Align = alClient
-        DataSource = dsDnaCodes
-        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
-        TabOrder = 2
-        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
+      ExplicitWidth = 427
+      ExplicitHeight = 352
     end
     object tsGebruikers: TTabSheet
       Caption = 'Gebruikers'
       ImageIndex = 1
       OnShow = tsGebruikersShow
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
+      ExplicitWidth = 427
+      ExplicitHeight = 352
       object Panel1: TPanel
-        Left = 500
+        Left = 213
         Top = 0
         Width = 127
-        Height = 308
+        Height = 176
         Align = alRight
         BevelEdges = []
         BevelOuter = bvNone
         TabOrder = 0
+        ExplicitLeft = 300
+        ExplicitHeight = 352
         object btnGebruikerAfmelden: TButton
           Left = 6
           Top = 6
@@ -214,8 +70,8 @@
       object dbgGebruikers: TDBGrid
         Left = 0
         Top = 0
-        Width = 500
-        Height = 308
+        Width = 213
+        Height = 176
         Align = alClient
         DataSource = dsGebruikers
         Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
@@ -256,66 +112,65 @@
       end
     end
   end
-  object dsDnaCodes: TDataSource
-    DataSet = cdsDnaCodes
-    Left = 32
-    Top = 192
+  object pnlLinks: TPanel
+    Left = 0
+    Top = 0
+    Width = 185
+    Height = 408
+    Align = alLeft
+    BevelOuter = bvNone
+    TabOrder = 2
+    ExplicitLeft = 8
+    ExplicitTop = 73
+    ExplicitHeight = 41
+    object Panel2: TPanel
+      Left = 0
+      Top = 0
+      Width = 185
+      Height = 169
+      Align = alTop
+      BevelOuter = bvNone
+      Color = 1513421
+      ParentBackground = False
+      TabOrder = 0
+    end
+    object pnlKnoppen: TPanel
+      Left = 0
+      Top = 169
+      Width = 185
+      Height = 239
+      Align = alClient
+      BevelOuter = bvNone
+      Color = 1513421
+      ParentBackground = False
+      TabOrder = 1
+      ExplicitLeft = 6
+      ExplicitTop = 248
+      ExplicitHeight = 41
+    end
   end
-  object cdsDnaCodes: TClientDataSet
-    Active = True
-    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 = 32
-    Top = 240
-    Data = {
-      320100009619E0BD010000001800000007000000000003000000320112636473
-      446E61436F646573446E61436F64650100490000000100055749445448020002
-      000A0011636473446E61436F64657350616C6C65740100490000000100055749
-      445448020002000A0016636473446E61436F646573546F656C65766572696E67
-      0100490000000100055749445448020002000A0011636473446E61436F646573
-      5374617475730100490000000100055749445448020002000A0010636473446E
-      61436F6465734261746368010049000000010005574944544802000200060017
-      636473446E61436F6465735363616E74696A6473746970010049000000010005
-      574944544802000200140014636473446E61436F646573496E697469616C656E
-      01004900000001000557494454480200020003000000}
+  inline frmDnaCodes: TfrmDnaCodes
+    Left = 296
+    Top = 0
+    Width = 402
+    Height = 408
+    Align = alRight
+    TabOrder = 3
+    ExplicitLeft = 296
+    ExplicitWidth = 402
+    ExplicitHeight = 408
+    inherited dbgDnaCodes: TDBGrid
+      Width = 275
+      Height = 367
+    end
+    inherited pnlActies: TPanel
+      Left = 275
+      Height = 367
+    end
+    inherited pnlZoekKnoppen: TPanel
+      Width = 402
+      ExplicitWidth = 640
+    end
   end
   object cdsGebruikers: TClientDataSet
     Aggregates = <>