Initial commit

SW/AssessmentMgmt/Diverse Formulare/frmLogin.vb

@@ -0,0 +1,41 @@
+''' <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 DB.MyMitarbeiter
+    Dim conn As New 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