ms connection

2018-07-30 09:51:45 +02:00 · 2018-07-30 09:51:45 +02:00 · ea6f73af18
commit ea6f73af18
parent 64f207fc2a
6 changed files with 1547 additions and 653 deletions
--- a/Global_Indexer/ClassFormFunctions.vb
+++ b/Global_Indexer/ClassFormFunctions.vb
@ -8,7 +8,13 @@ Public Class ClassFormFunctions
            If DTConnection.Rows.Count = 1 Then
                Dim CSType = DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
                Select Case CSType
-                    Case "MS-SQL".ToUpper Or "MS-SQLServer".ToUpper
+                    Case "MS-SQL".ToUpper
+                        If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
+                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
+                        Else
+                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        End If
+                    Case "MS-SQLServer".ToUpper
                        If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
                        Else
--- a/Global_Indexer/frmAdministration.Designer.vb
+++ b/Global_Indexer/frmAdministration.Designer.vb
@ -866,6 +866,7 @@ Partial Class frmAdministration
        '
        'StatusStrip1
        '
+        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
        Me.StatusStrip1.Name = "StatusStrip1"
        '
@ -960,6 +961,7 @@ Partial Class frmAdministration
        Me.GridControl1.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.GridControl1.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl1.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
        Me.GridControl1.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+        Me.GridControl1.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl1.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridControl1.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl1.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
        Me.GridControl1.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl1.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
        resources.ApplyResources(Me.GridControl1, "GridControl1")
@ -1195,6 +1197,7 @@ Partial Class frmAdministration
        Me.TBDD_INDEX_MANBindingNav.CountItem = Me.ToolStripLabel1
        Me.TBDD_INDEX_MANBindingNav.CountItemFormat = "of {0} manual Indicies"
        Me.TBDD_INDEX_MANBindingNav.DeleteItem = Nothing
+        Me.TBDD_INDEX_MANBindingNav.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.TBDD_INDEX_MANBindingNav.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripButton4, Me.ToolStripSeparator1, Me.ToolStripTextBox1, Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton5, Me.ToolStripButton6, Me.ToolStripSeparator3, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton7, Me.ToolStripButton41})
        resources.ApplyResources(Me.TBDD_INDEX_MANBindingNav, "TBDD_INDEX_MANBindingNav")
        Me.TBDD_INDEX_MANBindingNav.MoveFirstItem = Me.ToolStripButton3
@ -1472,6 +1475,7 @@ Partial Class frmAdministration
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.CountItem = Me.ToolStripLabel4
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.CountItemFormat = "of {0} Postprocessing Functions"
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.DeleteItem = Me.ToolStripButton25
+        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton26, Me.ToolStripButton27, Me.ToolStripSeparator10, Me.ToolStripTextBox4, Me.ToolStripLabel4, Me.ToolStripSeparator11, Me.ToolStripButton28, Me.ToolStripButton29, Me.ToolStripSeparator12, Me.ToolStripButton24, Me.ToolStripButton25, Me.ToolStripButton30, Me.ToolStripButton31})
        resources.ApplyResources(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator, "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator")
        Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MoveFirstItem = Me.ToolStripButton26
@ -1721,6 +1725,7 @@ Partial Class frmAdministration
        Me.BindingNavigator2.CountItemFormat = "of {0} automatic Indicies"
        Me.BindingNavigator2.DeleteItem = Me.ToolStripButton17
        resources.ApplyResources(Me.BindingNavigator2, "BindingNavigator2")
+        Me.BindingNavigator2.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.BindingNavigator2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton18, Me.ToolStripButton19, Me.ToolStripSeparator7, Me.ToolStripTextBox3, Me.ToolStripLabel3, Me.ToolStripSeparator8, Me.ToolStripButton20, Me.ToolStripButton21, Me.ToolStripSeparator9, Me.ToolStripButton16, Me.ToolStripButton17, Me.ToolStripButton22, Me.tsbtnRefreshAutomatic})
        Me.BindingNavigator2.MoveFirstItem = Me.ToolStripButton18
        Me.BindingNavigator2.MoveLastItem = Me.ToolStripButton21
