Initial commit

_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb

@@ -0,0 +1,334 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmBeziehungEdit
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBeziehungEdit))
+        Me.txtSeqeunz = New System.Windows.Forms.NumericUpDown()
+        Me.lblSequenz = New System.Windows.Forms.Label()
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.lblBemerkung = New System.Windows.Forms.Label()
+        Me.cbAktiv = New System.Windows.Forms.CheckBox()
+        Me.lblAktiv = New System.Windows.Forms.Label()
+        Me.cbbeziehungstyp = New System.Windows.Forms.ComboBox()
+        Me.lblBeziehungstyp = New System.Windows.Forms.Label()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.tsmnuSecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'txtSeqeunz
+        '
+        Me.txtSeqeunz.Location = New System.Drawing.Point(73, 111)
+        Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.txtSeqeunz.Name = "txtSeqeunz"
+        Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
+        Me.txtSeqeunz.TabIndex = 15
+        '
+        'lblSequenz
+        '
+        Me.lblSequenz.AutoSize = True
+        Me.lblSequenz.Location = New System.Drawing.Point(9, 113)
+        Me.lblSequenz.Name = "lblSequenz"
+        Me.lblSequenz.Size = New System.Drawing.Size(49, 13)
+        Me.lblSequenz.TabIndex = 14
+        Me.lblSequenz.Text = "Sequenz"
+        '
+        'btnCancel
+        '
+        Me.btnCancel.Location = New System.Drawing.Point(241, 16)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+        Me.btnCancel.TabIndex = 13
+        Me.btnCancel.Text = "Abbruch"
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(13, 16)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 12
+        Me.btnOK.Text = "Speichern"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(74, 9)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
+        Me.txtBemerkung.TabIndex = 11
+        '
+        'lblBemerkung
+        '
+        Me.lblBemerkung.AutoSize = True
+        Me.lblBemerkung.Location = New System.Drawing.Point(10, 12)
+        Me.lblBemerkung.Name = "lblBemerkung"
+        Me.lblBemerkung.Size = New System.Drawing.Size(61, 13)
+        Me.lblBemerkung.TabIndex = 10
+        Me.lblBemerkung.Text = "Bemerkung"
+        '
+        'cbAktiv
+        '
+        Me.cbAktiv.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbAktiv.AutoSize = True
+        Me.cbAktiv.Location = New System.Drawing.Point(72, 140)
+        Me.cbAktiv.Name = "cbAktiv"
+        Me.cbAktiv.Size = New System.Drawing.Size(15, 14)
+        Me.cbAktiv.TabIndex = 32
+        Me.cbAktiv.UseVisualStyleBackColor = True
+        '
+        'lblAktiv
+        '
+        Me.lblAktiv.AutoSize = True
+        Me.lblAktiv.Location = New System.Drawing.Point(9, 140)
+        Me.lblAktiv.Name = "lblAktiv"
+        Me.lblAktiv.Size = New System.Drawing.Size(31, 13)
+        Me.lblAktiv.TabIndex = 31
+        Me.lblAktiv.Text = "Aktiv"
+        '
+        'cbbeziehungstyp
+        '
+        Me.cbbeziehungstyp.FormattingEnabled = True
+        Me.cbbeziehungstyp.Location = New System.Drawing.Point(73, 84)
+        Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
+        Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
+        Me.cbbeziehungstyp.TabIndex = 34
+        '
+        'lblBeziehungstyp
+        '
+        Me.lblBeziehungstyp.AutoSize = True
+        Me.lblBeziehungstyp.Location = New System.Drawing.Point(10, 87)
+        Me.lblBeziehungstyp.Name = "lblBeziehungstyp"
+        Me.lblBeziehungstyp.Size = New System.Drawing.Size(49, 13)
+        Me.lblBeziehungstyp.TabIndex = 33
+        Me.lblBeziehungstyp.Text = "Bez.-Typ"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.txtSeqeunz)
+        Me.Panel1.Controls.Add(Me.cbbeziehungstyp)
+        Me.Panel1.Controls.Add(Me.lblBemerkung)
+        Me.Panel1.Controls.Add(Me.lblBeziehungstyp)
+        Me.Panel1.Controls.Add(Me.txtBemerkung)
+        Me.Panel1.Controls.Add(Me.cbAktiv)
+        Me.Panel1.Controls.Add(Me.lblSequenz)
+        Me.Panel1.Controls.Add(Me.lblAktiv)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(336, 177)
+        Me.Panel1.TabIndex = 35
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.DateTimePicker1)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.TextBox4)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.TextBox3)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.TextBox2)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Controls.Add(Me.TextBox1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 177)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(336, 227)
+        Me.Panel2.TabIndex = 36
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(9, 183)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(39, 13)
+        Me.Label5.TabIndex = 21
+        Me.Label5.Text = "Termin"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
+        Me.DateTimePicker1.TabIndex = 20
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(9, 159)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(60, 13)
+        Me.Label4.TabIndex = 19
+        Me.Label4.Text = "Kontakt FB"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(84, 156)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(231, 20)
+        Me.TextBox4.TabIndex = 18
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(7, 133)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(71, 13)
+        Me.Label3.TabIndex = 17
+        Me.Label3.Text = "Bearbeiter ISI"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(84, 130)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(100, 20)
+        Me.TextBox3.TabIndex = 16
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(7, 72)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(59, 13)
+        Me.Label2.TabIndex = 15
+        Me.Label2.Text = "Unterlagen"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(85, 69)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(230, 57)
+        Me.TextBox2.TabIndex = 14
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(7, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(72, 13)
+        Me.Label1.TabIndex = 13
+        Me.Label1.Text = "Beschreibung"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(85, 6)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(230, 57)
+        Me.TextBox1.TabIndex = 13
+        '
+        'Panel3
+        '
+        Me.Panel3.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Panel3.Controls.Add(Me.btnOK)
+        Me.Panel3.Controls.Add(Me.btnCancel)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel3.Location = New System.Drawing.Point(0, 404)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(336, 60)
+        Me.Panel3.TabIndex = 37
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmnuSecurityObjekte})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(161, 26)
+        '
+        'tsmnuSecurityObjekte
+        '
+        Me.tsmnuSecurityObjekte.Name = "tsmnuSecurityObjekte"
+        Me.tsmnuSecurityObjekte.Size = New System.Drawing.Size(160, 22)
+        Me.tsmnuSecurityObjekte.Text = "Security Objekte"
+        '
+        'frmBeziehungEdit
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(336, 463)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmBeziehungEdit"
+        Me.Text = "Beziehung mutieren"
+        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents txtSeqeunz As System.Windows.Forms.NumericUpDown
+    Friend WithEvents lblSequenz As System.Windows.Forms.Label
+    Friend WithEvents btnCancel As System.Windows.Forms.Button
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents lblBemerkung As System.Windows.Forms.Label
+    Friend WithEvents cbAktiv As System.Windows.Forms.CheckBox
+    Friend WithEvents lblAktiv As System.Windows.Forms.Label
+    Friend WithEvents cbbeziehungstyp As System.Windows.Forms.ComboBox
+    Friend WithEvents lblBeziehungstyp As System.Windows.Forms.Label
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Panel3 As System.Windows.Forms.Panel
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents tsmnuSecurityObjekte As System.Windows.Forms.ToolStripMenuItem
+End Class

