MS

2019-11-15 14:27:50 +01:00
parent a77786b706
commit a6bb35916e
24 changed files with 2915 additions and 510 deletions
--- a/Global_Indexer/frmAdministration.vb
+++ b/Global_Indexer/frmAdministration.vb
@@ -1,4 +1,5 @@
 Imports System.ComponentModel
+Imports System.Text.RegularExpressions

 Public Class frmAdministration
    Public Shared _Namenkonvention As String
@@ -13,6 +14,8 @@ Public Class frmAdministration
    End Sub

    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_REGEX_DOCTYPE". Sie können sie bei Bedarf verschieben oder entfernen.
+
        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_USER_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
        Try
            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
@@ -31,6 +34,7 @@ Public Class frmAdministration
            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBGI_REGEX_DOCTYPETableAdapter.Connection.ConnectionString = MyConnectionString
        Catch ex As Exception
            MsgBox("Error in load Connection-Strings - Check Database Connection - Form will be closed: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
            Me.Close()
@@ -41,6 +45,7 @@ Public Class frmAdministration
        Try
            Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
            Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
+            Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
        Catch ex As Exception
            MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
        End Try
@@ -160,7 +165,13 @@ Public Class frmAdministration
                TBDD_DOKUMENTARTTableAdapter.Update(MyDataset.TBDD_DOKUMENTART)
                lblSaveDokart.Visible = True
                If IsInsert = True Then
-                    Add_Zuordnung(ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString))
+                    Dim oNewID As Integer
+                    oNewID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBDD_DOKUMENTART", MyConnectionString)
+                    If IsNumeric(oNewID) Then
+                        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{oNewID}"
+                        ClassDatabase.Execute_non_Query(osql)
+                    End If
+
                End If
            Else
                lblSaveDokart.Visible = False
@@ -215,7 +226,7 @@ Public Class frmAdministration
        End Try

        MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
-        enableControls(XtraTabPage1)
+        MyDataset.TBDD_DOKUMENTART.OBJEKTTYPColumn.DefaultValue = ""
        IsInsert = True
    End Sub

@@ -227,18 +238,18 @@ Public Class frmAdministration
        End Try

    End Sub
-    Sub Add_Zuordnung(id As Integer)
-        If cmbWHModule.SelectedIndex <> -1 Then
-            TBDD_DOKART_MODULETableAdapter.cmdInsertDokartModule(id, cmbWHModule.SelectedValue, Environment.UserName)
-            Load_ZuordnungDokart_Module(id)
-        End If
-    End Sub
    Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
-        Add_Zuordnung(Me.DOKART_GUIDTextBox.Text)
+
+        Dim osql = $" EXEC PRDD_CHECK_REL_DOCTYPE_MODULE 'GLOBIX',{DOKART_GUIDTextBox.Text}"
+        ClassDatabase.Execute_non_Query(osql)
+        LoadGlobix_Doctypes()
    End Sub

    Private Sub OBJEKTTYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles OBJEKTTYPComboBox.SelectedIndexChanged
-        load_WDIndices()
+        If WINDREAM_DIRECTCheckBox.Checked = False Then
+            load_WDIndices()
+        End If
+

    End Sub
    Sub load_WDIndices()
@@ -288,6 +299,7 @@ Public Class frmAdministration
        tscmbUser.SelectedIndex = 0
        TBDD_INDEX_MANBindingNav.Visible = True
        TBDD_INDEX_MANBindingNav.Visible = True
+        WM_CHECKED_CHANGE()
    End Sub

    Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@@ -467,6 +479,16 @@ Public Class frmAdministration
                Load_UserGroups()
            Case 2
                ObjektTypenListBoxEintragen()
+            Case 3
+                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
+                Dim osql = "SELECT GUID, BEZEICHNUNG FROM TBDD_DOKUMENTART WHERE (GUID IN (SELECT T.DOKART_ID FROM TBDD_DOKUMENTART_MODULE AS T INNER JOIN " &
+                    "TBDD_MODULES AS T1 ON T.MODULE_ID = T1.GUID WHERE (T1.NAME = 'Global-Indexer'))) ORDER BY SEQUENCE, BEZEICHNUNG"
+                Dim oDT As DataTable = ClassDatabase.Return_Datatable(osql)
+                If Not IsNothing(oDT) Then
+                    cmbDoctypeRegex.DataSource = oDT
+                    cmbDoctypeRegex.ValueMember = "GUID"
+                    cmbDoctypeRegex.DisplayMember = "BEZEICHNUNG"
+                End If
        End Select

    End Sub
