Oberfläche etwas aufgeräumt, Speichern per Focuslost durch Button ersetzt. - frmNIVerknuepfungen

2025-09-17 14:28:17 +02:00 · 2025-09-17 14:28:17 +02:00 · 08dc11f292
commit 08dc11f292
parent c6ee88e871
2 changed files with 100 additions and 63 deletions
--- a/ToolCollection/frmNIVerknuepfungen.Designer.vb
+++ b/ToolCollection/frmNIVerknuepfungen.Designer.vb
@ -86,6 +86,7 @@ Partial Class frmNIVerknuepfungen
        Me.lblDescrangelegteVerknuepf = New System.Windows.Forms.Label()
        Me.tabctrlbottom = New System.Windows.Forms.TabControl()
        Me.TabPage6 = New System.Windows.Forms.TabPage()
+        Me.btnSaveCheckIndex = New System.Windows.Forms.Button()
        Me.btnzuruecksetzen_checksql = New System.Windows.Forms.Button()
        Me.txtGrundgeruest_check = New System.Windows.Forms.Button()
        Me.Panel2 = New System.Windows.Forms.Panel()
@ -215,7 +216,7 @@ Partial Class frmNIVerknuepfungen
        Me.cmbDatenbankSpalten.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbDatenbankSpalten.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.cmbDatenbankSpalten.FormattingEnabled = True
-        Me.cmbDatenbankSpalten.Location = New System.Drawing.Point(996, 119)
+        Me.cmbDatenbankSpalten.Location = New System.Drawing.Point(996, 122)
        Me.cmbDatenbankSpalten.Name = "cmbDatenbankSpalten"
        Me.cmbDatenbankSpalten.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbDatenbankSpalten.Size = New System.Drawing.Size(191, 21)
@ -228,7 +229,7 @@ Partial Class frmNIVerknuepfungen
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label8.Location = New System.Drawing.Point(880, 122)
+        Me.Label8.Location = New System.Drawing.Point(884, 125)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label8.Size = New System.Drawing.Size(105, 13)
@ -357,10 +358,10 @@ Partial Class frmNIVerknuepfungen
        Me.btnZurücksetzen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnZurücksetzen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.btnZurücksetzen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnZurücksetzen.Location = New System.Drawing.Point(996, 32)
+        Me.btnZurücksetzen.Location = New System.Drawing.Point(997, 32)
        Me.btnZurücksetzen.Name = "btnZurücksetzen"
        Me.btnZurücksetzen.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnZurücksetzen.Size = New System.Drawing.Size(89, 21)
+        Me.btnZurücksetzen.Size = New System.Drawing.Size(110, 24)
        Me.btnZurücksetzen.TabIndex = 33
        Me.btnZurücksetzen.Text = "Zurücksetzen"
        Me.btnZurücksetzen.UseVisualStyleBackColor = True
@ -376,7 +377,7 @@ Partial Class frmNIVerknuepfungen
        Me.Label6.AutoSize = True
        Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label6.Location = New System.Drawing.Point(879, 149)
+        Me.Label6.Location = New System.Drawing.Point(884, 152)
        Me.Label6.Name = "Label6"
        Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label6.Size = New System.Drawing.Size(99, 13)
@ -400,7 +401,7 @@ Partial Class frmNIVerknuepfungen
        Me.cmbWindreamIndexe.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbWindreamIndexe.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.cmbWindreamIndexe.FormattingEnabled = True
-        Me.cmbWindreamIndexe.Location = New System.Drawing.Point(996, 146)
+        Me.cmbWindreamIndexe.Location = New System.Drawing.Point(996, 149)
        Me.cmbWindreamIndexe.Name = "cmbWindreamIndexe"
        Me.cmbWindreamIndexe.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbWindreamIndexe.Size = New System.Drawing.Size(191, 21)
@ -467,7 +468,7 @@ Partial Class frmNIVerknuepfungen
        Me.btnStandardSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.btnStandardSQL.Location = New System.Drawing.Point(880, 32)
        Me.btnStandardSQL.Name = "btnStandardSQL"
