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