Index: PlanScan/PlanScan.dproj.local
===================================================================
diff -u -r265 -r292
--- PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 265)
+++ PlanScan/PlanScan.dproj.local	(.../PlanScan.dproj.local)	(revision 292)
@@ -2,36 +2,40 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>2020/02/17 10:05:16.000.600,=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</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: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: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.808,=E:\svn\Delphi\PlanScan\WS\Agent.pas</Transaction>
-    <Transaction>2020/02/17 11:09:31.810,=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
-    <Transaction>2020/02/17 11:09:31.812,=E:\svn\Delphi\PlanScan\WS\GebruikerService.pas</Transaction>
-    <Transaction>2020/02/17 11:09:31.815,=E:\svn\Delphi\PlanScan\WS\__history</Transaction>
-    <Transaction>2020/02/17 11:12:28.857,=E:\svn\Delphi\AAPClient\UI\UiContext.pas</Transaction>
-    <Transaction>2020/02/17 11:13:01.260,E:\svn\Delphi\AAPClient\UI\UiContext.pas=</Transaction>
-    <Transaction>2020/02/17 11:14:30.384,=E:\svn\Delphi\PlanScan\UI\UiContext.pas</Transaction>
-    <Transaction>2020/02/17 11:16:33.742,=E:\svn\Delphi\PlanScan\UI\Images.pas</Transaction>
-    <Transaction>2020/02/18 08:16:12.093,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-    <Transaction>2020/02/18 08:21:57.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
-    <Transaction>2020/02/18 08:22:15.174,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-    <Transaction>2020/02/18 08:32:28.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
-    <Transaction>2020/02/18 08:32:46.480,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-    <Transaction>2020/02/18 08:33:00.884,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-    <Transaction>2020/02/18 11:21:59.209,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-    <Transaction>2020/02/18 11:22:27.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
-    <Transaction>2020/02/18 11:22:42.597,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
-  </Transactions>  <ProjectSortOrder AutoSort="0" SortType="0">
+    <Transaction>2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.pas=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.pas</Transaction>
+    <Transaction>2020/02/17 10:06:02.000.921,E:\svn\Delphi\PlanScan\Main.dfm=C:\Users\TomV\Documents\RAD Studio\Projects\Unit2.dfm</Transaction>
+    <Transaction>2020/02/17 10:06:12.000.996,E:\svn\Delphi\PlanScan\PlanScan.dproj=C:\Users\TomV\Documents\RAD Studio\Projects\Project2.dproj</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>
+    <Transaction>2020/02/17 11:16:33.000.742,=E:\svn\Delphi\PlanScan\UI\Images.pas</Transaction>
+    <Transaction>2020/02/18 08:16:12.000.093,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 08:21:57.000.780,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 08:22:15.000.174,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
+    <Transaction>2020/02/18 08:32:28.000.107,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 08:32:46.000.480,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 08:33:00.000.884,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
+    <Transaction>2020/02/18 11:21:59.000.209,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/02/18 11:22:27.000.481,E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas=</Transaction>
+    <Transaction>2020/02/18 11:22:42.000.597,E:\svn\Delphi\PlanScan\WS.pas=E:\svn\Delphi\PlanScan\WS\DnaCodeService.pas</Transaction>
+    <Transaction>2020/03/02 09:30:33.825,=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+    <Transaction>2020/03/02 09:30:46.906,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=</Transaction>
+    <Transaction>2020/03/02 09:31:23.040,E:\svn\Delphi\PlanScan\WS\GebruikerService.pas=E:\svn\Delphi\PlanScan\WS.pas</Transaction>
+  </Transactions>
+	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="UI"/>
+    <File Path="UI\UiContext.pas"/>
+    <File Path="UI\Images.pas"/>
     <File Path="WS"/>
     <File Path="WS\Agent.pas"/>
-    <File Path="WS\GebruikerService.pas"/>
     <File Path="WS\__history"/>
     <File Path="WS\DnaCodeService.pas"/>