-        Me.btnStandardSQL.Size = New System.Drawing.Size(110, 21)
+        Me.btnStandardSQL.Size = New System.Drawing.Size(110, 24)
        Me.btnStandardSQL.TabIndex = 42
        Me.btnStandardSQL.Text = "SQL Grundgerüst"
        Me.btnStandardSQL.UseVisualStyleBackColor = True
@ -501,27 +502,27 @@ Partial Class frmNIVerknuepfungen
        'btnEindIndex
        '
        Me.btnEindIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnEindIndex.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnEindIndex.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnEindIndex.ForeColor = System.Drawing.Color.OrangeRed
        Me.btnEindIndex.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnEindIndex.Location = New System.Drawing.Point(880, 59)
+        Me.btnEindIndex.Location = New System.Drawing.Point(880, 85)
        Me.btnEindIndex.Name = "btnEindIndex"
        Me.btnEindIndex.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnEindIndex.Size = New System.Drawing.Size(89, 21)
+        Me.btnEindIndex.Size = New System.Drawing.Size(110, 24)
        Me.btnEindIndex.TabIndex = 49
-        Me.btnEindIndex.Text = "Eind. Index"
+        Me.btnEindIndex.Text = "Eindeutiger Index"
        Me.btnEindIndex.UseVisualStyleBackColor = True
        '
        'Panel1
        '
        Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Panel1.BackColor = System.Drawing.Color.Lime
+        Me.Panel1.BackColor = System.Drawing.Color.GreenYellow
        Me.Panel1.Controls.Add(Me.lblSQLTest)
        Me.Panel1.Controls.Add(Me.txtTestwert)
        Me.Panel1.Controls.Add(Me.btnTestSQL)
-        Me.Panel1.Location = New System.Drawing.Point(996, 59)
+        Me.Panel1.Location = New System.Drawing.Point(996, 62)
        Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(200, 52)
+        Me.Panel1.Size = New System.Drawing.Size(228, 52)
        Me.Panel1.TabIndex = 48
        '
        'lblSQLTest
@ -540,7 +541,7 @@ Partial Class frmNIVerknuepfungen
        Me.txtTestwert.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.txtTestwert.Location = New System.Drawing.Point(3, 24)
        Me.txtTestwert.Name = "txtTestwert"
-        Me.txtTestwert.Size = New System.Drawing.Size(93, 22)
+        Me.txtTestwert.Size = New System.Drawing.Size(100, 22)
        Me.txtTestwert.TabIndex = 45
        '
        'btnTestSQL
@ -549,12 +550,11 @@ Partial Class frmNIVerknuepfungen
        Me.btnTestSQL.Image = Global.ToolCollection.My.Resources.Resources.ico2469
        Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnTestSQL.Location = New System.Drawing.Point(99, 24)
+        Me.btnTestSQL.Location = New System.Drawing.Point(109, 23)
        Me.btnTestSQL.Name = "btnTestSQL"
-        Me.btnTestSQL.Size = New System.Drawing.Size(92, 24)
+        Me.btnTestSQL.Size = New System.Drawing.Size(114, 24)
        Me.btnTestSQL.TabIndex = 44
        Me.btnTestSQL.Text = "SQL testen"
-        Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnTestSQL.UseVisualStyleBackColor = True
        '
        'Label9
@ -607,9 +607,9 @@ Partial Class frmNIVerknuepfungen
        Me.Button5.Image = Global.ToolCollection.My.Resources.Resources.save
        Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button5.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Button5.Location = New System.Drawing.Point(1141, 97)
+        Me.Button5.Location = New System.Drawing.Point(1131, 97)
        Me.Button5.Name = "Button5"
-        Me.Button5.Size = New System.Drawing.Size(89, 23)
+        Me.Button5.Size = New System.Drawing.Size(100, 24)
        Me.Button5.TabIndex = 54
        Me.Button5.Text = "Speichern"
        Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -711,7 +711,7 @@ Partial Class frmNIVerknuepfungen
        Me.rbTables.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.rbTables.Location = New System.Drawing.Point(132, 8)
        Me.rbTables.Name = "rbTables"