_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

_AllgMainObjekte/Diverse_Formulare/frmMsgBox.designer.vb

@@ -0,0 +1,181 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmMsgBox
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMsgBox))
+        Me.btnYes = New System.Windows.Forms.Button()
+        Me.btnno = New System.Windows.Forms.Button()
+        Me.btnAbbruch = New System.Windows.Forms.Button()
+        Me.txtmsg = New System.Windows.Forms.TextBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.imgQuestion = New System.Windows.Forms.PictureBox()
+        Me.imgInformation = New System.Windows.Forms.PictureBox()
+        Me.imgExclamation = New System.Windows.Forms.PictureBox()
+        Me.imgCritical = New System.Windows.Forms.PictureBox()
+        Me.Panel1.SuspendLayout()
+        CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'btnYes
+        '
+        Me.btnYes.Location = New System.Drawing.Point(71, 84)
+        Me.btnYes.Name = "btnYes"
+        Me.btnYes.Size = New System.Drawing.Size(75, 23)
+        Me.btnYes.TabIndex = 0
+        Me.btnYes.Text = "&Ja"
+        Me.btnYes.UseVisualStyleBackColor = True
+        '
+        'btnno
+        '
+        Me.btnno.Location = New System.Drawing.Point(162, 84)
+        Me.btnno.Name = "btnno"
+        Me.btnno.Size = New System.Drawing.Size(75, 23)
+        Me.btnno.TabIndex = 1
+        Me.btnno.Text = "&Nein"
+        Me.btnno.UseVisualStyleBackColor = True
+        '
+        'btnAbbruch
+        '
+        Me.btnAbbruch.Location = New System.Drawing.Point(254, 84)
+        Me.btnAbbruch.Name = "btnAbbruch"
+        Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
+        Me.btnAbbruch.TabIndex = 2
+        Me.btnAbbruch.Text = "&Abbrechen"
+        Me.btnAbbruch.UseVisualStyleBackColor = True
+        '
+        'txtmsg
+        '
+        Me.txtmsg.BackColor = System.Drawing.Color.White
+        Me.txtmsg.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtmsg.Location = New System.Drawing.Point(67, 20)
+        Me.txtmsg.Multiline = True
+        Me.txtmsg.Name = "txtmsg"
+        Me.txtmsg.ReadOnly = True
+        Me.txtmsg.Size = New System.Drawing.Size(258, 44)
+        Me.txtmsg.TabIndex = 3
+        Me.txtmsg.TabStop = False
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(133, 84)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 5
+        Me.btnOK.Text = "&OK"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.imgQuestion)
+        Me.Panel1.Controls.Add(Me.imgInformation)
+        Me.Panel1.Controls.Add(Me.imgExclamation)
+        Me.Panel1.Controls.Add(Me.txtmsg)
+        Me.Panel1.Controls.Add(Me.imgCritical)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(337, 78)
+        Me.Panel1.TabIndex = 6
+        '
+        'imgQuestion
+        '
+        Me.imgQuestion.Image = CType(resources.GetObject("imgQuestion.Image"), System.Drawing.Image)
+        Me.imgQuestion.InitialImage = CType(resources.GetObject("imgQuestion.InitialImage"), System.Drawing.Image)
+        Me.imgQuestion.Location = New System.Drawing.Point(12, 20)
+        Me.imgQuestion.Name = "imgQuestion"
+        Me.imgQuestion.Size = New System.Drawing.Size(39, 36)
+        Me.imgQuestion.TabIndex = 7
+        Me.imgQuestion.TabStop = False
+        '
+        'imgInformation
+        '
+        Me.imgInformation.Image = CType(resources.GetObject("imgInformation.Image"), System.Drawing.Image)
+        Me.imgInformation.InitialImage = CType(resources.GetObject("imgInformation.InitialImage"), System.Drawing.Image)
+        Me.imgInformation.Location = New System.Drawing.Point(12, 20)
+        Me.imgInformation.Name = "imgInformation"
+        Me.imgInformation.Size = New System.Drawing.Size(39, 36)
+        Me.imgInformation.TabIndex = 6
+        Me.imgInformation.TabStop = False
+        '
+        'imgExclamation
+        '
+        Me.imgExclamation.Image = CType(resources.GetObject("imgExclamation.Image"), System.Drawing.Image)
+        Me.imgExclamation.InitialImage = CType(resources.GetObject("imgExclamation.InitialImage"), System.Drawing.Image)
+        Me.imgExclamation.Location = New System.Drawing.Point(12, 20)
+        Me.imgExclamation.Name = "imgExclamation"
+        Me.imgExclamation.Size = New System.Drawing.Size(39, 36)
+        Me.imgExclamation.TabIndex = 5
+        Me.imgExclamation.TabStop = False
+        '
+        'imgCritical
+        '
+        Me.imgCritical.Image = CType(resources.GetObject("imgCritical.Image"), System.Drawing.Image)
+        Me.imgCritical.InitialImage = CType(resources.GetObject("imgCritical.InitialImage"), System.Drawing.Image)
+        Me.imgCritical.Location = New System.Drawing.Point(12, 20)
+        Me.imgCritical.Name = "imgCritical"
+        Me.imgCritical.Size = New System.Drawing.Size(39, 36)
+        Me.imgCritical.TabIndex = 4
+        Me.imgCritical.TabStop = False
+        '
+        'frmMsgBox
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(337, 116)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.btnOK)
+        Me.Controls.Add(Me.btnAbbruch)
+        Me.Controls.Add(Me.btnno)
+        Me.Controls.Add(Me.btnYes)
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmMsgBox"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
+        Me.Text = "BEA"
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.imgQuestion, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgInformation, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgExclamation, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.imgCritical, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents btnYes As System.Windows.Forms.Button
+    Friend WithEvents btnno As System.Windows.Forms.Button
+    Friend WithEvents btnAbbruch As System.Windows.Forms.Button
+    Friend WithEvents txtmsg As System.Windows.Forms.TextBox
+    Friend WithEvents imgCritical As System.Windows.Forms.PictureBox
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents imgExclamation As System.Windows.Forms.PictureBox
+    Friend WithEvents imgQuestion As System.Windows.Forms.PictureBox
+    Friend WithEvents imgInformation As System.Windows.Forms.PictureBox
+End Class