@ -1815,8 +1820,8 @@ Partial Class frmAdministration
        Me.XtraTabPage9.Controls.Add(Me.GroupBox3)
        Me.XtraTabPage9.Controls.Add(Me.Label8)
        Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung)
-        Me.XtraTabPage9.Name = "XtraTabPage9"
        resources.ApplyResources(Me.XtraTabPage9, "XtraTabPage9")
+        Me.XtraTabPage9.Name = "XtraTabPage9"
        '
        'Button2
        '
@ -1890,8 +1895,8 @@ Partial Class frmAdministration
        'XtraTabPage10
        '
        Me.XtraTabPage10.Controls.Add(Me.GroupBox4)
-        Me.XtraTabPage10.Name = "XtraTabPage10"
        resources.ApplyResources(Me.XtraTabPage10, "XtraTabPage10")
+        Me.XtraTabPage10.Name = "XtraTabPage10"
        '
        'GroupBox4
        '
@ -2072,6 +2077,7 @@ Partial Class frmAdministration
        Me.TBDD_DOKUMENTARTBindingNavigator.CountItem = Me.BindingNavigatorCountItem
        Me.TBDD_DOKUMENTARTBindingNavigator.CountItemFormat = "of {0} Documenttypes"
        Me.TBDD_DOKUMENTARTBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
+        Me.TBDD_DOKUMENTARTBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.TBDD_DOKUMENTARTBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBDD_DOKUMENTARTBindingNavigatorSaveItem, Me.ToolStripComboBox1, Me.ToolStripButton40, Me.tsbtnCopyDoctype})
        resources.ApplyResources(Me.TBDD_DOKUMENTARTBindingNavigator, "TBDD_DOKUMENTARTBindingNavigator")
        Me.TBDD_DOKUMENTARTBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
@ -2279,6 +2285,7 @@ Partial Class frmAdministration
        Me.GridControl2.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControl2.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles)
        Me.GridControl2.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControl2.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout)
        Me.GridControl2.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControl2.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode)
+        Me.GridControl2.EmbeddedNavigator.Margin = CType(resources.GetObject("GridControl2.EmbeddedNavigator.Margin"), System.Windows.Forms.Padding)
        Me.GridControl2.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControl2.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation)
        Me.GridControl2.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControl2.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)
        Me.GridControl2.MainView = Me.GridView2
@ -2366,8 +2373,8 @@ Partial Class frmAdministration
        Me.XtraTabPage7.Controls.Add(Me.GroupBox2)
        Me.XtraTabPage7.Controls.Add(Me.Label4)
        Me.XtraTabPage7.Controls.Add(Me.ListBoxUserzuordnung)
-        Me.XtraTabPage7.Name = "XtraTabPage7"
        resources.ApplyResources(Me.XtraTabPage7, "XtraTabPage7")
+        Me.XtraTabPage7.Name = "XtraTabPage7"
        '
        'btnDeleteGroupRelation
        '
@ -2450,8 +2457,8 @@ Partial Class frmAdministration
        Me.XtraTabPage8.Controls.Add(CHANGED_WHENLabel5)
        Me.XtraTabPage8.Controls.Add(Me.CHANGED_WHENTextBox5)
        Me.XtraTabPage8.Controls.Add(Me.TBDD_USER_GROUPSBindingNavigator)
-        Me.XtraTabPage8.Name = "XtraTabPage8"
        resources.ApplyResources(Me.XtraTabPage8, "XtraTabPage8")
+        Me.XtraTabPage8.Name = "XtraTabPage8"
        '
        'ListBox4
        '
@ -2511,6 +2518,7 @@ Partial Class frmAdministration
        Me.TBDD_USER_GROUPSBindingNavigator.CountItem = Me.ToolStripLabel5
        Me.TBDD_USER_GROUPSBindingNavigator.CountItemFormat = "of {0} Groups"
        Me.TBDD_USER_GROUPSBindingNavigator.DeleteItem = Me.ToolStripButton33