-        Me.rbTables.Size = New System.Drawing.Size(68, 17)
+        Me.rbTables.Size = New System.Drawing.Size(67, 17)
        Me.rbTables.TabIndex = 29
        Me.rbTables.Text = "Tabellen"
        Me.rbTables.UseVisualStyleBackColor = True
@ -765,7 +765,7 @@ Partial Class frmNIVerknuepfungen
        Me.btnAddNI_Objekt.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.btnAddNI_Objekt.Image = Global.ToolCollection.My.Resources.Resources.add
        Me.btnAddNI_Objekt.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnAddNI_Objekt.Location = New System.Drawing.Point(1193, 175)
+        Me.btnAddNI_Objekt.Location = New System.Drawing.Point(1193, 177)
        Me.btnAddNI_Objekt.Name = "btnAddNI_Objekt"
        Me.btnAddNI_Objekt.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.btnAddNI_Objekt.Size = New System.Drawing.Size(33, 22)
@ -778,7 +778,7 @@ Partial Class frmNIVerknuepfungen
        Me.Label40.AutoSize = True
        Me.Label40.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.Label40.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label40.Location = New System.Drawing.Point(877, 175)
+        Me.Label40.Location = New System.Drawing.Point(884, 180)
        Me.Label40.Name = "Label40"
        Me.Label40.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label40.Size = New System.Drawing.Size(97, 13)
@ -793,7 +793,7 @@ Partial Class frmNIVerknuepfungen
        Me.cmbNI_Objekte.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.cmbNI_Objekte.FormattingEnabled = True
        Me.cmbNI_Objekte.Items.AddRange(New Object() {"Dokument - Dateiname.Endung", "Dokument - Dateiname", "Dokument - Pfad", "Dokument - Pfad\Dateiname.Endung", "Datum - heute"})
-        Me.cmbNI_Objekte.Location = New System.Drawing.Point(996, 174)
+        Me.cmbNI_Objekte.Location = New System.Drawing.Point(996, 177)
        Me.cmbNI_Objekte.Name = "cmbNI_Objekte"
        Me.cmbNI_Objekte.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.cmbNI_Objekte.Size = New System.Drawing.Size(191, 21)
@ -807,9 +807,9 @@ Partial Class frmNIVerknuepfungen
        Me.btnsave_select.Image = Global.ToolCollection.My.Resources.Resources.save
        Me.btnsave_select.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnsave_select.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnsave_select.Location = New System.Drawing.Point(1091, 32)
+        Me.btnsave_select.Location = New System.Drawing.Point(1114, 32)
        Me.btnsave_select.Name = "btnsave_select"
-        Me.btnsave_select.Size = New System.Drawing.Size(89, 23)
+        Me.btnsave_select.Size = New System.Drawing.Size(110, 24)
        Me.btnsave_select.TabIndex = 47
        Me.btnsave_select.Text = "Speichern"
        Me.btnsave_select.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -821,7 +821,7 @@ Partial Class frmNIVerknuepfungen
        Me.btnSpalteEinfügen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.btnSpalteEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
        Me.btnSpalteEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnSpalteEinfügen.Location = New System.Drawing.Point(1193, 118)
+        Me.btnSpalteEinfügen.Location = New System.Drawing.Point(1193, 121)
        Me.btnSpalteEinfügen.Name = "btnSpalteEinfügen"
        Me.btnSpalteEinfügen.Size = New System.Drawing.Size(33, 22)
        Me.btnSpalteEinfügen.TabIndex = 36
@ -834,7 +834,7 @@ Partial Class frmNIVerknuepfungen
        Me.btnWindreamIndexEinfügen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.btnWindreamIndexEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
        Me.btnWindreamIndexEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnWindreamIndexEinfügen.Location = New System.Drawing.Point(1193, 146)