_AllgMainObjekte/Diverse_Formulare/frmMsgBox.vb

@@ -0,0 +1,26 @@
+Public Class frmMsgBox
+
+    Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnYes.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Yes
+        Me.Close()
+    End Sub
+
+    Private Sub btnno_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnno.Click
+        Me.DialogResult = Windows.Forms.DialogResult.No
+        Me.Close()
+    End Sub
+
+    Private Sub btnAbbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmMsgBox_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+
+    End Sub
+
+    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
+        Me.DialogResult = Windows.Forms.DialogResult.OK
+        Me.Close()
+    End Sub
+End Class

_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb

@@ -0,0 +1,367 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmNeueBeziehung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNeueBeziehung))
+        Me.lblObjekt1 = New System.Windows.Forms.Label()
+        Me.txtObjekt1 = New System.Windows.Forms.TextBox()
+        Me.lblObjekt2 = New System.Windows.Forms.Label()
+        Me.txtObjekt2 = New System.Windows.Forms.TextBox()
+        Me.lblBemerkung = New System.Windows.Forms.Label()
+        Me.txtBemerkung = New System.Windows.Forms.TextBox()
+        Me.btnOK = New System.Windows.Forms.Button()
+        Me.btnCancel = New System.Windows.Forms.Button()
+        Me.lblSequenz = New System.Windows.Forms.Label()
+        Me.txtSeqeunz = New System.Windows.Forms.NumericUpDown()
+        Me.lblBeziehungstyp = New System.Windows.Forms.Label()
+        Me.cbbeziehungstyp = New System.Windows.Forms.ComboBox()
+        Me.cbTemporaer = New System.Windows.Forms.CheckBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.TextBox4 = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.TextBox3 = New System.Windows.Forms.TextBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.TextBox2 = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.SecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
+        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'lblObjekt1
+        '
+        Me.lblObjekt1.AutoSize = True
+        Me.lblObjekt1.Location = New System.Drawing.Point(7, 11)
+        Me.lblObjekt1.Name = "lblObjekt1"
+        Me.lblObjekt1.Size = New System.Drawing.Size(44, 13)
+        Me.lblObjekt1.TabIndex = 0
+        Me.lblObjekt1.Text = "Objekt1"
+        '
+        'txtObjekt1
+        '
+        Me.txtObjekt1.Location = New System.Drawing.Point(71, 8)
+        Me.txtObjekt1.Name = "txtObjekt1"
+        Me.txtObjekt1.ReadOnly = True
+        Me.txtObjekt1.Size = New System.Drawing.Size(244, 20)
+        Me.txtObjekt1.TabIndex = 1
+        '
+        'lblObjekt2
+        '
+        Me.lblObjekt2.AutoSize = True
+        Me.lblObjekt2.Location = New System.Drawing.Point(7, 39)
+        Me.lblObjekt2.Name = "lblObjekt2"
+        Me.lblObjekt2.Size = New System.Drawing.Size(44, 13)
+        Me.lblObjekt2.TabIndex = 2
+        Me.lblObjekt2.Text = "Objekt2"
+        '
+        'txtObjekt2
+        '
+        Me.txtObjekt2.Location = New System.Drawing.Point(71, 36)
+        Me.txtObjekt2.Name = "txtObjekt2"
+        Me.txtObjekt2.ReadOnly = True
+        Me.txtObjekt2.Size = New System.Drawing.Size(244, 20)
+        Me.txtObjekt2.TabIndex = 3
+        '
+        'lblBemerkung
+        '
+        Me.lblBemerkung.AutoSize = True
+        Me.lblBemerkung.Location = New System.Drawing.Point(7, 72)
+        Me.lblBemerkung.Name = "lblBemerkung"
+        Me.lblBemerkung.Size = New System.Drawing.Size(61, 13)
+        Me.lblBemerkung.TabIndex = 4
+        Me.lblBemerkung.Text = "Bemerkung"
+        '
+        'txtBemerkung
+        '
+        Me.txtBemerkung.Location = New System.Drawing.Point(71, 69)
+        Me.txtBemerkung.Multiline = True
+        Me.txtBemerkung.Name = "txtBemerkung"
+        Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
+        Me.txtBemerkung.TabIndex = 5
+        '
+        'btnOK
+        '
+        Me.btnOK.Location = New System.Drawing.Point(12, 6)
+        Me.btnOK.Name = "btnOK"
+        Me.btnOK.Size = New System.Drawing.Size(75, 23)
+        Me.btnOK.TabIndex = 6
+        Me.btnOK.Text = "Speichern"
+        Me.btnOK.UseVisualStyleBackColor = True
+        '
+        'btnCancel
+        '
+        Me.btnCancel.Location = New System.Drawing.Point(240, 6)
+        Me.btnCancel.Name = "btnCancel"
+        Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+        Me.btnCancel.TabIndex = 7
+        Me.btnCancel.Text = "Abbruch"
+        Me.btnCancel.UseVisualStyleBackColor = True
+        '
+        'lblSequenz
+        '
+        Me.lblSequenz.AutoSize = True
+        Me.lblSequenz.Location = New System.Drawing.Point(7, 180)
+        Me.lblSequenz.Name = "lblSequenz"
+        Me.lblSequenz.Size = New System.Drawing.Size(49, 13)
+        Me.lblSequenz.TabIndex = 8
+        Me.lblSequenz.Text = "Sequenz"
+        '
+        'txtSeqeunz
+        '
+        Me.txtSeqeunz.Location = New System.Drawing.Point(71, 178)
+        Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
+        Me.txtSeqeunz.Name = "txtSeqeunz"
+        Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
+        Me.txtSeqeunz.TabIndex = 9
+        '
+        'lblBeziehungstyp
+        '
+        Me.lblBeziehungstyp.AutoSize = True
+        Me.lblBeziehungstyp.Location = New System.Drawing.Point(7, 150)
+        Me.lblBeziehungstyp.Name = "lblBeziehungstyp"
+        Me.lblBeziehungstyp.Size = New System.Drawing.Size(49, 13)
+        Me.lblBeziehungstyp.TabIndex = 10
+        Me.lblBeziehungstyp.Text = "Bez.-Typ"
+        '
+        'cbbeziehungstyp
+        '
+        Me.cbbeziehungstyp.FormattingEnabled = True
+        Me.cbbeziehungstyp.Location = New System.Drawing.Point(71, 147)
+        Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
+        Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
+        Me.cbbeziehungstyp.TabIndex = 11
+        '
+        'cbTemporaer
+        '
+        Me.cbTemporaer.AutoSize = True
+        Me.cbTemporaer.Location = New System.Drawing.Point(200, 178)
+        Me.cbTemporaer.Name = "cbTemporaer"
+        Me.cbTemporaer.Size = New System.Drawing.Size(115, 17)
+        Me.cbTemporaer.TabIndex = 12
+        Me.cbTemporaer.Text = "Temporär-Funktion"
+        Me.cbTemporaer.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.txtSeqeunz)
+        Me.Panel1.Controls.Add(Me.cbTemporaer)
+        Me.Panel1.Controls.Add(Me.lblObjekt1)
+        Me.Panel1.Controls.Add(Me.cbbeziehungstyp)
+        Me.Panel1.Controls.Add(Me.txtObjekt1)
+        Me.Panel1.Controls.Add(Me.lblBeziehungstyp)
+        Me.Panel1.Controls.Add(Me.lblObjekt2)
+        Me.Panel1.Controls.Add(Me.txtObjekt2)
+        Me.Panel1.Controls.Add(Me.lblSequenz)
+        Me.Panel1.Controls.Add(Me.lblBemerkung)
+        Me.Panel1.Controls.Add(Me.txtBemerkung)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(337, 207)
+        Me.Panel1.TabIndex = 13
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.Label5)
+        Me.Panel2.Controls.Add(Me.DateTimePicker1)
+        Me.Panel2.Controls.Add(Me.Label4)
+        Me.Panel2.Controls.Add(Me.TextBox4)
+        Me.Panel2.Controls.Add(Me.Label3)
+        Me.Panel2.Controls.Add(Me.TextBox3)
+        Me.Panel2.Controls.Add(Me.Label2)
+        Me.Panel2.Controls.Add(Me.TextBox2)
+        Me.Panel2.Controls.Add(Me.Label1)
+        Me.Panel2.Controls.Add(Me.TextBox1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel2.Location = New System.Drawing.Point(0, 207)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(337, 227)
+        Me.Panel2.TabIndex = 14
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(9, 183)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(39, 13)
+        Me.Label5.TabIndex = 21
+        Me.Label5.Text = "Termin"
+        '
+        'DateTimePicker1
+        '
+        Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
+        Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
+        Me.DateTimePicker1.Name = "DateTimePicker1"
+        Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
+        Me.DateTimePicker1.TabIndex = 20
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(9, 159)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(60, 13)
+        Me.Label4.TabIndex = 19
+        Me.Label4.Text = "Kontakt FB"
+        '
+        'TextBox4
+        '
+        Me.TextBox4.Location = New System.Drawing.Point(84, 156)
+        Me.TextBox4.Name = "TextBox4"
+        Me.TextBox4.Size = New System.Drawing.Size(231, 20)
+        Me.TextBox4.TabIndex = 18
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(7, 133)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(71, 13)
+        Me.Label3.TabIndex = 17
+        Me.Label3.Text = "Bearbeiter ISI"
+        '
+        'TextBox3
+        '
+        Me.TextBox3.Location = New System.Drawing.Point(84, 130)
+        Me.TextBox3.Name = "TextBox3"
+        Me.TextBox3.Size = New System.Drawing.Size(100, 20)
+        Me.TextBox3.TabIndex = 16
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(7, 72)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(59, 13)
+        Me.Label2.TabIndex = 15
+        Me.Label2.Text = "Unterlagen"
+        '
+        'TextBox2
+        '
+        Me.TextBox2.Location = New System.Drawing.Point(85, 69)
+        Me.TextBox2.Multiline = True
+        Me.TextBox2.Name = "TextBox2"
+        Me.TextBox2.Size = New System.Drawing.Size(230, 57)
+        Me.TextBox2.TabIndex = 14
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(7, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(72, 13)
+        Me.Label1.TabIndex = 13
+        Me.Label1.Text = "Beschreibung"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(85, 6)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(230, 57)
+        Me.TextBox1.TabIndex = 13
+        '
+        'Panel3
+        '
+        Me.Panel3.Controls.Add(Me.btnOK)
+        Me.Panel3.Controls.Add(Me.btnCancel)
+        Me.Panel3.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel3.Location = New System.Drawing.Point(0, 434)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(337, 37)
+        Me.Panel3.TabIndex = 15
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SecurityObjekte})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(163, 26)
+        '
+        'SecurityObjekte
+        '
+        Me.SecurityObjekte.Name = "SecurityObjekte"
+        Me.SecurityObjekte.Size = New System.Drawing.Size(162, 22)
+        Me.SecurityObjekte.Text = "Secuirty-Objekte"
+        '
+        'frmNeueBeziehung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(337, 275)
+        Me.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.Controls.Add(Me.Panel3)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmNeueBeziehung"
+        Me.Text = "Neue Beziehung"
+        CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.Panel2.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents lblObjekt1 As System.Windows.Forms.Label
+    Friend WithEvents txtObjekt1 As System.Windows.Forms.TextBox
+    Friend WithEvents lblObjekt2 As System.Windows.Forms.Label
+    Friend WithEvents txtObjekt2 As System.Windows.Forms.TextBox
+    Friend WithEvents lblBemerkung As System.Windows.Forms.Label
+    Friend WithEvents txtBemerkung As System.Windows.Forms.TextBox
+    Friend WithEvents btnOK As System.Windows.Forms.Button
+    Friend WithEvents btnCancel As System.Windows.Forms.Button
+    Friend WithEvents lblSequenz As System.Windows.Forms.Label
+    Friend WithEvents txtSeqeunz As System.Windows.Forms.NumericUpDown
+    Friend WithEvents lblBeziehungstyp As System.Windows.Forms.Label
+    Friend WithEvents cbbeziehungstyp As System.Windows.Forms.ComboBox
+    Friend WithEvents cbTemporaer As System.Windows.Forms.CheckBox
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents Label5 As System.Windows.Forms.Label
+    Friend WithEvents DateTimePicker1 As System.Windows.Forms.DateTimePicker
+    Friend WithEvents Label4 As System.Windows.Forms.Label
+    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Panel3 As System.Windows.Forms.Panel
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents SecurityObjekte As System.Windows.Forms.ToolStripMenuItem
+End Class

