''' <summary>
''' Form für den Login. Wird nur angezeigt, sofern in der Tabelle Application Show-Login = true
''' </summary>
''' <remarks></remarks>
Public Class frmLogin

    Dim m_mitarbeiternr As Integer
    Property Mitarbeiternr() As Integer
        Get
            Return m_mitarbeiternr
        End Get
        Set(ByVal value As Integer)
            m_mitarbeiternr = value
        End Set
    End Property

    Dim tmp_madaten As New DataTable
    Dim tmp_clsmitarbeiter As New TKB.VV.DB.MyMitarbeiter
    Dim conn As New TKB.VV.DB.clsConnectionProvider

    Private Sub frmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = Globals.conn
        tmp_clsmitarbeiter.cpMainConnectionProvider = conn
        conn.OpenConnection()
        tmp_madaten = tmp_clsmitarbeiter.SelectAllwithFullname
        Me.cbMitarbeiter.DataSource = tmp_madaten
        Me.cbMitarbeiter.DisplayMember = "Fullname"
        Me.cbMitarbeiter.ValueMember = "Mitarbeiternr"
        conn.CloseConnection(True)
    End Sub

    Private Sub btnAnmelden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnmelden.Click
        Me.Mitarbeiternr = Me.cbMitarbeiter.SelectedValue
        Me.DialogResult = Windows.Forms.DialogResult.OK
    End Sub

    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
        Me.Mitarbeiternr = -1
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class