+        Me.btnWindreamIndexEinfügen.Location = New System.Drawing.Point(1193, 149)
        Me.btnWindreamIndexEinfügen.Name = "btnWindreamIndexEinfügen"
        Me.btnWindreamIndexEinfügen.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.btnWindreamIndexEinfügen.Size = New System.Drawing.Size(33, 22)
@ -945,6 +945,7 @@ Partial Class frmNIVerknuepfungen
        '
        'TabPage6
        '
+        Me.TabPage6.Controls.Add(Me.btnSaveCheckIndex)
        Me.TabPage6.Controls.Add(Me.btnzuruecksetzen_checksql)
        Me.TabPage6.Controls.Add(Me.txtGrundgeruest_check)
        Me.TabPage6.Controls.Add(Me.Panel2)
@ -962,12 +963,27 @@ Partial Class frmNIVerknuepfungen
        Me.TabPage6.Text = "Überprüfung deskriptiver Index"
        Me.TabPage6.UseVisualStyleBackColor = True
        '
+        'btnSaveCheckIndex
+        '
+        Me.btnSaveCheckIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnSaveCheckIndex.BackColor = System.Drawing.SystemColors.Control
+        Me.btnSaveCheckIndex.Enabled = False
+        Me.btnSaveCheckIndex.Image = Global.ToolCollection.My.Resources.Resources.save
+        Me.btnSaveCheckIndex.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnSaveCheckIndex.Location = New System.Drawing.Point(1120, 21)
+        Me.btnSaveCheckIndex.Name = "btnSaveCheckIndex"
+        Me.btnSaveCheckIndex.Size = New System.Drawing.Size(110, 24)
+        Me.btnSaveCheckIndex.TabIndex = 52
+        Me.btnSaveCheckIndex.Text = "Speichern"
+        Me.btnSaveCheckIndex.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnSaveCheckIndex.UseVisualStyleBackColor = True
+        '
        'btnzuruecksetzen_checksql
        '
        Me.btnzuruecksetzen_checksql.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnzuruecksetzen_checksql.Location = New System.Drawing.Point(1008, 23)
+        Me.btnzuruecksetzen_checksql.Location = New System.Drawing.Point(1003, 21)
        Me.btnzuruecksetzen_checksql.Name = "btnzuruecksetzen_checksql"
-        Me.btnzuruecksetzen_checksql.Size = New System.Drawing.Size(84, 23)
+        Me.btnzuruecksetzen_checksql.Size = New System.Drawing.Size(110, 24)
        Me.btnzuruecksetzen_checksql.TabIndex = 51
        Me.btnzuruecksetzen_checksql.Text = "Zurücksetzen"
        Me.btnzuruecksetzen_checksql.UseVisualStyleBackColor = True
@ -975,9 +991,9 @@ Partial Class frmNIVerknuepfungen
        'txtGrundgeruest_check
        '
        Me.txtGrundgeruest_check.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtGrundgeruest_check.Location = New System.Drawing.Point(897, 21)
+        Me.txtGrundgeruest_check.Location = New System.Drawing.Point(886, 21)
        Me.txtGrundgeruest_check.Name = "txtGrundgeruest_check"
-        Me.txtGrundgeruest_check.Size = New System.Drawing.Size(105, 21)
+        Me.txtGrundgeruest_check.Size = New System.Drawing.Size(110, 24)
        Me.txtGrundgeruest_check.TabIndex = 50
        Me.txtGrundgeruest_check.Text = "SQL Grundgerüst"
        Me.txtGrundgeruest_check.UseVisualStyleBackColor = True
@ -985,13 +1001,13 @@ Partial Class frmNIVerknuepfungen
        'Panel2
        '
        Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.Panel2.BackColor = System.Drawing.Color.Lime
+        Me.Panel2.BackColor = System.Drawing.Color.GreenYellow
        Me.Panel2.Controls.Add(Me.lblIndextestSQL)
        Me.Panel2.Controls.Add(Me.txtTestwert_checkindex)
        Me.Panel2.Controls.Add(Me.btntest_checkIndexsql)