_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

_AllgMainObjekte/Diverse_Formulare/frmSetNeueBeziehung.Designer.vb

@@ -0,0 +1,156 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmSetNeueBeziehung
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSetNeueBeziehung))
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
+        Me.TSBtnQuit = New System.Windows.Forms.ToolStripButton()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.BeziehungErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ObjektAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStrip1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ContextMenuStrip1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(8, 18)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(37, 13)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Quelle"
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(51, 15)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.ReadOnly = True
+        Me.TextBox1.Size = New System.Drawing.Size(423, 20)
+        Me.TextBox1.TabIndex = 1
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TSBtnQuit})
+        Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
+        Me.ToolStrip1.Name = "ToolStrip1"
+        Me.ToolStrip1.Size = New System.Drawing.Size(543, 25)
+        Me.ToolStrip1.TabIndex = 4
+        Me.ToolStrip1.Text = "ToolStrip1"
+        '
+        'TSBtnQuit
+        '
+        Me.TSBtnQuit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.TSBtnQuit.Image = CType(resources.GetObject("TSBtnQuit.Image"), System.Drawing.Image)
+        Me.TSBtnQuit.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.TSBtnQuit.Name = "TSBtnQuit"
+        Me.TSBtnQuit.Size = New System.Drawing.Size(23, 22)
+        Me.TSBtnQuit.Text = "ToolStripButton1"
+        Me.TSBtnQuit.ToolTipText = "Fenster schliessen"
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.TextBox1)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 25)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(543, 47)
+        Me.Panel1.TabIndex = 5
+        '
+        'C1Daten
+        '
+        Me.C1Daten.AllowUpdate = False
+        Me.C1Daten.AlternatingRows = True
+        Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
+        Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.C1Daten.FilterBar = True
+        Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
+        Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
+        Me.C1Daten.Location = New System.Drawing.Point(0, 72)
+        Me.C1Daten.Name = "C1Daten"
+        Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
+        Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.C1Daten.Size = New System.Drawing.Size(543, 300)
+        Me.C1Daten.TabIndex = 6
+        Me.C1Daten.Text = "C1TrueDBGrid1"
+        Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
+        '
+        'ContextMenuStrip1
+        '
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeziehungErstellenToolStripMenuItem, Me.ObjektAnzeigenToolStripMenuItem})
+        Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(177, 48)
+        '
+        'BeziehungErstellenToolStripMenuItem
+        '
+        Me.BeziehungErstellenToolStripMenuItem.Name = "BeziehungErstellenToolStripMenuItem"
+        Me.BeziehungErstellenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.BeziehungErstellenToolStripMenuItem.Text = "Beziehung erstellen"
+        '
+        'ObjektAnzeigenToolStripMenuItem
+        '
+        Me.ObjektAnzeigenToolStripMenuItem.Name = "ObjektAnzeigenToolStripMenuItem"
+        Me.ObjektAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(176, 22)
+        Me.ObjektAnzeigenToolStripMenuItem.Text = "Objekt anzeigen"
+        '
+        'frmSetNeueBeziehung
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(543, 372)
+        Me.Controls.Add(Me.C1Daten)
+        Me.Controls.Add(Me.Panel1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmSetNeueBeziehung"
+        Me.Text = "Neue Beziehung"
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ContextMenuStrip1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
+    Friend WithEvents TSBtnQuit As System.Windows.Forms.ToolStripButton
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
+    Friend WithEvents BeziehungErstellenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+    Friend WithEvents ObjektAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
+End Class

_AllgMainObjekte/Diverse_Formulare/frmSetNeueBeziehung.vb

@@ -0,0 +1,123 @@
+Public Class frmSetNeueBeziehung
+
+    Dim m_sourceid As Integer
+    Property Sourceid As Integer
+        Get
+            Return m_sourceid
+        End Get
+        Set(value As Integer)
+            m_sourceid = value
+        End Set
+    End Property
+
+    Dim m_sourcebezeichnung As String
+    Property SourceBezeichnung As String
+        Get
+            Return m_sourcebezeichnung
+        End Get
+        Set(value As String)
+            m_sourcebezeichnung = value
+        End Set
+    End Property
+
+    Dim m_type As Integer
+    Property Type As Integer
+        Get
+            Return m_type
+        End Get
+        Set(value As Integer)
+            m_type = value
+        End Set
+    End Property
+
+    Dim m_mitarbeiternr As Integer
+    Property Mitarbeiternr As Integer
+        Get
+            Return m_mitarbeiternr
+        End Get
+        Set(value As Integer)
+            m_mitarbeiternr = value
+            Globals.Mitarbeiternr = value
+        End Set
+    End Property
+
+    Private Sub frmSetNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TextBox1.Text = Me.SourceBezeichnung
+        If Type = 0 Then
+            Dim dtc As New _DataClass.DataClass
+            Dim dt As New DataTable
+            dt = dtc.Get_Aktive_Funktionsstellen
+            Me.C1Daten.DataSource = dt
+            Me.C1Daten.DataMember = dt.TableName
+            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
+            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
+          
+        End If
+        If Type = 1 Then
+            Dim dtc As New _DataClass.DataClass
+            Dim dt As New DataTable
+            dt = dtc.Get_Aktives_Personal
+            Me.C1Daten.DataSource = dt
+            Me.C1Daten.DataMember = dt.TableName
+            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
+            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
+           
+        End If
+
+    End Sub
+
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Dim a As New AllgMainObjekte
+        a.txtBezeichnung.Text = Me.C1Daten.Columns(1).Value
+        If Type = 0 Then
+            a.ConnectionFilename = Globals.ConnectionFileName
+            a.ConnectionString = Globals.sConnectionString
+            a.TempFilePath = Globals.TmpFilepath
+            a.Mitarbeiternr = Me.Mitarbeiternr
+            a.Type = "Personal"
+            a.KeyValue = Me.Sourceid
+            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", True, 0)
+        Else
+            a.ConnectionFilename = Globals.ConnectionFileName
+            a.ConnectionString = Globals.sConnectionString
+            a.TempFilePath = Globals.TmpFilepath
+            a.Mitarbeiternr = Me.Mitarbeiternr
+            a.Type = "Funktionstelle"
+            a.KeyValue = Me.Sourceid
+            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", False, 0)
+        End If
+
+        a.Dispose()
+
+    End Sub
+
+    Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
+        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
+        
+
+    End Sub
+
+    Private Sub BeziehungErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungErstellenToolStripMenuItem.Click
+        C1Daten_DoubleClick(sender, e)
+    End Sub
+    Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)
+
+    Private Sub ObjektAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektAnzeigenToolStripMenuItem.Click
+        If Type = 0 Then
+            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Personal", True)
+        Else
+            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Funktionstelle", True)
+        End If
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
+
+    End Sub
+End Class