Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb
===================================================================
diff -u -r1681 -r1712
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb	(.../IworkItemManager.vb)	(revision 1681)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IworkItemManager.vb	(.../IworkItemManager.vb)	(revision 1712)
@@ -4,5 +4,5 @@
     ''' </summary>
     ''' <param name="workPostIndex">The index of the work post, 0 based</param>
     ''' <returns>Collection of the work items</returns>
-    Function GiveWorkItems(workPostIndex As Integer) As List(Of IWorkItem)
+    Function GiveWorkItems(workPostIndex As Integer) As ICollection(Of IWorkItem)
 End Interface
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/DomainController.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/DomainController.vb	(revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/DomainController.vb	(revision 1712)
@@ -0,0 +1,53 @@
+Public Class DomainController
+    Implements IDomainController
+
+    Private ReadOnly _employeeManager As IEmployeeManager
+    Private ReadOnly _workItemManager As IWorkItemManager
+
+#Region "Singleton pattern"
+
+    Private Shared _instance As DomainController
+
+    Private Sub New()
+        'Initialise managers.
+        _employeeManager = New EmployeeManager
+        _workItemManager = New WorkItemManager
+    End Sub
+
+    ''' <summary>
+    ''' Gets an instance of the domain controller. Only one instance exists.
+    ''' </summary>
+    ''' <returns>The instance of the domain controller</returns>
+    Public Shared Function GetInstance() As IDomainController
+        'If no instance is present, initialise.
+        If _instance Is Nothing Then
+            _instance = New DomainController()
+        End If
+        'Return instance.
+        Return _instance
+    End Function
+#End Region
+
+#Region "Employees"
+
+    ''' <inheritdoc/>
+    Public Function GetEmployees() As ICollection(Of IEmployee) Implements IDomainController.GetEmployees
+        Return _employeeManager.Employees
+    End Function
+
+    ''' <inheritdoc/>
+    Public Sub SelectEmployee(employee As IEmployee) Implements IDomainController.SelectEmployee
+        _employeeManager.SelectEmployee(employee)
+    End Sub
+
+#End Region
+
+#Region "Work items"
+
+    ''' <inheritdoc/>
+    Function GiveWorkItems(workPostIndex As Integer) As ICollection(Of IWorkItem) Implements IDomainController.GiveWorkItems
+        Return _workItemManager.GiveWorkItems(workPostIndex)
+    End Function
+#End Region
+
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IEmployeeManager.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IEmployeeManager.vb	(revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/IEmployeeManager.vb	(revision 1712)
@@ -0,0 +1,9 @@
+Public Interface IEmployeeManager
+    ReadOnly Property Employees As ICollection(Of IEmployee)
+
+    ''' <summary>
+    ''' Select and store the chosen employee.
+    ''' </summary>
+    ''' <param name="employee"></param>
+    Sub SelectEmployee(employee As IEmployee)
+End Interface
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb
===================================================================
diff -u -r1681 -r1712
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb	(.../WorkItemManager.vb)	(revision 1681)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/WorkItemManager.vb	(.../WorkItemManager.vb)	(revision 1712)
@@ -2,7 +2,7 @@
     Implements IWorkItemManager
 
     ''' <inheritdoc/>
-    Public Function GiveWorkItems(workPostIndex As Integer) As List(Of IWorkItem) Implements IWorkItemManager.GiveWorkItems
+    Public Function GiveWorkItems(workPostIndex As Integer) As ICollection(Of IWorkItem) Implements IWorkItemManager.GiveWorkItems
         Return CacheMapper.GetData(workPostIndex)
     End Function
 End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/IDomainController.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/IDomainController.vb	(revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/controllers/IDomainController.vb	(revision 1712)
@@ -0,0 +1,25 @@
+Public Interface IDomainController
+#Region "Employees"
+
+    ''' <summary>
+    ''' Gets a collection of all the employees.
+    ''' </summary>
+    ''' <returns></returns>
+    Function GetEmployees() As ICollection(Of IEmployee)
+
+    ''' <summary>
+    ''' Select an employee as one of the usable employees.
+    ''' </summary>
+    ''' <param name="employee"></param>
+    sub SelectEmployee(employee As IEmployee)
+#End Region
+
+#Region "Work items"
+    ''' <summary>
+    ''' Fetches the work items for a certain work post.
+    ''' </summary>
+    ''' <param name="workPostIndex">The index of the work post, 0 based</param>
+    ''' <returns>Collection of the work items</returns>
+    Function GiveWorkItems(workPostIndex As Integer) As ICollection(Of IWorkItem)
+#End Region
+End Interface
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb
===================================================================
diff -u
--- ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb	(revision 0)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/domain/managers/implementations/EmployeeManager.vb	(revision 1712)
@@ -0,0 +1,21 @@
+Public Class EmployeeManager
+    Implements IEmployeeManager
+
+    Private ReadOnly _employees As ICollection(Of IEmployee)
+    Public ReadOnly Property Employees As ICollection(Of IEmployee) Implements IEmployeeManager.Employees
+        Get
+            Return New HashSet(Of IEmployee)(_employees)
+        End Get
+    End Property
+
+    Sub New()
+        'Initial fetching of employees, then stored.
+        _employees = EmployeesDatabaseMapper.FetchEmployees()
+    End Sub
+
+    ''' <inheritdoc/>
+    Public Sub SelectEmployee(employee As IEmployee) Implements IEmployeeManager.SelectEmployee
+       
+    End Sub
+
+End Class
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings
===================================================================
diff -u -r1682 -r1712
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings	(.../ActiviteitenOpvolging.vbproj.DotSettings)	(revision 1682)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.DotSettings	(.../ActiviteitenOpvolging.vbproj.DotSettings)	(revision 1712)
@@ -3,6 +3,7 @@
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain_005Cclasses/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain_005Cclasses_005Cimplementations/@EntryIndexedValue">True</s:Boolean>
+	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain_005Ccontrollers/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain_005Cmanagers/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=domain_005Cmanagers_005Cimplementations/@EntryIndexedValue">True</s:Boolean>
 	<s:Boolean x:Key="/Default/CodeInspection/NamespaceProvider/NamespaceFoldersToSkip/=enums/@EntryIndexedValue">True</s:Boolean>
Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb
===================================================================
diff -u -r1711 -r1712
--- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb	(.../ActiviteitenOpvolgingForm.vb)	(revision 1711)
+++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb	(.../ActiviteitenOpvolgingForm.vb)	(revision 1712)
@@ -24,8 +24,6 @@
 
             'Load the user controls with the data grids.
             LoadDataGridUserControls()
-
-            FetchEmployees()
         Catch ex As Exception
             MessageBox.Show(ex.Message, "An error occured...", MessageBoxButtons.OK, MessageBoxIcon.Error)
             Application.Exit()