AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS Merge

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-07-12 16:07:47 +02:00
commit f60a163a88
9 changed files with 438 additions and 292 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
Global_Indexer/ClassDatabase.vb
View File

@ -1,11 +1,17 @@
Imports Oracle.ManagedDataAccess.Client Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client
Public Class ClassDatabase Public Class ClassDatabase
Private Const NETWORK_TIMEOUT As Integer = -1
Private Shared SQLSERVERConnectionString As String Private Shared SQLSERVERConnectionString As String
Private Shared OracleConnectionString As String Private Shared OracleConnectionString As String
Public Shared DatabaseConnectionTimeout As Boolean = False
Public Shared Function Init() Public Shared Function Init()
Try Try
SQLSERVERConnectionString = MyConnectionString SQLSERVERConnectionString = MyConnectionString
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open() SQLconnect.Open()
SQLconnect.Close() SQLconnect.Close()
@ -16,95 +22,158 @@ Public Class ClassDatabase
End Try End Try
End Function End Function
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung SQLcommand.CommandText = sql_command
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable() Dim dt As DataTable = New DataTable()
adapter1.Fill(dt) adapter1.Fill(dt)
SQLconnect.Close() SQLconnect.Close()
Return dt
Catch ex As Exception ' Reset timeout counter when query was sucessful
DatabaseConnectionTimeout = False
Return dt
Catch ex As SqlException
Dim handled = CatchDatabaseTimeout(ex, sql_command)
If Not handled Then
If userInput = True Then If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True) ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
ClassLogger.Add("#SQL: " & Select_anweisung, False) ClassLogger.Add("#SQL: " & sql_command, False)
End If
Return False
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Unexpected error in Return_Datatable: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Return_Datatable_CS(Select_anweisung As String, ConString As String, Optional userInput As Boolean = False) Public Shared Function Return_Datatable_CS(sql_command As String, ConString As String, Optional userInput As Boolean = False)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlCommand
SQLconnect.ConnectionString = ConString SQLconnect.ConnectionString = ConString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung SQLcommand.CommandText = sql_command
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand) Dim adapter1 As SqlDataAdapter = New SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable() Dim dt As DataTable = New DataTable()
adapter1.Fill(dt) adapter1.Fill(dt)
SQLconnect.Close() SQLconnect.Close()
' Reset timeout counter when query was sucessful
DatabaseConnectionTimeout = False
Return dt Return dt
Catch ex As Exception Catch ex As SqlException
Dim handled = CatchDatabaseTimeout(ex, sql_command)
If Not handled Then
If userInput = True Then If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True) ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
ClassLogger.Add("#SQL: " & Select_anweisung, False) ClassLogger.Add("#SQL: " & sql_command, False)
End If
Return False
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Unexpected error in Return_Datatable_CS: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False) Public Shared Function Execute_non_Query(sql_command As String, Optional userInput As Boolean = False)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD SQLcommand.CommandText = sql_command
SQLcommand.ExecuteNonQuery() SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
' Reset timeout counter when query was sucessful
DatabaseConnectionTimeout = False
Return True Return True
Catch ex As Exception Catch ex As SqlException
Dim handled = CatchDatabaseTimeout(ex, sql_command)
If Not handled Then
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True) ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("#SQL: " & ExecuteCMD, False) ClassLogger.Add("#SQL: " & sql_command, False)
End If
Return False
Catch ex As Exception
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False)
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False) Public Shared Function Execute_Scalar(sql_command As String, ConString As String, Optional userInput As Boolean = False)
Dim result Dim result
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlCommand
SQLconnect.ConnectionString = ConString SQLconnect.ConnectionString = ConString
SQLconnect.Open() SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo 'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar SQLcommand.CommandText = sql_command
result = SQLcommand.ExecuteScalar() result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose() SQLcommand.Dispose()
SQLconnect.Close() SQLconnect.Close()
' Reset timeout counter when query was sucessful
DatabaseConnectionTimeout = False
Return result Return result
Catch ex As SqlException
Dim handled = CatchDatabaseTimeout(ex, sql_command)
If Not handled Then
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If
ClassLogger.Add("Unexpected error in Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False)
End If
Return False
Catch ex As Exception Catch ex As Exception
If userInput = True Then If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & sql_command, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True) ClassLogger.Add("Unexpected error in Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("#SQL: " & cmdscalar, False) ClassLogger.Add("#SQL: " & sql_command, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -175,4 +244,19 @@ Public Class ClassDatabase
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function CatchDatabaseTimeout(ex As SqlException, sql_command As String)
Dim FatalErrors As New List(Of Integer) From {-1, -2, 121}
If FatalErrors.Contains(ex.Number) Then
DatabaseConnectionTimeout = True
ClassLogger.Add("Network timeout error in Return_Datatable: " & ex.Message, True)
ClassLogger.Add("#SQL: " & sql_command, False)
Return True
Else
Return False
End If
End Function
End Class End Class

13
Global_Indexer/ClassFolderWatcher.vb
View File

@ -6,6 +6,7 @@ Public Class ClassFolderWatcher
Public Shared FolderWatcher As FileSystemWatcher Public Shared FolderWatcher As FileSystemWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared Function Restart_FolderWatch() Public Shared Function Restart_FolderWatch()
Try
If FolderWatcher.EnableRaisingEvents = True Then If FolderWatcher.EnableRaisingEvents = True Then
'Gestartet also Stoppen 'Gestartet also Stoppen
FolderWatcher.EnableRaisingEvents = False FolderWatcher.EnableRaisingEvents = False
@ -19,8 +20,12 @@ Public Class ClassFolderWatcher
FW_started = True FW_started = True
SaveConfigValue("FW_started", "True") SaveConfigValue("FW_started", "True")
End If End If
Catch ex As Exception
ClassLogger.Add($"Error in Restart_FolderWatch: {ex.Message}", False)
End Try
End Function End Function
Public Shared Function Restart_FolderWatchSCAN() Public Shared Function Restart_FolderWatchSCAN()
Try
If FolderWatcher_SCAN.EnableRaisingEvents = True Then If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen 'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False FolderWatcher_SCAN.EnableRaisingEvents = False
@ -34,6 +39,9 @@ Public Class ClassFolderWatcher
FWSCAN_started = True FWSCAN_started = True
SaveConfigValue("FWSCAN_started", "True") SaveConfigValue("FWSCAN_started", "True")
End If End If
Catch ex As Exception
ClassLogger.Add($"Error in Restart_FolderWatchSCAN: {ex.Message}", False)
End Try
End Function End Function
Public Shared Function StartStop_FolderWatch() Public Shared Function StartStop_FolderWatch()
Try Try
@ -151,6 +159,11 @@ Public Class ClassFolderWatcher
End If End If
End Function End Function
Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs) Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
If ClassDatabase.DatabaseConnectionTimeout = True Then
ClassLogger.Add(">> File handling aborted because of database timeout error!", False)
Exit Sub
End If
Try Try
For Each row As DataRow In DTEXCLUDE_FILES.Rows For Each row As DataRow In DTEXCLUDE_FILES.Rows
Dim content As String = row.Item(0).ToString.ToLower Dim content As String = row.Item(0).ToString.ToLower