-        Me.Panel2.Location = New System.Drawing.Point(897, 115)
+        Me.Panel2.Location = New System.Drawing.Point(1003, 51)
        Me.Panel2.Name = "Panel2"
-        Me.Panel2.Size = New System.Drawing.Size(205, 52)
+        Me.Panel2.Size = New System.Drawing.Size(227, 52)
        Me.Panel2.TabIndex = 49
        '
        'lblIndextestSQL
@ -1010,7 +1026,7 @@ Partial Class frmNIVerknuepfungen
        Me.txtTestwert_checkindex.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.txtTestwert_checkindex.Location = New System.Drawing.Point(3, 24)
        Me.txtTestwert_checkindex.Name = "txtTestwert_checkindex"
-        Me.txtTestwert_checkindex.Size = New System.Drawing.Size(93, 22)
+        Me.txtTestwert_checkindex.Size = New System.Drawing.Size(100, 22)
        Me.txtTestwert_checkindex.TabIndex = 45
        '
        'btntest_checkIndexsql
@ -1019,12 +1035,11 @@ Partial Class frmNIVerknuepfungen
        Me.btntest_checkIndexsql.Image = Global.ToolCollection.My.Resources.Resources.ico2469
        Me.btntest_checkIndexsql.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btntest_checkIndexsql.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btntest_checkIndexsql.Location = New System.Drawing.Point(99, 24)
+        Me.btntest_checkIndexsql.Location = New System.Drawing.Point(109, 23)
        Me.btntest_checkIndexsql.Name = "btntest_checkIndexsql"
-        Me.btntest_checkIndexsql.Size = New System.Drawing.Size(93, 24)
+        Me.btntest_checkIndexsql.Size = New System.Drawing.Size(113, 24)
        Me.btntest_checkIndexsql.TabIndex = 44
        Me.btntest_checkIndexsql.Text = "SQL testen"
-        Me.btntest_checkIndexsql.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btntest_checkIndexsql.UseVisualStyleBackColor = True
        '
        'Label29
@ -1044,12 +1059,12 @@ Partial Class frmNIVerknuepfungen
        '
        Me.btnSpalteIndexSQLeinfuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSpalteIndexSQLeinfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnSpalteIndexSQLeinfuegen.Image = Global.ToolCollection.My.Resources.Resources.add
        Me.btnSpalteIndexSQLeinfuegen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnSpalteIndexSQLeinfuegen.Location = New System.Drawing.Point(1064, 76)
+        Me.btnSpalteIndexSQLeinfuegen.Location = New System.Drawing.Point(1199, 110)
        Me.btnSpalteIndexSQLeinfuegen.Name = "btnSpalteIndexSQLeinfuegen"
-        Me.btnSpalteIndexSQLeinfuegen.Size = New System.Drawing.Size(97, 22)
+        Me.btnSpalteIndexSQLeinfuegen.Size = New System.Drawing.Size(33, 22)
        Me.btnSpalteIndexSQLeinfuegen.TabIndex = 42
-        Me.btnSpalteIndexSQLeinfuegen.Text = "Spalte einfügen"
        Me.btnSpalteIndexSQLeinfuegen.UseVisualStyleBackColor = True
        '
        'txtCheckIndexSQL
@ -1064,7 +1079,7 @@ Partial Class frmNIVerknuepfungen
        Me.txtCheckIndexSQL.Multiline = True
        Me.txtCheckIndexSQL.Name = "txtCheckIndexSQL"
        Me.txtCheckIndexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(874, 245)
+        Me.txtCheckIndexSQL.Size = New System.Drawing.Size(850, 245)
        Me.txtCheckIndexSQL.TabIndex = 30
        '
        'cmbSpalten_indexSQL
@ -1074,24 +1089,25 @@ Partial Class frmNIVerknuepfungen
        Me.cmbSpalten_indexSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
        Me.cmbSpalten_indexSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.cmbSpalten_indexSQL.FormattingEnabled = True
