Initial commit

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb

@@ -0,0 +1,65 @@
+Public Class frmNeueBeziehung
+
+    Dim dc As New _DataClass.DataClass
+    Dim sec As New Utils.MySecurity
+    Dim m_temporaer As Boolean
+    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
+            Me.Panel2.Height = 227
+            Me.Height = Me.Height + 227
+        Else
+            Me.Panel2.Height = 1
+            Me.Height = Me.Height - 227
+        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