15
Global_Indexer/ClassWindream.vb
View File

@ -851,19 +851,32 @@ Public Class ClassWindream
' ein windream-Objekt der Datei anlegen ' ein windream-Objekt der Datei anlegen
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
Try Try
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wird gesperrt", False)
' die Datei sperren ' die Datei sperren
WMObject.lock() WMObject.lock()
Catch ex As Exception Catch ex As Exception
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist bereits gesperrt", False)
' nichts tun (Datei ist bereits gesperrt) ' nichts tun (Datei ist bereits gesperrt)
End Try End Try
If IsNothing(WMObject) Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Windream Object ist nothing, Indexierung wird abgebrochen", False)
Return False
End If
If IsNothing(WMObject.aObjectType) Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen", False)
Return False
End If
If LogErrorsOnly = False Then ClassLogger.Add($" ...Objekttyp wird gesetzt: " & _WDObjekttyp, False)
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If WMObject.aObjectType.aName = "Standard" Then If WMObject.aObjectType.aName = "Standard" Then
' ihr den entsprechenden Dokumenttyp zuweisen ' ihr den entsprechenden Dokumenttyp zuweisen
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wird gesetzt", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wurde gesetzt", False)
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False)
End If End If

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.9.9.7")> <Assembly: AssemblyVersion("1.9.9.8")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")> <Assembly: NeutralResourcesLanguageAttribute("")>

43
Global_Indexer/frmIndex.vb
View File

