MS17.11

app/RecordOrganizer_RightManager/frmStart.vb

@@ -8,6 +8,12 @@ Public Class frmStart
                 MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
                 Me.Close()
             End If
+            ClassDatabase.ConnectionStringRM = My.Settings.MyConnectionString
+            If ClassDatabase.Init = False Then
+                MsgBox("Error in Initializing Database. Please check log.", MsgBoxStyle.Critical)
+                Me.Close()
+            End If
+
             chkLogerrorsonly.Checked = CBool(clsDatabase.Execute_Scalar("SELECT LOG_ERR_ONLY FROM TBPMO_SERVICE_RIGHT_CONFIG WHERE GUID = 1"))
             Dim sql = String.Format("SELECT * FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('{0}'))", Environment.UserName)
             clsLogger.Add(">> Login at: " & Now.ToString, False)
@@ -150,4 +156,8 @@ Public Class frmStart
     Private Sub chklogerrors_CheckedChanged(sender As Object, e As EventArgs)
 
     End Sub
+
+    Private Sub btnCheckRenewUserRights_Click(sender As Object, e As EventArgs) Handles btnCheckRenewUserRights.Click
+        frmUsersReworkRights.ShowDialog()
+    End Sub
 End Class