-        Me.cmbSpalten_indexSQL.Location = New System.Drawing.Point(897, 76)
+        Me.cmbSpalten_indexSQL.Location = New System.Drawing.Point(1002, 111)
        Me.cmbSpalten_indexSQL.Name = "cmbSpalten_indexSQL"
        Me.cmbSpalten_indexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.cmbSpalten_indexSQL.Size = New System.Drawing.Size(163, 21)
+        Me.cmbSpalten_indexSQL.Size = New System.Drawing.Size(191, 21)
        Me.cmbSpalten_indexSQL.Sorted = True
        Me.cmbSpalten_indexSQL.TabIndex = 41
        '
        'btnIndexSQL_einfuegen
        '
        Me.btnIndexSQL_einfuegen.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.btnIndexSQL_einfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!)
+        Me.btnIndexSQL_einfuegen.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnIndexSQL_einfuegen.ForeColor = System.Drawing.Color.OrangeRed
        Me.btnIndexSQL_einfuegen.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.btnIndexSQL_einfuegen.Location = New System.Drawing.Point(1167, 59)
+        Me.btnIndexSQL_einfuegen.Location = New System.Drawing.Point(886, 74)
        Me.btnIndexSQL_einfuegen.Name = "btnIndexSQL_einfuegen"
        Me.btnIndexSQL_einfuegen.RightToLeft = System.Windows.Forms.RightToLeft.No
-        Me.btnIndexSQL_einfuegen.Size = New System.Drawing.Size(74, 38)
+        Me.btnIndexSQL_einfuegen.Size = New System.Drawing.Size(110, 24)
        Me.btnIndexSQL_einfuegen.TabIndex = 39
-        Me.btnIndexSQL_einfuegen.Text = "Eind. Index einfügen"
+        Me.btnIndexSQL_einfuegen.Text = "Eindeutiger Index"
        Me.btnIndexSQL_einfuegen.UseVisualStyleBackColor = True
        '
        'Label30
@ -1100,7 +1116,7 @@ Partial Class frmNIVerknuepfungen
        Me.Label30.AutoSize = True
        Me.Label30.Font = New System.Drawing.Font("Segoe UI", 8.25!)
        Me.Label30.ImeMode = System.Windows.Forms.ImeMode.NoControl
-        Me.Label30.Location = New System.Drawing.Point(897, 59)
+        Me.Label30.Location = New System.Drawing.Point(890, 114)
        Me.Label30.Name = "Label30"
        Me.Label30.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Label30.Size = New System.Drawing.Size(105, 13)
@ -1150,7 +1166,7 @@ Partial Class frmNIVerknuepfungen
        Me.Label12.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label12.Location = New System.Drawing.Point(5, 17)
        Me.Label12.Name = "Label12"
-        Me.Label12.Size = New System.Drawing.Size(646, 13)
+        Me.Label12.Size = New System.Drawing.Size(647, 13)
        Me.Label12.TabIndex = 38
        Me.Label12.Text = "Wenn ein SQL-Ergebnis geliefert wurde wird dieses Dokument als fertig indexiert m" &
    "arkiert! Voraussetzung Indextyp: Boolean"
@ -1353,7 +1369,7 @@ Partial Class frmNIVerknuepfungen
        Me.rbFT_single.AutoSize = True
        Me.rbFT_single.Location = New System.Drawing.Point(6, 21)
        Me.rbFT_single.Name = "rbFT_single"
-        Me.rbFT_single.Size = New System.Drawing.Size(201, 17)
+        Me.rbFT_single.Size = New System.Drawing.Size(202, 17)
        Me.rbFT_single.TabIndex = 3
        Me.rbFT_single.Text = "Nur Bestimmte Position auswerten"
        Me.rbFT_single.UseVisualStyleBackColor = True
@ -1857,7 +1873,7 @@ Partial Class frmNIVerknuepfungen
        Me.rbFunctionsTb.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.rbFunctionsTb.Location = New System.Drawing.Point(322, 8)
        Me.rbFunctionsTb.Name = "rbFunctionsTb"
