SQL Test in der Nachindexierung - frmNI_SQLTest;

Lizenzprüfung entfernt - frmNIProfileigenschaften, frmDIProfileigenschaften

ToolCollection/frmDIProfilEigenschaften.vb

@@ -256,23 +256,6 @@ Public Class frmDIProfilEigenschaften
     End Sub
 
     Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
-        Try
-            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                Select Case license.Modulename.ToUpper
-                    Case "DATEIIMPORT"
-                        If Prof_Anzahl + 1 > license.Anz_Profile Then
-                            MsgBox("Die Maximalanzahl der lizensierten Dateiimport-Profile (" & license.Anz_Profile.ToString & ") ist erreicht!", MsgBoxStyle.Exclamation, "Achtung - Lizenzfehler:")
-                            Exit Sub
-                        End If
-                End Select
-
-            Next
-        Catch ex As Exception
-            If My.Settings.licensekey <> "DD MaxLicense" Or My.Settings.licensekey.ToUpper <> "DDALLIN" Or My.Settings.licensekey.ToUpper <> "DD_ALL_IN" Then
-                MsgBox("Error Adding Profile due to license issue!", MsgBoxStyle.Critical)
-            End If
-        End Try
-
         ' das Formular zum Erstellen eines neuen Profil öffnen
         frmLogin_DI.ShowDialog()
         'frmDIProfilHinzufuegen.ShowDialog()

ToolCollection/frmNIProfileigenschaften.vb

@@ -17,6 +17,7 @@ Public Class frmNIProfileigenschaften
     Private Shared _Instance As frmNIProfileigenschaften = Nothing
     Private licenseManager As ClassLicenseManager = Nothing
     Private INDEX_LIST As New List(Of String)
+    Private selectedProfile As ClassNIProfil
     Public Shared Function Instance() As frmNIProfileigenschaften
         If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
             _Instance = New frmNIProfileigenschaften
@@ -540,23 +541,6 @@ Public Class frmNIProfileigenschaften
     End Sub
 
     Private Sub btnHinzufügen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHinzufügen.Click
-        Try
-            For Each license As ClassLicense In Me.licenseManager.Licenses.Licenses()
-                Select Case license.Modulename.ToUpper
-                    Case "NACHINDEXIERUNG"
-                        If Prof_Anzahl + 1 > license.Anz_Profile Then
-                            MsgBox("Die Maximalanzahl der lizensierten Nachindexierungs-Profile (" & license.Anz_Profile.ToString & ") ist erreicht!", MsgBoxStyle.Exclamation, "Achtung - Lizenzfehler:")
-                            Exit Sub
-                        End If
-                End Select
-
-            Next
-        Catch ex As Exception
-            If My.Settings.licensekey <> "DD MaxLicense" Then
-                MsgBox("Error Adding Profile due to license issue!", MsgBoxStyle.Critical)
-            End If
-        End Try
-
         frmLogin_NI.ShowDialog()
         ' wenn das Formular geschlossen wurde, werden die Profile neu in die Combobox geladen
         Me.LoadProfilesInCombobox()

ToolCollection/frmNIVerknuepfungen.vb

@@ -2217,6 +2217,12 @@ Public Class frmNIVerknuepfungen
 
     Private Sub btnTestSQL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTestSQL.Click
         Try
+            If Me.txtSelectAnweisung.Text = "" Then
+                MsgBox("Bitte geben Sie eine Select-Anweisung ein!", MsgBoxStyle.Exclamation, "Select-Anweisung fehlt:")
+                Me.txtTestwert.BackColor = Drawing.Color.Lime
+                Me.txtTestwert.Focus()
+                Exit Sub
+            End If
             If Me.txtTestwert.Text = "" Then
                 MsgBox("Bitte geben Sie einen Testwert für den eindeutigen Startwert ein!", MsgBoxStyle.Exclamation, "Testparameter fehlt:")
                 Me.txtTestwert.BackColor = Drawing.Color.Lime
@@ -2628,6 +2634,12 @@ Public Class frmNIVerknuepfungen
 
     Private Sub btntest_checkIndexsql_Click(sender As System.Object, e As System.EventArgs) Handles btntest_checkIndexsql.Click
         Try
+            If Me.txtCheckIndexSQL.Text = "" Then
+                MsgBox("Bitte geben Sie eine Select-Anweisung ein!", MsgBoxStyle.Exclamation, "Select-Anweisung fehlt:")
+                Me.txtTestwert.BackColor = Drawing.Color.Lime
+                Me.txtTestwert.Focus()
+                Exit Sub
+            End If
             If Me.txtTestwert_checkindex.Text = "" Then
                 MsgBox("Bitte geben Sie einen Testwert für den eindeutigen Startwert ein!", MsgBoxStyle.Exclamation, "Testparameter fehlt:")
                 Me.txtTestwert_checkindex.BackColor = Drawing.Color.Lime

ToolCollection/frmNI_SQLTest.Designer.vb

@@ -183,7 +183,6 @@ Partial Class frmNI_SQLTest
         Me.Controls.Add(Me.ListBox1)
         Me.Controls.Add(Me.txtSQL_String)
         Me.Controls.Add(Me.BindingNavigator1)
-        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNI_SQL_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
         Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)