diff --git a/ToolCollection/frmNIVerknuepfungen.Designer.vb b/ToolCollection/frmNIVerknuepfungen.Designer.vb index 9388fc0..99d7dce 100644 --- 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 diff --git a/ToolCollection/frmNIVerknuepfungen.vb b/ToolCollection/frmNIVerknuepfungen.vb index 9dbd4af..6c18cde 100644 --- 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