-        Me.rbFunctionsTb.Size = New System.Drawing.Size(112, 17)
+        Me.rbFunctionsTb.Size = New System.Drawing.Size(111, 17)
        Me.rbFunctionsTb.TabIndex = 81
        Me.rbFunctionsTb.Text = "Functions (Table)"
        Me.rbFunctionsTb.UseVisualStyleBackColor = True
@ -2132,4 +2148,5 @@ Partial Class frmNIVerknuepfungen
    Friend WithEvents rbFunctionsTb As RadioButton
    Friend WithEvents rbFunctionsSc As RadioButton
    Friend WithEvents Label2 As Label
+    Friend WithEvents btnSaveCheckIndex As Button
 End Class
--- a/ToolCollection/frmNIVerknuepfungen.vb
+++ b/ToolCollection/frmNIVerknuepfungen.vb
@ -2020,6 +2020,7 @@ Public Class frmNIVerknuepfungen

                    Me._selectedProfil.Save(True, "link")
                    If Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art) = True Then
+                        btnsave_select.Enabled = False
                        MsgBox("Verknüpfung erfolgreich gespeichert!", MsgBoxStyle.Information)
                    End If
                    With btnsave_select
@ -2031,6 +2032,7 @@ Public Class frmNIVerknuepfungen
        Catch ex As Exception
            MsgBox("Fehler beim Speichern der DB-Verknüpfung." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
+
    End Sub
    Private Sub txtSelectAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSelectAnweisung.TextChanged
        Try
@ -2042,7 +2044,7 @@ Public Class frmNIVerknuepfungen
                If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then
                    With btnsave_select
                        .Enabled = True
-                        .ForeColor = Drawing.Color.Red
+                        .ForeColor = Drawing.Color.Black
                    End With
                End If
                ' die Informationen der selektierten Verknüpfung auslesen
@ -2600,12 +2602,27 @@ Public Class frmNIVerknuepfungen
        End If
    End Sub

-    Private Sub txtCheckIndexSQL_LostFocus(sender As Object, e As System.EventArgs) Handles txtCheckIndexSQL.LostFocus
+    'Private Sub txtCheckIndexSQL_LostFocus(sender As Object, e As System.EventArgs) Handles txtCheckIndexSQL.LostFocus
+    '    If Me.txtCheckIndexSQL.Text <> "" Then
+    '        Try
+    '            ' die Änderungen speichern
+    '            If Me._selectedProfil.Save(True, "profile") = True Then    ' wenn das Speichern erfolgreich war
+    '                ' den Speichern-Button deaktivieren 
+    '            Else
+    '                MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
+    '            End If
+    '        Catch ex As Exception
+    '            MsgBox("Fehler beim Speichern des SQL-Befehles." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Speichern eines SQL-Befehls.")
+    '        End Try
+    '    End If
+    'End Sub
+
+    Private Sub btnSaveCheckIndex_Click(sender As Object, e As EventArgs) Handles btnSaveCheckIndex.Click
        If Me.txtCheckIndexSQL.Text <> "" Then
            Try
                ' die Änderungen speichern
-                If Me._selectedProfil.Save(True, "profile") = True Then    ' wenn das Speichern erfolgreich war
-                    ' den Speichern-Button deaktivieren 
+                If Me._selectedProfil.Save(True, "profile") = True Then
+                    Me.btnSaveCheckIndex.Enabled = False
                Else
                    MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
                End If
@ -2616,14 +2633,17 @@ Public Class frmNIVerknuepfungen
    End Sub

    Private Sub txtCheckIndexSQL_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCheckIndexSQL.TextChanged
-        If Me.txtCheckIndexSQL.Text <> "" Then
-            If Me._selectedProfil IsNot Nothing Then
-                Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
-                If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
-                    Me._selectedProfil.setChanged()
-                End If
+
+        If Me._selectedProfil IsNot Nothing Then
+            Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
+
+            If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
+                btnSaveCheckIndex.Enabled = True
+                Me._selectedProfil.setChanged()
            End If
+
        End If
+
    End Sub

    Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged