Multiindex Fenster modernisieren #20

Global_Indexer/frmAdministration.Designer.vb

@@ -1102,11 +1102,8 @@ Partial Class frmAdministration
         'XtraTabControl2
         '
         resources.ApplyResources(Me.XtraTabControl2, "XtraTabControl2")
-        Me.XtraTabControl2.AppearancePage.HeaderHotTracked.BackColor = System.Drawing.Color.Fuchsia
-        Me.XtraTabControl2.AppearancePage.HeaderHotTracked.BackColor2 = CType(resources.GetObject("XtraTabControl2.AppearancePage.HeaderHotTracked.BackColor2"), System.Drawing.Color)
         Me.XtraTabControl2.AppearancePage.HeaderHotTracked.Font = CType(resources.GetObject("XtraTabControl2.AppearancePage.HeaderHotTracked.Font"), System.Drawing.Font)
         Me.XtraTabControl2.AppearancePage.HeaderHotTracked.GradientMode = CType(resources.GetObject("XtraTabControl2.AppearancePage.HeaderHotTracked.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode)
-        Me.XtraTabControl2.AppearancePage.HeaderHotTracked.Options.UseBackColor = True
         Me.XtraTabControl2.AppearancePage.HeaderHotTracked.Options.UseFont = True
         Me.XtraTabControl2.Name = "XtraTabControl2"
         Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3

Global_Indexer/frmAdministration.vb

@@ -703,7 +703,39 @@ Public Class frmAdministration
         CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
         CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
         CURRENT_SQL_CONFIG = "AUTO"
-        SQLConfigAutoIndex.ShowDialog()
+        'SQLConfigAutoIndex.ShowDialog()
+
+        Dim oIndexGuid As Integer = GUIDAUTO_INDEXTextbox.Text
+        Dim oDocTypeGuid As Integer = DOKART_GUIDTextBox.Text
+        Dim oSQLCommand = ""
+
+        Try
+            Dim oSQL = $"SELECT SQL_RESULT, CONNECTION_ID FROM TBDD_INDEX_AUTOM WHERE GUID = {oIndexGuid}"
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+            Dim oRow = oDatatable.Rows.Item(0)
+            Dim oConnection As Integer = 1
+
+            If Not IsDBNull(oRow.Item("CONNECTION_ID")) Then
+                oConnection = oRow.Item("CONNECTION_ID")
+            End If
+
+            Dim oForm As New frmSQL_DESIGNER(oIndexGuid, oDocTypeGuid) With {
+                .SQLCommand = oRow.Item("SQL_RESULT"),
+                .ConnectionID = oConnection
+            }
+
+            If oForm.ShowDialog() = DialogResult.OK Then
+
+                oSQLCommand = oForm.SQLCommand.Replace("'", "''")
+                Dim oConnectionId = oForm.SQLConnectionId
+
+                oSQL = $"UPDATE TBDD_INDEX_AUTOM SET CONNECTION_ID = {oConnectionId},SQL_RESULT = '{oSQLCommand}',CHANGED_WHO = '{Environment.UserName}' WHERE GUID = {oIndexGuid}"
+                ClassDatabase.Execute_non_Query(oSQL, True)
+
+            End If
+        Catch ex As Exception
+            LOGGER.Error(ex)
+        End Try
     End Sub
 
     Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles ToolStripButton23.Click

Global_Indexer/frmSQL_DESIGNER.vb

@@ -310,7 +310,6 @@ Public Class frmSQL_DESIGNER
             cmbConnection.SelectedIndex = oIndex
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Connections could not be loaded", MsgBoxStyle.Critical, Text)
         End Try
     End Sub