@ -520,26 +520,31 @@ Public Class frmIndex
If NewDataset.Tables(0).Rows.Count > 0 Then If NewDataset.Tables(0).Rows.Count > 0 Then
'Die Standardcombobox anlegen 'Die Standardcombobox anlegen
newCMB = addCombobox(indexname, y) newCMB = addCombobox(indexname, y)
'Die Standargrösse definieren
Dim newWidth As Integer = 300
For i = 0 To NewDataset.Tables(0).Rows.Count - 1
'MsgBox(NewDataset.Tables(0).Rows(i).Item(0))
AddComboBoxValue(newCMB, NewDataset.Tables(0).Rows(i).Item(0))
Try
Dim text As String = NewDataset.Tables(0).Rows(i).Item(0)
If text.Length > 15 Then
Dim g As Graphics = newCMB.CreateGraphics
If g.MeasureString(text, newCMB.Font).Width + 30 > newWidth Then
newWidth = g.MeasureString(text, newCMB.Font).Width + 30
End If
g.Dispose()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:")
End Try
Next
newCMB.Size = New Size(newWidth, 27) newCMB.DataSource = NewDataset.Tables(0)
newCMB.DisplayMember = NewDataset.Tables(0).Columns(0).ColumnName
'Die Standargrösse definieren
'Dim newWidth As Integer = 300
'For i = 0 To NewDataset.Tables(0).Rows.Count - 1
' 'MsgBox(NewDataset.Tables(0).Rows(i).Item(0))
' AddComboBoxValue(newCMB, NewDataset.Tables(0).Rows(i).Item(0))
' Try
' Dim text As String = NewDataset.Tables(0).Rows(i).Item(0)
' If text.Length > 15 Then
' Dim g As Graphics = newCMB.CreateGraphics
' If g.MeasureString(text, newCMB.Font).Width + 30 > newWidth Then
' newWidth = g.MeasureString(text, newCMB.Font).Width + 30
' End If
' g.Dispose()
' End If
' Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Anpassung Breite ComboBox:")
' End Try
'Next
'newCMB.Size = New Size(newWidth, 27)
newCMB.AutoCompleteSource = AutoCompleteSource.ListItems newCMB.AutoCompleteSource = AutoCompleteSource.ListItems
newCMB.AutoCompleteMode = AutoCompleteMode.Suggest newCMB.AutoCompleteMode = AutoCompleteMode.Suggest
newCMB.DropDownHeight = (newCMB.ItemHeight + 0.2) * 25 newCMB.DropDownHeight = (newCMB.ItemHeight + 0.2) * 25

1
Global_Indexer/frmSQLSuggestion.Designer.vb generated
View File

@ -181,7 +181,6 @@ Partial Class frmSQLSuggestion
Me.MaximizeBox = False Me.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmSQLSuggestion" Me.Name = "frmSQLSuggestion"
Me.TopMost = True
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()

222
Global_Indexer/frmSQLSuggestion.resx
View File

