ms 13_01_16

Global_Indexer/frmAdministration.vb

@@ -9,9 +9,28 @@
 
     Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBDD_USER_GROUPS". Sie können sie bei Bedarf verschieben oder entfernen.
-        If ClassWindream.Init() = True Then
+        Try
+            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+            Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString
+            TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
+            TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
+            Me.VWGI_DOCTYPE_GROUPTableAdapter.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()
+        End Try
 
-        End If
         XtraTabControl1.SelectedTabPageIndex = 0
         ToolStripComboBox1.SelectedIndex = 0
         Try
@@ -524,6 +543,7 @@
 
     Private Sub ListBoxObjekttypen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBoxObjekttypen.SelectedIndexChanged
         If ListBoxObjekttypen.SelectedIndex <> -1 Then
+            pnlObjekttype_Config.Enabled = True
             LoadIDXEmail(ListBoxObjekttypen.SelectedItem)
             load_WDIndicesemail(ListBoxObjekttypen.SelectedItem)
             lblsavezuordnungIndex.Visible = False
@@ -531,6 +551,7 @@
     End Sub
 
     Private Sub btnidxemail_add_Click(sender As Object, e As EventArgs) Handles btnidxemail_add.Click
+        pnlObjekttype_Config.Enabled = True
         Me.TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.AddNew()
     End Sub
 
@@ -629,28 +650,8 @@
     Public Sub New()
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
-        Try
-            ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-            Me.TBDD_DOKUMENTARTTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_EINGANGSARTENTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_MODULESTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_DOKART_MODULETableAdapter.Connection.ConnectionString = MyConnectionString
-            TBDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
-            TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBGI_CONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBWHDD_INDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_USER_GROUPSTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWGI_USER_GROUPS_RELATIONTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.TBDD_GROUPS_USERTableAdapter.Connection.ConnectionString = MyConnectionString
-            Me.VWGI_DOCTYPE_GROUPTableAdapter.Connection.ConnectionString = MyConnectionString
-        Catch ex As Exception
-            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in load Connection-Strings: ")
-        End Try
-
 
+       
     End Sub
 
     Private Sub TYPEComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TYPEComboBox.SelectedIndexChanged