Public Class frmBeziehungEdit
    Dim kontaktfb As New DataTable
    Dim dc As New _DataClass.DataClass
    Dim sec As New Utils.MySecurity
    Dim Datenklasse As New _DataClass.DataClass
    Public Kontaktid As Integer = 0

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Abort
        Me.Close()
    End Sub

    Private Sub frmBeziehungEdit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
        Me.cbboxKontaktFB.DataSource = kontaktfb
        Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
        Me.cbboxKontaktFB.ValueMember = "Keyvalue"
        Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
        sec.Set_Form_Security(Me)
    End Sub

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Dim dt As New DataTable
        dc.ConnectionString = Globals.sConnectionString
        dc.Mitarbeiternr = Globals.Mitarbeiternr
        dt = dc.Get_Stammdaten("Beziehungstyp", "Bezeichnung")
        Me.cbbeziehungstyp.DataSource = dt
        Me.cbbeziehungstyp.DisplayMember = "bezeichnung"
        Me.cbbeziehungstyp.ValueMember = "KeyValue"
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    
    Private Sub tsmnuSecurityObjekte_Click(sender As Object, e As EventArgs) Handles tsmnuSecurityObjekte.Click
        If InputBox("Passwort:") <> "341211" Then Exit Sub
        sec.List_Form_Controls(Me)
        sec.Print_Screen(Me)
    End Sub
End Class