AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
OlgunR 2025-09-17 14:28:17 +02:00
parent c6ee88e871
commit 08dc11f292
2 changed files with 100 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

123
ToolCollection/frmNIVerknuepfungen.Designer.vb generated
View File

@ -86,6 +86,7 @@ Partial Class frmNIVerknuepfungen
Me.lblDescrangelegteVerknuepf = New System.Windows.Forms.Label() Me.lblDescrangelegteVerknuepf = New System.Windows.Forms.Label()
Me.tabctrlbottom = New System.Windows.Forms.TabControl() Me.tabctrlbottom = New System.Windows.Forms.TabControl()
Me.TabPage6 = New System.Windows.Forms.TabPage() Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.btnSaveCheckIndex = New System.Windows.Forms.Button()
Me.btnzuruecksetzen_checksql = New System.Windows.Forms.Button() Me.btnzuruecksetzen_checksql = New System.Windows.Forms.Button()
Me.txtGrundgeruest_check = New System.Windows.Forms.Button() Me.txtGrundgeruest_check = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
@ -215,7 +216,7 @@ Partial Class frmNIVerknuepfungen
Me.cmbDatenbankSpalten.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbDatenbankSpalten.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbDatenbankSpalten.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.cmbDatenbankSpalten.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.cmbDatenbankSpalten.FormattingEnabled = True 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.Name = "cmbDatenbankSpalten"
Me.cmbDatenbankSpalten.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbDatenbankSpalten.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbDatenbankSpalten.Size = New System.Drawing.Size(191, 21) Me.cmbDatenbankSpalten.Size = New System.Drawing.Size(191, 21)
@ -228,7 +229,7 @@ Partial Class frmNIVerknuepfungen
Me.Label8.AutoSize = True Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Label8.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Label8.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "Label8"
Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label8.Size = New System.Drawing.Size(105, 13) 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.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.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.btnZurücksetzen.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "btnZurücksetzen"
Me.btnZurücksetzen.RightToLeft = System.Windows.Forms.RightToLeft.No 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.TabIndex = 33
Me.btnZurücksetzen.Text = "Zurücksetzen" Me.btnZurücksetzen.Text = "Zurücksetzen"
Me.btnZurücksetzen.UseVisualStyleBackColor = True Me.btnZurücksetzen.UseVisualStyleBackColor = True
@ -376,7 +377,7 @@ Partial Class frmNIVerknuepfungen
Me.Label6.AutoSize = True Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Label6.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Label6.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "Label6"
Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label6.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label6.Size = New System.Drawing.Size(99, 13) 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.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbWindreamIndexe.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.cmbWindreamIndexe.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.cmbWindreamIndexe.FormattingEnabled = True 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.Name = "cmbWindreamIndexe"
Me.cmbWindreamIndexe.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbWindreamIndexe.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbWindreamIndexe.Size = New System.Drawing.Size(191, 21) 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.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.btnStandardSQL.Location = New System.Drawing.Point(880, 32) Me.btnStandardSQL.Location = New System.Drawing.Point(880, 32)
Me.btnStandardSQL.Name = "btnStandardSQL" 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.TabIndex = 42
Me.btnStandardSQL.Text = "SQL Grundgerüst" Me.btnStandardSQL.Text = "SQL Grundgerüst"
Me.btnStandardSQL.UseVisualStyleBackColor = True Me.btnStandardSQL.UseVisualStyleBackColor = True
@ -501,27 +502,27 @@ Partial Class frmNIVerknuepfungen
'btnEindIndex 'btnEindIndex
' '
Me.btnEindIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.ForeColor = System.Drawing.Color.OrangeRed
Me.btnEindIndex.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "btnEindIndex"
Me.btnEindIndex.RightToLeft = System.Windows.Forms.RightToLeft.No 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.TabIndex = 49
Me.btnEindIndex.Text = "Eind. Index" Me.btnEindIndex.Text = "Eindeutiger Index"
Me.btnEindIndex.UseVisualStyleBackColor = True Me.btnEindIndex.UseVisualStyleBackColor = True
' '
'Panel1 'Panel1
' '
Me.Panel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.lblSQLTest)
Me.Panel1.Controls.Add(Me.txtTestwert) Me.Panel1.Controls.Add(Me.txtTestwert)
Me.Panel1.Controls.Add(Me.btnTestSQL) 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.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(200, 52) Me.Panel1.Size = New System.Drawing.Size(228, 52)
Me.Panel1.TabIndex = 48 Me.Panel1.TabIndex = 48
' '
'lblSQLTest 'lblSQLTest
@ -540,7 +541,7 @@ Partial Class frmNIVerknuepfungen
Me.txtTestwert.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.txtTestwert.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.txtTestwert.Location = New System.Drawing.Point(3, 24) Me.txtTestwert.Location = New System.Drawing.Point(3, 24)
Me.txtTestwert.Name = "txtTestwert" 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 Me.txtTestwert.TabIndex = 45
' '
'btnTestSQL 'btnTestSQL
@ -549,12 +550,11 @@ Partial Class frmNIVerknuepfungen
Me.btnTestSQL.Image = Global.ToolCollection.My.Resources.Resources.ico2469 Me.btnTestSQL.Image = Global.ToolCollection.My.Resources.Resources.ico2469
Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnTestSQL.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTestSQL.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.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.TabIndex = 44
Me.btnTestSQL.Text = "SQL testen" Me.btnTestSQL.Text = "SQL testen"
Me.btnTestSQL.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnTestSQL.UseVisualStyleBackColor = True Me.btnTestSQL.UseVisualStyleBackColor = True
' '
'Label9 'Label9
@ -607,9 +607,9 @@ Partial Class frmNIVerknuepfungen
Me.Button5.Image = Global.ToolCollection.My.Resources.Resources.save Me.Button5.Image = Global.ToolCollection.My.Resources.Resources.save
Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.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.TabIndex = 54
Me.Button5.Text = "Speichern" Me.Button5.Text = "Speichern"
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -711,7 +711,7 @@ Partial Class frmNIVerknuepfungen
Me.rbTables.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.rbTables.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.rbTables.Location = New System.Drawing.Point(132, 8) Me.rbTables.Location = New System.Drawing.Point(132, 8)
Me.rbTables.Name = "rbTables" 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.TabIndex = 29
Me.rbTables.Text = "Tabellen" Me.rbTables.Text = "Tabellen"
Me.rbTables.UseVisualStyleBackColor = True 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.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.btnAddNI_Objekt.Image = Global.ToolCollection.My.Resources.Resources.add Me.btnAddNI_Objekt.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnAddNI_Objekt.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "btnAddNI_Objekt"
Me.btnAddNI_Objekt.RightToLeft = System.Windows.Forms.RightToLeft.No Me.btnAddNI_Objekt.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.btnAddNI_Objekt.Size = New System.Drawing.Size(33, 22) Me.btnAddNI_Objekt.Size = New System.Drawing.Size(33, 22)
@ -778,7 +778,7 @@ Partial Class frmNIVerknuepfungen
Me.Label40.AutoSize = True Me.Label40.AutoSize = True
Me.Label40.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Label40.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Label40.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "Label40"
Me.Label40.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label40.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label40.Size = New System.Drawing.Size(97, 13) 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.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.cmbNI_Objekte.FormattingEnabled = True 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.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.Name = "cmbNI_Objekte"
Me.cmbNI_Objekte.RightToLeft = System.Windows.Forms.RightToLeft.No Me.cmbNI_Objekte.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmbNI_Objekte.Size = New System.Drawing.Size(191, 21) 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.Image = Global.ToolCollection.My.Resources.Resources.save
Me.btnsave_select.ImageAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnsave_select.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnsave_select.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.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.TabIndex = 47
Me.btnsave_select.Text = "Speichern" Me.btnsave_select.Text = "Speichern"
Me.btnsave_select.TextAlign = System.Drawing.ContentAlignment.MiddleLeft 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.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.btnSpalteEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add Me.btnSpalteEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnSpalteEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "btnSpalteEinfügen"
Me.btnSpalteEinfügen.Size = New System.Drawing.Size(33, 22) Me.btnSpalteEinfügen.Size = New System.Drawing.Size(33, 22)
Me.btnSpalteEinfügen.TabIndex = 36 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.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.btnWindreamIndexEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add Me.btnWindreamIndexEinfügen.Image = Global.ToolCollection.My.Resources.Resources.add
Me.btnWindreamIndexEinfügen.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "btnWindreamIndexEinfügen"
Me.btnWindreamIndexEinfügen.RightToLeft = System.Windows.Forms.RightToLeft.No Me.btnWindreamIndexEinfügen.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.btnWindreamIndexEinfügen.Size = New System.Drawing.Size(33, 22) Me.btnWindreamIndexEinfügen.Size = New System.Drawing.Size(33, 22)
@ -945,6 +945,7 @@ Partial Class frmNIVerknuepfungen
' '
'TabPage6 'TabPage6
' '
Me.TabPage6.Controls.Add(Me.btnSaveCheckIndex)
Me.TabPage6.Controls.Add(Me.btnzuruecksetzen_checksql) Me.TabPage6.Controls.Add(Me.btnzuruecksetzen_checksql)
Me.TabPage6.Controls.Add(Me.txtGrundgeruest_check) Me.TabPage6.Controls.Add(Me.txtGrundgeruest_check)
Me.TabPage6.Controls.Add(Me.Panel2) Me.TabPage6.Controls.Add(Me.Panel2)
@ -962,12 +963,27 @@ Partial Class frmNIVerknuepfungen
Me.TabPage6.Text = "Überprüfung deskriptiver Index" Me.TabPage6.Text = "Überprüfung deskriptiver Index"
Me.TabPage6.UseVisualStyleBackColor = True 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 '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.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.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.TabIndex = 51
Me.btnzuruecksetzen_checksql.Text = "Zurücksetzen" Me.btnzuruecksetzen_checksql.Text = "Zurücksetzen"
Me.btnzuruecksetzen_checksql.UseVisualStyleBackColor = True Me.btnzuruecksetzen_checksql.UseVisualStyleBackColor = True
@ -975,9 +991,9 @@ Partial Class frmNIVerknuepfungen
'txtGrundgeruest_check '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.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.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.TabIndex = 50
Me.txtGrundgeruest_check.Text = "SQL Grundgerüst" Me.txtGrundgeruest_check.Text = "SQL Grundgerüst"
Me.txtGrundgeruest_check.UseVisualStyleBackColor = True Me.txtGrundgeruest_check.UseVisualStyleBackColor = True
@ -985,13 +1001,13 @@ Partial Class frmNIVerknuepfungen
'Panel2 'Panel2
' '
Me.Panel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) 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.lblIndextestSQL)
Me.Panel2.Controls.Add(Me.txtTestwert_checkindex) Me.Panel2.Controls.Add(Me.txtTestwert_checkindex)
Me.Panel2.Controls.Add(Me.btntest_checkIndexsql) 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.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(205, 52) Me.Panel2.Size = New System.Drawing.Size(227, 52)
Me.Panel2.TabIndex = 49 Me.Panel2.TabIndex = 49
' '
'lblIndextestSQL 'lblIndextestSQL
@ -1010,7 +1026,7 @@ Partial Class frmNIVerknuepfungen
Me.txtTestwert_checkindex.Font = New System.Drawing.Font("Segoe UI", 8.25!) 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.Location = New System.Drawing.Point(3, 24)
Me.txtTestwert_checkindex.Name = "txtTestwert_checkindex" 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 Me.txtTestwert_checkindex.TabIndex = 45
' '
'btntest_checkIndexsql 'btntest_checkIndexsql
@ -1019,12 +1035,11 @@ Partial Class frmNIVerknuepfungen
Me.btntest_checkIndexsql.Image = Global.ToolCollection.My.Resources.Resources.ico2469 Me.btntest_checkIndexsql.Image = Global.ToolCollection.My.Resources.Resources.ico2469
Me.btntest_checkIndexsql.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btntest_checkIndexsql.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btntest_checkIndexsql.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.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.TabIndex = 44
Me.btntest_checkIndexsql.Text = "SQL testen" Me.btntest_checkIndexsql.Text = "SQL testen"
Me.btntest_checkIndexsql.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btntest_checkIndexsql.UseVisualStyleBackColor = True Me.btntest_checkIndexsql.UseVisualStyleBackColor = True
' '
'Label29 '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.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.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.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.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.TabIndex = 42
Me.btnSpalteIndexSQLeinfuegen.Text = "Spalte einfügen"
Me.btnSpalteIndexSQLeinfuegen.UseVisualStyleBackColor = True Me.btnSpalteIndexSQLeinfuegen.UseVisualStyleBackColor = True
' '
'txtCheckIndexSQL 'txtCheckIndexSQL
@ -1064,7 +1079,7 @@ Partial Class frmNIVerknuepfungen
Me.txtCheckIndexSQL.Multiline = True Me.txtCheckIndexSQL.Multiline = True
Me.txtCheckIndexSQL.Name = "txtCheckIndexSQL" Me.txtCheckIndexSQL.Name = "txtCheckIndexSQL"
Me.txtCheckIndexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No 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 Me.txtCheckIndexSQL.TabIndex = 30
' '
'cmbSpalten_indexSQL 'cmbSpalten_indexSQL
@ -1074,24 +1089,25 @@ Partial Class frmNIVerknuepfungen
Me.cmbSpalten_indexSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList Me.cmbSpalten_indexSQL.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbSpalten_indexSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.cmbSpalten_indexSQL.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.cmbSpalten_indexSQL.FormattingEnabled = True 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.Name = "cmbSpalten_indexSQL"
Me.cmbSpalten_indexSQL.RightToLeft = System.Windows.Forms.RightToLeft.No 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.Sorted = True
Me.cmbSpalten_indexSQL.TabIndex = 41 Me.cmbSpalten_indexSQL.TabIndex = 41
' '
'btnIndexSQL_einfuegen '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.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.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.Name = "btnIndexSQL_einfuegen"
Me.btnIndexSQL_einfuegen.RightToLeft = System.Windows.Forms.RightToLeft.No 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.TabIndex = 39
Me.btnIndexSQL_einfuegen.Text = "Eind. Index einfügen" Me.btnIndexSQL_einfuegen.Text = "Eindeutiger Index"
Me.btnIndexSQL_einfuegen.UseVisualStyleBackColor = True Me.btnIndexSQL_einfuegen.UseVisualStyleBackColor = True
' '
'Label30 'Label30
@ -1100,7 +1116,7 @@ Partial Class frmNIVerknuepfungen
Me.Label30.AutoSize = True Me.Label30.AutoSize = True
Me.Label30.Font = New System.Drawing.Font("Segoe UI", 8.25!) Me.Label30.Font = New System.Drawing.Font("Segoe UI", 8.25!)
Me.Label30.ImeMode = System.Windows.Forms.ImeMode.NoControl 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.Name = "Label30"
Me.Label30.RightToLeft = System.Windows.Forms.RightToLeft.No Me.Label30.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.Label30.Size = New System.Drawing.Size(105, 13) 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.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.Location = New System.Drawing.Point(5, 17)
Me.Label12.Name = "Label12" 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.TabIndex = 38
Me.Label12.Text = "Wenn ein SQL-Ergebnis geliefert wurde wird dieses Dokument als fertig indexiert m" & Me.Label12.Text = "Wenn ein SQL-Ergebnis geliefert wurde wird dieses Dokument als fertig indexiert m" &
"arkiert! Voraussetzung Indextyp: Boolean" "arkiert! Voraussetzung Indextyp: Boolean"
@ -1353,7 +1369,7 @@ Partial Class frmNIVerknuepfungen
Me.rbFT_single.AutoSize = True Me.rbFT_single.AutoSize = True
Me.rbFT_single.Location = New System.Drawing.Point(6, 21) Me.rbFT_single.Location = New System.Drawing.Point(6, 21)
Me.rbFT_single.Name = "rbFT_single" 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.TabIndex = 3
Me.rbFT_single.Text = "Nur Bestimmte Position auswerten" Me.rbFT_single.Text = "Nur Bestimmte Position auswerten"
Me.rbFT_single.UseVisualStyleBackColor = True Me.rbFT_single.UseVisualStyleBackColor = True
@ -1857,7 +1873,7 @@ Partial Class frmNIVerknuepfungen
Me.rbFunctionsTb.ImeMode = System.Windows.Forms.ImeMode.NoControl Me.rbFunctionsTb.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.rbFunctionsTb.Location = New System.Drawing.Point(322, 8) Me.rbFunctionsTb.Location = New System.Drawing.Point(322, 8)
Me.rbFunctionsTb.Name = "rbFunctionsTb" 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.TabIndex = 81
Me.rbFunctionsTb.Text = "Functions (Table)" Me.rbFunctionsTb.Text = "Functions (Table)"
Me.rbFunctionsTb.UseVisualStyleBackColor = True Me.rbFunctionsTb.UseVisualStyleBackColor = True
@ -2132,4 +2148,5 @@ Partial Class frmNIVerknuepfungen
Friend WithEvents rbFunctionsTb As RadioButton Friend WithEvents rbFunctionsTb As RadioButton
Friend WithEvents rbFunctionsSc As RadioButton Friend WithEvents rbFunctionsSc As RadioButton
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents btnSaveCheckIndex As Button
End Class End Class

