Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj =================================================================== diff -u -r1709 -r1711 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1709) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1711) @@ -78,6 +78,7 @@ + Index: ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb =================================================================== diff -u -r1702 -r1711 --- ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1702) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/grids/DataGridViewUserControl.vb (.../DataGridViewUserControl.vb) (revision 1711) @@ -58,6 +58,9 @@ 'Set properties of datagrid view. + 'Background color. + WorkItemsDataGridView.BackgroundColor = color.White + 'Cell makeup. 'Center header cells. WorkItemsDataGridView.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb =================================================================== diff -u -r1702 -r1711 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1702) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolgingForm.vb (.../ActiviteitenOpvolgingForm.vb) (revision 1711) @@ -24,6 +24,8 @@ '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() @@ -86,7 +88,7 @@ Dim allSuccesfulRefresh = _userControls.All(Function(userControl) userControl.RefreshData()) If allSuccesfulRefresh Then 'Update latest refresh time label with current time. - RefreshTimeLabel.Text = TimeOfDay.ToString() + RefreshTimeLabel.Text = TimeOfDay.ToString() 'todo right formatting RefreshFailedLabel.Visible = False Else RefreshFailedLabel.Visible = True Index: ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb =================================================================== diff -u -r1710 -r1711 --- ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb (.../CacheMapper.vb) (revision 1710) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/mappers/CacheMapper.vb (.../CacheMapper.vb) (revision 1711) @@ -12,8 +12,8 @@ Try If _sqlConnection Is Nothing Then 'Build connection string. Looks something like this "DSN=...; DRIVER={InterSystems ODBC}; SERVER=...;DATABASE=...;UID=...;PWD=..." - Dim connectionString = $"DSN={My.Resources.CacheDSN}; DRIVER=" & "{InterSystems ODBC}; - SERVER={My.Resources.CacheServerName};DATABASE={My.Resources.CacheDatabase}; + Dim connectionString = $"DSN={My.Resources.CacheDSN}; DRIVER=" & "{InterSystems ODBC};" & + $"SERVER={My.Resources.CacheServerName};DATABASE={My.Resources.CacheDatabase}; UID={My.Resources.CacheUsername};PWD={My.Resources.CachePassword}" 'Initialise connection. _sqlConnection = New OdbcConnection(connectionString)