Initial commit

_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb

@@ -0,0 +1,41 @@
+Public Class frmBeziehungEdit
+
+    Dim dc As New _DataClass.DataClass
+    Dim sec As New Utils.MySecurity
+
+    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
+        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