32
ToolCollection/frmNIVerknuepfungen.vb
View File

@ -2020,6 +2020,7 @@ Public Class frmNIVerknuepfungen
Me._selectedProfil.Save(True, "link") Me._selectedProfil.Save(True, "link")
If Me._selectedProfil._links.selectedLink.SaveLink(Me._selectedProfil.Profilname, Me._selectedProfil.Ni_Art) = True Then 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) MsgBox("Verknüpfung erfolgreich gespeichert!", MsgBoxStyle.Information)
End If End If
With btnsave_select With btnsave_select
@ -2031,6 +2032,7 @@ Public Class frmNIVerknuepfungen
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler beim Speichern der DB-Verknüpfung." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler beim Speichern der DB-Verknüpfung." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Private Sub txtSelectAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSelectAnweisung.TextChanged Private Sub txtSelectAnweisung_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSelectAnweisung.TextChanged
Try Try
@ -2042,7 +2044,7 @@ Public Class frmNIVerknuepfungen
If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then If SQL_ORIGIN <> Me.txtSelectAnweisung.Text Then
With btnsave_select With btnsave_select
.Enabled = True .Enabled = True
.ForeColor = Drawing.Color.Red .ForeColor = Drawing.Color.Black
End With End With
End If End If
' die Informationen der selektierten Verknüpfung auslesen ' die Informationen der selektierten Verknüpfung auslesen
@ -2600,12 +2602,27 @@ Public Class frmNIVerknuepfungen
End If End If
End Sub 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 If Me.txtCheckIndexSQL.Text <> "" Then
Try Try
' die Änderungen speichern ' die Änderungen speichern
If Me._selectedProfil.Save(True, "profile") = True Then ' wenn das Speichern erfolgreich war If Me._selectedProfil.Save(True, "profile") = True Then
' den Speichern-Button deaktivieren Me.btnSaveCheckIndex.Enabled = False
Else Else
MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils") MsgBox("Das Profil konnte nicht erfolgreich gespeichert werden.", MsgBoxStyle.Exclamation, "Fehler beim Speichern eines Profils")
End If End If
@ -2616,14 +2633,17 @@ Public Class frmNIVerknuepfungen
End Sub End Sub
Private Sub txtCheckIndexSQL_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtCheckIndexSQL.TextChanged 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 If Me._selectedProfil IsNot Nothing Then
Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text Me._selectedProfil.checkIndexsql = txtCheckIndexSQL.Text
If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then If Not Me._selectedProfil.checkIndexsql = Me._selectedProfil.OriginalcheckIndexsql Then
btnSaveCheckIndex.Enabled = True
Me._selectedProfil.setChanged() Me._selectedProfil.setChanged()
End If End If
End If End If
End If
End Sub End Sub
Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged Private Sub txteindeutigerIndex_TextChanged(sender As System.Object, e As System.EventArgs) Handles txteindeutigerIndex.TextChanged