Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r293 -r346
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 293)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 346)
@@ -12,7 +12,8 @@
   Images in 'UI\Images.pas',
   DnaCodeService in 'WS\DnaCodeService.pas',
   GebruikerService in 'WS\GebruikerService.pas',
-  LoginScherm in 'UI\LoginScherm.pas' {fmLogin};
+  LoginScherm in 'UI\LoginScherm.pas' {fmLogin},
+  MidasLib;
 
 {$R *.res}
 
Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r303 -r346
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 303)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 346)
@@ -5,10 +5,10 @@
     <Transaction>2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm=E:\svn\Delphi\PlanScan\Main.dfm</Transaction>
     <Transaction>2020/02/17 10:06:02.000.921,C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas=E:\svn\Delphi\PlanScan\Main.pas</Transaction>
     <Transaction>2020/02/17 10:06:12.000.996,C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj=E:\svn\Delphi\PlanScan\PlanScan.dproj</Transaction>
-    <Transaction>2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
+    <Transaction>2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas</Transaction>
     <Transaction>2020/02/17 11:09:31.000.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas</Transaction>
     <Transaction>2020/02/17 11:09:31.000.815,=E:\svn\Delphi\PlanScan\WS\__history</Transaction>
-    <Transaction>2020/02/17 11:09:31.000.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas</Transaction>
+    <Transaction>2020/02/17 11:09:31.000.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
     <Transaction>2020/02/17 11:12:28.000.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas</Transaction>
     <Transaction>2020/02/17 11:13:01.000.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas=</Transaction>
     <Transaction>2020/02/17 11:14:30.000.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas</Transaction>
Index: PlanScan/Main.dfm
===================================================================
diff -u -r294 -r346
--- PlanScan/Main.dfm	(.../Main.dfm)	(revision 294)
+++ PlanScan/Main.dfm	(.../Main.dfm)	(revision 346)
@@ -11,6 +11,7 @@
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  Position = poScreenCenter
   OnClose = FormClose
   OnCreate = FormCreate
   OnShow = FormShow
@@ -30,7 +31,7 @@
     Top = 0
     Width = 635
     Height = 336
-    ActivePage = tsGebruikers
+    ActivePage = tsDnaCodes
     Align = alClient
     TabOrder = 1
     object tsDnaCodes: TTabSheet
@@ -180,6 +181,10 @@
       Caption = 'Gebruikers'
       ImageIndex = 1
       OnShow = tsGebruikersShow
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel1: TPanel
         Left = 500
         Top = 0
@@ -250,6 +255,7 @@
     Top = 192
   end
   object cdsDnaCodes: TClientDataSet
+    Active = True
     Aggregates = <>
     FieldDefs = <
       item
@@ -292,6 +298,17 @@
     StoreDefs = True
     Left = 32
     Top = 240
+    Data = {
+      320100009619E0BD010000001800000007000000000003000000320112636473
+      446E61436F646573446E61436F64650100490000000100055749445448020002
+      000A0011636473446E61436F64657350616C6C65740100490000000100055749
+      445448020002000A0016636473446E61436F646573546F656C65766572696E67
+      0100490000000100055749445448020002000A0011636473446E61436F646573
+      5374617475730100490000000100055749445448020002000A0010636473446E
+      61436F6465734261746368010049000000010005574944544802000200060017
+      636473446E61436F6465735363616E74696A6473746970010049000000010005
+      574944544802000200140014636473446E61436F646573496E697469616C656E
+      01004900000001000557494454480200020003000000}
   end
   object cdsGebruikers: TClientDataSet
     Aggregates = <>
Index: PlanScan/UI/LoginScherm.dfm
===================================================================
diff -u -r293 -r346
--- PlanScan/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 293)
+++ PlanScan/UI/LoginScherm.dfm	(.../LoginScherm.dfm)	(revision 346)
@@ -12,6 +12,7 @@
   Font.Name = 'Tahoma'
   Font.Style = []
   OldCreateOrder = False
+  Position = poScreenCenter
   PixelsPerInch = 96
   TextHeight = 13
   object lblInitialen: TLabel