@ -122,6 +122,12 @@
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="txtTest_idxMan.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1172, 489</value>
</data>
<data name="SQL_ERGEBNISTextBox.Multiline" type="System.Boolean, mscorlib"> <data name="SQL_ERGEBNISTextBox.Multiline" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
@ -129,9 +135,6 @@
<data name="SQL_UEBERPRUEFUNGLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="SQL_UEBERPRUEFUNGLabel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value> <value>Top, Right</value>
</data> </data>
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="btnTestNachbearbeitung.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnTestNachbearbeitung.Location" type="System.Drawing.Point, System.Drawing">
<value>227, 59</value> <value>227, 59</value>
</data> </data>
@ -144,11 +147,11 @@
<data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Name" xml:space="preserve"> <data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Name" xml:space="preserve">
<value>SQL_UEBERPRUEFUNGLabel</value> <value>SQL_UEBERPRUEFUNGLabel</value>
</data> </data>
<data name="btnVorschlag.TabIndex" type="System.Int32, mscorlib"> <data name="SQL_ERGEBNISTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>48</value> <value>610, 279</value>
</data> </data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve"> <data name="SQL_UEBERPRUEFUNGLabel.TabIndex" type="System.Int32, mscorlib">
<value>Label2</value> <value>51</value>
</data> </data>
<data name="lblSave.Size" type="System.Drawing.Size, System.Drawing"> <data name="lblSave.Size" type="System.Drawing.Size, System.Drawing">
<value>195, 15</value> <value>195, 15</value>
@ -156,21 +159,27 @@
<data name="&gt;&gt;Button1.Name" xml:space="preserve"> <data name="&gt;&gt;Button1.Name" xml:space="preserve">
<value>Button1</value> <value>Button1</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISTextBox.Name" xml:space="preserve">
<value>SQL_ERGEBNISTextBox</value>
</data>
<data name="&gt;&gt;btnTestNachbearbeitung.Type" xml:space="preserve"> <data name="&gt;&gt;btnTestNachbearbeitung.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="btnVorschlag.Size" type="System.Drawing.Size, System.Drawing"> <data name="btnVorschlag.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 25</value> <value>89, 25</value>
</data> </data>
<data name="&gt;&gt;Label2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>2</value> <value>frmSQLSuggestion</value>
</data>
<data name="lblSave.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="&gt;&gt;btnTestNachbearbeitung.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data> </data>
<data name="lblSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="lblSave.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Right</value> <value>Bottom, Right</value>
</data> </data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="Button1.Location" type="System.Drawing.Point, System.Drawing"> <data name="Button1.Location" type="System.Drawing.Point, System.Drawing">
<value>289, 22</value> <value>289, 22</value>
</data> </data>
@ -180,9 +189,6 @@
<data name="txtTest_idxMan.Size" type="System.Drawing.Size, System.Drawing"> <data name="txtTest_idxMan.Size" type="System.Drawing.Size, System.Drawing">
<value>212, 22</value> <value>212, 22</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Right</value>
</data>
<data name="Button2.Text" xml:space="preserve"> <data name="Button2.Text" xml:space="preserve">
<value>Speichern</value> <value>Speichern</value>
</data> </data>
@ -192,18 +198,21 @@
<data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Name" xml:space="preserve"> <data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Name" xml:space="preserve">
<value>SQL_UEBERPRUEFUNGTextBox</value> <value>SQL_UEBERPRUEFUNGTextBox</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="btnTestNachbearbeitung.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnTestNachbearbeitung.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="lblSave.Location" type="System.Drawing.Point, System.Drawing">
<value>905, 441</value>
</data>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing"> <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value> <value>6, 13</value>
</data> </data>
<data name="Button2.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="Button2.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
</data> </data>
<data name="btnTestNachbearbeitung.Size" type="System.Drawing.Size, System.Drawing">
<value>103, 27</value>
</data>
<data name="Label2.TabIndex" type="System.Int32, mscorlib"> <data name="Label2.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>0</value>
</data> </data>
@ -213,11 +222,8 @@
<data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Name" xml:space="preserve"> <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Name" xml:space="preserve">
<value>TBDD_CONNECTIONTableAdapter</value> <value>TBDD_CONNECTIONTableAdapter</value>
</data> </data>
<data name="&gt;&gt;Button1.ZOrder" xml:space="preserve"> <data name="lblSave.Text" xml:space="preserve">
<value>2</value> <value>SQL-Daten erfolgreich gespeichert!</value>
</data>
<data name="lblSave.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data> </data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
@ -228,8 +234,8 @@
<data name="&gt;&gt;Button2.Type" xml:space="preserve"> <data name="&gt;&gt;Button2.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Label2.Type" xml:space="preserve"> <data name="SQL_ERGEBNISLabel.Text" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>SQL für Vorschlagsliste:</value>
</data> </data>
<data name="Label2.Text" xml:space="preserve"> <data name="Label2.Text" xml:space="preserve">
<value>Geben Sie hier den Ausgangswert des manuellen Indexes ein. <value>Geben Sie hier den Ausgangswert des manuellen Indexes ein.
@ -245,35 +251,23 @@ Ergebniswert angezeigt.</value>
<data name="&gt;&gt;TBDD_CONNECTIONBindingSource.Name" xml:space="preserve"> <data name="&gt;&gt;TBDD_CONNECTIONBindingSource.Name" xml:space="preserve">
<value>TBDD_CONNECTIONBindingSource</value> <value>TBDD_CONNECTIONBindingSource</value>
</data> </data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>52</value>
</data>
<data name="&gt;&gt;SQL_ERGEBNISTextBox.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SQL_ERGEBNISTextBox.ZOrder" xml:space="preserve">
<value>7</value> <value>7</value>
</data> </data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;TBDD_CONNECTIONBindingSource.Type" xml:space="preserve"> <data name="&gt;&gt;TBDD_CONNECTIONBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGLabel.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;btnTestNachbearbeitung.Name" xml:space="preserve">
<value>51</value> <value>btnTestNachbearbeitung</value>
</data>
<data name="&gt;&gt;txtTest_idxMan.ZOrder" xml:space="preserve">
<value>1</value>
</data> </data>
<data name="&gt;&gt;MyDataset.Name" xml:space="preserve"> <data name="&gt;&gt;MyDataset.Name" xml:space="preserve">
<value>MyDataset</value> <value>MyDataset</value>
</data> </data>
<data name="btnVorschlag.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="&gt;&gt;Button2.ZOrder" xml:space="preserve">
<value>Top, Right</value> <value>1</value>
</data>
<data name="SQL_ERGEBNISLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 66</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmSQLSuggestion</value>
</data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.ZOrder" xml:space="preserve">
<value>8</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGLabel.Size" type="System.Drawing.Size, System.Drawing"> <data name="SQL_UEBERPRUEFUNGLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>433, 39</value> <value>433, 39</value>
@ -287,14 +281,14 @@ Ergebniswert angezeigt.</value>
<data name="SQL_UEBERPRUEFUNGLabel.AutoSize" type="System.Boolean, mscorlib"> <data name="SQL_UEBERPRUEFUNGLabel.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="&gt;&gt;btnVorschlag.Name" xml:space="preserve">
<value>btnVorschlag</value>
</data>
<data name="SQL_ERGEBNISTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="SQL_ERGEBNISTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value> <value>Top, Bottom, Left, Right</value>
</data> </data>
<data name="&gt;&gt;btnVorschlag.Parent" xml:space="preserve"> <data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Type" xml:space="preserve">
<value>$this</value> <value>Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;Label2.Name" xml:space="preserve">
<value>Label2</value>
</data> </data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>4</value> <value>4</value>
@ -302,6 +296,9 @@ Ergebniswert angezeigt.</value>
<data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Name" xml:space="preserve">
<value>TableAdapterManager</value> <value>TableAdapterManager</value>
</data> </data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnVorschlag.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btnVorschlag.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
</data> </data>
@ -317,15 +314,12 @@ Ergebniswert angezeigt.</value>
<data name="Button1.Size" type="System.Drawing.Size, System.Drawing"> <data name="Button1.Size" type="System.Drawing.Size, System.Drawing">
<value>112, 23</value> <value>112, 23</value>
</data> </data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing"> <data name="&gt;&gt;Button1.ZOrder" xml:space="preserve">
<value>Segoe UI, 8.25pt</value> <value>2</value>
</data> </data>
<data name="&gt;&gt;lblSave.Name" xml:space="preserve"> <data name="&gt;&gt;lblSave.Name" xml:space="preserve">
<value>lblSave</value> <value>lblSave</value>
</data> </data>
<data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>324, 39</value>
</data>
<data name="btnTestNachbearbeitung.Text" xml:space="preserve"> <data name="btnTestNachbearbeitung.Text" xml:space="preserve">
<value>Test</value> <value>Test</value>
</data> </data>
@ -347,8 +341,8 @@ Ergebniswert angezeigt.</value>
<data name="btnVorschlag.Location" type="System.Drawing.Point, System.Drawing"> <data name="btnVorschlag.Location" type="System.Drawing.Point, System.Drawing">
<value>536, 54</value> <value>536, 54</value>
</data> </data>
<data name="txtTest_idxMan.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;SQL_ERGEBNISTextBox.Name" xml:space="preserve">
<value>0</value> <value>SQL_ERGEBNISTextBox</value>
</data> </data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing"> <data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>351, 93</value> <value>351, 93</value>
@ -362,8 +356,8 @@ Ergebniswert angezeigt.</value>
<data name="SQL_ERGEBNISTextBox.Location" type="System.Drawing.Point, System.Drawing"> <data name="SQL_ERGEBNISTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 82</value> <value>15, 82</value>
</data> </data>
<data name="Button2.Size" type="System.Drawing.Size, System.Drawing"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>90, 31</value> <value>Global_Indexer.MyDatasetTableAdapters.TableAdapterManager, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="txtTest_idxMan.Location" type="System.Drawing.Point, System.Drawing"> <data name="txtTest_idxMan.Location" type="System.Drawing.Point, System.Drawing">
<value>9, 63</value> <value>9, 63</value>
@ -371,20 +365,28 @@ Ergebniswert angezeigt.</value>
<data name="&gt;&gt;cmbConnection.Name" xml:space="preserve"> <data name="&gt;&gt;cmbConnection.Name" xml:space="preserve">
<value>cmbConnection</value> <value>cmbConnection</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISTextBox.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;lblSave.Type" xml:space="preserve"> <data name="&gt;&gt;lblSave.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Button2.Parent" xml:space="preserve"> <data name="SQL_ERGEBNISLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>$this</value> <value>12, 66</value>
</data>
<data name="SQL_UEBERPRUEFUNGLabel.Text" xml:space="preserve">
<value>SQL-Überprüfung für manuellen Index:
Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE IHRE_WERT_SPALTE = INPUTVALUE)</value>
</data> </data>
<data name="&gt;&gt;txtTest_idxMan.Parent" xml:space="preserve"> <data name="&gt;&gt;txtTest_idxMan.Parent" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="&gt;&gt;Button2.ZOrder" xml:space="preserve"> <data name="&gt;&gt;btnVorschlag.Name" xml:space="preserve">
<value>1</value> <value>btnVorschlag</value>
</data> </data>
<data name="&gt;&gt;TBDD_CONNECTIONTableAdapter.Type" xml:space="preserve"> <data name="SQL_UEBERPRUEFUNGTextBox.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Global_Indexer.MyDatasetTableAdapters.TBDD_CONNECTIONTableAdapter, MyDataset.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>Top, Right</value>
</data> </data>
<data name="GroupBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms"> <data name="GroupBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value> <value>Bottom, Left</value>
@ -392,9 +394,6 @@ Ergebniswert angezeigt.</value>
<data name="&gt;&gt;cmbConnection.ZOrder" xml:space="preserve"> <data name="&gt;&gt;cmbConnection.ZOrder" xml:space="preserve">
<value>3</value> <value>3</value>
</data> </data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 367</value>
</data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Parent" xml:space="preserve"> <data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
@ -410,34 +409,38 @@ Ergebniswert angezeigt.</value>
<data name="cmbConnection.Location" type="System.Drawing.Point, System.Drawing"> <data name="cmbConnection.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 24</value> <value>15, 24</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGLabel.Text" xml:space="preserve"> <data name="&gt;&gt;btnVorschlag.Parent" xml:space="preserve">
<value>SQL-Überprüfung für manuellen Index: <value>$this</value>
Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft. </data>
(SELECT COUNT(*) FROM IHRE_KEY_TABLE WHERE IHRE_WERT_SPALTE = INPUTVALUE)</value> <data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISLabel.ZOrder" xml:space="preserve"> <data name="&gt;&gt;SQL_ERGEBNISLabel.ZOrder" xml:space="preserve">
<value>6</value> <value>6</value>
</data> </data>
<data name="lblSave.Location" type="System.Drawing.Point, System.Drawing"> <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
<value>905, 441</value> <value>2</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGTextBox.Location" type="System.Drawing.Point, System.Drawing"> <data name="SQL_UEBERPRUEFUNGTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>686, 108</value> <value>686, 108</value>
</data> </data>
<data name="btnVorschlag.Text" xml:space="preserve"> <data name="&gt;&gt;txtTest_idxMan.ZOrder" xml:space="preserve">
<value>Teste SQL</value> <value>1</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGLabel.Location" type="System.Drawing.Point, System.Drawing"> <data name="SQL_UEBERPRUEFUNGLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>683, 66</value> <value>683, 66</value>
</data> </data>
<data name="SQL_ERGEBNISTextBox.Size" type="System.Drawing.Size, System.Drawing"> <data name="Button2.Size" type="System.Drawing.Size, System.Drawing">
<value>610, 279</value> <value>90, 31</value>
</data> </data>
<data name="$this.Text" xml:space="preserve"> <data name="&gt;&gt;Label2.Type" xml:space="preserve">
<value>Konfiguration SQL</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="lblSave.AutoSize" type="System.Boolean, mscorlib"> <data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.ZOrder" xml:space="preserve">
<value>True</value> <value>8</value>
</data>
<data name="btnTestNachbearbeitung.Size" type="System.Drawing.Size, System.Drawing">
<value>103, 27</value>
</data> </data>
<data name="SQL_ERGEBNISLabel.AutoSize" type="System.Boolean, mscorlib"> <data name="SQL_ERGEBNISLabel.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -448,8 +451,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="SQL_UEBERPRUEFUNGTextBox.Size" type="System.Drawing.Size, System.Drawing"> <data name="SQL_UEBERPRUEFUNGTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>483, 106</value> <value>483, 106</value>
</data> </data>
<data name="btnTestNachbearbeitung.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>MiddleRight</value> <value>15, 367</value>
</data> </data>
<data name="SQL_ERGEBNISTextBox.ScrollBars" type="System.Windows.Forms.ScrollBars, System.Windows.Forms"> <data name="SQL_ERGEBNISTextBox.ScrollBars" type="System.Windows.Forms.ScrollBars, System.Windows.Forms">
<value>Both</value> <value>Both</value>
@ -460,8 +463,11 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="btnTestNachbearbeitung.TabIndex" type="System.Int32, mscorlib"> <data name="btnTestNachbearbeitung.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGLabel.Type" xml:space="preserve"> <data name="btnTestNachbearbeitung.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>MiddleRight</value>
</data>
<data name="SQL_ERGEBNISTextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Consolas, 8.25pt</value>
</data> </data>
<data name="&gt;&gt;Label2.Parent" xml:space="preserve"> <data name="&gt;&gt;Label2.Parent" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
@ -472,14 +478,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="GroupBox1.Text" xml:space="preserve"> <data name="GroupBox1.Text" xml:space="preserve">
<value>Nachbearbeitung testen:</value> <value>Nachbearbeitung testen:</value>
</data> </data>
<data name="&gt;&gt;btnVorschlag.Type" xml:space="preserve"> <data name="lblSave.Font" type="System.Drawing.Font, System.Drawing">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>Segoe UI Semibold, 9pt, style=Bold, Italic</value>
</data>
<data name="lblSave.Text" xml:space="preserve">
<value>SQL-Daten erfolgreich gespeichert!</value>
</data>
<data name="lblSave.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGTextBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="SQL_UEBERPRUEFUNGTextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Consolas, 8.25pt</value> <value>Consolas, 8.25pt</value>
@ -487,8 +487,8 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="&gt;&gt;SQL_ERGEBNISTextBox.Type" xml:space="preserve"> <data name="&gt;&gt;SQL_ERGEBNISTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="SQL_ERGEBNISTextBox.Font" type="System.Drawing.Font, System.Drawing"> <data name="$this.Text" xml:space="preserve">
<value>Consolas, 8.25pt</value> <value>Konfiguration SQL</value>
</data> </data>
<data name="Button1.TabIndex" type="System.Int32, mscorlib"> <data name="Button1.TabIndex" type="System.Int32, mscorlib">
<value>54</value> <value>54</value>
@ -496,23 +496,23 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="Button2.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="Button2.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value> <value>MiddleLeft</value>
</data> </data>
<data name="&gt;&gt;btnTestNachbearbeitung.Parent" xml:space="preserve"> <data name="btnVorschlag.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>GroupBox1</value> <value>Top, Right</value>
</data> </data>
<data name="&gt;&gt;cmbConnection.Type" xml:space="preserve"> <data name="&gt;&gt;cmbConnection.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;lblSave.ZOrder" xml:space="preserve"> <data name="btnVorschlag.TabIndex" type="System.Int32, mscorlib">
<value>0</value> <value>48</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>1172, 489</value> <value>52</value>
</data> </data>
<data name="&gt;&gt;SQL_ERGEBNISTextBox.Parent" xml:space="preserve"> <data name="&gt;&gt;btnVorschlag.Type" xml:space="preserve">
<value>$this</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;$this.Type" xml:space="preserve"> <data name="Label2.Size" type="System.Drawing.Size, System.Drawing">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>324, 39</value>
</data> </data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Type" xml:space="preserve"> <data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@ -523,17 +523,17 @@ Definieren Sie hier einen SQL-Befehl der die Auswahl auf VORHANDEN überprüft.
<data name="&gt;&gt;cmbConnection.Parent" xml:space="preserve"> <data name="&gt;&gt;cmbConnection.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="SQL_ERGEBNISLabel.Text" xml:space="preserve"> <data name="lblSave.Visible" type="System.Boolean, mscorlib">
<value>SQL für Vorschlagsliste:</value> <value>False</value>
</data> </data>
<data name="&gt;&gt;btnTestNachbearbeitung.Name" xml:space="preserve"> <data name="&gt;&gt;lblSave.ZOrder" xml:space="preserve">
<value>btnTestNachbearbeitung</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;Button2.Name" xml:space="preserve"> <data name="&gt;&gt;Button2.Name" xml:space="preserve">
<value>Button2</value> <value>Button2</value>
</data> </data>
<data name="&gt;&gt;SQL_UEBERPRUEFUNGTextBox.Parent" xml:space="preserve"> <data name="btnVorschlag.Text" xml:space="preserve">
<value>$this</value> <value>Teste SQL</value>
</data> </data>
<data name="SQL_UEBERPRUEFUNGTextBox.TabIndex" type="System.Int32, mscorlib"> <data name="SQL_UEBERPRUEFUNGTextBox.TabIndex" type="System.Int32, mscorlib">
<value>49</value> <value>49</value>