+        Me.TBDD_USER_GROUPSBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.TBDD_USER_GROUPSBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton34, Me.ToolStripButton35, Me.ToolStripSeparator13, Me.ToolStripTextBox5, Me.ToolStripLabel5, Me.ToolStripSeparator14, Me.ToolStripButton36, Me.ToolStripButton37, Me.ToolStripSeparator15, Me.ToolStripButton32, Me.ToolStripButton33, Me.ToolStripButton38, Me.ToolStripButton39})
        resources.ApplyResources(Me.TBDD_USER_GROUPSBindingNavigator, "TBDD_USER_GROUPSBindingNavigator")
        Me.TBDD_USER_GROUPSBindingNavigator.MoveFirstItem = Me.ToolStripButton34
@ -2660,6 +2668,7 @@ Partial Class frmAdministration
        Me.BindingNavigator1.CountItem = Me.ToolStripLabel2
        Me.BindingNavigator1.CountItemFormat = "of {0} Users"
        Me.BindingNavigator1.DeleteItem = Me.ToolStripButton9
+        Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton10, Me.ToolStripButton11, Me.ToolStripSeparator4, Me.ToolStripTextBox2, Me.ToolStripLabel2, Me.ToolStripSeparator5, Me.ToolStripButton12, Me.ToolStripButton13, Me.ToolStripSeparator6, Me.ToolStripButton8, Me.ToolStripButton9, Me.ToolStripButton14, Me.tscmbUser, Me.ToolStripButton15, Me.ToolStripButton23})
        resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
        Me.BindingNavigator1.MoveFirstItem = Me.ToolStripButton10
@ -2762,8 +2771,8 @@ Partial Class frmAdministration
        Me.XtraTabPage5.Controls.Add(Me.Button4)
        Me.XtraTabPage5.Controls.Add(Me.Button3)
        Me.XtraTabPage5.Controls.Add(Me.GroupBox1)
-        Me.XtraTabPage5.Name = "XtraTabPage5"
        resources.ApplyResources(Me.XtraTabPage5, "XtraTabPage5")
+        Me.XtraTabPage5.Name = "XtraTabPage5"
        '
        'Button4
        '
--- a/Global_Indexer/frmAdministration.resx
+++ b/Global_Indexer/frmAdministration.resx
--- a/Global_Indexer/frmConnections.vb
+++ b/Global_Indexer/frmConnections.vb
@ -39,7 +39,7 @@ Public Class frmConnections
            chkOR_ohne_TNS.Visible = False
            Select Case Me.SQL_PROVIDERComboBox.SelectedItem

-                Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
+                Case "MS-SQL".ToUpper
                    If USER_LANGUAGE = "de-DE" Then
                        Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
                        Me.lblInitialCatalog.Text = "Datenbank-Name:"
@ -61,6 +61,29 @@ Public Class frmConnections
                    Me.cmbInitialCatalog.Visible = True
                    Me.lblDatenbank.Visible = True
                    CheckBoxwin_aut.Visible = True
+                Case "MS-SQLServer".ToUpper
+                    If USER_LANGUAGE = "de-DE" Then
+                        Me.lblDataSource.Text = "Datenbank-Server (IP-Adresse oder Name)*:"
+                        Me.lblInitialCatalog.Text = "Datenbank-Name:"
+                        Me.lblUserId.Text = "UserId:"
+                        Me.lblPassword.Text = "Passwort:"
+                    Else
+                        Me.lblDataSource.Text = "Database-Server (IP-Adress or Name)*:"
+                        Me.lblInitialCatalog.Text = "Database-Name:"
+                        Me.lblUserId.Text = "UserId:"
+                        Me.lblPassword.Text = "Passwort:"
+                    End If
+
+                    Me.SERVERTextBox.ReadOnly = False
+                    Me.SERVERTextBox.BackColor = System.Drawing.SystemColors.Window
+                    Me.SERVERTextBox.Text = ""
+
+                    Me.lblInitialCatalog.Visible = False
+                    Me.DATENBANKTextBox.Visible = False
+                    Me.cmbInitialCatalog.Visible = True
+                    Me.lblDatenbank.Visible = True
+                    CheckBoxwin_aut.Visible = True
+
                Case "Oracle"
                    If USER_LANGUAGE = "de-DE" Then
                        Me.lblDataSource.Text = "IP Oracle-Server:"
