Public Class LoginForm1
 
    'Dieses Form vergleicht die eingegebenen Userinformationen
    'mit der Datenbank und überprüft, welche Rechte dem User
    'zugewiesen werden
 
    'Hier werden die globalen Variablen für die Connection angegeben
    Private con As New OleDb.OleDbConnection
    Private strCon As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
      "Source=C:\Freibage\WatchGuard.mdb;" & "Jet OLEDB:database Password=xy;"
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles OK.Click
 
        'Wird der Button "Okay" betätigt,
        'werden das Passwort und der Benutzername
        'mit den aus der Datenbank ausgelesenen
        'Daten verglichen
        UsernameTextBox.Copy()
        TextBoxUser.Paste()
        PasswordTextBox.Copy()
        TextBoxPW.Paste()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Cancel.Click
        'Wird der Button "Cancel" betätigt,
        'wird das Programm beendet
        Admininterface.Close()
        ConForm.Close()
        Adminpanel.Close()
        Userinterface.Close()
        Me.Close()
    End Sub
 
    Private Sub LogoPictureBox_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles LogoPictureBox.Click
        'Zeigt das Bild links neben dem Login an
 
    End Sub
    Private Sub TextBoxPW_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBoxPW.TextChanged
        Try
            Dim DSLOGIN As New DataSet
 
            con.ConnectionString = strCon
 
            Dim oledbadapter As OleDb.OleDbDataAdapter
            Dim UserID As String
 
            oledbadapter = New OleDb.OleDbDataAdapter("SELECT UserID FROM " _
            & "Benutzer WHERE " _
            & "User ='" & UsernameTextBox.Text _
            & "'AND Passwort ='" & PasswordTextBox.Text _
            & "'", con)
 
            con.Open()
 
            oledbadapter.Fill(DSLOGIN, "userID")
            If DSLOGIN.Tables("userID").Rows.Count = 0 Then
                UserID = DSLOGIN.Tables("userID").ToString
                UsernameTextBox.Clear()
                PasswordTextBox.Clear()
                MessageBox.Show("Falscher Benutzer und/oder Passwort!")
            Else
                UserID = DSLOGIN.Tables("userID").ToString
                'Session("UserID") = DSLOGIN.Tables("userID").Rows(0).Item( 
                ' "UserID")
                oledbadapter.Dispose()
                PasswordTextBox.Clear()
                Me.Hide()
                Admininterface.Show()
            End If
 
        Catch ex As Exception
            MessageBox.Show(Me, "Fehler aufgetreten : " + ex.ToString)
        Finally
            If con IsNot Nothing Then
                con.Close()
            End If
        End Try
    End Sub
 
    Private Sub PasswordTextBox_KeyDown(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.KeyEventArgs) Handles PasswordTextBox.KeyDown
        If e.KeyCode = Keys.Enter Then
            UsernameTextBox.Copy()
            TextBoxUser.Paste()
            PasswordTextBox.Copy()
            TextBoxPW.Paste()
        End If
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub
 
    Private Sub UsernameTextBox_KeyDown(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.KeyEventArgs) Handles UsernameTextBox.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub
 
End Class