Initial commit

ThemaPerson/frmThemaPerson.vb

@@ -0,0 +1,34 @@
+Public Class frmThemaPerson
+
+    Dim p As New db.Person
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Dim d As New DataTable
+        d = p.Get_Aktive_Personen()
+        Me.cbboxperson.DataSource = d
+        Me.cbboxperson.ValueMember = "ID"
+        Me.cbboxperson.DisplayMember = "Name"
+
+        d = p.Get_Aktive_Funktionen
+        Me.cbboxfunktion.DataSource = d
+        Me.cbboxfunktion.ValueMember = "ID"
+        Me.cbboxfunktion.DisplayMember = "Bezeichnung"
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+    Private Sub frmThemaPerson_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+End Class