@ -128,7 +151,28 @@ Public Class frmConnections
                Cursor = Cursors.WaitCursor

                Select Case Me.SQL_PROVIDERComboBox.SelectedItem
-                    Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
+                    Case "MS-SQL".ToUpper
+                        Dim con As String
+                        If CheckBoxwin_aut.Checked Then
+                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
+                        Else
+                            con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";"
+                        End If
+                        msg_string = con
+                        Dim connection As New SqlClient.SqlConnection(con)
+                        connection.Open()
+                        Cursor = Cursors.Default
+
+
+                        If USER_LANGUAGE = "de-DE" Then
+                            MsgBox("Die SQL-Server Verbindung wurde erfolgreich aufgebaut!", MsgBoxStyle.Information, "Erfolg:")
+                        Else
+                            MsgBox("Connection to Server successfully established!", MsgBoxStyle.Information, "Success:")
+                        End If
+
+
+                        My.Settings.Save()
+                    Case "MS-SQLServer".ToUpper
                        Dim con As String
                        If CheckBoxwin_aut.Checked Then
                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
@ -149,7 +193,6 @@ Public Class frmConnections


                        My.Settings.Save()
-                        'DialogResult = Windows.Forms.DialogResult.OK
                    Case "Oracle"
                        My.Settings.Save()
                        Dim connstr As String
@ -209,7 +252,35 @@ Public Class frmConnections
            If Me.SQL_PROVIDERComboBox.SelectedIndex <> -1 Then

                Select Case Me.SQL_PROVIDERComboBox.SelectedItem
-                    Case ("MS-SQL".ToUpper Or "MS-SQLServer".ToUpper)
+                    Case "MS-SQL".ToUpper
+                        Dim con As String
+                        If CheckBoxwin_aut.Checked Then
+                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
+                        Else
+                            con = "Server=" & Me.SERVERTextBox.Text & ";Database=" & Me.cmbInitialCatalog.Text & ";User Id=" & Me.USERNAMETextBox.Text & ";Password=" & Me.PASSWORDTextBox.Text & ";"
+                        End If
+                        'csb.DataSource = Me.txtDataSource.Text
+                        'csb.IntegratedSecurity = False
+                        'csb.UserID = Me.txtUserId.Text
+                        'csb.Password = Me.txtPassword.Text
+                        Dim connection As New SqlClient.SqlConnection(con)
+                        'während Verbindungsaufbau Sanduhr-Mauszeiger
+                        Cursor = Cursors.WaitCursor
+                        connection.Open()
+                        Cursor = Cursors.Default
+                        ' SQLCommand-Objekt über alle Datenbanken erstellen
+                        Dim cmd As New SqlClient.SqlCommand("SELECT [name] FROM master.dbo.sysdatabases WHERE name NOT IN ('master', 'tempdb', 'model', 'msdb')", connection)
+                        'cmd.CommandType = CommandType.
+                        ' Ausführen und Ergebnis in einer ListBox anzeigen
+                        Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
+                        If dr.HasRows Then
+                            cmbInitialCatalog.Items.Clear()
+                            Do While dr.Read
+                                cmbInitialCatalog.Items.Add(dr("name"))
+                            Loop
+                            cmbInitialCatalog.DroppedDown = True
+                        End If
+                    Case "MS-SQLServer".ToUpper
                        Dim con As String
                        If CheckBoxwin_aut.Checked Then
                            con = "Data Source=" & Me.SERVERTextBox.Text & ";Initial Catalog=" & Me.cmbInitialCatalog.Text & ";Trusted_Connection=True;"
--- a/Global_Indexer/frmIndex.designer.vb
+++ b/Global_Indexer/frmIndex.designer.vb
@ -163,6 +163,7 @@ Partial Class frmIndex
        '
        'ToolStrip1
        '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
        Me.ToolStrip1.Name = "ToolStrip1"
