Chat etc.

Dokumentation/Login/Login.vb

@@ -1,4 +1,6 @@
 Imports System.Net.Dns
+Imports VERAG_PROG_ALLGEMEIN
+Imports System.Reflection
 
 Public Class Login
     Property userPrincipalName As String = ""
@@ -32,6 +34,15 @@ Public Class Login
         End Select
     End Function
 
+    Public Function LoadUSRID()
+        Dim ds As New DataSet
+        cSQL.SQL2DS("select * from [ADMIN].dbo.tblMitarbeiter where mit_aliasad_domain = '" & Environment.UserDomainName & "' AND mit_AliasAD_Username = '" & Environment.UserName & "'", ds)
+        VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = ds.Tables(0).Rows(0).Item("mit_id").ToString
+        VERAG_PROG_ALLGEMEIN.cAllgemein.LOAD_DATA()
+
+        'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
+    End Function
+
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         lblInfo.Text = ""
         Login()
@@ -42,8 +53,10 @@ Public Class Login
         Timer1.Enabled = False
         Try
             Abfrage(userPrincipalName)
+            ' LoadUSRID()
         Catch
-            MsgBox("Fehler beim Anmelden!")
+            'MsgBox("Fehler beim Anmelden!")
+
             PasswortabfrageLogin.Show()
         End Try
     End Sub
@@ -62,6 +75,7 @@ Public Class Login
                 ' MsgBox("Treffer!")
                 Class1.LoggedOnUserRights = cBerechtigungen.ReadAll(Class1.LoggedOnUser.BenutzeranmeldeName)
                 gefunden = True
+                LoadUSRID()
                 ShowMain()
                 Me.Hide()
                 Exit For
@@ -199,7 +213,7 @@ Public Class Login
         End Select
     End Function
 
-    Function ShowMain()
+    Function ShowMain(Optional ByVal MessageActivated As Boolean = True)
         Dim main As New Main
 
         For Each right As cBerechtigungen In Class1.LoggedOnUserRights
@@ -216,6 +230,7 @@ Public Class Login
             End If
         Next
 
+        main.picAVISOMessenger.Enabled = MessageActivated
         main.Show()
 
     End Function