2
Global_Indexer/frmSplash.vb
View File

@ -83,7 +83,7 @@ Public NotInheritable Class frmSplash
' Bei Fehler MsgBox anzeigen und Programm beenden ' Bei Fehler MsgBox anzeigen und Programm beenden
If e.Error IsNot Nothing Then If e.Error IsNot Nothing Then
MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Error while Initializing application") MsgBox(e.Error.Message, MsgBoxStyle.Critical, "Error while Initializing application")
Application.Exit() Application.ExitThread()
End If End If
' Wenn kein Fehler, Splashscreen schließen ' Wenn kein Fehler, Splashscreen schließen

32
Global_Indexer/frmStart.vb
View File

@ -486,6 +486,8 @@ Public Class frmStart
Else Else
tslblFW.Visible = False tslblFW.Visible = False
End If End If
Try
If FWSCAN_started = True Then If FWSCAN_started = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH, False) If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN started - Checking file:" & CURRENT_SCAN_FOLDERWATCH, False)
Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH) Dim fileEntries As String() = Directory.GetFiles(CURRENT_SCAN_FOLDERWATCH)
@ -517,6 +519,11 @@ Public Class frmStart
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN not started", False) If LogErrorsOnly = False Then ClassLogger.Add(">> FWSCAN not started", False)
End If End If
Catch ex As Exception
ClassLogger.Add(">> Error while starting folderwatch scan: " & ex.Message, False)
End Try
Try
If FW_started = True Then If FW_started = True Then
If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH, False) If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started started - Checking file:" & CURRENT_FOLDERWATCH, False)
Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH) Dim fileEntries As String() = Directory.GetFiles(CURRENT_FOLDERWATCH)
@ -548,6 +555,10 @@ Public Class frmStart
Else Else
If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started not started", False) If LogErrorsOnly = False Then ClassLogger.Add(">> FW_started not started", False)
End If End If
Catch ex As Exception
ClassLogger.Add(">> Error while starting folderwatch: " & ex.Message, False)
End Try
If TimerFolderWatch.Enabled = False Then If TimerFolderWatch.Enabled = False Then
TimerFolderWatch.Start() TimerFolderWatch.Start()
End If End If
@ -669,11 +680,29 @@ Public Class frmStart
End Sub End Sub
Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
If ClassDatabase.DatabaseConnectionTimeout = True Then
TimerFolderWatch.Enabled = False
Dim title = "Critical Error"
Dim message = $"Database could not be reached. Global Indexer will NOT work without a database!{vbCrLf}{vbCrLf}Please check your connection.{vbCrLf}The Application will exit now."
If USER_LANGUAGE = "de-DE" Then
title = "Kritischer Fehler"
message = $"Die Datenbank konnte nicht erreicht werden. Global Indexer funktioniert NICHT ohne Datenbankverbindung{vbCrLf}{vbCrLf}Bitte überprüfen Sie Ihre Netzwerkverbindung oder benachrichtigen Sie Ihren Administrator.{vbCrLf}Die Anwendung wird nun geschlossen."
End If
Dim result = MsgBox(message, MsgBoxStyle.Critical, title)
If result = MsgBoxResult.Ok Then
Application.ExitThread()
End If
Else
Try Try
If FW_started = True Or FWSCAN_started = True Then If FW_started = True Or FWSCAN_started = True Then
'Prüfen ob alle Files abgearbeitet wurden 'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True) DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
If DTACTUAL_FILES.Rows.Count > 0 Then If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False ABORT_INDEXING = False
' Dim fil As String ' Dim fil As String
@ -712,6 +741,9 @@ Public Class frmStart
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End If
End Sub End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then