34 lines
1.1 KiB
VB.net
34 lines
1.1 KiB
VB.net
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 |