You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
1.5 KiB
41 lines
1.5 KiB
''' <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 |