@ -249,6 +250,7 @@ Partial Class frmIndex
        '
        'StatusStrip3
        '
+        Me.StatusStrip3.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.StatusStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWebbrowser})
        resources.ApplyResources(Me.StatusStrip3, "StatusStrip3")
        Me.StatusStrip3.Name = "StatusStrip3"
@ -288,6 +290,7 @@ Partial Class frmIndex
        '
        'StatusStrip2
        '
+        Me.StatusStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.StatusStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.pdfstatuslblPageNumber, Me.ToolStripDropDownButton1})
        resources.ApplyResources(Me.StatusStrip2, "StatusStrip2")
        Me.StatusStrip2.Name = "StatusStrip2"
@ -463,6 +466,7 @@ Partial Class frmIndex
        '
        'StatusStrip1
        '
+        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.lblhinweis, Me.tslblVorschau})
        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
        Me.StatusStrip1.Name = "StatusStrip1"
@ -499,10 +503,10 @@ Partial Class frmIndex
        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
-        Me.TableAdapterManager.TBDD_GROUPSTableAdapter = Nothing
        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
--- a/Global_Indexer/frmIndex.resx
+++ b/Global_Indexer/frmIndex.resx
@ -125,6 +125,9 @@
  <data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
+  <data name="SplitContainer1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
+  </data>
  <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
  <data name="pnlIndex.AutoScroll" type="System.Boolean, mscorlib">
    <value>True</value>
@ -133,10 +136,13 @@
    <value>Fill</value>
  </data>
  <data name="pnlIndex.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 104</value>
+    <value>0, 128</value>
+  </data>
+  <data name="pnlIndex.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="pnlIndex.Size" type="System.Drawing.Size, System.Drawing">
-    <value>536, 269</value>
+    <value>688, 338</value>
  </data>
  <data name="pnlIndex.TabIndex" type="System.Int32, mscorlib">
    <value>8</value>
@ -166,13 +172,16 @@
    <value>MiddleRight</value>
  </data>
  <data name="CheckBox1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>409, 76</value>
+    <value>524, 93</value>
+  </data>
+  <data name="CheckBox1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="CheckBox1.RightToLeft" type="System.Windows.Forms.RightToLeft, System.Windows.Forms">
    <value>No</value>
  </data>
  <data name="CheckBox1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>123, 21</value>
+    <value>159, 27</value>
  </data>
  <data name="CheckBox1.TabIndex" type="System.Int32, mscorlib">
    <value>12</value>
@ -202,10 +211,13 @@
    <value>MiddleLeft</value>
  </data>
  <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>399, 40</value>
+    <value>512, 49</value>
+  </data>
+  <data name="Button1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>133, 30</value>
+    <value>171, 37</value>
  </data>
  <data name="Button1.TabIndex" type="System.Int32, mscorlib">
    <value>11</value>
@ -235,7 +247,7 @@
    <value>Magenta</value>
  </data>
  <data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>117, 22</value>
+    <value>145, 24</value>
  </data>
  <data name="ToolStripButton1.Text" xml:space="preserve">
    <value>Top Most = False</value>
@ -244,7 +256,7 @@
    <value>0, 0</value>
  </data>
  <data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>536, 25</value>
+    <value>688, 27</value>
  </data>
  <data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
    <value>6</value>
@ -271,13 +283,10 @@
    <value>Verdana, 9.75pt</value>
  </data>
  <data name="lblerror.Location" type="System.Drawing.Point, System.Drawing">
-    <value>4, 78</value>
-  </data>
-  <data name="lblerror.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 0, 2, 0</value>
+    <value>5, 96</value>
  </data>
  <data name="lblerror.Size" type="System.Drawing.Size, System.Drawing">
-    <value>39, 16</value>
+    <value>51, 20</value>
  </data>
  <data name="lblerror.TabIndex" type="System.Int32, mscorlib">
    <value>3</value>
@ -304,10 +313,13 @@
    <value>Top, Left, Right</value>
  </data>
  <data name="cmbDokumentart.Location" type="System.Drawing.Point, System.Drawing">
