Public Class frmNeueBeziehung

    Dim dc As New _DataClass.DataClass
    Dim sec As New Utils.MySecurity
    Dim m_temporaer As Boolean
    Dim Datenklasse As New _DataClass.DataClass
    Dim kontaktfb As New DataTable
    Dim Kontaktsd As New DataTable
    Property Temporaer As Boolean
        Get
            Return m_temporaer
        End Get
        Set(value As Boolean)
            m_temporaer = value
        End Set
    End Property

    Private Sub frmNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Panel2.Height = 1
        sec.Set_Form_Security(Me)
    End Sub

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        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"
        For Each r As DataRow In dt.Rows
            If r.Item("Bezeichnung") = "Zugehörig" Then Me.cbbeziehungstyp.SelectedValue = r.Item("keyvalue")
        Next

    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

    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 cbTemporaer_CheckedChanged(sender As Object, e As EventArgs) Handles cbTemporaer.CheckedChanged
        If Me.cbTemporaer.Checked = True Then
            Cursor = Cursors.WaitCursor
            Me.Panel2.Height = 227
            Me.Height = Me.Height + 227
            Me.cbboxKontaktFB.BeginUpdate()
            Me.cbboxKontaktSD.BeginUpdate()
            If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
            'kontaktfb = VerantwTKBMA_Data
            'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
            Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data

            'Me.cbboxKontaktFB.DataSource = kontaktfb
            Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
                Me.cbboxKontaktFB.ValueMember = "Keyvalue"
            If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
            'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
            Me.cbboxKontaktSD.DataSource = Kontaktsd_data
            Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
                Me.cbboxKontaktSD.ValueMember = "KeyValue"
                Cursor = Cursors.Default
            Else
                Me.Panel2.Height = 1
            Me.Height = Me.Height - 227
            Me.cbboxKontaktSD.EndUpdate()
            Me.cbboxKontaktFB.EndUpdate()
        End If

    End Sub


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