+    <File Path="WS\GebruikerService.pas"/>
     <File Path="Main.pas"/>
     <File Path="Main.dfm"/>
-    <File Path="UI"/>
-    <File Path="UI\UiContext.pas"/>
-    <File Path="UI\Images.pas"/>
   </ProjectSortOrder>
 </BorlandProject>
Index: PlanScan/PlanScan.dproj
===================================================================
diff -u -r265 -r292
--- PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 265)
+++ PlanScan/PlanScan.dproj	(.../PlanScan.dproj)	(revision 292)
@@ -87,10 +87,10 @@
 				<FormType>dfm</FormType>
 			</DCCReference>
 			<DCCReference Include="WS\Agent.pas"/>
-			<DCCReference Include="WS\GebruikerService.pas"/>
 			<DCCReference Include="UI\UiContext.pas"/>
 			<DCCReference Include="UI\Images.pas"/>
 			<DCCReference Include="WS\DnaCodeService.pas"/>
+			<DCCReference Include="WS\GebruikerService.pas"/>
 			<None Include="WS\__history"/>
 			<BuildConfiguration Include="Release">
 				<Key>Cfg_2</Key>
Index: PlanScan/UI/LoginScherm.dfm
===================================================================
diff -u
--- PlanScan/UI/LoginScherm.dfm	(revision 0)
+++ PlanScan/UI/LoginScherm.dfm	(revision 292)
@@ -0,0 +1,85 @@
+object fmLogin: TfmLogin
+  Left = 0
+  Top = 0
+  Caption = 'Login'
+  ClientHeight = 109
+  ClientWidth = 313
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object lblInitialen: TLabel
+    Left = 72
+    Top = 16
+    Width = 57
+    Height = 19
+    Caption = 'Initialen'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object lblCode: TLabel
+    Left = 72
+    Top = 43
+    Width = 36
+    Height = 19
+    Caption = 'Code'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object btnLogin: TButton
+    Left = 120
+    Top = 80
+    Width = 75
+    Height = 25
+    Caption = 'Login'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ModalResult = 1
+    ParentFont = False
+    TabOrder = 0
+  end
+  object edtInitialen: TEdit
+    Left = 160
+    Top = 13
+    Width = 121
+    Height = 27
+    CharCase = ecUpperCase
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 1
+  end
+  object edtLoginCode: TEdit
+    Left = 160
+    Top = 40
+    Width = 121
+    Height = 27
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+    PasswordChar = '*'
+    TabOrder = 2
+  end
+end
Index: PlanScan/PlanScan.dpr
===================================================================
diff -u -r265 -r292
--- PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 265)
+++ PlanScan/PlanScan.dpr	(.../PlanScan.dpr)	(revision 292)
@@ -8,10 +8,10 @@
   Vcl.Forms,
   Main in 'Main.pas' {fmMain},
   Agent in 'WS\Agent.pas',
-  GebruikerService in 'WS\GebruikerService.pas',
   UiContext in 'UI\UiContext.pas',
   Images in 'UI\Images.pas',
-  DnaCodeService in 'WS\DnaCodeService.pas';
+  DnaCodeService in 'WS\DnaCodeService.pas',
+  GebruikerService in 'WS\GebruikerService.pas';
 
 {$R *.res}
 
Index: PlanScan/UI/LoginScherm.pas
===================================================================
diff -u
--- PlanScan/UI/LoginScherm.pas	(revision 0)
+++ PlanScan/UI/LoginScherm.pas	(revision 292)
@@ -0,0 +1,29 @@
+unit LoginScherm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
+
+type
+  TfmLogin = class(TForm)
+    btnLogin: TButton;
+    lblInitialen: TLabel;
+    lblCode: TLabel;
+    edtInitialen: TEdit;
+    edtLoginCode: TEdit;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fmLogin: TfmLogin;
+
+implementation
+
+{$R *.dfm}
+
+end.