JJ 21.09.15 Splashscreen

2015-09-21 15:53:44 +02:00
parent c00d0f9b6a
commit b7bdf56ef5
8 changed files with 386 additions and 123 deletions
--- a/app/DD-Record-Organiser/ModuleMySettings.vb
+++ b/app/DD-Record-Organiser/ModuleMySettings.vb
@@ -24,6 +24,12 @@ Module ModuleMySettings
    Public vFILE_DELIMITER As String = "_"

    Public USER_IS_ADMIN = False
+    Public USERS_LOGGED_IN = 0
+    Public USER_GUID = 0
+
+    Public sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
+    Public sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
+
    Dim rowresult As String = ""
    Public Function MySettings_Load()
        Try