Public Class frmLogin
    Public ConnStrInfo As String
    Public ConnStr As String
    '  Public USRNAME As String
    ' Public USRBER As Integer

    Private UID As New cOptionenDAL
    Private SDL As New SDL.cOptionenDAL


    Private Version As String = My.Resources.Version
    Public sAppPath As String = Application.StartupPath

    Public TESTSYSTEM As Boolean = False


    Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
        If SDL.checkLogin(txtUser.Text, txtPwd.Text, "DISPO") Then
            VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "DISPO"
            VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
            VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGIN()


            AddHandler frmMain.FormClosed, Sub()
                                               VERAG_PROG_ALLGEMEIN.cAllgemein.SESSION.LOGOUT()
                                               Me.Close()
                                           End Sub
            'frmMain.Show()
            frmMainV2.Show()
            Me.Hide()
        Else
            lblAlertTxt.Visible = True
        End If
    End Sub

    Private Sub frmLogin_Load(sender As Object, e As EventArgs) Handles Me.Load
        'If sAppPath Like "*\bin\Debug" Then
        '    txtUser.Text = "sebastian"
        '    txtPwd.Text = "verag#3"
        'End If
        If TESTSYSTEM Then lblTestsystem.Visible = True
        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM
        'Dim tmp As String
        lblVersion.Text = lblVersion.Text & " " & My.Resources.Version
        Me.Show()
        txtUser.Focus()
        lblAlertTxt.Visible = False
        'auf UPDATES prüfen:
        If CInt(UID.getAktuelleVersion().Replace(".", "")) > CInt(Version.Replace(".", "")) Then
            Me.Enabled = False
            If vbYes = MsgBox("Es ist eine neue Programm-Version verfügbar. Das Programm muss aktualisiert werden, bevor Sie es weiter verwenden können. " & vbNewLine & vbNewLine & "Update jetzt durchführen?", CType(vbQuestion + vbYesNo, MsgBoxStyle), "Update verfügbar") Then
                UpdateDISPO()
            Else
                Application.Exit()
            End If
        Else
        End If
    End Sub

    Private Sub txtPwd_KeyDown(sender As Object, e As KeyEventArgs) Handles txtPwd.KeyDown, txtUser.KeyDown
        If (e.KeyCode = Keys.Return) Then
            btnLogin.PerformClick() : e.SuppressKeyPress = True
        ElseIf (e.KeyCode = Keys.Escape) Then
            Me.Close()
        End If
    End Sub
    Public Sub UpdateDISPO()
        If Not System.IO.File.Exists(AppDomain.CurrentDomain.BaseDirectory & "DISPOUpdater.exe") Then
            MsgBox("ERROR_UPDATE: Update konnte nicht fortgesetzt werden." & vbNewLine & vbNewLine & "Update-Datei existiert nicht.", vbCritical)
            Application.Exit()
        Else
            Process.Start("DISPOUpdater.exe")
            Application.Exit()
        End If
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        Me.Close()
    End Sub
    Private Sub lblVersion_Click(sender As Object, e As MouseEventArgs) Handles lblVersion.MouseClick, lblVersion.Click
        ctxUpdate.Show(lblVersion, e.Location)
    End Sub

    Private Sub UpdateToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UpdateToolStripMenuItem.Click
        UpdateDISPO()
    End Sub

    Private Sub txtUser_TextChanged(sender As Object, e As EventArgs) Handles txtUser.TextChanged

    End Sub

    Private Sub frmLogin_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Modifiers = Keys.Control And e.KeyCode = Keys.T Then
            ' MsgBox(Environment.MachineName)
            TESTSYSTEM = Not TESTSYSTEM
            initstart()
            If Environment.MachineName = "YLPS023046" Then
                txtUser.Text = "ADMIN"
                txtPwd.Text = "verag#2"
            ElseIf Environment.MachineName = "NBMIESENBECK" Then
                txtUser.Text = "sebastian"
                txtPwd.Text = "verag#3"
            End If
        End If
    End Sub
    Sub initstart()


        'DEV FMZOLL
        If TESTSYSTEM Then
            ' cGlobal.ConnStrFMZOLL = VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLLConnectionString
            lblTestsystem.Visible = True
        Else
            lblTestsystem.Visible = False
        End If

        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = TESTSYSTEM


        ' txtSachbear.Text = ""
        'txtKennwort.Text = ""

        txtUser.Text = SystemInformation.UserName
        txtUser.Focus()


    End Sub
End Class