moar design

2020-03-06 11:54:57 +01:00
parent 25aabe145d
commit 6d2df3906d
3 changed files with 1042 additions and 1632 deletions
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -103,16 +103,25 @@ Public Class frmAdministration
        End If

        RibbonPageGroupProfileRegex.Enabled = False
+        RibbonPageGroupManualIndex.Enabled = False
+        RibbonPageGroupManualIndexFunctions.Enabled = False
+        RibbonPageGroupAutoIndex.Enabled = False

        Select Case XtraTabControl2.SelectedTabPage.Name
            Case XtraTabPageManualIndex.Name
+                RibbonPageGroupManualIndex.Enabled = True
+
                If DOKART_GUIDTextBox.Text <> "" Then
                    Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
                End If
            Case XtraTabPageManualIndexFunctions.Name
+                RibbonPageGroupManualIndexFunctions.Enabled = True
+
                Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
            Case XtraTabPageAutoIndex.Name
                Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
+
+                RibbonPageGroupAutoIndex.Enabled = True
            Case XtraTabPageFolderPath.Name
                Try
                    Dim Dt As DataTable = ClassDatabase.Return_Datatable("select NAME from VWDDINDICES_MAN_AUTO_ACTIVE where DOCTYPE_ID = " & DOKART_GUIDTextBox.Text & " order by NAME")
@@ -301,8 +310,6 @@ Public Class frmAdministration
            Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
        End If
        frmloaded = True
-        TBDD_INDEX_MANBindingNav.Visible = True
-        TBDD_INDEX_MANBindingNav.Visible = True
        WM_CHECKED_CHANGE()
    End Sub

@@ -369,7 +376,7 @@ Public Class frmAdministration

    End Sub

-    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
+    Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs)
        Save_IndexMan()
    End Sub
    Sub Save_IndexMan()
@@ -592,7 +599,7 @@ Public Class frmAdministration
    Private Sub XtraTabControl2_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles XtraTabControl2.SelectedPageChanged
        Load_TabData()
    End Sub
-    Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs) Handles ToolStripButton22.Click
+    Private Sub ToolStripButton22_Click(sender As Object, e As EventArgs)
        Save_IndexAuto()
    End Sub

@@ -764,7 +771,7 @@ Public Class frmAdministration
        End If

    End Sub
-    Private Sub ToolStripButton30_Click(sender As Object, e As EventArgs) Handles ToolStripButton30.Click
+    Private Sub ToolStripButton30_Click(sender As Object, e As EventArgs)
        Save_PostProcessing()
    End Sub
    Sub Save_PostProcessing()
@@ -796,7 +803,7 @@ Public Class frmAdministration
            End If
        Next
    End Sub
-    Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click
+    Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs)
        Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
    End Sub

@@ -900,11 +907,11 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
+    Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs)
        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
    End Sub

-    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
+    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs)
        If GUIDTextBox1.Text <> "" Then
            Try
                Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
@@ -920,7 +927,7 @@ Public Class frmAdministration
        End If
    End Sub

-    Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs) Handles tsbtnRefreshAutomatic.Click
+    Private Sub tsbtnRefreshAutomatic_Click(sender As Object, e As EventArgs)
        Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
    End Sub

@@ -1115,7 +1122,7 @@ Public Class frmAdministration
        End Try
    End Sub

-    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) 
+    Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs)
        Try
            Dim oSQL = $"DELETE FROM TBGI_REGEX_DOCTYPE WHERE GUID = {TextBox3.Text}"
            If ClassDatabase.Execute_non_Query(oSQL, True) = True Then
@@ -1178,4 +1185,118 @@ Public Class frmAdministration
            MsgBox("Fehler beim Löschen der Automatischen Profilauswahl", MsgBoxStyle.Critical, Text)
        End Try
    End Sub
+
+    Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
+        TBDD_INDEX_MANBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
+        Save_IndexMan()
+    End Sub
+
+    Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
+        Dim result As MsgBoxResult
+
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Sind Sie sicher dass Sie diesen manuellen Index löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Are you sure you want to delete this manual index?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            If GUIDTextBox1.Text <> "" Then
+                Try
+                    Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
+                    If ClassDatabase.Execute_non_Query(del) = True Then
+                        del = "DELETE FROM TBDD_INDEX_MAN WHERE GUID = " & GUIDTextBox1.Text
+                        If ClassDatabase.Execute_non_Query(del) = True Then
+                            Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+                        End If
+                    End If
+                Catch ex As Exception
+                    MsgBox("Unexpected Error in deleting manual index: " & ex.Message, MsgBoxStyle.Critical)
+                End Try
+            End If
+        End If
+    End Sub
+
+    Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
+        Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
+    End Sub
+
+    Private Sub BarButtonItem20_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem20.ItemClick
+        TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddNew()
+    End Sub
+
+    Private Sub BarButtonItem21_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem21.ItemClick
+        Save_PostProcessing()
+    End Sub
+
+    Private Sub ToolStripButton25_Click(sender As Object, e As EventArgs)
+        MsgBox("TODO: Implement")
+    End Sub
+
+    Private Sub BarButtonItem23_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem23.ItemClick
+        Dim result As MsgBoxResult
+
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Sind Sie sicher dass Sie diese Nachbearbeitungs-Funktion löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Are you sure you want to delete this postprocessing function?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            If GUIDTextBox1.Text <> "" Then
+                Try
+                    Dim del = "DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & GUIDTextBox1.Text
+                    If ClassDatabase.Execute_non_Query(del) = True Then
+                        Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
+                    End If
+                Catch ex As Exception
+                    MsgBox("Unexpected Error in deleting manual index: " & ex.Message, MsgBoxStyle.Critical)
+                End Try
+            End If
+        End If
+    End Sub
+
+    Private Sub BarButtonItem22_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem22.ItemClick
+        Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
+    End Sub
+
+    Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+        TBDD_INDEX_AUTOMBindingSource.AddNew()
+    End Sub
+
+    Private Sub ToolStripButton17_Click(sender As Object, e As EventArgs)
+        MsgBox("TODO: Implement")
+    End Sub
+
+    Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
+        Dim result As MsgBoxResult
+
+        If USER_LANGUAGE = "de-DE" Then
+            result = MessageBox.Show("Sind Sie sicher dass Sie diesen automatischen Index löschen wollen?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        Else
+            result = MessageBox.Show("Are you sure you want to delete this automatic index?", Text, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+        End If
+
+        If result = MsgBoxResult.Yes Then
+            Try
+                Dim oSQL = $"DELETE FROM TBDD_INDEX_AUTOM WHERE GUID = {GUIDAUTO_INDEXTextbox.Text}"
+                ClassDatabase.Execute_non_Query(oSQL)
+                Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
+            Catch ex As Exception
+                LOGGER.Error(ex)
+                MsgBox("Fehler beim Löschen des Automatischen Indexes", MsgBoxStyle.Critical, Text)
+            End Try
+        End If
+    End Sub
+
+    Private Sub BarButtonItem26_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem26.ItemClick
+        Load_INDEXE_AUTO(Me.DOKART_GUIDTextBox.Text)
+    End Sub
+
+    Private Sub BarButtonItem25_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem25.ItemClick
+        Save_IndexAuto()
+    End Sub
 End Class