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)