-    <value>5, 44</value>
+    <value>6, 54</value>
+  </data>
+  <data name="cmbDokumentart.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="cmbDokumentart.Size" type="System.Drawing.Size, System.Drawing">
-    <value>392, 25</value>
+    <value>502, 29</value>
  </data>
  <data name="cmbDokumentart.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -328,10 +340,13 @@
    <value>True</value>
  </data>
  <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 25</value>
+    <value>4, 31</value>
+  </data>
+  <data name="Label1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 0, 4, 0</value>
  </data>
  <data name="Label1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>208, 17</value>
+    <value>278, 23</value>
  </data>
  <data name="Label1.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -358,10 +373,10 @@
    <value>0, 0</value>
  </data>
  <data name="Panel1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 3, 2, 3</value>
+    <value>3, 4, 3, 4</value>
  </data>
  <data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>536, 104</value>
+    <value>688, 128</value>
  </data>
  <data name="Panel1.TabIndex" type="System.Int32, mscorlib">
    <value>4</value>
@ -385,10 +400,13 @@
    <value>Verdana, 9.75pt, style=Bold, Italic</value>
  </data>
  <data name="chkMultiIndexer.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 39</value>
+    <value>4, 48</value>
+  </data>
+  <data name="chkMultiIndexer.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="chkMultiIndexer.Size" type="System.Drawing.Size, System.Drawing">
-    <value>520, 20</value>
+    <value>688, 24</value>
  </data>
  <data name="chkMultiIndexer.TabIndex" type="System.Int32, mscorlib">
    <value>10</value>
@ -415,13 +433,13 @@
    <value>Verdana, 9.75pt</value>
  </data>
  <data name="chkdelete_origin.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 13</value>
+    <value>4, 16</value>
  </data>
  <data name="chkdelete_origin.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 3, 2, 3</value>
+    <value>3, 4, 3, 4</value>
  </data>
  <data name="chkdelete_origin.Size" type="System.Drawing.Size, System.Drawing">
-    <value>176, 20</value>
+    <value>226, 24</value>
  </data>
  <data name="chkdelete_origin.TabIndex" type="System.Int32, mscorlib">
    <value>3</value>
@ -448,13 +466,10 @@
    <value>Verdana, 8.25pt</value>
  </data>
  <data name="Label2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 62</value>
-  </data>
-  <data name="Label2.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 0, 2, 0</value>
+    <value>0, 77</value>
  </data>
  <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>92, 13</value>
+    <value>110, 17</value>
  </data>
  <data name="Label2.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -481,16 +496,16 @@
    <value>Verdana, 6.75pt</value>
  </data>
  <data name="txtIndexfilepath.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 78</value>
+    <value>4, 96</value>
  </data>
  <data name="txtIndexfilepath.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 3, 2, 3</value>
+    <value>3, 4, 3, 4</value>
  </data>
  <data name="txtIndexfilepath.Multiline" type="System.Boolean, mscorlib">
    <value>True</value>
  </data>
  <data name="txtIndexfilepath.Size" type="System.Drawing.Size, System.Drawing">
-    <value>529, 34</value>
+    <value>678, 41</value>
  </data>
  <data name="txtIndexfilepath.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -517,13 +532,13 @@
    <value>MiddleLeft</value>
  </data>
  <data name="btnOK.Location" type="System.Drawing.Point, System.Drawing">
-    <value>379, 6</value>
+    <value>486, 7</value>
  </data>
  <data name="btnOK.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
+    <value>4, 5, 4, 5</value>
  </data>
  <data name="btnOK.Size" type="System.Drawing.Size, System.Drawing">
-    <value>153, 30</value>
+    <value>197, 37</value>
  </data>
  <data name="btnOK.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -550,13 +565,13 @@
    <value>Bottom</value>
  </data>
  <data name="Panel2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 373</value>
+    <value>0, 466</value>
  </data>
  <data name="Panel2.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>2, 3, 2, 3</value>
+    <value>3, 4, 3, 4</value>
  </data>
  <data name="Panel2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>536, 120</value>
