18 lines
581 B
VB.net
18 lines
581 B
VB.net
Public Class ClassUser
|
|
|
|
Public Shared Sub LogoutUser()
|
|
Try
|
|
Dim SQL
|
|
|
|
SQL = $"UPDATE TBDD_USER SET LOGGED_IN = {0}, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('{USER_USERNAME}')"
|
|
ClassDatabase.Execute_non_Query(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
|