@@ -523,6 +545,9 @@ Public Class frmAdministration
    End Sub

    Private Sub WINDREAM_DIRECTCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles WINDREAM_DIRECTCheckBox.CheckedChanged
+        WM_CHECKED_CHANGE()
+    End Sub
+    Sub WM_CHECKED_CHANGE()
        If WINDREAM_DIRECTCheckBox.Checked Then
            OBJEKTTYPComboBox.Visible = True
            lblObjekttyp.Visible = True
@@ -538,7 +563,6 @@ Public Class frmAdministration
            WD_INDEXComboBox.Visible = False
        End If
    End Sub
-
    Private Sub Button2_Click(sender As Object, e As EventArgs)
        ClassWindream.GetSystemIndices("")
    End Sub
@@ -941,13 +965,15 @@ Public Class frmAdministration
    End Sub

    Private Sub ToolStripButton40_Click(sender As Object, e As EventArgs) Handles ToolStripButton40.Click
+        LoadGlobix_Doctypes()
+    End Sub
+    Sub LoadGlobix_Doctypes()
        Dim str = "Global-Indexer Dokarten"
        If ToolStripComboBox1.Text <> "" Then
            str = ToolStripComboBox1.Text
        End If
        Load_Dokart(str)
    End Sub
-
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        frmLicense.ShowDialog()
    End Sub
@@ -1212,4 +1238,70 @@ Public Class frmAdministration
            Return False
        End Try
    End Function
+
+    Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
+
+    End Sub
+
+    Private Sub ToolStripButton42_Click(sender As Object, e As EventArgs) Handles ToolStripButton42.Click
+        Try
+            Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+        Catch ex As Exception
+
+            MsgBox("Error in Save Regex1: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            Exit Sub
+        End Try
+
+        If MyDataset.TBGI_REGEX_DOCTYPE.GetChanges Is Nothing = False Then
+            Me.CHANGED_WHOTextBox1.Text = Environment.UserName
+            Try
+                Me.TBGI_REGEX_DOCTYPEBindingSource.EndEdit()
+            Catch ex As Exception
+
+                MsgBox("Error in Save Regex2: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+
+            End Try
+            TBGI_REGEX_DOCTYPETableAdapter.Update(MyDataset.TBGI_REGEX_DOCTYPE)
+
+        End If
+    End Sub
+
+    Private Sub BindingNavigatorAddNewItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem1.Click
+        Me.TBGI_REGEX_DOCTYPEBindingSource.AddNew()
+    End Sub
+
+    Private Sub TBGI_REGEX_DOCTYPEBindingSource_AddingNew(sender As Object, e As AddingNewEventArgs) Handles TBGI_REGEX_DOCTYPEBindingSource.AddingNew
+        MyDataset.TBGI_REGEX_DOCTYPE.ADDED_WHOColumn.DefaultValue = Environment.UserName
+        MyDataset.TBGI_REGEX_DOCTYPE.REGEXColumn.DefaultValue = txtFilenameTest.Text
+    End Sub
+
+    Private Sub XtraTabPage1_Paint(sender As Object, e As PaintEventArgs) Handles XtraTabPage1.Paint
+
+    End Sub
+
+    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
+        My.Settings.Save()
+
+        Try
+            If Regex.IsMatch(txtFilenameTest.Text, REGEXTextBox.Text) Then
+                MsgBox("The RegEx resulted in a proper match!", MsgBoxStyle.Information, "Perfect:")
+            Else
+                MsgBox("No Match- There might be an error in the RegEx!", MsgBoxStyle.Information, "Something wrong:")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Testing Regex: ")
+        End Try
+    End Sub
+
+    Private Sub BindingNavigatorDeleteItem1_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem1.Click
+        Try
+            Dim oSQL = $"DELETE FROM TBGI_REGEX_DOCTYPE WHERE GUID = {GUIDTextBox.Text}"
+            If ClassDatabase.Execute_non_Query(oSQL, True) = True Then
+                Me.TBGI_REGEX_DOCTYPETableAdapter.Fill(Me.MyDataset.TBGI_REGEX_DOCTYPE)
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Deleting Regex:")
+        End Try
+
+    End Sub
 End Class