+    <value>688, 148</value>
  </data>
  <data name="Panel2.TabIndex" type="System.Int32, mscorlib">
    <value>7</value>
@ -589,13 +604,16 @@
    <value>Fill</value>
  </data>
  <data name="WebBrowser.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 21</value>
+    <value>4, 26</value>
+  </data>
+  <data name="WebBrowser.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="WebBrowser.MinimumSize" type="System.Drawing.Size, System.Drawing">
-    <value>20, 20</value>
+    <value>26, 25</value>
  </data>
  <data name="WebBrowser.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 54</value>
+    <value>249, 69</value>
  </data>
  <data name="WebBrowser.TabIndex" type="System.Int32, mscorlib">
    <value>2</value>
@ -616,16 +634,19 @@
    <value>1477, 173</value>
  </metadata>
  <data name="tslblWebbrowser.Size" type="System.Drawing.Size, System.Drawing">
-    <value>120, 17</value>
+    <value>153, 20</value>
  </data>
  <data name="tslblWebbrowser.Text" xml:space="preserve">
    <value>ToolStripStatusLabel1</value>
  </data>
  <data name="StatusStrip3.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 75</value>
+    <value>4, 95</value>
+  </data>
+  <data name="StatusStrip3.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>1, 0, 18, 0</value>
  </data>
  <data name="StatusStrip3.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 22</value>
+    <value>249, 25</value>
  </data>
  <data name="StatusStrip3.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -649,10 +670,16 @@
    <value>Segoe UI Semibold, 9.75pt, style=Bold, Italic</value>
  </data>
  <data name="grpbxMailBody.Location" type="System.Drawing.Point, System.Drawing">
-    <value>58, 352</value>
+    <value>75, 435</value>
+  </data>
+  <data name="grpbxMailBody.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
+  </data>
+  <data name="grpbxMailBody.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="grpbxMailBody.Size" type="System.Drawing.Size, System.Drawing">
-    <value>200, 100</value>
+    <value>257, 124</value>
  </data>
  <data name="grpbxMailBody.TabIndex" type="System.Int32, mscorlib">
    <value>5</value>
@ -679,10 +706,13 @@
    <value>Segoe UI, 9.75pt, style=Italic</value>
  </data>
  <data name="txtBetreff.Location" type="System.Drawing.Point, System.Drawing">
-    <value>3, 21</value>
+    <value>4, 26</value>
+  </data>
+  <data name="txtBetreff.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>5, 5, 5, 5</value>
  </data>
  <data name="txtBetreff.Size" type="System.Drawing.Size, System.Drawing">
-    <value>194, 25</value>
+    <value>249, 29</value>
  </data>
  <data name="txtBetreff.TabIndex" type="System.Int32, mscorlib">
    <value>0</value>
@ -703,10 +733,16 @@
    <value>Segoe UI Semibold, 9.75pt, style=Bold, Italic</value>
  </data>
  <data name="grpBetreff.Location" type="System.Drawing.Point, System.Drawing">
-    <value>20, 64</value>
+    <value>26, 79</value>
+  </data>
+  <data name="grpBetreff.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
+  </data>
+  <data name="grpBetreff.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="grpBetreff.Size" type="System.Drawing.Size, System.Drawing">
-    <value>200, 58</value>
+    <value>257, 72</value>
  </data>
  <data name="grpBetreff.TabIndex" type="System.Int32, mscorlib">
    <value>4</value>
@ -730,10 +766,13 @@
    <value>Fill</value>
  </data>
  <data name="PdfViewer1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 141</value>
+    <value>0, 177</value>
+  </data>
+  <data name="PdfViewer1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="PdfViewer1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>314, 145</value>
+    <value>404, 177</value>
  </data>
  <data name="PdfViewer1.TabIndex" type="System.Int32, mscorlib">
    <value>4</value>
@ -757,7 +796,7 @@
    <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
  </data>
  <data name="pdfstatuslblPageNumber.Size" type="System.Drawing.Size, System.Drawing">
-    <value>139, 17</value>
+    <value>174, 21</value>
  </data>
  <data name="pdfstatuslblPageNumber.Text" xml:space="preserve">
    <value>ToolStripStatusLabel1</value>
