MS ZSG

app/DD-Record-Organizer - Kopie/ClassUser.vb

@@ -0,0 +1,13 @@
+Public Class ClassUser
+
+    Public Shared Sub LogoutUser()
+        Try
+            Dim SQL
+            SQL = $"DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = {USER_GUID} AND MODULE = 'Record-Organizer'"
+            ClassDatabase.Execute_non_Query(sql)
+        Catch ex As Exception
+            ClassLogger.Add("Error while logging out user: " & ex.Message)
+        End Try
+    End Sub
+
+End Class