Index: PlanScan/Main.dfm
===================================================================
diff -u -r280 -r281
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 280)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 281)
@@ -27,7 +27,7 @@
     Top = 0
     Width = 635
     Height = 336
-    ActivePage = tsDnaCodes
+    ActivePage = tsGebruikers
     Align = alClient
     TabOrder = 1
     object tsDnaCodes: TTabSheet
@@ -180,11 +180,80 @@
           end>
       end
     end
+    object tsGebruikers: TTabSheet
+      Caption = 'Gebruikers'
+      ImageIndex = 1
+      object Panel1: TPanel
+        Left = 500
+        Top = 0
+        Width = 127
+        Height = 308
+        Align = alRight
+        BevelEdges = []
+        BevelOuter = bvNone
+        TabOrder = 0
+        ExplicitLeft = 504
+        ExplicitTop = 24
+        ExplicitHeight = 140
+        object btnGebruikerAfmelden: TButton
+          Left = 6
+          Top = 6
+          Width = 115
+          Height = 25
+          Caption = 'Afmelden'
+          TabOrder = 0
+          OnClick = btnMaatwerketiketClick
+        end
+      end
+      object DBGrid1: TDBGrid
+        Left = 0
+        Top = 0
+        Width = 500
+        Height = 308
+        Align = alClient
+        DataSource = dsGebruikers
+        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
+        TabOrder = 1
+        TitleFont.Charset = DEFAULT_CHARSET
+        TitleFont.Color = clWindowText
+        TitleFont.Height = -11
+        TitleFont.Name = 'Tahoma'
+        TitleFont.Style = []
+        Columns = <
+          item
+            Expanded = False
+            FieldName = 'cdsGebruikersInitialen'
+            Title.Caption = 'Initialen'
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsGebruikersComputernaam'
+            Title.Caption = 'Computernaam'
+            Width = 150
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsGebruikersAangemeldSinds'
+            Title.Caption = 'Aangemeld sinds'
+            Width = 112
+            Visible = True
+          end
+          item
+            Expanded = False
+            FieldName = 'cdsGebruikersLaatsteActiviteit'
+            Title.Caption = 'Laatste activiteit'
+            Width = 155
+            Visible = True
+          end>
+      end
+    end
   end
   object dsDnaCodes: TDataSource
     DataSet = cdsDnaCodes
-    Left = 144
-    Top = 184
+    Left = 32
+    Top = 192
   end
   object cdsDnaCodes: TClientDataSet
     Aggregates = <>
@@ -227,7 +296,39 @@
     IndexDefs = <>
     Params = <>
     StoreDefs = True
-    Left = 64
-    Top = 184
+    Left = 32
+    Top = 240
   end
+  object cdsGebruikers: TClientDataSet
+    Aggregates = <>
+    FieldDefs = <
+      item
+        Name = 'cdsGebruikersInitialen'
+        DataType = ftString
+        Size = 10
+      end
+      item
+        Name = 'cdsGebruikersComputernaam'
+        DataType = ftString
+        Size = 30
+      end
+      item
+        Name = 'cdsGebruikersAangemeldSinds'
+        DataType = ftDateTime
+      end
+      item
+        Name = 'cdsGebruikersLaatsteActiviteit'
+        DataType = ftDateTime
+      end>
+    IndexDefs = <>
+    Params = <>
+    StoreDefs = True
+    Left = 120
+    Top = 240
+  end
+  object dsGebruikers: TDataSource
+    DataSet = cdsGebruikers
+    Left = 120
+    Top = 192
+  end
 end
Index: PlanScan/Main.pas
===================================================================
diff -u -r280 -r281
--- PlanScan/Main.pas	(.../Main.pas)	(revision 280)
+++ PlanScan/Main.pas	(.../Main.pas)	(revision 281)
@@ -26,6 +26,12 @@
     btnProboxetiket: TButton;
     pcMain: TPageControl;
     tsDnaCodes: TTabSheet;
+    tsGebruikers: TTabSheet;
+    Panel1: TPanel;
+    btnGebruikerAfmelden: TButton;
+    DBGrid1: TDBGrid;
+    cdsGebruikers: TClientDataSet;
+    dsGebruikers: TDataSource;
     procedure btnZoekViaToeleveringClick(Sender: TObject);
     procedure btnZoekViaPalletClick(Sender: TObject);
     procedure btnZoekViaDnaCodeClick(Sender: TObject);