@ -766,16 +805,19 @@
    <value>Magenta</value>
  </data>
  <data name="ToolStripDropDownButton1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>137, 20</value>
+    <value>168, 24</value>
  </data>
  <data name="ToolStripDropDownButton1.Text" xml:space="preserve">
    <value>Seitenansicht Minimal</value>
  </data>
  <data name="StatusStrip2.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 286</value>
+    <value>0, 354</value>
+  </data>
+  <data name="StatusStrip2.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>1, 0, 18, 0</value>
  </data>
  <data name="StatusStrip2.Size" type="System.Drawing.Size, System.Drawing">
-    <value>314, 22</value>
+    <value>404, 26</value>
  </data>
  <data name="StatusStrip2.TabIndex" type="System.Int32, mscorlib">
    <value>3</value>
@ -798,8 +840,11 @@
  <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
    <value>0, 0</value>
  </data>
+  <data name="RibbonControl1.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>5, 5, 5, 5</value>
+  </data>
  <data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>314, 141</value>
+    <value>404, 177</value>
  </data>
  <data name="&gt;&gt;RibbonControl1.Name" xml:space="preserve">
    <value>RibbonControl1</value>
@ -814,10 +859,13 @@
    <value>2</value>
  </data>
  <data name="pnlPDF.Location" type="System.Drawing.Point, System.Drawing">
-    <value>67, 25</value>
+    <value>86, 31</value>
+  </data>
+  <data name="pnlPDF.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
+    <value>4, 4, 4, 4</value>
  </data>
  <data name="pnlPDF.Size" type="System.Drawing.Size, System.Drawing">
-    <value>314, 308</value>
+    <value>404, 380</value>
  </data>
  <data name="pnlPDF.TabIndex" type="System.Int32, mscorlib">
    <value>1</value>
@ -847,10 +895,13 @@
    <value>1</value>
  </data>
  <data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>904, 493</value>
+    <value>1162, 614</value>
  </data>
  <data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
-    <value>536</value>
+    <value>688</value>
+  </data>
+  <data name="SplitContainer1.SplitterWidth" type="System.Int32, mscorlib">
+    <value>5</value>
  </data>
  <data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
    <value>8</value>
@ -871,7 +922,7 @@
    <value>17, 17</value>
  </metadata>
  <data name="lblhinweis.Size" type="System.Drawing.Size, System.Drawing">
-    <value>0, 17</value>
+    <value>0, 20</value>
  </data>
  <data name="lblhinweis.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
    <value>MiddleLeft</value>
@ -880,7 +931,7 @@
    <value>False</value>
  </data>
  <data name="tslblVorschau.Size" type="System.Drawing.Size, System.Drawing">
-    <value>98, 17</value>
+    <value>122, 20</value>
  </data>
  <data name="tslblVorschau.Text" xml:space="preserve">
    <value>Vorschau ist aktiv</value>
@ -889,13 +940,13 @@
    <value>False</value>
  </data>
  <data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 493</value>
+    <value>0, 614</value>
  </data>
  <data name="StatusStrip1.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>1, 0, 10, 0</value>
+    <value>1, 0, 13, 0</value>
  </data>
  <data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
-    <value>904, 22</value>
+    <value>1162, 22</value>
  </data>
  <data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
    <value>6</value>
@ -946,16 +997,16 @@
    <value>100</value>
  </metadata>
  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
-    <value>7, 17</value>
+    <value>9, 21</value>
  </data>
  <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>904, 515</value>
+    <value>1162, 636</value>
  </data>
  <data name="$this.Font" type="System.Drawing.Font, System.Drawing">
    <value>Segoe UI, 9.75pt</value>
  </data>
  <data name="$this.Margin" type="System.Windows.Forms.Padding, System.Windows.Forms">
-    <value>3, 4, 3, 4</value>
+    <value>4, 5, 4, 5</value>
  </data>
  <data name="$this.Text" xml:space="preserve">
    <value>Indexierung Drag 'n Drop File:</value>