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

MS24112015

Browse Source
This commit is contained in:
SchreiberM 2015-11-24 11:13:04 +01:00
parent 80247e18dd
commit ad1308fe18
47 changed files with 5379 additions and 1570 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

120
Global_Indexer/AboutBox1.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

13
Global_Indexer/App.config
View File

@ -4,6 +4,9 @@
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Global_Indexer.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
</configSections>
<connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
@ -27,6 +30,16 @@
<setting name="DoNot_Show_Documents" serializeAs="String">
<value>False</value>
</setting>
<setting name="AppTerminate" serializeAs="String">
<value>False</value>
</setting>
</Global_Indexer.My.MySettings>
</userSettings>
<applicationSettings>
<Global_Indexer.My.MySettings>
<setting name="Test" serializeAs="String">
<value>DigitalData\windream_CLIENT_WMCC_Neustart</value>
</setting>
</Global_Indexer.My.MySettings>
</applicationSettings>
</configuration>

18
Global_Indexer/ClassDragDrop.vb
View File

@ -18,7 +18,7 @@ Public Class ClassDragDrop
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
Next
Return files_dropped
Return True
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim oApp
Try
@ -41,13 +41,22 @@ Public Class ClassDragDrop
End If
'hardcode a destination path for testing
Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (subj + ".msg").Replace(":", ""))
strFile = strFile.Replace("?", "")
strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "")
ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
Try
myobj.SaveAs(strFile)
Catch ex As Exception
MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile
Next
Return files_dropped
Return True
'Drop eines Outlook Attachments
ElseIf (e.Data.GetDataPresent("aryFileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
'// the first step here is to get the stbFileName
@ -99,7 +108,7 @@ Public Class ClassDragDrop
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
Return files_dropped
Return True
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
End If
@ -108,6 +117,7 @@ Public Class ClassDragDrop
End If
Catch ex As Exception
MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try

5
Global_Indexer/ClassFilehandle.vb
View File

@ -53,6 +53,9 @@ Public Class ClassFilehandle
Dim _msgEXAtt As New Msg.Message(msgname)
_msgEXAtt.Attachments.Clear()
_msgEXAtt.Save(tempfile)
'Datei in Array zum Templöschen speichern
TEMP_FILES.Add(tempfile)
If Insert_GI_File(tempfile, msgonly) = True Then
erfolgreich = True
'Hier nun die Anhänge herauslösen
@ -76,6 +79,8 @@ Public Class ClassFilehandle
File.Delete(tempfile)
End If
attachment.Save(tempfile)
'Datei in Array zum Templöschen speichern
TEMP_FILES.Add(tempfile)
If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
'nun der Insert des Anhanges
erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)

15
Global_Indexer/ClassHotkey_Windream.vb
View File

@ -2,6 +2,16 @@
Imports System.Text
Public Class ClassHotkey_Windream
Private Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As IntPtr
Private Declare Auto Function GetWindowText Lib "user32" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
Private makel As String
Public Shared Function GetCaption() As String
Dim Caption As New System.Text.StringBuilder(256)
Dim hWnd As IntPtr = GetForegroundWindow()
GetWindowText(hWnd, Caption, Caption.Capacity)
Return Caption.ToString()
End Function
Private Shared fileContents As String
Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String)
Try
@ -9,9 +19,11 @@ Public Class ClassHotkey_Windream
Dim enumerator1 As New ClassWindowAPI
'Jedes Formularwindow durchlaufen
For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows()
If LogErrorsOnly = False Then ClassLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
Control_Sequence = 0
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
If vControl.MainWindowTitle <> "" Then
If Control_Sequence = myControlNo Then
If Value.ToUpper = vControl.MainWindowTitle.ToUpper Then
@ -109,8 +121,6 @@ Public Class ClassHotkey_Windream
windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
fileContents = ""
'Eine tempfile generieren
Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
'Nur den Filenamen ohne Erweiterung
@ -205,6 +215,7 @@ Public Class ClassHotkey_Windream
End Try
CURRENT_WD_TEMPSEARCH = windream_temp_search
TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH)
Try
Dim myhWnd As IntPtr
Dim p As New Process()

14
Global_Indexer/ClassLayout.vb
View File

@ -2,7 +2,6 @@
Imports System.IO
Public Class ClassWindowLocation
Public Shared Sub LoadFormLocationSize(ByRef form As Form)
Try
Dim _path As String
@ -19,10 +18,9 @@ Public Class ClassWindowLocation
settings.Add(New ClassSetting("Height", form.Size.Height))
layout.Save(settings)
End If
For Each s As ClassSetting In settings
Dim x, y, w, h As Integer
For Each s As ClassSetting In settings
'MsgBox(s._name & vbNewLine & s._value)
Select Case s._name
Case "PositionX"
x = Integer.Parse(s._value)
@ -33,17 +31,18 @@ Public Class ClassWindowLocation
Case "Height"
h = Integer.Parse(s._value)
End Select
Next
If x = 5000 Then
form.WindowState = FormWindowState.Maximized
Else
If x > 0 Then
If x > 0 And y > 0 Then
form.Location = New Point(x, y)
End If
If w > 0 And h > 0 Then
form.Size = New Size(w, h)
End If
Next
End If
Catch notFoundEx As System.IO.FileNotFoundException
Catch ex As Exception
@ -51,6 +50,7 @@ Public Class ClassWindowLocation
End Try
End Sub
Public Shared Sub SaveFormLocationSize(ByRef form As Form)
Try
Dim _path As String

246
Global_Indexer/ClassWindream.vb
View File

@ -1021,32 +1021,39 @@ Public Class ClassWindream
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
convertValue = CStr(value)
Case 4097
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
'Vektor alphanumerisch
vektor = True
convertValue = CStr(value)
Case 4098
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False)
'Vektor Numerisch
vektor = True
convertValue = CStr(value)
Case 4099
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
'Vektor Kommazahl
vektor = True
convertValue = CStr(value)
Case 4101
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False)
'Vektor Kommazahl
vektor = True
convertValue = CStr(value)
Case 4103
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False)
'Vektor DateTime
vektor = True
convertValue = CStr(value)
Case 4107
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False)
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False)
convertValue = CStr(value)
Case 36865
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
'Vektor Kommazahl
vektor = True
convertValue = CStr(value)
Case Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType)
@ -1088,15 +1095,164 @@ Public Class ClassWindream
ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
End If
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
If LogErrorsOnly = False Then ClassLogger.Add(" >> VEKTORFELD: Vorbereiten des Arrays", False)
Dim myArray()
'For Each row As DataRow In DT.Rows
'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert")))
'Next
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 1 Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit EINEM Wert gefüllt ", False)
ReDim myArray(0)
Select Case vType
Case 36865
'Umwandeln in String
myArray(0) = CStr(value)
Case 4097
'Umwandeln in String
myArray(0) = CStr(value)
Case 4098
'Umwandeln in Integer
value = value.ToString.Replace(" ", "")
myArray(0) = CInt(value)
Case 4099
Dim Str As String = value
Str = Str.ToString.Replace(" ", "")
'Umwandeln in Double
myArray(0) = CDbl(Str.Replace(".", ","))
Case 4101
'Umwandeln in Date
myArray(0) = CDate(value)
Case 4107
myArray(0) = Convert.ToInt64(value)
Case 4103
'Umwandeln in Datum Uhrzeit
myArray(0) = value
Case Else
'Umwandeln in String
myArray(0) = CStr(value)
End Select
'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: " & myArray(0).ToString, False)
Dim VektorArray()
'Immer anfügen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Check Existing Vektorvalues", False)
VektorArray = Return_VektorArray(oDocument, aName, myArray)
If VektorArray Is Nothing = False Then
ReDim myArray(VektorArray.Length - 1)
Array.Copy(VektorArray, myArray, VektorArray.Length)
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray)
'myArray)
If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR mit einem Wert erfolgreich", False)
'Die Änderungen festsschreiben/speichern
oDocument.Save()
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld wird mit MEHREREN Werten gefüllt ", False)
' das ausgewählte Profil in _selectedProfile laden
'Die Größe des Arrays festlegen
ReDim myArray(Anzahl - 1)
Dim i1 As Integer = 0
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each obj In myArray
myArray(i1) = CStr(obj)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert (" & i1 & ") aus Datatable: '" & myArray(i1).ToString & "'", False)
i1 = i1 + 1
Next
If LogErrorsOnly = False Then ClassLogger.Add(" >> Array wurde erfolgreich erzeugt", False)
Dim VektorArray()
VektorArray = Return_VektorArray(oDocument, aName, myArray)
If VektorArray Is Nothing = False Then
'Das Array wieder anpassen
ReDim myArray(VektorArray.Length - 1)
'Array.Copy(VektorArray, myArray, VektorArray.Length)
i1 = 0
For Each _value As Object In VektorArray
Select Case vType
Case 36865
myArray(i1) = CStr(_value)
Case 4097
myArray(i1) = CStr(_value)
Case 4098
Dim v As String = _value.ToString.Replace(" ", "")
myArray(i1) = CInt(v)
Case 4099
'Vektroryp Double
Dim Str As String = _value
Str = Str.ToString.Replace(" ", "")
myArray(i1) = CDbl(Str.Replace(".", ","))
Case 4101
'Vektortyp DATE
Dim dat As String = _value
myArray(i1) = CDate(dat.Replace(".", ","))
Case 4107
myArray(i1) = Convert.ToInt64(_value)
Case Else
'Vektortyp ALPHANUMERISCH
'Die Größe des Arrays festlegen
myArray(i1) = CStr(myArray(0))
End Select
If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert (" & i1 & ") : '" & myArray(i1).ToString & "'", False)
i1 += 1
Next
'Jetzt die Nachindexierung für Vektor-Felder
Try
oDocument.SetVariableValue(aName, myArray)
Catch ex As Exception
ClassLogger.Add("RunIndexing -Unexpected error in indexing Vectorfield: " & ex.Message, True)
oDocument.Save()
oDocument.unlock()
Return False
End Try
If LogErrorsOnly = False Then ClassLogger.Add(" >> 'SetVariableValue' für VEKTOR erfolgreich", False)
' oDocument.LockRights()
'Die Änderungen festsschreiben/speichern
oDocument.Save()
If LogErrorsOnly = False Then ClassLogger.Add(">> Indexierung erfolgreich beendet (Save ...", False)
Else
ClassLogger.Add(" - Achtung: VektorArray Is NOTHING", False)
oDocument.Save()
Return True
End If
End If
End If
End If
i += 1
Next
@ -1118,6 +1274,80 @@ Public Class ClassWindream
oDocument.unlock()
Return False
End Try
End Function
Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object)
Try
Dim missing As Boolean = False
Dim Anzahl As Integer = 0
Dim ValueArray()
'Jeden Wert des Vektorfeldes durchlaufen
Dim wertWD = oDocument.GetVariableValue(vktIndexName)
If wertWD Is Nothing = False Then
'Nochmals prüfen ob wirklich Array
If wertWD.GetType.ToString.Contains("System.Object") Then
'Keine Duplikatprüfung also einfach neues Array füllen
If LogErrorsOnly = False Then ClassLogger.Add(" >> Duplikatprüfung soll durchgeführt werden.", False)
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
'Erst einmal die ALten Werte schreiben
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = WDValue.ToString
Anzahl += 1
End If
Next
'Jetzt die Neuen Werte auf Duplikate überprüfen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten", False)
End If
End If
Next
End If
Else
If LogErrorsOnly = False Then ClassLogger.Add(" >> Vektorfeld ist noch leer....", False)
'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
If ValueArray Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
ClassLogger.Add(" >> Value '" & NewValue.ToString & "' bereits in Array enthalten", False)
End If
Else 'Dererste Wert, also hinzufügen
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
End If
End If
Next
End If
Return ValueArray
Catch ex As Exception
ClassLogger.Add("Unexpected Error in ClassWindream.Return_VektorArray: " & ex.Message, True)
End Try
End Function
Private Shared Function IsNotEmpty(ByVal aValue As Object)

89
Global_Indexer/Global_Indexer.vbproj
View File

@ -47,38 +47,41 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>globe_handdrawn.ico</ApplicationIcon>
<ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
</PropertyGroup>
<PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v14.2.UI, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v14.2.Drawing, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.RichEdit.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Spreadsheet.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v14.2.UI, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraNavBar.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPdfViewer.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraRichEdit.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraSpreadsheet.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DLLLicenseManager">
<HintPath>..\..\..\Kunden - Produktiv\PROCESSMANAGER\DD-ProcessManagerWindream\DD_PM_WINDREAM\DD_PM_WINDREAM\bin\Debug\DLLLicenseManager.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
<Reference Include="DevExpress.Charts.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Office.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Pdf.v15.1.Drawing, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.RichEdit.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Spreadsheet.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v15.1.UI, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.1.Wizard, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
</Reference>
<Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraNavBar.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraRichEdit.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraSpreadsheet.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DLLLicenseManager, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\Bibliotheken\DLL\DLLLicenseManager.dll</HintPath>
</Reference>
<Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
@ -133,13 +136,16 @@
</Compile>
<Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEmail.vb" />
<Compile Include="ClassEncryption.vb" />
<Compile Include="ClassFilehandle.vb" />
<Compile Include="ClassFolderWatcher.vb" />
<Compile Include="ClassFormFunctions.vb" />
<Compile Include="ClassHotkey_Windream.vb" />
<Compile Include="ClassIndexFunctions.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLayout.vb" />
<Compile Include="ClassLicence.vb" />
<Compile Include="ClassLogger.vb" />
<Compile Include="ClassPostprocessing.vb" />
<Compile Include="ClassWindowAPI.vb" />
@ -206,6 +212,12 @@
<Compile Include="frmNamenkonvention.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.designer.vb">
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSQL-Result.Designer.vb">
<DependentUpon>frmSQL-Result.vb</DependentUpon>
</Compile>
@ -283,6 +295,9 @@
<EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.en.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
@ -311,6 +326,9 @@
<EmbeddedResource Include="frmNamenkonvention.resx">
<DependentUpon>frmNamenkonvention.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL-Result.resx">
<DependentUpon>frmSQL-Result.vb</DependentUpon>
</EmbeddedResource>
@ -323,6 +341,15 @@
<EmbeddedResource Include="frmSQL_Admin.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStart.de-DE.resx">
<DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStart.de.resx">
<DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStart.en.resx">
<DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmStart.resx">
<DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource>
@ -538,7 +565,15 @@
<None Include="Resources\arrow_Up_16xLG.png" />
</ItemGroup>
<ItemGroup>
<Content Include="DD_Icons_ICO_GLOBIX_1.ico" />
<Content Include="DD_Icons_ICO_GLOBIX_128.ico">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<Content Include="globe_handdrawn.ico" />
<None Include="Resources\DD_Icons_ICO_GLOBIX_128.ico" />
<None Include="Resources\Globix_ico.bmp" />
<None Include="Resources\email.png" />
<None Include="Resources\DD_Icons-GLOBIX.png" />
<None Include="Resources\action_add_16xMD.png" />
<None Include="Resources\action_add_16xLG1.png" />
<None Include="Resources\globe_handdrawn.png" />

25
Global_Indexer/ModuleCURRENT.vb
View File

@ -11,24 +11,36 @@
Public CURRENT_LASTDOKART As String = ""
Public CURRENT_INDEXMAN As Integer
Public CURRENT_INDEXAUTO As Integer
Public CURRENT_SQL_CONFIG As String
Public VERSION_DELIMITER As String
Public FILE_DELIMITER As String
Public CURRENT_MESSAGEID As String
Public CURRENT_MESSAGEDATE As String
Public CURRENT_MESSAGESUBJECT As String
Public CURRENT_ISATTACHMENT As Boolean = False
Public CURRENT_USERID As Integer
Public CURRENT_USER_IS_ADMIN As Boolean = False
Public UserLoggedin As Integer = 0
Public USER_LANGUAGE As String = "DE"
Public CURRENT_FOLDERWATCH As String = ""
Public CURRENT_SCAN_FOLDERWATCH As String = ""
Public FW_ISSTARTED As Boolean = False
Public CURR_DOKART_WD_DIRECT As Boolean = False
Public CURR_DOKART_OBJECTTYPE As String
Public CURRENT_WD_TEMPSEARCH As String = ""
Public License_Expired As Boolean = False
Public License_Anzahl As Integer = 0
Public LicenseProfiles As Integer = 0
Public LICENSE_EXPIRED As Boolean = False
Public LICENSE_COUNT As Integer = 0
Public LICENSE_DOCTYPE_COUNT As Integer = 0
Public DOCTYPE_COUNT_ACTUAL As Integer = 0
Public LicenseHotKey As Integer = 0
Public UserLoggedin As Integer = 0
Public CURRENT_HTML_DOC As String
Public CURRENT_ABBRUCH As Integer = 0
@ -41,5 +53,10 @@
Public CURRENT_SQLRESULT As String
Public DTSQL_RESULT As DataTable
Public TEMP_FILES As List(Of String) = New List(Of String)
Public CURRENT_FOCUSES_WINDOWNAME As String
Public LANGUAGE_CHANGED As Boolean = False
End Module

4
Global_Indexer/ModuleMySettings.vb
View File

@ -8,7 +8,7 @@ Module ModuleMySettings
Public GI_withWindream As Boolean = False
Public vWLaufwerk As String = "W"
Public Preview As Boolean = True
Public UniversalViewer As String
Public UniversalViewer_Path As String
Public FW_started As Boolean = False
Public FWSCAN_started As Boolean = False
Public Delete_OriginFile As Boolean = False
@ -55,7 +55,7 @@ Module ModuleMySettings
Case "Preview"
Preview = CBool(Row.Item("Value"))
Case "UniversalViewer"
UniversalViewer = Row.Item("Value")
UniversalViewer_Path = Row.Item("Value")
Case "FW_started"
FW_started = CBool(Row.Item("Value"))
Case "FWSCAN_started"

4
Global_Indexer/My Project/Application.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
' Laufzeitversion:4.0.30319.34209
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -24,7 +24,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses

2
Global_Indexer/My Project/Application.myapp
View File

@ -2,7 +2,7 @@
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmStart</MainForm>
<SingleInstance>false</SingleInstance>
<SingleInstance>true</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -8,7 +8,7 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Title Global Indexer")>
<Assembly: AssemblyTitle("Global Indexer")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.7.7.0")>
<Assembly: AssemblyVersion("1.9.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

32
Global_Indexer/My Project/Resources.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
' Laufzeitversion:4.0.30319.34209
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -300,6 +300,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DD_Icons_GLOBIX() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DD_Icons-GLOBIX", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property DD_Icons_ICO_GLOBIX_128() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("DD_Icons_ICO_GLOBIX_128", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@ -340,6 +360,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property email() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("email", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

49
Global_Indexer/My Project/Resources.resx
View File

@ -121,6 +121,9 @@
<data name="arrow_back_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_Up_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -133,15 +136,15 @@
<data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="DD_Icons-GLOBIX" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons-GLOBIX.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="gear_32xSM" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einstellungen6" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -178,6 +181,9 @@
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handdrawn_arrow_right_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -187,9 +193,15 @@
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -205,24 +217,18 @@
<data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="bullet_arrow_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\save_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="arrow_left" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -238,17 +244,23 @@
<data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Selectallrowsfrom_tableA__294" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -256,16 +268,13 @@
<data name="gear_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Save_6530.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xLG1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="action_add_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="DD_Icons_ICO_GLOBIX_128" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

36
Global_Indexer/My Project/Settings.Designer.vb generated
View File

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014
' Laufzeitversion:4.0.30319.34209
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
@ -67,7 +67,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("526")> _
Global.System.Configuration.DefaultSettingValueAttribute("526"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property SplitterDistance_Viewer() As Integer
Get
Return CType(Me("SplitterDistance_Viewer"),Integer)
@ -79,7 +80,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property WDSearch_maximized() As Boolean
Get
Return CType(Me("WDSearch_maximized"),Boolean)
@ -91,7 +93,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Global.System.Configuration.DefaultSettingValueAttribute("True"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property Show_IndexResult() As Boolean
Get
Return CType(Me("Show_IndexResult"),Boolean)
@ -103,7 +106,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property DoNot_Show_Documents() As Boolean
Get
Return CType(Me("DoNot_Show_Documents"),Boolean)
@ -112,6 +116,28 @@ Namespace My
Me("DoNot_Show_Documents") = value
End Set
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("DigitalData\windream_CLIENT_WMCC_Neustart")> _
Public ReadOnly Property Test() As String
Get
Return CType(Me("Test"),String)
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False"), _
Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _
Public Property AppTerminate() As Boolean
Get
Return CType(Me("AppTerminate"),Boolean)
End Get
Set
Me("AppTerminate") = value
End Set
End Property
End Class
End Namespace

14
Global_Indexer/My Project/Settings.settings
View File

@ -10,16 +10,22 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\TESTS;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="SplitterDistance_Viewer" Type="System.Int32" Scope="User">
<Setting Name="SplitterDistance_Viewer" Roaming="true" Type="System.Int32" Scope="User">
<Value Profile="(Default)">526</Value>
</Setting>
<Setting Name="WDSearch_maximized" Type="System.Boolean" Scope="User">
<Setting Name="WDSearch_maximized" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="Show_IndexResult" Type="System.Boolean" Scope="User">
<Setting Name="Show_IndexResult" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DoNot_Show_Documents" Type="System.Boolean" Scope="User">
<Setting Name="DoNot_Show_Documents" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Test" Type="System.String" Scope="Application">
<Value Profile="(Default)">DigitalData\windream_CLIENT_WMCC_Neustart</Value>
</Setting>
<Setting Name="AppTerminate" Roaming="true" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
</Settings>

9
Global_Indexer/My Project/licenses.licx
View File

@ -1,6 +1,3 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraRichEdit.RichEditControl, DevExpress.XtraRichEdit.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraSpreadsheet.SpreadsheetControl, DevExpress.XtraSpreadsheet.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

BIN
Global_Indexer/Resources/DD_Icons_ICO_GLOBIX_128.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 52 KiB

BIN
Global_Indexer/Resources/Globix_ico.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

300
Global_Indexer/frmAdministration.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

72
Global_Indexer/frmAdministration.resx
View File

@ -156,9 +156,6 @@
<metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="WD_INDEXLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
@ -327,6 +324,9 @@
<metadata name="VARIANTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="Label9.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -337,10 +337,10 @@
<value>134, 17</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>457, 95</value>
<value>1207, 56</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingNav.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>538, 56</value>
<value>17, 56</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -415,13 +415,13 @@
</value>
</data>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>511, 212</value>
<value>967, 134</value>
</metadata>
<metadata name="TBWHDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 251</value>
<value>1643, 134</value>
</metadata>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 173</value>
<value>1217, 95</value>
</metadata>
<data name="ToolStripButton24.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -495,10 +495,10 @@
</value>
</data>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
<value>473, 134</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>940, 173</value>
<value>319, 134</value>
</metadata>
<data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -572,19 +572,19 @@
</value>
</data>
<metadata name="TBDD_USER_GROUPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>521, 251</value>
<value>266, 173</value>
</metadata>
<metadata name="VWGI_DOCTYPE_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>809, 290</value>
<value>17, 212</value>
</metadata>
<metadata name="TBDD_EINGANGSARTENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value>
<value>1192, 17</value>
</metadata>
<metadata name="TBDD_MODULESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value>
<value>767, 56</value>
</metadata>
<metadata name="TBDD_DOKART_MODULEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>757, 56</value>
<value>236, 56</value>
</metadata>
<metadata name="TBDD_DOKUMENTARTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>921, 17</value>
@ -661,10 +661,10 @@
</value>
</data>
<metadata name="VWGI_USER_GROUPS_RELATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1010, 251</value>
<value>755, 173</value>
</metadata>
<metadata name="TBDD_USER_GROUPSBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>374, 173</value>
<value>1574, 95</value>
</metadata>
<data name="ToolStripButton32.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -738,10 +738,10 @@
</value>
</data>
<metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1075, 95</value>
<value>17, 95</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>921, 95</value>
<value>1671, 56</value>
</metadata>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -815,10 +815,10 @@
</value>
</data>
<metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>714, 134</value>
<value>909, 95</value>
</metadata>
<metadata name="TBGI_CONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>206, 134</value>
<value>401, 95</value>
</metadata>
<metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 17</value>
@ -827,49 +827,49 @@
<value>748, 17</value>
</metadata>
<metadata name="TBDD_EINGANGSARTENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>280, 56</value>
<value>1455, 17</value>
</metadata>
<metadata name="TBDD_DOKART_MODULETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1025, 56</value>
<value>504, 56</value>
</metadata>
<metadata name="TBDD_MODULESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>240, 95</value>
<value>990, 56</value>
</metadata>
<metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>692, 95</value>
<value>1442, 56</value>
</metadata>
<metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
<value>212, 95</value>
</metadata>
<metadata name="TBGI_CONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>463, 134</value>
<value>658, 95</value>
</metadata>
<metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>638, 173</value>
<value>17, 134</value>
</metadata>
<metadata name="TBDD_INDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>267, 212</value>
<value>723, 134</value>
</metadata>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>852, 212</value>
<value>1308, 134</value>
</metadata>
<metadata name="TBWHDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>272, 251</value>
<value>17, 173</value>
</metadata>
<metadata name="TBDD_USER_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>768, 251</value>
<value>513, 173</value>
</metadata>
<metadata name="VWGI_USER_GROUPS_RELATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 290</value>
<value>1063, 173</value>
</metadata>
<metadata name="TBDD_GROUPS_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>320, 290</value>
<value>1366, 173</value>
</metadata>
<metadata name="TBDD_GROUPS_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>567, 290</value>
<value>1613, 173</value>
</metadata>
<metadata name="VWGI_DOCTYPE_GROUPTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 329</value>
<value>281, 212</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>173</value>

34
Global_Indexer/frmAdministration.vb
View File

@ -17,14 +17,14 @@
Try
Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
Catch ex As Exception
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
If GI_withWindream = True Then
If ClassWindream.Init() = True Then
End If
End If
Catch ex As Exception
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
Private Sub ObjektTypenEintragen()
Try
@ -166,6 +166,21 @@
Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
Save_Dokumentart()
Try
Dim sql = "SELECT COUNT(T.GUID) FROM TBDD_DOKUMENTART T, TBDD_DOKUMENTART_MODULE T1 WHERE T.AKTIV = 1 AND T.GUID = T1.DOKART_ID AND T1.MODULE_ID = 1"
Dim DoctypeCount = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If DoctypeCount = LICENSE_DOCTYPE_COUNT Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Ihre Anzahl von konfigurierbaren Dokuemntarten ist limitiert auf: '" & LICENSE_DOCTYPE_COUNT.ToString & "'. Sie können nun keine Dokumentart hinzufügen!" & vbNewLine & "Bitte kontaktieren Sie Digital Data für weitere Details.", MsgBoxStyle.Information)
Else
MsgBox("Your amount of configurable documenttypes is limited to " & LICENSE_DOCTYPE_COUNT.ToString & " doctypes. You can not add more doctypes!" & vbNewLine & "Please contact Digital Data for further licensedetails", MsgBoxStyle.Information)
End If
Exit Sub
End If
Catch ex As Exception
MsgBox("Unexpected error in Add Doctype: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
enableControls(XtraTabPage1)
IsInsert = True
@ -197,6 +212,7 @@
Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.WD_INDEXComboBox.Items.Clear()
Me.WD_INDEXComboBox.Items.Add("")
Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then
For Each index As String In indexe
@ -247,6 +263,7 @@
End If
frmloaded = True
tscmbUser.SelectedIndex = 0
TBDD_INDEX_MANBindingNav.Visible = True
End Sub
Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@ -480,13 +497,14 @@
OBJEKTTYPComboBox.Visible = True
lblObjekttyp.Visible = True
WD_INDEXComboBox.Visible = True
lblWDINDEX.Visible = True
If ClassWindream.Init() = True Then
ObjektTypenEintragen()
End If
Else
OBJEKTTYPComboBox.Visible = False
lblObjekttyp.Visible = False
lblWDINDEX.Visible = False
WD_INDEXComboBox.Visible = False
End If
End Sub
@ -590,7 +608,9 @@
Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click
Save_IndexAuto()
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
CURRENT_SQL_CONFIG = "AUTO"
SQLConfigAutoIndex.ShowDialog()
End Sub
@ -930,7 +950,7 @@
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & cmbCrFolderIndex.Text & "]"
cmbCrFolderIndex.SelectedIndex = -1
ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[V%" & cmbCrFolderDate.Text & "]"
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%V_" & cmbCrFolderDate.Text & "]"
cmbCrFolderDate.SelectedIndex = -1
ElseIf txtcrFoldermanuell.Text <> "" Then
Me.FOLDER_FOR_INDEXTextBox.Text = str & txtcrFoldermanuell.Text
@ -1020,4 +1040,8 @@
Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End Sub
Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
End Sub
End Class

315
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -22,8 +22,8 @@ Partial Class frmConfig_Basic
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConfig_Basic))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
@ -39,17 +39,21 @@ Partial Class frmConfig_Basic
Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.Button3 = New System.Windows.Forms.Button()
Me.cmbLanguage = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtuniversalViewer = New System.Windows.Forms.TextBox()
Me.lblUniversalViewer = New System.Windows.Forms.Label()
Me.btnLogMail = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label8 = New System.Windows.Forms.Label()
Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
@ -59,6 +63,7 @@ Partial Class frmConfig_Basic
Me.btnFW_Desktop = New System.Windows.Forms.Button()
Me.txtFolderWatch = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
@ -71,18 +76,16 @@ Partial Class frmConfig_Basic
'
'TabControl1
'
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(695, 358)
Me.TabControl1.TabIndex = 0
'
'TabPage1
'
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Controls.Add(Me.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cmbDatenbank)
@ -95,231 +98,186 @@ Partial Class frmConfig_Basic
Me.TabPage1.Controls.Add(Me.txtUser)
Me.TabPage1.Controls.Add(Me.txtPasswort)
Me.TabPage1.Controls.Add(Me.BtnConnect)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(687, 332)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Datenbank-Verbindung"
Me.TabPage1.UseVisualStyleBackColor = True
'
'chkbxUserAut
'
Me.chkbxUserAut.AutoSize = True
Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36)
resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
Me.chkbxUserAut.Name = "chkbxUserAut"
Me.chkbxUserAut.Size = New System.Drawing.Size(170, 17)
Me.chkbxUserAut.TabIndex = 47
Me.chkbxUserAut.Text = "Windows-Authentifizierung"
Me.chkbxUserAut.UseVisualStyleBackColor = True
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(5, 115)
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(150, 13)
Me.Label5.TabIndex = 46
Me.Label5.Text = "Aktueller ConnectionString:"
'
'cmbDatenbank
'
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.FormattingEnabled = True
Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82)
Me.cmbDatenbank.Name = "cmbDatenbank"
Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21)
Me.cmbDatenbank.TabIndex = 39
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(5, 62)
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 44
Me.Label4.Text = "Datenbank:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(5, 14)
resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 13)
Me.Label1.TabIndex = 41
Me.Label1.Text = "Server-Name:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(299, 14)
resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(84, 13)
Me.Label2.TabIndex = 42
Me.Label2.Text = "Benutzername:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(423, 14)
resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 13)
Me.Label3.TabIndex = 43
Me.Label3.Text = "Passwort:"
'
'txtActualConnection
'
Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
resources.ApplyResources(Me.txtActualConnection, "txtActualConnection")
Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtActualConnection.Location = New System.Drawing.Point(8, 131)
Me.txtActualConnection.Name = "txtActualConnection"
Me.txtActualConnection.ReadOnly = True
Me.txtActualConnection.Size = New System.Drawing.Size(547, 22)
Me.txtActualConnection.TabIndex = 45
'
'txtServer
'
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtServer.Location = New System.Drawing.Point(8, 34)
Me.txtServer.Name = "txtServer"
Me.txtServer.Size = New System.Drawing.Size(288, 22)
Me.txtServer.TabIndex = 36
'
'txtUser
'
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtUser.Location = New System.Drawing.Point(302, 34)
Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(118, 22)
Me.txtUser.TabIndex = 37
'
'txtPasswort
'
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtPasswort.Location = New System.Drawing.Point(426, 34)
Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(64, 22)
Me.txtPasswort.TabIndex = 38
Me.txtPasswort.UseSystemPasswordChar = True
'
'BtnConnect
'
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 40
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'TabPage2
'
resources.ApplyResources(Me.TabPage2, "TabPage2")
Me.TabPage2.Controls.Add(Me.Button3)
Me.TabPage2.Controls.Add(Me.cmbLanguage)
Me.TabPage2.Controls.Add(Me.Label9)
Me.TabPage2.Controls.Add(Me.LinkLabel1)
Me.TabPage2.Controls.Add(Me.CheckBox3)
Me.TabPage2.Controls.Add(Me.CheckBox2)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.btnopenlog)
Me.TabPage2.Controls.Add(Me.chkLogErrorsOnly)
Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.txtuniversalViewer)
Me.TabPage2.Controls.Add(Me.lblUniversalViewer)
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Controls.Add(Me.btnLogMail)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.btnopenlog)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(687, 332)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Diverse Einstellungen"
Me.TabPage2.UseVisualStyleBackColor = True
'
'Button3
'
resources.ApplyResources(Me.Button3, "Button3")
Me.Button3.Name = "Button3"
Me.Button3.UseVisualStyleBackColor = True
'
'cmbLanguage
'
resources.ApplyResources(Me.cmbLanguage, "cmbLanguage")
Me.cmbLanguage.FormattingEnabled = True
Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")})
Me.cmbLanguage.Name = "cmbLanguage"
'
'Label9
'
resources.ApplyResources(Me.Label9, "Label9")
Me.Label9.Name = "Label9"
'
'LinkLabel1
'
resources.ApplyResources(Me.LinkLabel1, "LinkLabel1")
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.TabStop = True
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
resources.ApplyResources(Me.CheckBox3, "CheckBox3")
Me.CheckBox3.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
Me.CheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBox3.Location = New System.Drawing.Point(11, 56)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(249, 17)
Me.CheckBox3.TabIndex = 7
Me.CheckBox3.Text = "Dokumente bei Indexierung nicht anzeigen"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
resources.ApplyResources(Me.CheckBox2, "CheckBox2")
Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBox2.Location = New System.Drawing.Point(241, 96)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(231, 17)
Me.CheckBox2.TabIndex = 6
Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnApplicationFolder.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnApplicationFolder.Location = New System.Drawing.Point(11, 134)
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.Size = New System.Drawing.Size(165, 23)
Me.btnApplicationFolder.TabIndex = 5
Me.btnApplicationFolder.Text = "Öffne AppFolder User"
Me.btnApplicationFolder.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'btnopenlog
'
Me.btnopenlog.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnopenlog.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnopenlog.Location = New System.Drawing.Point(11, 163)
Me.btnopenlog.Name = "btnopenlog"
Me.btnopenlog.Size = New System.Drawing.Size(165, 23)
Me.btnopenlog.TabIndex = 4
Me.btnopenlog.Text = "Öffne Log-Verzeichnis"
Me.btnopenlog.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnopenlog.UseVisualStyleBackColor = True
'
'chkLogErrorsOnly
'
Me.chkLogErrorsOnly.AutoSize = True
Me.chkLogErrorsOnly.Location = New System.Drawing.Point(11, 96)
resources.ApplyResources(Me.chkLogErrorsOnly, "chkLogErrorsOnly")
Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly"
Me.chkLogErrorsOnly.Size = New System.Drawing.Size(99, 17)
Me.chkLogErrorsOnly.TabIndex = 3
Me.chkLogErrorsOnly.Text = "LogErrorsOnly"
Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(478, 26)
resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(30, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "..."
Me.Button1.UseVisualStyleBackColor = True
'
'txtuniversalViewer
'
Me.txtuniversalViewer.Location = New System.Drawing.Point(11, 28)
resources.ApplyResources(Me.txtuniversalViewer, "txtuniversalViewer")
Me.txtuniversalViewer.Name = "txtuniversalViewer"
Me.txtuniversalViewer.Size = New System.Drawing.Size(461, 22)
Me.txtuniversalViewer.TabIndex = 1
'
'lblUniversalViewer
'
Me.lblUniversalViewer.AutoSize = True
Me.lblUniversalViewer.Location = New System.Drawing.Point(8, 12)
resources.ApplyResources(Me.lblUniversalViewer, "lblUniversalViewer")
Me.lblUniversalViewer.Name = "lblUniversalViewer"
Me.lblUniversalViewer.Size = New System.Drawing.Size(95, 13)
Me.lblUniversalViewer.TabIndex = 0
Me.lblUniversalViewer.Text = "Universal Viewer:"
'
'btnLogMail
'
resources.ApplyResources(Me.btnLogMail, "btnLogMail")
Me.btnLogMail.Image = Global.Global_Indexer.My.Resources.Resources.email
Me.btnLogMail.Name = "btnLogMail"
Me.btnLogMail.UseVisualStyleBackColor = True
'
'btnApplicationFolder
'
resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder")
Me.btnApplicationFolder.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnApplicationFolder.Name = "btnApplicationFolder"
Me.btnApplicationFolder.UseVisualStyleBackColor = True
'
'btnopenlog
'
resources.ApplyResources(Me.btnopenlog, "btnopenlog")
Me.btnopenlog.Image = Global.Global_Indexer.My.Resources.Resources.folder_go
Me.btnopenlog.Name = "btnopenlog"
Me.btnopenlog.UseVisualStyleBackColor = True
'
'TabPage3
'
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
Me.TabPage3.Controls.Add(Me.DataGridView1)
Me.TabPage3.Controls.Add(Me.Button2)
Me.TabPage3.Controls.Add(Me.txtScanFolderWatch)
@ -329,163 +287,105 @@ Partial Class frmConfig_Basic
Me.TabPage3.Controls.Add(Me.btnFW_Desktop)
Me.TabPage3.Controls.Add(Me.txtFolderWatch)
Me.TabPage3.Controls.Add(Me.Label6)
Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
Me.TabPage3.Controls.Add(Me.btnstartstop2)
Me.TabPage3.Controls.Add(Me.btnstartstop1)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(687, 332)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Überwachte Ordner - Folderwatch"
Me.TabPage3.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(8, 197)
resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(611, 13)
Me.Label8.TabIndex = 13
Me.Label8.Text = "Definieren Sie hier Inhalte von Dateinamen welche von der Folderwatch-Überwachung" & _
" ausgenommen werden sollen:"
'
'btnSaveExclusionFiles
'
Me.btnSaveExclusionFiles.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
Me.btnSaveExclusionFiles.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSaveExclusionFiles.Location = New System.Drawing.Point(209, 213)
Me.btnSaveExclusionFiles.Name = "btnSaveExclusionFiles"
Me.btnSaveExclusionFiles.Size = New System.Drawing.Size(94, 29)
Me.btnSaveExclusionFiles.TabIndex = 12
Me.btnSaveExclusionFiles.Text = "Speichern"
Me.btnSaveExclusionFiles.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSaveExclusionFiles.UseVisualStyleBackColor = True
'
'DataGridView1
'
resources.ApplyResources(Me.DataGridView1, "DataGridView1")
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Location = New System.Drawing.Point(11, 213)
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(192, 113)
Me.DataGridView1.TabIndex = 11
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(616, 142)
resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(49, 22)
Me.Button2.TabIndex = 10
Me.Button2.Text = "..."
Me.Button2.UseVisualStyleBackColor = True
'
'txtScanFolderWatch
'
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
Me.txtScanFolderWatch.Location = New System.Drawing.Point(11, 142)
Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
Me.txtScanFolderWatch.Size = New System.Drawing.Size(602, 22)
Me.txtScanFolderWatch.TabIndex = 8
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 126)
resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(392, 13)
Me.Label7.TabIndex = 7
Me.Label7.Text = "Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll:"
'
'btnsetFW_Folder
'
Me.btnsetFW_Folder.Location = New System.Drawing.Point(616, 30)
resources.ApplyResources(Me.btnsetFW_Folder, "btnsetFW_Folder")
Me.btnsetFW_Folder.Name = "btnsetFW_Folder"
Me.btnsetFW_Folder.Size = New System.Drawing.Size(49, 22)
Me.btnsetFW_Folder.TabIndex = 6
Me.btnsetFW_Folder.Text = "..."
Me.btnsetFW_Folder.UseVisualStyleBackColor = True
'
'btnFW_OwnFiles
'
Me.btnFW_OwnFiles.Location = New System.Drawing.Point(11, 87)
resources.ApplyResources(Me.btnFW_OwnFiles, "btnFW_OwnFiles")
Me.btnFW_OwnFiles.Name = "btnFW_OwnFiles"
Me.btnFW_OwnFiles.Size = New System.Drawing.Size(298, 23)
Me.btnFW_OwnFiles.TabIndex = 3
Me.btnFW_OwnFiles.Text = "Ordner 'SimpleIndexer' in Eigenen Dateien erzeugen"
Me.btnFW_OwnFiles.UseVisualStyleBackColor = True
'
'btnFW_Desktop
'
Me.btnFW_Desktop.Location = New System.Drawing.Point(11, 58)
resources.ApplyResources(Me.btnFW_Desktop, "btnFW_Desktop")
Me.btnFW_Desktop.Name = "btnFW_Desktop"
Me.btnFW_Desktop.Size = New System.Drawing.Size(298, 23)
Me.btnFW_Desktop.TabIndex = 2
Me.btnFW_Desktop.Text = "Ordner 'SimpleIndexer' auf Desktop erzeugen"
Me.btnFW_Desktop.UseVisualStyleBackColor = True
'
'txtFolderWatch
'
resources.ApplyResources(Me.txtFolderWatch, "txtFolderWatch")
Me.txtFolderWatch.BackColor = System.Drawing.Color.Khaki
Me.txtFolderWatch.Location = New System.Drawing.Point(11, 30)
Me.txtFolderWatch.Name = "txtFolderWatch"
Me.txtFolderWatch.Size = New System.Drawing.Size(602, 22)
Me.txtFolderWatch.TabIndex = 1
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(8, 14)
resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(295, 13)
Me.Label6.TabIndex = 0
Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:"
'
'btnSaveExclusionFiles
'
resources.ApplyResources(Me.btnSaveExclusionFiles, "btnSaveExclusionFiles")
Me.btnSaveExclusionFiles.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
Me.btnSaveExclusionFiles.Name = "btnSaveExclusionFiles"
Me.btnSaveExclusionFiles.UseVisualStyleBackColor = True
'
'btnstartstop2
'
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.Location = New System.Drawing.Point(408, 169)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop2.TabIndex = 9
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
resources.ApplyResources(Me.btnstartstop1, "btnstartstop1")
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.Location = New System.Drawing.Point(408, 57)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop1.TabIndex = 5
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
resources.ApplyResources(Me.OpenFileDialog1, "OpenFileDialog1")
'
'frmConfig_Basic
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(695, 358)
Me.Controls.Add(Me.TabControl1)
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)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmConfig_Basic"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Grundeinstellungen für User"
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout()
@ -535,4 +435,9 @@ Partial Class frmConfig_Basic
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
Friend WithEvents btnLogMail As System.Windows.Forms.Button
Friend WithEvents cmbLanguage As System.Windows.Forms.ComboBox
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Button3 As System.Windows.Forms.Button
End Class

1134
Global_Indexer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

167
Global_Indexer/frmConfig_Basic.vb
View File

@ -1,12 +1,29 @@
Imports System.IO
Imports System.Threading
Imports System.Globalization
Public Class frmConfig_Basic
Dim formloaded = False
Public Sub SetLanguage()
Dim sz = Me.Size
Dim pt = Me.Location
Dim de = System.Globalization.CultureInfo.CurrentUICulture
'Neue Sprache festlegen und entfernen aller Controls
Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
Me.Controls.Clear()
'Me.Events.Dispose()
InitializeComponent()
'Wiederherstellen der Fensterposition
Me.Size = sz
Me.Location = pt
End Sub
Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
Try
Dim constring As String
If chkbxUserAut.Checked Then
constring = "Data Source=" & Me.txtServer.Text & ";Initial Catalog=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;"
constring = "Data Source=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";Trusted_Connection=True;"
Else
constring = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
End If
@ -19,7 +36,12 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default
'DialogResult = Windows.Forms.DialogResult.OK
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("Connection was created successfull!" & vbNewLine & "Do You wnat to save this connection now in the application?", "Success:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
'Set the construction string
MyConnectionString = constring 'csb.ConnectionString
@ -39,7 +61,7 @@ Public Class frmConfig_Basic
End If
Catch ex As Exception
Cursor = Cursors.Default
MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
MsgBox("Error in Connection Build: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub
@ -72,7 +94,7 @@ Public Class frmConfig_Basic
End If
connection.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Datenbank-Connect:")
MsgBox("Error in Show Databases: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
Cursor = Cursors.Default
End Sub
@ -80,12 +102,13 @@ Public Class frmConfig_Basic
Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
End Sub
<STAThread()> _
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
<STAThread()> _
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
With OpenFileDialog1
' Do
.Filter = "Viewer.Exe|*.exe"
@ -94,17 +117,27 @@ Public Class frmConfig_Basic
If .ShowDialog() = DialogResult.OK Then
Me.txtuniversalViewer.Text = .FileName
SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
UniversalViewer = txtuniversalViewer.Text
UniversalViewer_Path = txtuniversalViewer.Text
End If
End With
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
Catch ex As Exception
If ex.Message.Contains("aktuellen Thread muss der STA-Modus") Then
MsgBox("Diese Eisntellung kann während des Starts nicht geändert werden!" & vbNewLine & "Schliessen Sie das Formular. Sie weren in Folge erneut aufgefordert den PFad zu UViewer einzugeben!", MsgBoxStyle.Information)
Else
MsgBox("Unexpected error in Add UViewer-Path:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End Try
End Sub
Dim reload As Boolean = False
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 1
If USER_LANGUAGE = "de-DE" Then
cmbLanguage.SelectedIndex = 0
Else
cmbLanguage.SelectedIndex = 1
End If
Case 2
reload = True
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
@ -121,10 +154,20 @@ Public Class frmConfig_Basic
If Not ClassFolderWatcher.FolderWatcher Is Nothing Then
If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then
If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung stoppen"
Else
btnstartstop1.Text = "Stop hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_delete
Else
If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Start hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go
End If
Else
@ -134,14 +177,29 @@ Public Class frmConfig_Basic
If Not ClassFolderWatcher.FolderWatcher_SCAN Is Nothing Then
If ClassFolderWatcher.FolderWatcher_SCAN.EnableRaisingEvents = True Then
If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete
Else
If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
End If
Else
If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
End If
reload = False
@ -162,7 +220,12 @@ Public Class frmConfig_Basic
Catch ex As Exception
ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Fehler beim Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Else
MsgBox("Error in creating Hotfolder: " & mypath & vbNewLine & "Please check the rights!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
Exit Sub
End Try
@ -201,7 +264,6 @@ Public Class frmConfig_Basic
CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub
<STAThread()> _
Private Sub btnstartstop1_Click(sender As Object, e As EventArgs) Handles btnstartstop1.Click
If CURRENT_FOLDERWATCH <> "" Then
CheckFW_State()
@ -211,20 +273,38 @@ Public Class frmConfig_Basic
Sub CheckFW_State()
Select Case ClassFolderWatcher.StartStop_FolderWatch()
Case 1
If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung stoppen"
Else
btnstartstop1.Text = "Stop Hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_delete
Case 0
If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Stop Hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go
End Select
End Sub
Sub CheckFWSCAN_State()
Select Case ClassFolderWatcher.StartStop_FolderWatchSCAN()
Case 1
If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete
Case 0
If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Start Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go
End Select
End Sub
@ -239,12 +319,17 @@ Public Class frmConfig_Basic
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
If formloaded = True Then
SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
ClassLogger.Add(" >> LogErrorsOnly auf '" & chkLogErrorsOnly.Checked & "' umgestellt", False)
ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False)
LogErrorsOnly = chkLogErrorsOnly.Checked
End If
End Sub
<STAThread()> _
Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Load_Basics()
formloaded = True
End Sub
Sub Load_Basics()
If Not MyConnectionString = String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
@ -253,16 +338,14 @@ Public Class frmConfig_Basic
constr = constr.Replace(csb.Password, "XXXXX")
Me.txtActualConnection.Text = constr
End If
Me.txtuniversalViewer.Text = UniversalViewer
Me.txtuniversalViewer.Text = UniversalViewer_Path
chkLogErrorsOnly.Checked = LogErrorsOnly
If ERROR_STATE = "FAILED CONNECTION" Then
If ERROR_STATE = "FAILED DBCONNECTION" Then
Me.TabControl1.SelectedIndex = 0
ElseIf ERROR_STATE = "NO UV" Then
Me.TabControl1.SelectedIndex = 1
End If
formloaded = True
End Sub
Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click
Process.Start(ClassLogger.DateiSpeicherort)
@ -305,6 +388,56 @@ Public Class frmConfig_Basic
Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
DTEXCLUDE_FILES.AcceptChanges()
DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions)
MsgBox("Änderungen gespeichert!", MsgBoxStyle.Information)
MsgBox("Changes saved.", MsgBoxStyle.Information)
End Sub
Private Sub btnLogMail_Click(sender As Object, e As EventArgs) Handles btnLogMail.Click
ClassEmail.Send_Log_Mail("<b> Log-/SupportMail von DD GLOBIX.</b> <p>", _
"Support-Mail GLOBIX", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de", False, True)
End Sub
Private Sub cmbLanguage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbLanguage.SelectedIndexChanged
End Sub
Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Wollen Sie die Applikationssprache nun auf '" & cmbLanguage.Text & "' ändern?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("Would You like to change Your application language to '" & cmbLanguage.Text & "' ?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
formloaded = False
Try
Dim lang As String
Select Case cmbLanguage.SelectedIndex
Case 0
lang = "de-DE"
Case 1
lang = "en-GB"
End Select
Dim update As String = "UPDATE TBDD_USER SET [LANGUAGE] = '" & lang & "' WHERE GUID = " & CURRENT_USERID
USER_LANGUAGE = lang
If ClassDatabase.Execute_non_Query(update, True) = True Then
SetLanguage()
If USER_LANGUAGE = "de-DE" Then
MsgBox("Die Sprache wurde erfolgreich geändert!", MsgBoxStyle.Information)
Else
MsgBox("The language was changed successfully!", MsgBoxStyle.Information)
End If
LANGUAGE_CHANGED = True
End If
Catch ex As Exception
End Try
formloaded = True
Load_Basics()
End If
End Sub
End Class

88
Global_Indexer/frmHotKey_Add.Designer.vb generated
View File

@ -102,12 +102,12 @@ Partial Class frmHotKey_Add
Me.TBHOTKEY_PATTERNSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter()
Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabControlMain = New System.Windows.Forms.TabControl()
Me.TabPageUebersicht = New System.Windows.Forms.TabPage()
Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.TBHOTKEY_WINDOW_HOOKBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TabControl3 = New System.Windows.Forms.TabControl()
Me.TabControlDetails = New System.Windows.Forms.TabControl()
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.lblSavePAttern = New System.Windows.Forms.Label()
Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox()
@ -182,7 +182,7 @@ Partial Class frmHotKey_Add
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ListBoxPatterns = New System.Windows.Forms.ListBox()
Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button()
@ -260,11 +260,11 @@ Partial Class frmHotKey_Add
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabControlMain.SuspendLayout()
Me.TabPageUebersicht.SuspendLayout()
Me.GroupBoxPatterns.SuspendLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl3.SuspendLayout()
Me.TabControlDetails.SuspendLayout()
Me.TabPage6.SuspendLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator2.SuspendLayout()
@ -275,7 +275,7 @@ Partial Class frmHotKey_Add
Me.TabPage5.SuspendLayout()
CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator3.SuspendLayout()
Me.TabControl2.SuspendLayout()
Me.TabControl1.SuspendLayout()
Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
@ -1077,23 +1077,23 @@ Partial Class frmHotKey_Add
Me.OFDWindreamsuche.RestoreDirectory = True
Me.OFDWindreamsuche.Title = "windream-Suche wählen"
'
'TabControl1
'TabControlMain
'
Me.TabControl1.Controls.Add(Me.TabPageUebersicht)
Me.TabControl1.Controls.Add(Me.TabPage_Designer)
Me.TabControl1.Controls.Add(Me.TabPageTest)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(972, 613)
Me.TabControl1.TabIndex = 17
Me.TabControlMain.Controls.Add(Me.TabPageUebersicht)
Me.TabControlMain.Controls.Add(Me.TabPage_Designer)
Me.TabControlMain.Controls.Add(Me.TabPageTest)
Me.TabControlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControlMain.Location = New System.Drawing.Point(0, 0)
Me.TabControlMain.Name = "TabControlMain"
Me.TabControlMain.SelectedIndex = 0
Me.TabControlMain.Size = New System.Drawing.Size(972, 613)
Me.TabControlMain.TabIndex = 17
'
'TabPageUebersicht
'
Me.TabPageUebersicht.AutoScroll = True
Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns)
Me.TabPageUebersicht.Controls.Add(Me.TabControl2)
Me.TabPageUebersicht.Controls.Add(Me.TabControl1)
Me.TabPageUebersicht.Controls.Add(Me.btndelete)
Me.TabPageUebersicht.Controls.Add(Me.ListBox_Profiles)
Me.TabPageUebersicht.Controls.Add(Me.Label9)
@ -1110,7 +1110,7 @@ Partial Class frmHotKey_Add
Me.GroupBoxPatterns.Controls.Add(Label17)
Me.GroupBoxPatterns.Controls.Add(Me.ListBox1)
Me.GroupBoxPatterns.Controls.Add(Label15)
Me.GroupBoxPatterns.Controls.Add(Me.TabControl3)
Me.GroupBoxPatterns.Controls.Add(Me.TabControlDetails)
Me.GroupBoxPatterns.Controls.Add(Me.ListBoxPatterns)
Me.GroupBoxPatterns.Location = New System.Drawing.Point(8, 283)
Me.GroupBoxPatterns.Name = "GroupBoxPatterns"
@ -1135,18 +1135,18 @@ Partial Class frmHotKey_Add
Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK"
Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataSource = Me.MyDataset
'
'TabControl3
'TabControlDetails
'
Me.TabControl3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Me.TabControlDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TabControl3.Controls.Add(Me.TabPage6)
Me.TabControl3.Controls.Add(Me.TabPage4)
Me.TabControl3.Controls.Add(Me.TabPage5)
Me.TabControl3.Location = New System.Drawing.Point(261, 21)
Me.TabControl3.Name = "TabControl3"
Me.TabControl3.SelectedIndex = 0
Me.TabControl3.Size = New System.Drawing.Size(639, 271)
Me.TabControl3.TabIndex = 1
Me.TabControlDetails.Controls.Add(Me.TabPage6)
Me.TabControlDetails.Controls.Add(Me.TabPage4)
Me.TabControlDetails.Controls.Add(Me.TabPage5)
Me.TabControlDetails.Location = New System.Drawing.Point(261, 21)
Me.TabControlDetails.Name = "TabControlDetails"
Me.TabControlDetails.SelectedIndex = 0
Me.TabControlDetails.Size = New System.Drawing.Size(639, 271)
Me.TabControlDetails.TabIndex = 1
'
'TabPage6
'
@ -1889,16 +1889,16 @@ Partial Class frmHotKey_Add
Me.ListBoxPatterns.TabIndex = 0
Me.ListBoxPatterns.ValueMember = "GUID"
'
'TabControl2
'TabControl1
'
Me.TabControl2.Controls.Add(Me.TabPage3)
Me.TabControl2.Controls.Add(Me.TabPage1)
Me.TabControl2.Controls.Add(Me.TabPage2)
Me.TabControl2.Location = New System.Drawing.Point(269, 62)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(639, 215)
Me.TabControl2.TabIndex = 36
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Location = New System.Drawing.Point(269, 62)
Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(639, 215)
Me.TabControl1.TabIndex = 36
'
'TabPage3
'
@ -2316,7 +2316,7 @@ Partial Class frmHotKey_Add
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(972, 635)
Me.Controls.Add(Me.TabControl1)
Me.Controls.Add(Me.TabControlMain)
Me.Controls.Add(Me.StatusStrip1)
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)
@ -2333,13 +2333,13 @@ Partial Class frmHotKey_Add
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabControlMain.ResumeLayout(False)
Me.TabPageUebersicht.ResumeLayout(False)
Me.TabPageUebersicht.PerformLayout()
Me.GroupBoxPatterns.ResumeLayout(False)
Me.GroupBoxPatterns.PerformLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl3.ResumeLayout(False)
Me.TabControlDetails.ResumeLayout(False)
Me.TabPage6.ResumeLayout(False)
Me.TabPage6.PerformLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit()
@ -2356,7 +2356,7 @@ Partial Class frmHotKey_Add
CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigator3.ResumeLayout(False)
Me.BindingNavigator3.PerformLayout()
Me.TabControl2.ResumeLayout(False)
Me.TabControl1.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
Me.TabPage1.ResumeLayout(False)
@ -2406,7 +2406,7 @@ Partial Class frmHotKey_Add
Friend WithEvents lblLinkadd As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabControlMain As System.Windows.Forms.TabControl
Friend WithEvents TabPage_Designer As System.Windows.Forms.TabPage
Friend WithEvents TabPageTest As System.Windows.Forms.TabPage
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
@ -2426,7 +2426,7 @@ Partial Class frmHotKey_Add
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents KeineAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TabControl2 As System.Windows.Forms.TabControl
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents chklbUserProfile As System.Windows.Forms.CheckedListBox
@ -2444,7 +2444,7 @@ Partial Class frmHotKey_Add
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox
Friend WithEvents ListBoxPatterns As System.Windows.Forms.ListBox
Friend WithEvents TabControl3 As System.Windows.Forms.TabControl
Friend WithEvents TabControlDetails As System.Windows.Forms.TabControl
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TBHOTKEY_PATTERNS_REWORKBindingSource As System.Windows.Forms.BindingSource

121
Global_Indexer/frmHotKey_Add.resx
View File

@ -234,19 +234,65 @@
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1040, 95</value>
</metadata>
<metadata name="TBHOTKEY_PATTERNS_REWORKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1098, 56</value>
</metadata>
<metadata name="TBHOTKEY_PATTERNS_REWORKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1098, 56</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorDeleteItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="TBHOTKEY_PATTERNS_REWORKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1098, 56</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>317, 95</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -309,67 +355,6 @@
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1194, 95</value>
</metadata>
<metadata name="TBHOTKEY_WINDOW_HOOKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>471, 95</value>
</metadata>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1040, 95</value>
</metadata>
<data name="BindingNavigatorDeleteItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC
rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV
i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG
86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG
QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX
bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveFirstItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">

68
Global_Indexer/frmHotKey_Add.vb
View File

@ -1,4 +1,5 @@
Public Class frmHotKey_Add
Dim Form_loaded As Boolean = False
Private Control_Sequence As Integer
Private Sub ObjektTypenEintragen()
Try
@ -32,6 +33,8 @@
Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString
TabControlDetails.SelectedIndex = 0
TabControl1.SelectedIndex = 0
Load_Profiles()
load_users()
GroupBox1.Visible = True
@ -240,12 +243,12 @@
Console.WriteLine(e.KeyCode)
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
Select Case TabControlMain.SelectedIndex
Case 0
TabControl2.SelectedIndex = 0
TabControl3.SelectedIndex = 0
TabControl1.SelectedIndex = 0
TabControlDetails.SelectedIndex = 0
Load_Profiles()
Case 1
If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then
@ -335,17 +338,7 @@
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue)
added += 1
End If
'If Not UserExists(USERNAME) Then
' SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & Name & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')"
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' usersAdded = usersAdded + 1
' End If
'Else
' SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' usersAdded = usersAdded + 1
' End If
'End If
Next
Else
@ -377,9 +370,9 @@
Next
End Sub
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
Private Sub TabControl2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
GroupBoxPatterns.Visible = False
Select Case TabControl2.SelectedIndex
Select Case TabControl1.SelectedIndex
Case 0
GroupBoxPatterns.Visible = True
Case 2
@ -406,7 +399,7 @@
Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged
If ListBox_Profiles.SelectedIndex <> -1 Then
Select Case TabControl2.SelectedIndex
Select Case TabControl1.SelectedIndex
Case 1
'Try
' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue)
@ -458,17 +451,6 @@
TBHOTKEY_USER_PROFILETableAdapter.Delete(ID)
deleted += 1
End If
'If Not UserExists(USERNAME) Then
' SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & Name & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')"
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' usersAdded = usersAdded + 1
' End If
'Else
' SQL = "UPDATE TBDD_USER SET MODULE_GI = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
' If ClassDatabase.Execute_non_Query(SQL) = True Then
' usersAdded = usersAdded + 1
' End If
'End If
Next
Else
@ -493,6 +475,26 @@
TBHOTKEY_PROFILEBindingSource.EndEdit()
TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE)
Me.lblSave.Visible = True
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Wollen Sie die Änderungen im Hotkey-Profil auch in den Userprofilen vornehmen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("Dow You want to update the userprofiles also with the changes in the profile?", "Confirmation required:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
Try
Dim update = "UPDATE TBHOTKEY_USER_PROFILE SET WD_SEARCH = '" & WD_SEARCHTextBox.Text & "', HOTKEY1 = '" & HOTKEY1ComboBox.Text & "', HOTKEY2 = '" & HOTKEY2TextBox.Text & "' WHERE HKPROFILE_ID = " & GUIDTextBox.Text
If ClassDatabase.Execute_non_Query(update, True) Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("User-Profile erfolgreich aktualisiert!", MsgBoxStyle.Information)
Else
MsgBox("Userprofiles successfull updated!", MsgBoxStyle.Information)
End If
End If
Catch ex As Exception
MsgBox("Error in Refresh Userprofiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
Else
Me.lblSave.Visible = False
End If
@ -729,4 +731,12 @@
TEXT1TextBox.ForeColor = Color.Black
End If
End Sub
Private Sub frmHotKey_Add_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Form_loaded = True
If GUIDTextBox.Text <> String.Empty Then
GroupBoxPatterns.Visible = True
End If
End Sub
End Class

6
Global_Indexer/frmIndex.designer.vb generated
View File

@ -438,9 +438,9 @@ Partial Class frmIndex
'PdfViewer1
'
Me.PdfViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.PdfViewer1.Location = New System.Drawing.Point(0, 142)
Me.PdfViewer1.Location = New System.Drawing.Point(0, 141)
Me.PdfViewer1.Name = "PdfViewer1"
Me.PdfViewer1.Size = New System.Drawing.Size(200, 144)
Me.PdfViewer1.Size = New System.Drawing.Size(200, 145)
Me.PdfViewer1.TabIndex = 4
'
'StatusStrip2
@ -476,7 +476,7 @@ Partial Class frmIndex
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.PdfRibbonPage1})
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2010
Me.RibbonControl1.Size = New System.Drawing.Size(200, 142)
Me.RibbonControl1.Size = New System.Drawing.Size(200, 141)
Me.RibbonControl1.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Above
'
'PdfFileOpenBarItem1

9
Global_Indexer/frmIndex.resx
View File

@ -120,9 +120,6 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -150,12 +147,6 @@
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value>
</metadata>
<metadata name="StatusStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1477, 173</value>
</metadata>
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value>
</metadata>
<metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 56</value>
</metadata>

153
Global_Indexer/frmIndex.vb
View File

@ -58,7 +58,7 @@ Public Class frmIndex
pnlIndex.Controls.Add(lbl)
lbl.Location = New Point(11, ylbl)
End Sub
Sub AddTextBox(indexname As String, y As Integer, text As String)
Function AddTextBox(indexname As String, y As Integer, text As String)
Dim txt As New TextBox
txt.Name = "txt" & indexname
@ -77,7 +77,8 @@ Public Class frmIndex
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged
End Sub
Return txt
End Function
Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
Dim box As TextBox = sender
box.BackColor = Color.Lime
@ -564,6 +565,102 @@ Public Class frmIndex
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:")
End Try
End Sub
Private Sub AddAutoSuggest_Textbox(indexname As String, y As Integer, conid As Integer, sql_Vorschlag As String, Optional Vorgabe As String = "")
Try
Dim connectionString As String
Dim sqlCnn As SqlConnection
Dim sqlCmd As SqlCommand
Dim adapter As New SqlDataAdapter
Dim oracleConn As OracleConnection
Dim oracleCmd As OracleCommand
Dim oracleadapter As New OracleDataAdapter
Dim NewDataset As New DataSet
Dim i As Integer
Dim sql As String
Dim runinLZ As Boolean = False
connectionString = ClassFormFunctions.GetConnectionString(conid)
If connectionString Is Nothing = False Then
'SQL Befehl füllt die Auswahlliste
sql = sql_Vorschlag
If Not sql.Contains("@") Then
If connectionString.Contains("Initial Catalog=") Then
sqlCnn = New SqlConnection(connectionString)
sqlCnn.Open()
sqlCmd = New SqlCommand(sql, sqlCnn)
adapter.SelectCommand = sqlCmd
adapter.Fill(NewDataset)
ElseIf connectionString.StartsWith("Data Source=") And connectionString.Contains("SERVICE_NAME") Then
oracleConn = New OracleConnection(connectionString)
' Try
oracleConn.Open()
oracleCmd = New OracleCommand(sql_Vorschlag, oracleConn)
oracleadapter.SelectCommand = oracleCmd
oracleadapter.Fill(NewDataset)
End If
Else
runinLZ = True
If LogErrorsOnly = False Then ClassLogger.Add(" >>sql enthält Platzhalter und wird erst während der Laufzeit gefüllt!", False)
End If
Dim newASTextbox As TextBox
If runinLZ = True Then
'Die Standardcombobox anlegen
newASTextbox = AddTextBox(indexname, y, "")
newASTextbox.Size = New Size(300, 27)
Else
If NewDataset.Tables(0).Rows.Count > 0 Then
'Die Standardcombobox anlegen
newASTextbox = AddTextBox(indexname, y, "")
'Die Standargrösse definieren
Dim newWidth As Integer = 300
'LOOPING THE ROW OF DATA IN THE DATATABLE
For Each r In NewDataset.Tables(0).Rows
'ADDING THE DATA IN THE AUTO COMPLETE SOURCE OF THE TEXTBOX
newASTextbox.AutoCompleteCustomSource.Add(r.Item(0).ToString)
Next
With newASTextbox
.AutoCompleteMode = AutoCompleteMode.SuggestAppend
.AutoCompleteSource = AutoCompleteSource.CustomSource
End With
Else
End If
If connectionString.Contains("Initial Catalog=") Then
Try
adapter.Dispose()
sqlCmd.Dispose()
sqlCnn.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
Else
Try
oracleadapter.Dispose()
oracleCmd.Dispose()
oracleConn.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
End If
Catch ex As Exception
ClassLogger.Add(" - Unvorhergesehener Fehler bei AddAutoSuggest_Textbox - Indexname: " & indexname & " - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddAutoSuggest_Textbox:")
End Try
End Sub
Private Sub Renew_ComboboxResults(INDEX_GUID As Integer, SearchString As String, Resultvalue As String)
Try
@ -854,8 +951,7 @@ Public Class frmIndex
'####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
Console.WriteLine(element.Value)
Console.WriteLine(element.Value.Substring(2, 1).ToUpper)
Console.WriteLine(element.ToString)
Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert
Case "M"
@ -915,6 +1011,7 @@ Public Class frmIndex
_day = "0" & _day
End If
Dim type = element.Value '.ToUpper.Replace("[v%", "")
type = type.Replace("[%v_", "")
type = type.Replace("[%v", "")
type = type.Replace("]", "")
Select Case type
@ -988,7 +1085,9 @@ Public Class frmIndex
For Each row As DataRow In DTMan.Rows
Dim idxvalue = row.Item("Indexwert")
Dim indexname = row.Item("WD_INDEX").ToString
Dim optional_Index = CBool(row.Item("OPTIONAL"))
If CBool(row.Item("Indexiert")) = True And idxvalue.ToString <> "" Then
If indexname <> "" And optional_Index = False Then
'Den Indexwert zwischenspeichern
Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
Dim rowexists As Boolean = False
@ -1009,9 +1108,6 @@ Public Class frmIndex
DTTemp.Rows.Add(newRow)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Manueller Indexvalue: " & idxvalue.ToString, False)
Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
@ -1020,6 +1116,13 @@ Public Class frmIndex
Return False
Exit For
End If
Else
If LogErrorsOnly = False Then
ClassLogger.Add(" >> No Indexing: indexname: " & indexname, False)
ClassLogger.Add(" >> No Indexing: is optional? " & optional_Index.ToString, False)
End If
End If
End If
Next
@ -1511,6 +1614,7 @@ Public Class frmIndex
Case "INTEGER"
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
'AddAutoSuggest_Textbox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
Else
Dim VORBELGUNG As Integer = DefaultValue
'nur eine Textbox
@ -1519,6 +1623,7 @@ Public Class frmIndex
Case "VARCHAR"
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
'AddAutoSuggest_Textbox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)
Else
If DR.Item("NAME").ToString.ToLower = "dateiname" Then
'Übergibt den Dateinamen um diesen Vorzuschlagen
@ -1691,10 +1796,10 @@ Public Class frmIndex
End If
Next
Case Else
If My.Settings.DoNot_Show_Documents = False And UniversalViewer <> "" Then
If File.Exists(UniversalViewer) Then
If My.Settings.DoNot_Show_Documents = False And UniversalViewer_Path <> "" Then
If File.Exists(UniversalViewer_Path) Then
Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE))
Dim psi As New ProcessStartInfo(UniversalViewer, """" & CURRENT_WORKFILE & """")
Dim psi As New ProcessStartInfo(UniversalViewer_Path, """" & CURRENT_WORKFILE & """")
Proc.EnableRaisingEvents = True
Proc.StartInfo = psi
Proc.Start()
@ -1706,12 +1811,14 @@ Public Class frmIndex
Else
Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
Try
Me.grpBetreff.Dock = DockStyle.Top
Me.grpbxMailBody.Dock = DockStyle.Fill
Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'Eine tempfile generieren
Dim name = Path.GetFileNameWithoutExtension(tempFilename)
tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html")
TEMP_FILES.Add(tempFilename)
If LogErrorsOnly = False Then ClassLogger.Add(" ...tempFilename: " & tempFilename, False)
'tempfile löschen
If My.Computer.FileSystem.FileExists(tempFilename) Then
@ -1731,13 +1838,18 @@ Public Class frmIndex
'Catch ex As IOException
' MsgBox(ex.ToString)
'End Try
Dim vIn() As Byte = msg_email.BodyHtml
Dim vIn() As Byte
If IsNothing(msg_email.BodyHtml) Then
File.WriteAllText(tempFilename, msg_email.Body, System.Text.Encoding.UTF8)
Else
vIn = msg_email.BodyHtml
Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn)
If LogErrorsOnly = False Then ClassLogger.Add(" ...byteData finished. Now write to file", False)
File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...byteData and write to file finished.", False)
Catch ex As Exception
MsgBox("Unerwarteter Fehler bei getHTML from Email: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in getHTML from Email: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
CURRENT_HTML_DOC = tempFilename
@ -1880,6 +1992,7 @@ Public Class frmIndex
Me.Cursor = Cursors.Default
If err = False Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
DTACTUAL_FILES.Clear()
Me.Close()
End If
End If
@ -2008,17 +2121,18 @@ Public Class frmIndex
Dim RootFolder As String = Path.GetDirectoryName(fullfilename)
'######
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
Dim p_reg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg)
Dim regularExpression As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(p_reg)
' die Vorkommen im Folder-String auslesen
Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(folderindex)
Dim elemente As System.Text.RegularExpressions.MatchCollection = regularExpression.Matches(folderindex)
'####
' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente
If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
Console.WriteLine(element.ToString)
Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert
Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
@ -2062,6 +2176,9 @@ Public Class frmIndex
_day = "0" & _day
End If
Dim type = element.Value.Substring(3, element.Value.Length - 4)
If type.StartsWith("_") Then
type = type.Replace("_", "")
End If
Select Case type
Case "YYYY/MM/DD"
folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day

17
Global_Indexer/frmIndexFileList.vb
View File

@ -20,10 +20,27 @@
End Sub
Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
Try
For Each item In CheckedListBoxControl1.CheckedItems
Dim row As DataRowView = CType(item, DataRowView)
Dim _file = row.Item(1)
Dim handletype As String = row.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
Try
IO.File.Delete(_file)
Catch ex As Exception
End Try
End If
'System.IO.File.Delete(filestring)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
Next
Catch ex As Exception
MsgBox("Unexpected Error in Clear Multiple Documents: " & ex.Message, MsgBoxStyle.Critical)
End Try
Me.Close()
End Sub

128
Global_Indexer/frmLicense.designer.vb generated
View File

@ -26,6 +26,12 @@ Partial Class frmLicense
Me.txtPW = New System.Windows.Forms.TextBox()
Me.lblPW = New System.Windows.Forms.Label()
Me.grbBoxlicense = New System.Windows.Forms.GroupBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.dtpGueltig_HK = New System.Windows.Forms.DateTimePicker()
Me.Label5 = New System.Windows.Forms.Label()
Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker()
Me.txtHotKey = New System.Windows.Forms.TextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtProfile = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtlicensekey = New System.Windows.Forms.TextBox()
@ -34,12 +40,6 @@ Partial Class frmLicense
Me.txtNewlicences = New System.Windows.Forms.TextBox()
Me.lblnewlicenses = New System.Windows.Forms.Label()
Me.lblAktuelleLizenzen = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.txtHotKey = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.dtpGueltig_GI = New System.Windows.Forms.DateTimePicker()
Me.Label3 = New System.Windows.Forms.Label()
Me.dtpGueltig_HK = New System.Windows.Forms.DateTimePicker()
Me.grbBoxlicense.SuspendLayout()
Me.SuspendLayout()
'
@ -97,6 +97,62 @@ Partial Class frmLicense
Me.grbBoxlicense.Text = "Lizenzanzahl ändern (nur Administrator):"
Me.grbBoxlicense.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(325, 124)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(65, 16)
Me.Label3.TabIndex = 18
Me.Label3.Text = "Gültigkeit:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'dtpGueltig_HK
'
Me.dtpGueltig_HK.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpGueltig_HK.Location = New System.Drawing.Point(396, 121)
Me.dtpGueltig_HK.Name = "dtpGueltig_HK"
Me.dtpGueltig_HK.Size = New System.Drawing.Size(104, 23)
Me.dtpGueltig_HK.TabIndex = 17
Me.dtpGueltig_HK.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(325, 65)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(65, 16)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Gültigkeit:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'dtpGueltig_GI
'
Me.dtpGueltig_GI.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpGueltig_GI.Location = New System.Drawing.Point(396, 62)
Me.dtpGueltig_GI.Name = "dtpGueltig_GI"
Me.dtpGueltig_GI.Size = New System.Drawing.Size(104, 23)
Me.dtpGueltig_GI.TabIndex = 15
Me.dtpGueltig_GI.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
'
'txtHotKey
'
Me.txtHotKey.Location = New System.Drawing.Point(194, 121)
Me.txtHotKey.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtHotKey.Name = "txtHotKey"
Me.txtHotKey.Size = New System.Drawing.Size(31, 23)
Me.txtHotKey.TabIndex = 14
Me.txtHotKey.Text = "0"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(7, 124)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(136, 16)
Me.Label4.TabIndex = 13
Me.Label4.Text = "Anzahl HotKey-Option:"
'
'txtProfile
'
Me.txtProfile.Location = New System.Drawing.Point(194, 91)
@ -111,9 +167,9 @@ Partial Class frmLicense
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(7, 94)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(91, 16)
Me.Label2.Size = New System.Drawing.Size(142, 16)
Me.Label2.TabIndex = 10
Me.Label2.Text = "Anzahl Profile:"
Me.Label2.Text = "Anzahl Dokumentarten:"
'
'txtlicensekey
'
@ -174,62 +230,6 @@ Partial Class frmLicense
Me.lblAktuelleLizenzen.TabIndex = 2
Me.lblAktuelleLizenzen.Text = "Label13"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(7, 124)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(136, 16)
Me.Label4.TabIndex = 13
Me.Label4.Text = "Anzahl HotKey-Option:"
'
'txtHotKey
'
Me.txtHotKey.Location = New System.Drawing.Point(194, 121)
Me.txtHotKey.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtHotKey.Name = "txtHotKey"
Me.txtHotKey.Size = New System.Drawing.Size(31, 23)
Me.txtHotKey.TabIndex = 14
Me.txtHotKey.Text = "0"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(325, 65)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(65, 16)
Me.Label5.TabIndex = 16
Me.Label5.Text = "Gültigkeit:"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'dtpGueltig_GI
'
Me.dtpGueltig_GI.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpGueltig_GI.Location = New System.Drawing.Point(396, 62)
Me.dtpGueltig_GI.Name = "dtpGueltig_GI"
Me.dtpGueltig_GI.Size = New System.Drawing.Size(104, 23)
Me.dtpGueltig_GI.TabIndex = 15
Me.dtpGueltig_GI.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(325, 124)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(65, 16)
Me.Label3.TabIndex = 18
Me.Label3.Text = "Gültigkeit:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'dtpGueltig_HK
'
Me.dtpGueltig_HK.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtpGueltig_HK.Location = New System.Drawing.Point(396, 121)
Me.dtpGueltig_HK.Name = "dtpGueltig_HK"
Me.dtpGueltig_HK.Size = New System.Drawing.Size(104, 23)
Me.dtpGueltig_HK.TabIndex = 17
Me.dtpGueltig_HK.Value = New Date(2099, 12, 31, 0, 0, 0, 0)
'
'frmLicense
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)

3
Global_Indexer/frmLicense.vb
View File

@ -48,7 +48,7 @@ Public Class frmLicense
If lic <> "" Then
lizenzzahl = split(0)
License_Anzahl = lizenzzahl
LICENSE_COUNT = lizenzzahl
Else
lizenzzahl = "0"
End If
@ -61,6 +61,7 @@ Public Class frmLicense
End If
txtProfile.Text = split(2)
LICENSE_DOCTYPE_COUNT = CInt(txtProfile.Text)
Try
txtHotKey.Text = split(3)
Catch ex As Exception

48
Global_Indexer/frmNamenkonvention.designer.vb generated
View File

@ -23,6 +23,7 @@ Partial Class frmNamenkonvention
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNamenkonvention))
Me.Label1 = New System.Windows.Forms.Label()
Me.txtnamenKonv = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
@ -36,6 +37,7 @@ Partial Class frmNamenkonvention
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnVersionTZ = New System.Windows.Forms.Button()
Me.btnTrennzeichen = New System.Windows.Forms.Button()
Me.btnVersion = New System.Windows.Forms.Button()
@ -49,7 +51,6 @@ Partial Class frmNamenkonvention
Me.cmbDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@ -93,7 +94,7 @@ Partial Class frmNamenkonvention
'
'btnAddIndexA
'
Me.btnAddIndexA.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnAddIndexA.Image = CType(resources.GetObject("btnAddIndexA.Image"), System.Drawing.Image)
Me.btnAddIndexA.Location = New System.Drawing.Point(187, 89)
Me.btnAddIndexA.Name = "btnAddIndexA"
Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23)
@ -102,7 +103,7 @@ Partial Class frmNamenkonvention
'
'btnAddIndexM
'
Me.btnAddIndexM.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnAddIndexM.Image = CType(resources.GetObject("btnAddIndexM.Image"), System.Drawing.Image)
Me.btnAddIndexM.Location = New System.Drawing.Point(187, 41)
Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23)
@ -177,9 +178,21 @@ Partial Class frmNamenkonvention
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Variablen:"
'
'Button2
'
Me.Button2.Image = CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(6, 153)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(163, 29)
Me.Button2.TabIndex = 8
Me.Button2.Text = "OriginalName"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'btnVersionTZ
'
Me.btnVersionTZ.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnVersionTZ.Image = CType(resources.GetObject("btnVersionTZ.Image"), System.Drawing.Image)
Me.btnVersionTZ.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVersionTZ.Location = New System.Drawing.Point(6, 105)
Me.btnVersionTZ.Name = "btnVersionTZ"
@ -191,7 +204,7 @@ Partial Class frmNamenkonvention
'
'btnTrennzeichen
'
Me.btnTrennzeichen.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnTrennzeichen.Image = CType(resources.GetObject("btnTrennzeichen.Image"), System.Drawing.Image)
Me.btnTrennzeichen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTrennzeichen.Location = New System.Drawing.Point(6, 56)
Me.btnTrennzeichen.Name = "btnTrennzeichen"
@ -203,7 +216,7 @@ Partial Class frmNamenkonvention
'
'btnVersion
'
Me.btnVersion.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.btnVersion.Image = CType(resources.GetObject("btnVersion.Image"), System.Drawing.Image)
Me.btnVersion.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVersion.Location = New System.Drawing.Point(6, 21)
Me.btnVersion.Name = "btnVersion"
@ -224,7 +237,7 @@ Partial Class frmNamenkonvention
'
'btnOK
'
Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.database_save1
Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.save_16xLG
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(261, 303)
Me.btnOK.Name = "btnOK"
@ -265,6 +278,11 @@ Partial Class frmNamenkonvention
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TBDD_INDEX_AUTOMTableAdapter
@ -292,30 +310,18 @@ Partial Class frmNamenkonvention
'
'Button1
'
Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(199, 265)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(30, 23)
Me.Button1.TabIndex = 9
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Image = Global.Global_Indexer.My.Resources.Resources.add
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(6, 153)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(163, 29)
Me.Button2.TabIndex = 8
Me.Button2.Text = "OriginalName"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
'
'frmNamenkonvention
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(467, 359)
Me.ClientSize = New System.Drawing.Size(467, 343)
Me.ControlBox = False
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cmbDate)

66
Global_Indexer/frmNamenkonvention.resx
View File

@ -117,24 +117,64 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="btnAddIndexA.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnAddIndexM.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1004, 17</value>
</metadata>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1004, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>257, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>257, 17</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>367, 17</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>367, 17</value>
</metadata>
<data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnVersionTZ.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnTrennzeichen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnVersion.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="TBKONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -147,4 +187,12 @@
<metadata name="TBDD_INDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1254, 17</value>
</metadata>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsQAAA7EAZUrDhsAAABcSURBVDhPzYxRCoAwDEN3tt7/PP2NWDrJaoRNYRh4H0uX
1wB8QpYrjA+Ku6OSp8iUwMwu9gjOT0wVMH1zE/DoiZ8LmDpi+mYQcJQgT5E9gkqeIlLwBlmuIMt50A4j
RH5TZf96FwAAAABJRU5ErkJggg==
</value>
</data>
</root>

18
Global_Indexer/frmSQLConfigAutoIndex.Designer.vb generated
View File

@ -25,7 +25,7 @@ Partial Class SQLConfigAutoIndex
Me.components = New System.ComponentModel.Container()
Dim SQL_ERGEBNISLabel As System.Windows.Forms.Label
Dim Label3 As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.btnVorschlag = New System.Windows.Forms.Button()
Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox()
Me.cmbConnection = New System.Windows.Forms.ComboBox()
@ -57,7 +57,6 @@ Partial Class SQLConfigAutoIndex
Me.cmbFromTables = New System.Windows.Forms.ComboBox()
Me.cmbWhereColumns = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
SQL_ERGEBNISLabel = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -244,8 +243,8 @@ Partial Class SQLConfigAutoIndex
'
Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
Me.dgvPlaceholders.Enabled = False
@ -267,7 +266,6 @@ Partial Class SQLConfigAutoIndex
'
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.Label5)
Me.GroupBox4.Controls.Add(Me.radioView)
Me.GroupBox4.Controls.Add(Me.radioTable)
Me.GroupBox4.Controls.Add(Me.Label4)
@ -400,15 +398,6 @@ Partial Class SQLConfigAutoIndex
Me.Label8.TabIndex = 23
Me.Label8.Text = "WHERE"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(628, 47)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(217, 52)
Me.Label5.TabIndex = 87
Me.Label5.Text = "Hinweis:" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Definieren Sie den SQL-Befehl indem Sie " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "1. Tabelle/View" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "2"
'
'SQLConfigAutoIndex
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -475,5 +464,4 @@ Partial Class SQLConfigAutoIndex
Friend WithEvents radioTable As System.Windows.Forms.RadioButton
Friend WithEvents radioView As System.Windows.Forms.RadioButton
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
End Class

9
Global_Indexer/frmSQLConfigAutoIndex.resx
View File

@ -126,6 +126,12 @@
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
@ -138,6 +144,9 @@
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>782, 17</value>
</metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>782, 17</value>
</metadata>
<metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1017, 17</value>
</metadata>

7
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@ -129,6 +129,7 @@ Public Class SQLConfigAutoIndex
End If
Try
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, CURRENT_DOKART_ID)
Add_ManualIndexe()
Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Manual Indices:")
End Try
@ -177,7 +178,13 @@ Public Class SQLConfigAutoIndex
e.Handled = True
End If
End Sub
Sub Add_ManualIndexe()
Try
Catch ex As Exception
MsgBox("Error in Add Manual Indices: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub btnaddManualIdx_Click(sender As Object, e As EventArgs) Handles btnaddManualIdx.Click
If cmbManualIDX.SelectedIndex <> -1 Then
If Not cmbManualIDX.Text = String.Empty Then

169
Global_Indexer/frmStart.Designer.vb generated
View File

@ -35,15 +35,24 @@ Partial Class frmStart
Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblCultureInfo = New System.Windows.Forms.ToolStripStatusLabel()
Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components)
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.TimerCheckDroppedFiles = New System.Windows.Forms.Timer(Me.components)
Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.LabelMachine = New DevExpress.XtraBars.BarStaticItem()
Me.LabelUser = New DevExpress.XtraBars.BarStaticItem()
Me.LabelLoggedIn = New DevExpress.XtraBars.BarStaticItem()
Me.LabelVersion = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonMiniToolbar1 = New DevExpress.XtraBars.Ribbon.RibbonMiniToolbar(Me.components)
Me.MyDataset = New Global_Indexer.MyDataset()
Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter()
Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components)
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.btnChoosefiles = New System.Windows.Forms.Button()
Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@ -53,11 +62,8 @@ Partial Class frmStart
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
resources.ApplyResources(Me.MenuStrip1, "MenuStrip1")
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(305, 24)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Text = "MenuStrip1"
'
'KonfigurationToolStripMenuItem
'
@ -65,87 +71,131 @@ Partial Class frmStart
Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem, Me.InfoToolStripMenuItem})
Me.KonfigurationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG
Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(108, 20)
Me.KonfigurationToolStripMenuItem.Text = "Konfiguration"
resources.ApplyResources(Me.KonfigurationToolStripMenuItem, "KonfigurationToolStripMenuItem")
'
'AdministrationToolStripMenuItem
'
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration"
resources.ApplyResources(Me.AdministrationToolStripMenuItem, "AdministrationToolStripMenuItem")
'
'GlobalIndexerEinstellungenToolStripMenuItem
'
Me.GlobalIndexerEinstellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem"
Me.GlobalIndexerEinstellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.GlobalIndexerEinstellungenToolStripMenuItem.Text = "Global Indexer - Einstellungen"
resources.ApplyResources(Me.GlobalIndexerEinstellungenToolStripMenuItem, "GlobalIndexerEinstellungenToolStripMenuItem")
'
'HotkeyEisntellungenToolStripMenuItem
'
Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem"
Me.HotkeyEisntellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22)
Me.HotkeyEisntellungenToolStripMenuItem.Text = "Hotkey - Einstellungen"
resources.ApplyResources(Me.HotkeyEisntellungenToolStripMenuItem, "HotkeyEisntellungenToolStripMenuItem")
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6)
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'GrundeinstellungenToolStripMenuItem
'
Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen User"
resources.ApplyResources(Me.GrundeinstellungenToolStripMenuItem, "GrundeinstellungenToolStripMenuItem")
'
'FrmHotkeyAddToolStripMenuItem
'
Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem"
Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User"
resources.ApplyResources(Me.FrmHotkeyAddToolStripMenuItem, "FrmHotkeyAddToolStripMenuItem")
'
'HistoryIndexierteDateienToolStripMenuItem
'
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
resources.ApplyResources(Me.HistoryIndexierteDateienToolStripMenuItem, "HistoryIndexierteDateienToolStripMenuItem")
'
'InfoToolStripMenuItem
'
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.InfoToolStripMenuItem.Text = "Info"
resources.ApplyResources(Me.InfoToolStripMenuItem, "InfoToolStripMenuItem")
'
'StatusStrip1
'
Me.StatusStrip1.AllowDrop = True
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblFW})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 99)
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblFW, Me.tslblCultureInfo})
resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(305, 22)
Me.StatusStrip1.TabIndex = 6
Me.StatusStrip1.Text = "StatusStrip1"
'
'tslblstatus
'
Me.tslblstatus.BackColor = System.Drawing.SystemColors.Control
Me.tslblstatus.Name = "tslblstatus"
Me.tslblstatus.Size = New System.Drawing.Size(121, 17)
Me.tslblstatus.Text = "ToolStripStatusLabel1"
Me.tslblstatus.Visible = False
'
'tslblFW
'
Me.tslblFW.BackColor = System.Drawing.SystemColors.Control
Me.tslblFW.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.tslblFW.Name = "tslblFW"
Me.tslblFW.Size = New System.Drawing.Size(133, 17)
Me.tslblFW.Text = "FolderWatch ist aktiv"
Me.tslblFW.Visible = False
resources.ApplyResources(Me.tslblFW, "tslblFW")
'
'tslblCultureInfo
'
Me.tslblCultureInfo.BackColor = System.Drawing.SystemColors.Control
Me.tslblCultureInfo.Name = "tslblCultureInfo"
resources.ApplyResources(Me.tslblCultureInfo, "tslblCultureInfo")
Me.tslblCultureInfo.TextDirection = System.Windows.Forms.ToolStripTextDirection.Horizontal
'
'TimerFolderWatch
'
Me.TimerFolderWatch.Interval = 2000
'
'TimerClose3Minutes
'
Me.TimerClose3Minutes.Interval = 180000
'
'NotifyIcon1
'
resources.ApplyResources(Me.NotifyIcon1, "NotifyIcon1")
'
'TimerCheckDroppedFiles
'
Me.TimerCheckDroppedFiles.Interval = 500
'
'LabelControl1
'
Me.LabelControl1.AllowDrop = True
resources.ApplyResources(Me.LabelControl1, "LabelControl1")
Me.LabelControl1.Appearance.Font = CType(resources.GetObject("LabelControl1.Appearance.Font"), System.Drawing.Font)
'Me.LabelControl1.Appearance.TextOptions.HAlignment = DevExpress.Utils.HorzAlignment.Center
'Me.LabelControl1.BorderStyle = DevExpress.XtraEditors.Controls.BorderStyles.NoBorder
Me.LabelControl1.Name = "LabelControl1"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
Me.OpenFileDialog1.Multiselect = True
'
'LabelMachine
'
resources.ApplyResources(Me.LabelMachine, "LabelMachine")
Me.LabelMachine.Id = 3
Me.LabelMachine.Name = "LabelMachine"
Me.LabelMachine.TextAlignment = System.Drawing.StringAlignment.Near
'
'LabelUser
'
resources.ApplyResources(Me.LabelUser, "LabelUser")
Me.LabelUser.Id = 4
Me.LabelUser.Name = "LabelUser"
Me.LabelUser.TextAlignment = System.Drawing.StringAlignment.Near
'
'LabelLoggedIn
'
resources.ApplyResources(Me.LabelLoggedIn, "LabelLoggedIn")
Me.LabelLoggedIn.Id = 5
Me.LabelLoggedIn.Name = "LabelLoggedIn"
Me.LabelLoggedIn.TextAlignment = System.Drawing.StringAlignment.Near
'
'LabelVersion
'
resources.ApplyResources(Me.LabelVersion, "LabelVersion")
Me.LabelVersion.Id = 6
Me.LabelVersion.Name = "LabelVersion"
Me.LabelVersion.TextAlignment = System.Drawing.StringAlignment.Near
'
'MyDataset
'
@ -182,33 +232,25 @@ Partial Class frmStart
Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
'
'TimerFolderWatch
'btnChoosefiles
'
Me.TimerFolderWatch.Interval = 2000
'
'TimerClose3Minutes
'
Me.TimerClose3Minutes.Interval = 180000
'
'NotifyIcon1
'
Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
Me.NotifyIcon1.Text = "GlobalIndexer"
Me.btnChoosefiles.AllowDrop = True
resources.ApplyResources(Me.btnChoosefiles, "btnChoosefiles")
Me.btnChoosefiles.Name = "btnChoosefiles"
Me.btnChoosefiles.UseVisualStyleBackColor = True
'
'frmStart
'
Me.AllowDrop = True
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ActiveCaption
Me.ClientSize = New System.Drawing.Size(305, 121)
Me.BackColor = System.Drawing.SystemColors.ControlLight
Me.Controls.Add(Me.btnChoosefiles)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)
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)
Me.MaximizeBox = False
Me.Name = "frmStart"
Me.Text = "Global Indexer"
Me.TopMost = True
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
@ -229,7 +271,6 @@ Partial Class frmStart
Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tslblstatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents MyDataset As Global_Indexer.MyDataset
Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource
@ -240,4 +281,14 @@ Partial Class frmStart
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents HistoryIndexierteDateienToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TimerCheckDroppedFiles As System.Windows.Forms.Timer
Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
Friend WithEvents btnChoosefiles As System.Windows.Forms.Button
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
Friend WithEvents tslblCultureInfo As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents LabelMachine As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LabelUser As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LabelLoggedIn As DevExpress.XtraBars.BarStaticItem
Friend WithEvents LabelVersion As DevExpress.XtraBars.BarStaticItem
Friend WithEvents RibbonMiniToolbar1 As DevExpress.XtraBars.Ribbon.RibbonMiniToolbar
End Class

473
Global_Indexer/frmStart.de.resx Normal file
View File

@ -0,0 +1,473 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="MenuStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>348, 24</value>
</data>
<data name="tslblCultureInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 17</value>
</data>
<data name="tslblCultureInfo.Text" xml:space="preserve">
<value />
</data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 157</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>348, 22</value>
</data>
<data name="NotifyIcon1.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAQEAAAAEAIAAoQgAAFgAAACgAAABAAAAAgAAAAAEAIAAAAAAAAEAAABILAAASCwAAAAAAAAAA
AAD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAFAAAABQAAAAQAAAAFAAAABAAAAAQAAAADAAAAAgAA
AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAEAAAAEAAAABQAAAAL///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAAwAAAAUAAAADAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAAwAAAAT///8A////AP///wD///8AAAAABgAAACEAAAA8AAAAUgAA
AF8AAABsAAAAcgAAAGUAAABbAAAASQAAADEAAAAYAAAAAv///wD///8A////AP///wAAAAAEAAAAA///
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAEAAAAAv///wD///8AAAAABwAAAD4AAAB9AAAAtQAA
AN0AAAD3AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA8AAAANYAAACtAAAAdwAA
ADoAAAAH////AP///wAAAAABAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAMAAAAC////AP///wAAAAAzAAAAkQAA
AN4AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP4AAAD8AAAA+wAAAPsAAAD7AAAA+wAAAPwAAAD9AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA3QAAAJYAAAA8////AP///wAAAAAEAAAAAv///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8A////AAAA
AEEAAAC5AAAA/wAAAP8AAAD/AAAA/gAAAPwAAAD6AAAA+QAAAPoAAAD7AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/gAAAPoAAAD5AAAA+QAAAPkAAAD7AAAA/gAAAP8AAAD/AAAA/wAAAMcAAABF////AP//
/wAAAAAD////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAgAA
AAL///8AAAAAIAAAAKwAAAD/AAAA/wAAAP4AAAD3AAAA/AAAAP8AAAD9AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD7AAAA/QAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP4AAAD9AAAA+wAA
AP4AAAD/AAAA/wAAAIgAAAAE////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAABP///wD///8AAAAAZgAAAPQAAAD/AAAA/gAAAPgAAAD/AAAA/wAAAP8AAAD8AAAA/wAA
ANgAAACXAAAAeAAAAGUAAABKAAAAJwAAAC8AAAAfAAAAsQAAAP8AAADTAAAAbAAAAJkAAACvAAAA1gAA
AP8AAAD+AAAA/wAAAP8AAAD/AAAA+wAAAP4AAAD/AAAAzwAAABD///8AAAAABP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAAAEAAAApAAAAP8AAAD/AAAA+gAAAPsAAAD/AAAA/wAA
AKMAAADQAAAA/wAAAP8AAAA5////AP///wD///8A////AP///wD///8A////AAAAALsAAAD/AAAApv//
/wD///8A////AP///wAAAAC+AAAA/wAAAPwAAAD/AAAA/QAAAP4AAAD+AAAA+QAAAP8AAADB////AP//
/wAAAAAC////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAAAVAAAAzAAAAP8AAAD8AAAA/AAA
AP8AAAD/AAAAwQAAAC////8AAAAA1AAAAP8AAADS////AAAAAAIAAAAEAAAABAAAAAMAAAAD////AAAA
AA0AAADiAAAA/wAAAJT///8AAAAABgAAAAf///8AAAAAXQAAAP8AAAD8AAAA/gAAAP8AAAD/AAAA/AAA
AP8AAAD6AAAA/wAAALH///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAA////wAAAAAhAAAA3gAA
AP8AAAD6AAAA/QAAAP8AAAD3AAAAaP///wD///8AAAAAOgAAAP8AAAD/AAAAkP///wAAAAAE////AP//
/wD///8AAAAAAf///wAAAAAMAAAA5gAAAP8AAACA////AAAAAAQAAAAC////AAAAABsAAADvAAAA/wAA
AP4AAACxAAAA8QAAAP8AAAD8AAAA/wAAAPsAAAD/AAAAcv///wAAAAAF////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAv//
/wAAAAAQAAAA4QAAAP8AAAD6AAAA/gAAAP0AAAD/AAAA2QAAAGIAAAA2////AAAAAHUAAAD/AAAA/wAA
AFT///8AAAAABwAAAAIAAAABAAAAAQAAAAL///8AAAAAEAAAAOcAAAD/AAAAcv///wAAAAAE////AAAA
AAL///8AAAAAtQAAAP8AAAD/AAAAfQAAABoAAADfAAAA/wAAAPwAAAD+AAAA/wAAAPkAAAAm////AAAA
AAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAT///8AAAAAjgAAAP8AAAD5AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AM0AAADhAAAA/wAAAPIAAAAQ////AP///wD///8A////AP///wAAAAAC////AAAAACgAAAD2AAAA/wAA
AGn///8AAAAACAAAAAQAAAAJ////AAAAAHkAAAD/AAAA/wAAAMf///8AAAAACQAAAN8AAAD/AAAA/QAA
APsAAAD/AAAAtf///wAAAAAB////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAT///8AAAAAPwAAAP8AAAD/AAAA/gAAAP4AAAD/AAAAbAAA
ADgAAACpAAAA7QAAAP8AAAD/AAAA/wAAAP8AAAD5AAAAnwAAAGMAAAA4AAAAHAAAAAkAAAAF////AP//
/wAAAAAwAAAA/wAAAP8AAABU////AP///wD///8A////AP///wAAAAApAAAA/wAAAP8AAADrAAAAKgAA
AGEAAADpAAAA/wAAAP0AAAD/AAAA/AAAAP8AAABb////AAAAAAT///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAB////AAAAAMYAAAD/AAAA/AAA
APsAAAD/AAAAjP///wD///8A////AAAAABoAAABnAAAAyAAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAA
AO4AAADcAAAA1QAAAMQAAACuAAAAugAAAP8AAAD/AAAAqAAAAGsAAAB1AAAAdAAAAG4AAABfAAAAZAAA
APAAAAD/AAAA/gAAAPEAAAD/AAAA/wAAAP0AAAD/AAAA/gAAAPwAAAD/AAAAyP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA
AE8AAAD/AAAA/QAAAPsAAAD/AAAAyP///wD///8AAAAABQAAAAP///8A////AAAAAFIAAAD/AAAA/gAA
ANIAAADgAAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA9wAAAP8AAAD+AAAA/gAA
AP8AAAA8////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAADJAAAA/wAAAPsAAAD/AAAA/wAAADr///8AAAAABP///wD///8AAAAABv//
/wAAAACJAAAA/wAAAP0AAAAvAAAABQAAAEgAAAB1AAAAqgAAANoAAADvAAAA/QAAAP8AAAD/AAAA/gAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAC2AAAAOAAA
AFAAAAD/AAAA/gAAAPsAAAD/AAAAnP///wAAAAAE////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABWAAAA/wAAAP0AAAD7AAAA/wAAAKT///8AAAAABP//
/wD///8A////AAAAAAH///8AAAAAtgAAAP8AAADrAAAAGP///wD///8A////AP///wAAAAAGAAAAGwAA
ADUAAABLAAAAwAAAAP8AAAD/AAAAvQAAALEAAADDAAAAzgAAANMAAADbAAAA2QAAAOcAAAD/AAAA/wAA
AOEAAAA1////AP///wD///8AAAAAxwAAAP8AAAD6AAAA/wAAAOIAAAAK////AAAAAAH///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAP///8AAAAAtgAAAP8AAAD7AAAA/wAA
AP8AAAA6////AAAAAAP///8A////AAAAAAH///8AAAAACQAAAN0AAAD/AAAA0P///wAAAAABAAAABAAA
AAUAAAAD////AP///wD///8A////AAAAAJAAAAD/AAAA+AAAABr///8A////AP///wD///8AAAAACf//
/wAAAABDAAAA/wAAAP8AAADN////AP///wAAAAAJ////AAAAAGMAAAD/AAAA+wAAAP0AAAD/AAAAS///
/wAAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAACQAA
AOAAAAD/AAAA+gAAAP8AAADB////AAAAAAH///8A////AP///wAAAAAC////AAAAACUAAAD2AAAA/wAA
AKv///8AAAAAA////wD///8A////AAAAAAEAAAACAAAABv///wAAAACsAAAA/wAAAOQAAAAR////AAAA
AAL///8A////AP///wD///8AAAAAIwAAAPcAAAD/AAAA3QAAAAz///8AAAAAA////wAAAAAYAAAA7wAA
AP8AAAD6AAAA/wAAAJz///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAD////AAAAADMAAAD/AAAA/wAAAPsAAAD/AAAAX////wAAAAAE////AP///wD///8AAAAAA///
/wAAAABEAAAA/wAAAP8AAACD////AAAAAAX///8A////AP///wD///8A////AAAAAAL///8AAAAAvAAA
AP8AAADTAAAAA////wAAAAABAAAAAQAAAAEAAAAD////AAAAABwAAADyAAAA/wAAANsAAAAI////AAAA
AAIAAAAC////AAAAALMAAAD/AAAA+QAAAP8AAADVAAAAAf///wAAAAAB////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABeAAAA/wAAAPoAAAD/AAAA7AAAABf///8AAAAAAv//
/wD///8A////AAAAAAT///8AAAAAYQAAAP8AAAD/AAAAX////wAAAAAHAAAAAgAAAAMAAAADAAAAAwAA
AAMAAAADAAAAAQAAAMsAAAD/AAAAyP///wAAAAACAAAAAf///wD///8AAAAAAv///wAAAAAVAAAA6QAA
AP8AAADbAAAACf///wAAAAABAAAABP///wAAAAB1AAAA/wAAAPoAAAD/AAAA+AAAACP///8AAAAAAv//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAX///8AAAAAfgAAAP8AAAD6AAAA/wAA
APgAAAAp////AAAAAAYAAAAEAAAAAwAAAAIAAAAE////AAAAAHIAAAD/AAAA/wAAADv///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAADZAAAA/wAAALn///8A////AAAAAAIAAAADAAAABAAA
AAX///8AAAAAFgAAAOkAAAD/AAAA0gAAAAX///8AAAAAAQAAAAP///8AAAAASAAAAP8AAAD9AAAA/QAA
AP8AAABP////AAAAAAT///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAE////AAAA
AKMAAAD/AAAA+AAAAP8AAACq////AP///wD///8A////AP///wD///8AAAAAAgAAAAEAAACOAAAA/wAA
APsAAABRAAAAJQAAADkAAAA3AAAAQwAAAEQAAABDAAAARAAAAEEAAABNAAAA6wAAAP8AAAC5AAAADAAA
AAn///8A////AP///wD///8A////AAAAABEAAADoAAAA/wAAAMz///8A////AAAAAAQAAAAG////AAAA
AC0AAAD/AAAA/wAAAPsAAAD/AAAAfP///wAAAAAF////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAAAv///wAAAAC4AAAA/wAAAPoAAAD/AAAATAAAABQAAABLAAAAaQAAAIcAAACgAAAAuQAA
ANAAAADkAAAA+wAAAP8AAAD/AAAA+gAAAPwAAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA+gAAAOwAAADaAAAAxAAAAKUAAACCAAAAXQAAAC4AAAAmAAAA6QAAAP8AAADVAAAADP//
/wD///8A////AP///wAAAAAFAAAAygAAAP8AAAD4AAAA/wAAAKP///8AAAAABP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAH///8AAAAAvgAAAP8AAAD9AAAA/gAAAOEAAAD1AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA6wAA
APsAAAD/AAAA+gAAANsAAADGAAAAmgAAAFQAAAAO////AAAAAKUAAAD/AAAA+AAAAP8AAADC////AAAA
AAH///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAMkAAAD/AAAA/AAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/gAAAPIAAADpAAAA4AAAANQAAADxAAAA/wAAAP4AAAC3AAAAmQAA
AJMAAACKAAAAiwAAAIsAAACLAAAAjQAAAJEAAACgAAAA/QAAAP8AAADSAAAAuwAAAM4AAADcAAAA6wAA
APYAAAD/AAAA/wAAAP8AAAD/AAAA/QAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA4gAAAHUAAADAAAAA/wAA
APoAAAD/AAAA2P///wD///8AAAAAAf///wD///8A////AP///wD///8A////AP///wAAAAAB////AP//
/wAAAADYAAAA/wAAAPwAAAD/AAAA4QAAAKcAAAB3AAAATgAAADIAAAAeAAAAEAAAAAz///8AAAAAogAA
AP8AAADwAAAAEf///wD///8A////AP///wD///8A////AP///wD///8AAAAAKgAAAP8AAAD/AAAAVf//
/wAAAAADAAAABwAAABMAAAAlAAAAOQAAAEkAAABxAAAA9AAAAP8AAADrAAAArAAAAKoAAAC4AAAA+wAA
AP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAANkAAAAB////AAAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAAywAAAP8AAAD8AAAA/wAAADX///8A////AP///wD///8A////AP//
/wD///8A////AAAAAJ0AAAD/AAAA6wAAABz///8AAAAABgAAAAQAAAAEAAAABAAAAAQAAAAI////AAAA
AE8AAAD/AAAA/wAAAFf///8AAAAABP///wD///8A////AP///wD///8AAAAABQAAAOcAAAD/AAAAvf//
/wD///8A////AAAAAC0AAACUAAAA8AAAAP8AAAD9AAAA/QAAAP8AAADaAAAAAv///wAAAAAB////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAKwAAAD/AAAA+wAAAP8AAAA/////AAAA
AAcAAAADAAAAAwAAAAIAAAABAAAABP///wAAAACSAAAA/wAAAOwAAAAZ////AAAAAAL///8A////AP//
/wD///8AAAAABP///wAAAABfAAAA/wAAAP8AAABH////AAAAAAQAAAABAAAAAQAAAAIAAAAF////AAAA
ABgAAADoAAAA/wAAAML///8AAAAAAwAAAAP///8A////AAAAABUAAADMAAAA/wAAAPoAAAD/AAAA2QAA
AAH///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACUAAAA/wAA
APcAAAD/AAAAbP///wAAAAAE////AP///wD///8A////AAAAAAP///8AAAAAhAAAAP8AAADsAAAAGv//
/wAAAAAC////AP///wD///8A////AAAAAAT///8AAAAAcQAAAP8AAAD/AAAAPP///wAAAAAD////AP//
/wD///8AAAAAAv///wAAAAAbAAAA7wAAAP8AAAC9////AAAAAAEAAAABAAAAAwAAAAb///8AAAAArAAA
AP8AAAD5AAAA/wAAANb///8A////AAAAAAH///8A////AP///wD///8A////AP///wD///8A////AAAA
AAT///8AAAAAbQAAAP8AAAD4AAAA/wAAAKv///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAA
AHMAAAD/AAAA9AAAACH///8AAAAAAv///wD///8A////AP///wAAAAAE////AAAAAIEAAAD/AAAA+gAA
ACz///8AAAAAAv///wD///8A////AAAAAAL///8AAAAAHwAAAPMAAAD/AAAAsv///wAAAAAC////AAAA
AAH///8A////AAAAAMcAAAD/AAAA+QAAAP8AAADI////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAAAD////AAAAACYAAAD6AAAA/gAAAP8AAADeAAAABf///wAAAAAB////AP//
/wD///8AAAAABP///wAAAABgAAAA/wAAAPwAAAAx////AAAAAAP///8A////AP///wD///8AAAAABP//
/wAAAACPAAAA/wAAAPMAAAAc////AAAAAAL///8A////AP///wAAAAAD////AAAAACoAAAD3AAAA/wAA
AKH///8AAAAAA////wAAAAAB////AAAAAAoAAADgAAAA/wAAAPkAAAD/AAAAtf///wAAAAAC////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAxgAAAP8AAAD7AAAA/wAA
AE3///8AAAAAA////wD///8A////AAAAAAP///8AAAAASQAAAP8AAAD/AAAARf///wAAAAAEAAAAAQAA
AAEAAAACAAAAAgAAAAb///8AAAAAnAAAAP8AAADoAAAAFf///wAAAAAFAAAAAwAAAAMAAAABAAAABP//
/wAAAAA6AAAA/QAAAP8AAACM////AAAAAAP///8AAAAAAv///wAAAAAkAAAA+AAAAP8AAAD6AAAA/wAA
AJr///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAF////AAAA
AGEAAAD/AAAA9wAAAP8AAAC7////AAAAAAL///8A////AP///wAAAAAD////AAAAADIAAAD/AAAA/wAA
AFz///8AAAAABf///wD///8A////AP///wD///8A////AAAAAKEAAAD/AAAA1f///wD///8A////AP//
/wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD/AAAAc////wAAAAAE////AAAAAAP///8AAAAASwAA
AP8AAAD9AAAA+wAAAP8AAAB1////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8AAAAAAf///wAAAAAIAAAA3AAAAP8AAAD8AAAA/wAAAEj///8AAAAABP///wD///8AAAAABP//
/wAAAAAXAAAA6gAAAP8AAABt////AP///wD///8AAAAADAAAABgAAAAiAAAAMAAAADMAAADEAAAA/wAA
ANsAAABPAAAAUgAAAEgAAAA7AAAAJwAAABD///8A////AAAAAGYAAAD/AAAA/wAAAFn///8AAAAAA///
/wAAAAAE////AAAAAIAAAAD/AAAA+gAAAP0AAAD/AAAASP///wAAAAAE////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wAAAAAF////AAAAAGIAAAD/AAAA+AAAAP8AAADYAAAAAf//
/wAAAAAFAAAAA////wD///8AAAAACQAAAN0AAAD/AAAAzAAAAKAAAADEAAAA1QAAAOEAAADsAAAA9wAA
AP0AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAPoAAADnAAAAygAAAH0AAAC0AAAA/wAA
AP8AAAAv////AAAAAAcAAAAB////AP///wAAAADHAAAA/wAAAPsAAAD/AAAA8gAAABv///8AAAAAAv//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAH///8AAAAAwQAA
AP8AAAD2AAAA/wAAAJP///8A////AP///wAAAAAlAAAAhQAAANYAAAD8AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD+AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAAU////wD///8AAAAAA////wAAAAAwAAAA/wAAAP8AAAD7AAAA/wAA
AMX///8AAAAAAf///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAD////AAAAACIAAADwAAAA/wAAAPsAAAD/AAAAaAAAACMAAACnAAAA9QAAAP8AAAD/AAAA/wAA
AP8AAAD9AAAA/wAAAP8AAAD/AAAA9wAAAPAAAADqAAAA4gAAANgAAAD6AAAA/wAAAOwAAADEAAAAxgAA
AMwAAADdAAAA7wAAAP8AAAD/AAAA/wAAAP0AAAD/AAAA/QAAAP8AAADBAAAATf///wD///8AAAAAhwAA
AP8AAAD7AAAA/AAAAP8AAAB9////AAAAAAX///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAX///8AAAAAUQAAAP8AAAD9AAAA/wAAAPwAAAD3AAAA/wAA
AP8AAAD/AAAA9wAAAN4AAAD8AAAA/wAAAH0AAAA4AAAAMQAAACUAAAAdAAAAFgAAAAYAAAAXAAAA7QAA
AP8AAACZ////AAAAAAH///8AAAAABwAAABkAAAA4AAAAXwAAALsAAAD/AAAA/gAAAP8AAAD/AAAA/wAA
AP8AAAC/AAAAOAAAANAAAAD/AAAA/AAAAP8AAAD+AAAAKv///wAAAAAD////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAABP///wAAAACCAAAA/wAA
APoAAAD/AAAA/wAAAOkAAAC8AAAAdwAAACIAAAATAAAA4gAAAP8AAABN////AP///wD///8A////AP//
/wD///8AAAAAHgAAAPMAAAD/AAAAgv///wAAAAAE////AP///wD///8A////AP///wAAAAB2AAAA/wAA
APoAAADOAAAA+gAAAP8AAAD/AAAA/wAAAP8AAAD9AAAA/wAAAPoAAAD/AAAAr////wAAAAAC////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAA
AAL///8AAAAACQAAAOIAAAD/AAAA+QAAAP8AAADVAAAABP///wD///8A////AAAAALEAAAD/AAAAkf//
/wAAAAAHAAAAAgAAAAIAAAAE////AAAAAC4AAAD7AAAA/wAAAGv///8AAAAABQAAAAEAAAABAAAAAgAA
AAP///8AAAAAyQAAAP8AAADkAAAADAAAACgAAACbAAAA+AAAAP0AAAD/AAAA/wAAAP0AAAD/AAAA9wAA
ACb///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wAAAABJAAAA/wAAAP4AAAD6AAAA/wAAALEAAAAFAAAABv//
/wAAAAByAAAA/wAAAMX///8A////AP///wD///8AAAAAA////wAAAAA8AAAA/wAAAP8AAABV////AAAA
AAT///8A////AAAAAAT///8AAAAAOQAAAP4AAAD/AAAAmv///wD///8A////AAAAAE0AAAD/AAAA/gAA
AP4AAAD8AAAA/wAAAGT///8AAAAABf///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAAD////AAAAAIgAAAD/AAAA+wAA
APoAAAD/AAAAqv///wD///8AAAAALgAAAP8AAAD4AAAAIP///wAAAAAC////AAAAAAP///8AAAAASwAA
AP8AAAD/AAAAQf///wAAAAAD////AP///wAAAAAE////AAAAAKQAAAD/AAAA/wAAADf///8A////AAAA
ACcAAADJAAAA/wAAAP0AAAD6AAAA/wAAAKD///8AAAAAAv///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAf//
/wD///8AAAAAlAAAAP8AAAD9AAAA+wAAAP8AAAB7////AP///wAAAADIAAAA/wAAAF////8AAAAABf//
/wAAAAAE////AAAAAFsAAAD/AAAA/gAAADL///8AAAAAA////wAAAAAD////AAAAACYAAAD3AAAA/wAA
ALb///8A////AAAAAEAAAADzAAAA/wAAAPwAAAD7AAAA/wAAAKP///8A////AAAAAAH///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wAAAAAC////AP///wAAAACFAAAA/wAAAP8AAAD5AAAA/wAAAIT///8AAAAAagAA
AP8AAACs////AAAAAAP///8AAAAABP///wAAAABkAAAA/wAAAPYAAAAj////AAAAAAL///8AAAAAA///
/wAAAAClAAAA/wAAAPgAAAAcAAAAGwAAAKUAAAD/AAAA/wAAAPkAAAD+AAAA/wAAAKz///8A////AAAA
AAL///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAIAAAAB////AAAAAGQAAAD7AAAA/wAA
APoAAAD/AAAApwAAACkAAADvAAAA9wAAABf///8AAAAABAAAAAX///8AAAAAYwAAAP8AAADxAAAAGv//
/wAAAAAFAAAACP///wAAAABZAAAA/wAAAP8AAACXAAAAbwAAAPsAAAD/AAAA/wAAAPoAAAD/AAAA/wAA
AIb///8A////AAAAAAP///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8AAAAAAQAA
AAP///8AAAAAJgAAALYAAAD/AAAA/wAAAP8AAADYAAAA3AAAAP8AAABj////AP///wAAAAAD////AAAA
AGYAAAD/AAAA5gAAAAL///8A////AP///wAAAAAnAAAA+AAAAP8AAAD4AAAA5QAAAP8AAAD/AAAA+wAA
APoAAAD/AAAA/wAAAF////8A////AAAAAAL///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8AAAAABP///wD///8AAAAAYAAAAOwAAAD/AAAA/wAAAP8AAAD/AAAA2gAA
AFkAAAArAAAAA////wAAAABUAAAA/wAAAOoAAABZAAAATwAAAE8AAABeAAAA2wAAAP8AAAD8AAAA/wAA
AP8AAAD8AAAA/QAAAPsAAAD/AAAA8gAAAET///8AAAAABAAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wAAAAADAAAAAv///wAAAAAWAAAAogAA
AP8AAAD/AAAA/QAAAP8AAAD/AAAA/AAAAMoAAACvAAAAwQAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAA
AP8AAAD8AAAA/wAAAP0AAAD7AAAA+wAAAPsAAAD/AAAA4AAAACb///8AAAAABf///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wAAAAAF////AP///wAAAABFAAAAxwAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD7AAAA/AAA
APoAAAD6AAAA+gAAAPoAAAD8AAAA/gAAAP8AAAD/AAAA/wAAAP8AAAD/AAAAxwAAABb///8AAAAABf//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAIAAAAD////AP///wAAAAA7AAAAngAAANIAAADxAAAA/wAA
AP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD/AAAA/wAAAP8AAAD6AAAA5gAAANQAAACYAAAATwAA
AAH///8AAAAABP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAQAAAAB////AP//
/wD///8AAAAAGwAAADgAAABCAAAAUQAAAGwAAAByAAAAagAAAGAAAABZAAAASwAAAEQAAABAAAAAJgAA
AA////8A////AP///wD///8AAAAAA////wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AAAAAAMAAAAE////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AAAAAAQAAAAEAAAAAf///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AAAAAAEAAAACAAAAAwAAAAQAAAAEAAAABQAA
AAQAAAAFAAAABQAAAAQAAAAEAAAABAAAAAQAAAADAAAAAQAAAAH///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP///wD///8A////AP//
/wD///8A/////////////////////////////////////////////////////////+AA///////+H/8P
//////ngAPP/////5gAADP////+YAAADP////2AAAADf///8gAAAAC////sAAAAAF///9AAfx4Ab///o
AiCEgA3//9AMLoSABf//oAQghUAC//+gAD6EQgL//0AAAYfAAX//QOAAAAAB//6BmAAAAAC//4FoAAAA
AL/9Auh4AADgX/0C0IeHoaBf+gXQuIXgoF/6BdC+hCCQL/oF0IAJoJAv+gQQ/4wgkC/6D8AAA+GQL/oA
AAAAAPAv+gAAAAAACC/+AAAAAAAAN/YAEP8IAAAX/g/wgQvhwBf6CBC9CCEwF/oL0L0LoQg3+gvQvQuh
WD/6BdC9C6FQL/8F0IEIIVAv/QXQvx+hUC/9AtDgAGFQL/6BMAAAATAv/0HAAAABoF//QAAAAABgX/+g
AAAUAABf/9AAfhfAAL//0BxCEEAAv//oBHoWhwF///QMKhaGAv//9gYqFQwG///7AioVAA3///yAEhIA
G////kAaHAA3////sAIAAE/////IAAAAv/////YAAAF/////+YAAAv/////+cAA9//////+f/+P/////
/+AAH/////////////////////////////////////////////8=
</value>
</data>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="LabelControl1.Appearance.DisabledImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="LabelControl1.Appearance.Font" type="System.Drawing.Font, System.Drawing">
<value>Comic Sans MS, 11.25pt</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="LabelControl1.Appearance.FontSizeDelta" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="LabelControl1.Appearance.FontStyleDelta" type="System.Drawing.FontStyle, System.Drawing">
<value>Regular</value>
</data>
<data name="LabelControl1.Appearance.GradientMode" type="System.Drawing.Drawing2D.LinearGradientMode, System.Drawing">
<value>Horizontal</value>
</data>
<data name="LabelControl1.Appearance.HoverImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="LabelControl1.Appearance.Image" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="LabelControl1.Appearance.PressedImage" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
<data name="LabelControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>38, 48</value>
</data>
<data name="LabelControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>263, 40</value>
</data>
<data name="btnChoosefiles.Font" type="System.Drawing.Font, System.Drawing">
<value>Comic Sans MS, 14.25pt</value>
</data>
<data name="btnChoosefiles.Location" type="System.Drawing.Point, System.Drawing">
<value>38, 94</value>
</data>
<data name="btnChoosefiles.Size" type="System.Drawing.Size, System.Drawing">
<value>263, 37</value>
</data>
<data name="btnChoosefiles.Text" xml:space="preserve">
<value>wählen Sie hier Dateien</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>348, 179</value>
</data>
<data name="$this.Icon" type="System.Resources.ResXNullRef, System.Windows.Forms">
<value />
</data>
</root>

1578
Global_Indexer/frmStart.resx
View File

File diff suppressed because it is too large Load Diff

618
Global_Indexer/frmStart.vb
View File

@ -3,35 +3,165 @@ Imports Microsoft.Office.Interop
Imports Independentsoft
Imports DLLLicenseManager
Imports System.Text
Imports System.Globalization
Imports System.Threading
Imports System.Runtime.InteropServices
Public Class frmStart
Dim sql_User_Login As String = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))"
Dim sql_UserID As String = "SELECT GUID FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
Private USER_GUID
Private ISUserAdmin As Boolean = False
Public _lizenzManager As ClassLicenseManager
Dim loaded As Boolean = False
Dim WithEvents HotKey As New clsHotkey(Me)
Public Sub SetLanguage()
Dim de = System.Globalization.CultureInfo.CurrentUICulture
'Neue Sprache festlegen und entfernen aller Controls
Private Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
ClassDragDrop.Drop_File(e)
Check_Dropped_Files()
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
Me.Cursor = Cursors.WaitCursor
Me.NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(2000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
Me.Controls.Clear()
'Me.Events.Dispose()
InitializeComponent()
tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
Try
'Die vorherige Tempfile löschen
If CURRENT_WD_TEMPSEARCH <> "" Then
If My.Computer.FileSystem.FileExists(CURRENT_WD_TEMPSEARCH) Then
Try
My.Computer.FileSystem.DeleteFile(CURRENT_WD_TEMPSEARCH)
Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
If Not IsNothing(Ic) Then
Me.Icon = Ic
End If
Catch ex As Exception
ClassLogger.Add(">> Icon file could not be read: " & ex.Message, False)
End Try
'Me.i()
'Wiederherstellen der Fensterposition
'Me.Size = sz
'Me.Location = pt
End Sub
Private Const mSnapOffset As Integer = 35
Private Const WM_WINDOWPOSCHANGING As Integer = &H46
<StructLayout(LayoutKind.Sequential)> _
Public Structure WINDOWPOS
Public hwnd As IntPtr
Public hwndInsertAfter As IntPtr
Public x As Integer
Public y As Integer
Public cx As Integer
Public cy As Integer
Public flags As Integer
End Structure
Protected Overrides Sub WndProc(ByRef m As Message)
' Listen for operating system messages
Select Case m.Msg
Case WM_WINDOWPOSCHANGING
SnapToDesktopBorder(Me, m.LParam, 0)
End Select
MyBase.WndProc(m)
End Sub
Public Shared Sub SnapToDesktopBorder(ByVal clientForm _
As Form, ByVal LParam As IntPtr, ByVal widthAdjustment As Integer)
If clientForm Is Nothing Then
' Satisfies rule: Validate parameters
Throw New ArgumentNullException("clientForm")
End If
' Snap client to the top, left, bottom or right desktop border
' as the form is moved near that border.
Try
' Marshal the LPARAM value which is a WINDOWPOS struct
Dim NewPosition As New WINDOWPOS
NewPosition = CType(Runtime.InteropServices.Marshal.PtrToStructure( _
LParam, GetType(WINDOWPOS)), WINDOWPOS)
If NewPosition.y = 0 OrElse NewPosition.x = 0 Then
Return ' Nothing to do!
End If
' Adjust the client size for borders and caption bar
Dim ClientRect As Rectangle = _
clientForm.RectangleToScreen(clientForm.ClientRectangle)
ClientRect.Width += _
SystemInformation.FrameBorderSize.Width - widthAdjustment
ClientRect.Height += (SystemInformation.FrameBorderSize.Height + _
SystemInformation.CaptionHeight)
' Now get the screen working area (without taskbar)
Dim WorkingRect As Rectangle = _
Screen.GetWorkingArea(clientForm.ClientRectangle)
' Left border
If NewPosition.x >= WorkingRect.X - mSnapOffset AndAlso _
NewPosition.x <= WorkingRect.X + mSnapOffset Then
NewPosition.x = WorkingRect.X
End If
' Get screen bounds and taskbar height
' (when taskbar is horizontal)
Dim ScreenRect As Rectangle = _
Screen.GetBounds(Screen.PrimaryScreen.Bounds)
Dim TaskbarHeight As Integer = _
ScreenRect.Height - WorkingRect.Height
' Top border (check if taskbar is on top
' or bottom via WorkingRect.Y)
If NewPosition.y >= -mSnapOffset AndAlso _
(WorkingRect.Y > 0 AndAlso NewPosition.y <= _
(TaskbarHeight + mSnapOffset)) OrElse _
(WorkingRect.Y <= 0 AndAlso NewPosition.y <= _
(mSnapOffset)) Then
If TaskbarHeight > 0 Then
NewPosition.y = WorkingRect.Y ' Horizontal Taskbar
Else
NewPosition.y = 0 ' Vertical Taskbar
End If
End If
' Right border
If NewPosition.x + ClientRect.Width <= _
WorkingRect.Right + mSnapOffset AndAlso _
NewPosition.x + ClientRect.Width >= _
WorkingRect.Right - mSnapOffset Then
NewPosition.x = WorkingRect.Right - (ClientRect.Width + _
SystemInformation.FrameBorderSize.Width)
End If
' Bottom border
If NewPosition.y + ClientRect.Height <= _
WorkingRect.Bottom + mSnapOffset AndAlso _
NewPosition.y + ClientRect.Height >= _
WorkingRect.Bottom - mSnapOffset Then
NewPosition.y = WorkingRect.Bottom - (ClientRect.Height + _
SystemInformation.FrameBorderSize.Height)
End If
' Marshal it back
Runtime.InteropServices.Marshal.StructureToPtr(NewPosition, _
LParam, True)
Catch ex As ArgumentException
End Try
End Sub
Private Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
If ClassDragDrop.Drop_File(e) = True Then
TimerCheckDroppedFiles.Start()
End If
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed
Dim CapTxt As String = ClassHotkey_Windream.GetCaption()
CURRENT_FOCUSES_WINDOWNAME = CapTxt
If CURRENT_FOCUSES_WINDOWNAME.ToUpper.StartsWith("GLOB") Then Exit Sub
If LogErrorsOnly = False Then ClassLogger.Add(" ...Focused window result: '" & CURRENT_FOCUSES_WINDOWNAME & "'", False)
Me.Cursor = Cursors.WaitCursor
Me.NotifyIcon1.Visible = True
NotifyIcon1.ShowBalloonTip(1000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
Try
Dim _focusedWindowfound As Boolean = False
Dim HK1 As String
Dim HK2 As String
'Die Hotkeys definieren
@ -45,10 +175,24 @@ Public Class frmStart
Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim Result As String = ""
If Not IsNothing(DTHOTKEY_PROFILES) Then
'Jedes Hotkeyprofil des Users durchlaufen um zu überprüfen ob das CURRENT_FOCUSES_WINDOWNAME = dem konfiguriertem ist
For Each row As DataRow In DTHOTKEY_PROFILES.Rows
SQL = "select WINDOW_NAME from TBHOTKEY_PROFILE where GUID = " & row.Item("HKPROFILE_ID")
'Konfigurierte windows-String speichern
Dim windowconfigured = ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True)
'Focuses window enthalten??
If CURRENT_FOCUSES_WINDOWNAME.ToUpper.Contains(windowconfigured.ToString.ToUpper) Or CURRENT_FOCUSES_WINDOWNAME.ToUpper = windowconfigured.ToString.ToUpper Then
'Ja - also die windream-Suche ausführen
_focusedWindowfound = True
Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID"))
Next
End If
Next
If _focusedWindowfound = False Then
Result = "Focused Window not configured in hotkey"
End If
End If
If Result = "" Then
Me.NotifyIcon1.Visible = False
@ -82,7 +226,7 @@ Public Class frmStart
End Sub
Sub Check_Dropped_Files()
'Try
Try
Me.TopMost = False
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
CURRENT_ABBRUCH = 0
@ -101,7 +245,7 @@ Public Class frmStart
End If
Next
Me.TopMost = True
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
@ -117,13 +261,17 @@ Public Class frmStart
CURRENT_WORKFILE_GUID = Filerow.Item(0)
CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
If File.Exists(CURRENT_WORKFILE) Then
If File.Exists(CURRENT_WORKFILE) = True Then
Open_IndexDialog()
Else
Console.WriteLine("File existiert nicht mehr!")
End If
Next
Catch ex As Exception
If Not ex.Message.StartsWith("Die Auflistung wurde geändert") Then
MsgBox("Unexpected Error in Check_Dropped_Files:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End If
End Try
Me.TopMost = True
End Sub
Sub Open_IndexDialog()
@ -136,33 +284,61 @@ Public Class frmStart
If File.Exists(CURRENT_FILENAME) Then
Select Case CURRENT_ABBRUCH
Case 1
If USER_LANGUAGE = "de-DE" Then
MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
Else
MsgBox("Please Index file completely" & vbNewLine & "(Abort 1 of Indexdialog)", MsgBoxStyle.Information)
End If
Open_IndexDialog()
Case 2
Dim result As MsgBoxResult
If USER_LANGUAGE = "de-DE" Then
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie die Indexierung aller Dateien abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Else
result = MessageBox.Show("You abort the indexdialog for the 2nd time!" & vbNewLine & "Do You want to abort all file-indexing?", "Confirmation needed:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = MsgBoxResult.Yes Then
Dim containsfw_file As Boolean = False
Try
ABORT_INDEXING = True
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, True)
Dim anz = DT.Rows.Count
For Each Filerow As DataRow In DT.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
Try
System.IO.File.Delete(filestring)
Catch ex As Exception
End Try
ElseIf handletype.StartsWith("@FW") Then
containsfw_file = True
End If
Next
'Zuerst die Daten des Ablaufs löschen
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
If ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) = True Then
If containsfw_file = True Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Der Indexierungsprozess beinhaltete (auch) Dateien per Folderwatch!" & vbNewLine & "Diese Dateien wurden nicht gelöscht und verbleiben im Folderwatch-Verzeichnis!" & vbNewLine & "Bitte verschieben Sie die Dateien ggfls.", MsgBoxStyle.Information, "Achtung - Hinweis:")
Else
MsgBox("The Indexingprocess contained (also) files from folderwatch!" & vbNewLine & "These files weren't deleted and will stay in the folderwatch-folder!" & vbNewLine & "Please move these files manually.", MsgBoxStyle.Information, "Achtung - Hinweis:")
End If
End If
End If
Catch ex As Exception
MsgBox("Fehler bei Abbruch der Indexierung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in Abort Indexing: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -174,215 +350,135 @@ Public Class frmStart
End Select
End If
Catch ex As Exception
MsgBox("Fehler bei Aufruf Indexdialog: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
MsgBox("Unexpected Error in Call Indexdialog: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Me.Visible = True
End Try
End Sub
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
If My.Settings.AppTerminate = False Then
Try
ClassLogger.Add("", False)
If START_INCOMPLETE = False Then
Dim sql = sql_User_Login
sql = sql.Replace("@LogInOut", 0)
sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql)
If Not USER_GUID Is Nothing Then
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql)
End If
End If
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
End Try
If Not USER_GUID Is Nothing Then
Unregister_Hotkeys()
End If
End Sub
Sub Refresh_Licence()
Try
Me._lizenzManager = New ClassLicenseManager("#DigitalData35452!#", "")
Dim sql As String = "SELECT LICENSEKEY FROM TBGI_CONFIGURATION WHERE GUID = 1"
Dim lic As String = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
Dim licString = Me._lizenzManager.DecodeLicenseKey(lic)
Dim split() = licString.ToString.Split("#")
If lic <> "" Then
License_Anzahl = split(0)
Else
License_Anzahl = 0
End If
If CDate(split(1)) < CDate(Now.ToShortDateString) Then
MsgBox("Ihre Lizenz ist abgelaufen!" & vbNewLine & "Letztes Gültigkeitsdatum: " & split(1) & vbNewLine & "Bitte setzen Sie sich mit Digital Data in Verbindung", MsgBoxStyle.Exclamation)
License_Expired = True
License_Anzahl = 0
End If
'tslblLicenses.Text = "Anzahl Lizenzen: " & licenseanzahl
LicenseProfiles = split(2)
Try
LicenseHotKey = split(3)
Catch ex As Exception
LicenseHotKey = 0
End Try
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Licensemanager:")
End Try
End Sub
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent
Try
Me.Opacity = 30
ClassWindowLocation.LoadFormLocationSize(Me)
Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Init("", "log_" & Environment.UserName)
ClassLogger.Add(">> Programmstart: " & Now, False)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
LoadMyConfig()
If LoadFileExclusion() = False Then
MsgBox("Dies Ausschlusskriterien für Dateien in Folderwatch konnten nicht angelegt werden!", MsgBoxStyle.Information)
End If
If MyConnectionString = String.Empty Then
frmConfig_Basic.ShowDialog()
End If
If ClassDatabase.Init() = False Then
ERROR_STATE = "FAILED CONNECTION"
MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Konfiguration der Datenbankverbindung und ggfls. den Datenbankserver", MsgBoxStyle.Critical)
frmConfig_Basic.ShowDialog()
End If
If ClassDatabase.Init() = False Then
ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If
If MyConnectionString = String.Empty Then
ClassLogger.Add(" >> Kein Connection-String definiert - Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If
USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If USER_GUID Is Nothing Then
ClassLogger.Add(" - ACHTUNG: User '" & Environment.UserName & "' nicht in der Userverwaltung hinterlegt!", False)
MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
Else
Refresh_Licence()
CURRENT_USERID = USER_GUID
If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then
ERROR_STATE = "NO UV"
frmConfig_Basic.ShowDialog()
End If
'Die FolderWatch starten
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
If Not folderwatch Is Nothing Then
CURRENT_FOLDERWATCH = folderwatch
If FW_started = True Then
tslblFW.Visible = True
ClassFolderWatcher.StartStop_FolderWatch()
End If
End If
If Not folderwatch_SCAN Is Nothing Then
CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN
If FWSCAN_started = True Then
tslblFW.Visible = True
ClassFolderWatcher.StartStop_FolderWatchSCAN()
End If
End If
If CURRENT_FOLDERWATCH <> "" Or CURRENT_SCAN_FOLDERWATCH <> "" Then
TimerFolderWatch.Start()
End If
sql = "SELECT MODULE_GI FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))"
sql = sql.Replace("@user", Environment.UserName)
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False)
MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
START_INCOMPLETE = True
Exit Sub
Else
'Am System anmelden
sql = sql_User_Login
sql = sql.Replace("@LogInOut", 1)
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName)
If ClassDatabase.Execute_non_Query(sql, True) = False Then
START_INCOMPLETE = True
Exit Sub
End If
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & CURRENT_USERID & " AND UPPER(MODULE) = UPPER('Global-Indexer')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
End If
End If
End If
ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
If CURRENT_USERID > 0 Then
Unregister_Hotkeys()
End If
'TempDateien löschen
Try
For Each _file In TEMP_FILES
System.IO.File.Delete(_file)
Next
Catch ex As Exception
End Try
End If
End Sub
Public Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmStart_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.AppTerminate = True Then
Exit Sub
End If
'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent
Cursor = Cursors.WaitCursor
' My.Application.ChangeUICulture("en")
'My.Application.ChangeCulture("en")
Dim i = My.Application.UICulture.ToString()
Try
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'Global-Indexer')"
ClassDatabase.Execute_non_Query(sql, True)
'Dim sql = sql_UserID
sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE GUID = " & USER_GUID
ISUserAdmin = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
Dim splash As New frmSplash()
splash.ShowDialog()
If ISUserAdmin = True Then
'Lizenz abgellaufen, überprüfen ob User Admin ist
If LICENSE_COUNT < UserLoggedin Then
If CURRENT_USER_IS_ADMIN = True Then
ClassLogger.Add(">> User is Admin - Timer will be started", False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
Else
MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
End If
'Timer starten
If TimerClose3Minutes.Enabled = False Then
TimerClose3Minutes.Start()
End If
End If
End If
If DOCTYPE_COUNT_ACTUAL > LICENSE_DOCTYPE_COUNT Then
If CURRENT_USER_IS_ADMIN = True Then
ClassLogger.Add(">> User is Admin - Timer will be started", False)
If USER_LANGUAGE = "de-DE" Then
MsgBox("Sie haben nun 3 Minuten Zeit eine neue Lizenz zu vergeben!", MsgBoxStyle.Information)
Else
MsgBox("You now got 3 minutes to update the license!", MsgBoxStyle.Information)
End If
'Timer starten
If TimerClose3Minutes.Enabled = False Then
TimerClose3Minutes.Start()
End If
End If
End If
If CURRENT_USER_IS_ADMIN = True Then
ToolStripSeparator1.Visible = True
AdministrationToolStripMenuItem.Visible = True
Else
ToolStripSeparator1.Visible = False
AdministrationToolStripMenuItem.Visible = False
End If
'Lizenz abgellaufen, überprüfen ob User Admin ist
If License_Expired And ISUserAdmin = False Then
' wenn ja dann schliessen
START_INCOMPLETE = True
Exit Sub
Else
'ansonsten timer starten
TimerClose3Minutes.Start()
End If
'Anzahl der eingeloggten User
UserLoggedin = ClassDatabase.Execute_Scalar("select count(*) from TBDD_USER_MODULE_LOG_IN where MODULE = 'Global-Indexer'", MyConnectionString, True)
If License_Anzahl < UserLoggedin Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & License_Anzahl.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
ClassLogger.Add(" >> Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen (" & License_Anzahl & ") für Process-Manager!", False)
If ISUserAdmin = False Then
'Anmeldung wieder herausnehmen
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True)
ClassLogger.Add(" - Wieder abgemeldet", False)
START_INCOMPLETE = True
Exit Sub
Else
'ansonsten timer starten
If TimerClose3Minutes.Enabled = False Then
TimerClose3Minutes.Start()
End If
End If
End If
sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'Global-Indexer'"
Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False)
If Load_BasicConfig() = False Then
START_INCOMPLETE = True
Exit Sub
End If
Unregister_Hotkeys()
Load_Hotkeys()
End If
End If
Me.Opacity = 30
'tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
Catch ex As Exception
MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Sub Start_Folderwatch()
If CURRENT_FOLDERWATCH <> "" Or CURRENT_SCAN_FOLDERWATCH <> "" Then
If FW_ISSTARTED = True Then
tslblFW.Visible = True
Else
tslblFW.Visible = False
End If
If TimerFolderWatch.Enabled = False Then
TimerFolderWatch.Start()
End If
End If
End Sub
Sub Unregister_Hotkeys()
Try
@ -444,11 +540,15 @@ Public Class frmStart
End Try
End Sub
Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
If ClassLicence.license_is_Valid = True Then
Me.Hide()
Unregister_Hotkeys()
frmHotKey_Add.ShowDialog()
Load_Hotkeys()
Me.Visible = True
End If
End Sub
Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click
@ -460,15 +560,25 @@ Public Class frmStart
Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
Me.TopMost = False
frmConfig_Basic.ShowDialog()
'Wurde die Sprache in der Konfiguration geändert
If LANGUAGE_CHANGED = True Then
'Sprache anpassen
SetLanguage()
LANGUAGE_CHANGED = False
End If
Start_Folderwatch()
Me.TopMost = True
End Sub
Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click
Me.TopMost = False
If ClassLicence.license_is_Valid = True Then
Me.Hide()
Unregister_Hotkeys()
frmHotkey_User.ShowDialog()
Load_Hotkeys()
Me.TopMost = True
Me.Visible = True
End If
End Sub
Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
@ -496,10 +606,10 @@ Public Class frmStart
CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog()
Else
ClassLogger.Add(">> Datei existiert (noch) nicht - fileexists?!", False)
ClassLogger.Add(">> file not existing - filexists!", False)
End If
Else
ClassLogger.Add(">> Datei '" & row.Item(1) & "' kann nicht exclusiv geöffnet werden - fileInUse!", False)
ClassLogger.Add(">> file '" & row.Item(1) & "' could not be opened exclusively - fileInUse!", False)
End If
Next
@ -514,25 +624,99 @@ Public Class frmStart
End Try
End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If License_Expired = True Or License_Anzahl < UserLoggedin Then
If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then
If USER_LANGUAGE = "de-DE" Then
MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
Else
MsgBox("Global Indexer will now be closed, cause no new license was updated!", MsgBoxStyle.Information)
End If
Me.Close()
Else
TimerClose3Minutes.Stop()
End If
End Sub
Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If START_INCOMPLETE = True Then
If My.Settings.AppTerminate = True Then
Me.Close()
End If
If START_INCOMPLETE = True Then
If LICENSE_COUNT = 0 And LICENSE_EXPIRED = True Then
Else
Me.Close()
End If
Else
TimerFolderWatch.Start()
End If
If UniversalViewer_Path = String.Empty And My.Settings.DoNot_Show_Documents = False Then
ERROR_STATE = "NO UV"
Me.TopMost = False
frmConfig_Basic.ShowDialog()
Me.TopMost = True
End If
loaded = True
Opacity = 0.65
TimerFolderWatch.Start()
End Sub
'Sprache anpassen
SetLanguage()
Start_Folderwatch()
ClassWindowLocation.LoadFormLocationSize(Me)
End Sub
Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog()
End Sub
Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
Me.TopMost = False
AboutBox1.ShowDialog()
Me.TopMost = True
End Sub
Private Sub frmStart_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
End Sub
Private Sub TimerCheckDroppedFiles_Tick(sender As Object, e As EventArgs) Handles TimerCheckDroppedFiles.Tick
TimerCheckDroppedFiles.Stop()
Check_Dropped_Files()
End Sub
Private Sub LabelControl1_DragDrop(sender As Object, e As DragEventArgs) Handles LabelControl1.DragDrop, btnChoosefiles.DragDrop
If ClassDragDrop.Drop_File(e) = True Then
TimerCheckDroppedFiles.Start()
End If
End Sub
Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter, btnChoosefiles.DragEnter
Drag_Enter(sender, e)
End Sub
Private Sub btnChoosefiles_Click(sender As Object, e As EventArgs) Handles btnChoosefiles.Click
Try
Dim openFileDialog1 As New OpenFileDialog
Dim fName As String
'openFileDialog1.InitialDirectory = "c:\"
'openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
'openFileDialog1.FilterIndex = 2
openFileDialog1.RestoreDirectory = True
openFileDialog1.Multiselect = True
If openFileDialog1.ShowDialog() = DialogResult.OK Then
Dim i As Integer = 0
ClassDragDrop.files_dropped = Nothing
For Each fName In openFileDialog1.FileNames
ReDim Preserve ClassDragDrop.files_dropped(i)
ClassLogger.Add(">> Chosen File: " & fName, False)
ClassDragDrop.files_dropped(i) = "@DROPFROMFSYSTEM@" & fName
i += 1
Next
TimerCheckDroppedFiles.Start()
End If
Catch ex As Exception
MsgBox("Unexpected Error in Choose Files for Indexing:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class

20
Global_Indexer/frmUserKonfig_AddUsers.designer.vb generated
View File

@ -30,9 +30,9 @@ Partial Class frmUserKonfig_AddUsers
Me.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.btnCancel = New System.Windows.Forms.Button()
Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton()
Me.tbSelectNone = New System.Windows.Forms.ToolStripButton()
Me.btnCancel = New System.Windows.Forms.Button()
Me.btnAddUsers = New System.Windows.Forms.Button()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout()
@ -115,15 +115,6 @@ Partial Class frmUserKonfig_AddUsers
Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22)
Me.ToolStripLabel2.Text = "Verfügbare Benutzer:"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(220, 425)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'tbSelectEverything
'
Me.tbSelectEverything.Image = Global.Global_Indexer.My.Resources.Resources.CheckOutforEdit_13187_32x
@ -141,6 +132,15 @@ Partial Class frmUserKonfig_AddUsers
Me.tbSelectNone.Size = New System.Drawing.Size(104, 22)
Me.tbSelectNone.Text = "Nichts auswählen"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(220, 425)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnAddUsers
'
Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add

271
Global_Indexer/frmUserKonfig_AddUsers.vb
View File

@ -3,20 +3,172 @@ Imports System.DirectoryServices.ActiveDirectory
Imports System.DirectoryServices.AccountManagement
Public Class frmUserKonfig_AddUsers
Public Function GetAllADGroups() As List(Of String)
Try
Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://" & Environment.UserDomainName) 'digitaldata.local
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = ("(&(objectClass=group))")
Dim result As New List(Of String)
For Each resEnt As SearchResult In mySearcher.FindAll()
Dim myEntry As DirectoryEntry = resEnt.GetDirectoryEntry
Dim groupName As String = myEntry.Name.Replace("CN=", "")
If Not groupName.StartsWith("WinRMR") Or Not groupName.StartsWith("Gäst") Or Not groupName.StartsWith("Druck") Or Not groupName.StartsWith("Sicherungs") Or Not groupName.StartsWith("Replikations") Or Not groupName.StartsWith("Netzwerkskon") _
Or Not groupName.StartsWith("Leistungs") Or Not groupName.StartsWith("Distributed COM") Or Not groupName.StartsWith("IIS_") Or Not groupName.StartsWith("Kryptografie") Or Not groupName.StartsWith("Ereignis") Or Not groupName.StartsWith("Zertifikat") _
Or Not groupName.StartsWith("RDS-") Or Not groupName.StartsWith("Hyper-V") Or Not groupName.StartsWith("Zugriffssteuerungs") Or Not groupName.StartsWith("Remoteverwaltungs") Or Not groupName.StartsWith("Domänencomput") Or Not groupName.StartsWith("Domänen-Gäste") _
Or Not groupName.StartsWith("Richtlinien-Ersteller") Or Not groupName.StartsWith("RAS- und IAS-Server") Or Not groupName.StartsWith("Server-Operatore") Or Not groupName.StartsWith("Konten-Oper") Or Not groupName.StartsWith("Prä-Windows") _
Or Not groupName.StartsWith("Einstellungen eingehender") Or Not groupName.StartsWith("Windows-Auth") Or Not groupName.StartsWith("Terminalserver-Liz") Or Not groupName.StartsWith("Zulässige") Or Not groupName.StartsWith("Abgelehnte") Or Not groupName.StartsWith("Schreibgeschützte Domänen") _
Or Not groupName.StartsWith("Klonbare") Or Not groupName.StartsWith("Protected User") Or Not groupName.StartsWith("Dns") Or Not groupName.StartsWith("DHCP") Or Not groupName.StartsWith("IIS_IUSR") Or Not groupName.StartsWith("Richtlinien-Ersteller") _
Or Not groupName.StartsWith("Abgelehnte RODC-Kenn") Then
Dim users As List(Of String) = GetGroupUsers(groupName)
If Not IsNothing(users) Then
result.Add(groupName)
End If
End If
'MsgBox(myEntry.Name)
'Dim MyLVI As ListViewItem = ListView2.Items.Add(Rc(myEntry.Name))
'MyLVI.SubItems.Add("Global Secutiry Group")
'MyLVI.SubItems.Add(Replace(myEntry.Parent.Path, "LDAP://", ""))
'MyLVI.ImageKey = "ad_icon_group"
Next
'Dim sPath As String = "LDAP://digitaldata.local"
'Dim myDirectory As New DirectoryEntry(sPath)
'Dim mySearcher1 As New DirectorySearcher(myDirectory)
'Dim mySearchResultColl As SearchResultCollection
'Dim mySearchResult As SearchResult
'Dim result As New List(Of String)
'Dim objGroupEntry As DirectoryEntry
'mySearcher1.Filter = "(&(objectClass=Group))"
'mySearchResultColl = mySearcher1.FindAll()
'If (mySearchResultColl.Count <> 0) Then
' For Each mySearchResult In mySearchResultColl
' objGroupEntry = mySearchResult.GetDirectoryEntry()
' result.Add(objGroupEntry.Name)
' Next
'End If
Return result
Catch ex As System.Exception
Return Nothing
End Try
End Function
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim groups As List(Of String) = GetActiveDirectoryGroups()
Me.Cursor = Cursors.WaitCursor
Dim groups As List(Of String) = GetAllADGroups()
' Sort alphabetically.
groups.Sort()
Me.Cursor = Cursors.Default
For Each group In groups
lbGroups.Items.Add(group)
Next
'Dim groups As List(Of String) = GetActiveDirectoryGroups()
'For Each group In groups
' lbGroups.Items.Add(group)
'Next
Catch ex As Exception
MsgBox("Error in Load Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Me.Cursor = Cursors.Default
End Sub
Public Function GetUsername_FromDisplayname(ByVal strUserString As String)
Try
Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://" & Environment.UserDomainName) 'digitaldata.local
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = ("(&(objectCategory=person)(objectClass=user)(cn=" & strUserString & "))")
'Retrieve results
Dim dsResult As SearchResult = mySearcher.FindOne
If dsResult Is Nothing Then
'No results returned
Return ""
End If
'For Each Str As DictionaryEntry In dsResult.Properties
' Console.WriteLine(Str.Key.ToString & " - " & Str.Value.ToString)
'Next
Dim usrname = dsResult.Properties("samaccountname")(0)
Return usrname
Catch ex As Exception
ClassLogger.Add("Error in GetUsername_FromDisplayname: " & ex.Message, True)
Return ""
End Try
End Function
Public Function GetProperty_LDAP(ByVal strUserString As String, _property As String)
Try
Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://" & Environment.UserDomainName) 'digitaldata.local
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = ("(&(objectCategory=person)(objectClass=user)(cn=" & strUserString & "))")
'Retrieve results
Dim dsResult As SearchResult = mySearcher.FindOne
If dsResult Is Nothing Then
'No results returned
Return ""
End If
'For Each Str As DictionaryEntry In dsResult.Properties
' Console.WriteLine(Str.Key.ToString & " - " & Str.Value.ToString)
'Next
Dim usrname = dsResult.Properties(_property)(0)
Return usrname
Catch ex As Exception
ClassLogger.Add("Error in GetProperty_LDAP: " & ex.Message, True)
Return ""
End Try
End Function
Public Function GetEmail_FromDisplayname(ByVal strUserString As String)
Try
Dim enTry As DirectoryEntry = New DirectoryEntry("LDAP://" & Environment.UserDomainName) 'digitaldata.local
Dim mySearcher As DirectorySearcher = New DirectorySearcher(enTry)
mySearcher.Filter = ("(&(objectCategory=person)(objectClass=user)(cn=" & strUserString & "))")
'Retrieve results
Dim dsResult As SearchResult = mySearcher.FindOne
If dsResult Is Nothing Then
'No results returned
Return ""
End If
'For Each Str As DictionaryEntry In dsResult.Properties
' Console.WriteLine(Str.Key.ToString & " - " & Str.Value.ToString)
'Next
Dim email = dsResult.Properties("mail")(0)
Return email
Catch ex As Exception
ClassLogger.Add("Error in GetEmail_FromDisplayname: " & ex.Message, True)
Return ""
End Try
End Function
Public Shared Function FindEmailsFromSamAccountName(ByVal samAccountName As String) As String
Dim ctx As New PrincipalContext(ContextType.Domain)
Dim qbeUser As New UserPrincipal(ctx)
qbeUser.SamAccountName = samAccountName
qbeUser.Enabled = True
Dim srch As New PrincipalSearcher(qbeUser)
For Each foundUser In srch.FindAll
Dim up As UserPrincipal = CType(foundUser, UserPrincipal)
Return up.EmailAddress
Next
Return ""
End Function
Function GetActiveDirectoryGroups() As List(Of String)
Me.Cursor = Cursors.WaitCursor
Dim groups As List(Of String) = New List(Of String)
@ -31,35 +183,101 @@ Public Class frmUserKonfig_AddUsers
Return groups
End Function
Public Function GetGroupUsers(ByVal strGroupName As String)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'
' Returns all the users of a specific group
' Each user on seperate line in the string
' The group name being passed is not case sensitive
'
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim dsDirectorySearcher As New DirectorySearcher
Dim strUsers As String
Dim intEqualsIndex As Integer
Dim intCommaIndex As Integer
Dim result As New List(Of String)
'Filter by group name
With dsDirectorySearcher
.Filter = "sAMAccountName=" & strGroupName
.PropertiesToLoad.Add("member")
Try
'Retrieve results
Dim dsResult As SearchResult = .FindOne
Dim intCounter As Integer
If dsResult Is Nothing Then
'No results returned
Return Nothing
End If
Dim d = dsResult.Properties("member").Count
For intCounter = 0 To dsResult.Properties("member").Count - 1
strUsers = dsResult.Properties("member")(intCounter).ToString
'Get index of equals and comma
intEqualsIndex = strUsers.IndexOf("=", 1)
intCommaIndex = strUsers.IndexOf(",", 1)
If intEqualsIndex = -1 Then
Return Nothing
End If
'Console.WriteLine(strUsers)
'Extract name from string and append to List
result.Add(strUsers.Substring((intEqualsIndex + 1), (intCommaIndex - intEqualsIndex) - 1))
Next intCounter
Catch ex As Exception
MessageBox.Show("Error in GetGroupUsers Function" & vbNewLine & vbNewLine _
& ex.Message, "Active Directory Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End With
Return result
End Function
Function GetUsersForGroup(g As String) As List(Of UserPrincipal)
Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal)
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g)
'Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
'Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g)
Dim u = group.GetMembers(True)
'Dim u = group.GetMembers(True)
For Each user In u
If user.GetType().Name = "UserPrincipal" Then
users.Add(user)
End If
Next
'For Each user In u
' If user.GetType().Name = "UserPrincipal" Then
' users.Add(user)
' End If
'Next
Return users
End Function
Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged
Me.Cursor = Cursors.WaitCursor
Dim group As String = lbGroups.SelectedItem
Dim users As List(Of UserPrincipal) = GetUsersForGroup(group)
Dim users As List(Of String) = GetGroupUsers(group)
clbUsers.Items.Clear()
If users Is Nothing Then
Me.Cursor = Cursors.Default
Exit Sub
End If
For Each user In users
clbUsers.Items.Add(user)
Next
Me.Cursor = Cursors.Default
End Sub
Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click
Try
Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
Dim usersAdded As Integer = 0
@ -68,15 +286,16 @@ Public Class frmUserKonfig_AddUsers
Exit Sub
End If
For Each item As UserPrincipal In items
Dim user As UserPrincipal = item
Dim PRENAME As String = user.GivenName
Dim NAME As String = user.Surname
Dim email As String = user.EmailAddress
Dim USERNAME As String = user.SamAccountName.ToLower()
For Each item In items
Dim user As String = item.ToString
Dim PRENAME As String = GetProperty_LDAP(user, "givenName")
Dim NAME As String = GetProperty_LDAP(user, "sn")
Dim email As String = GetProperty_LDAP(user, "mail")
Dim USERNAME As String = GetProperty_LDAP(user, "samaccountname")
Dim SQL
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & Environment.UserName & "')"
SQL = String.Format("INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_GI,ADDED_WHO) VALUES('{0}', '{1}', '{2}','{3}',1,'{4}')", PRENAME, NAME, USERNAME, email, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
End If
@ -93,6 +312,10 @@ Public Class frmUserKonfig_AddUsers
Else
MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information)
End If
Catch ex As Exception
MsgBox("Error in Adding Users from LDAP: " & vbNewLine & ex.Message)
End Try
End Sub
@ -125,4 +348,18 @@ Public Class frmUserKonfig_AddUsers
clbUsers.SetItemChecked(i, False)
Next
End Sub
'Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
' Me.Cursor = Cursors.WaitCursor
' Dim user As String = clbUsers.SelectedItem
' Dim usrname = GetProperty_LDAP(user, "samaccountname")
' If Not IsNothing(usrname) Then
' MsgBox(usrname)
' End If
' Dim email = GetProperty_LDAP(user, "mail")
' If Not IsNothing(email) Then
' MsgBox(email)
' End If
'End Sub
End Class

54
SetupWix/Product.wxs
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension">
<Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.7.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
<Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.9.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252">
<Package Id="*" Keywords="Installer" Description="Digital Data Global Indexer Setup" Comments="Global Indexer is a registered Trademark of Digital Data" Manufacturer="Digital Data" InstallerVersion="100" Languages="1031" Compressed="yes" SummaryCodepage="1252"/>
<!-- Nicht entfernen! -->
@ -71,6 +71,11 @@
<File Id="ReleaseNote" Name="Release Notes.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\GlobalIndexer\Release Notes.txt" KeyPath="yes">
</File>
</Component>
<!-- Die ApplicationIco -->
<Component Id="ApplicationIco" Guid="5C2EEA18-0718-41E9-A8C6-38D3C622921B">
<File Id="ApplicationIco" Name="DD_Icons_ICO_GLOBIX_128.ico" Source="S:\DIGITAL DATA\DIGITAL DATA - Produkte\ico\DD_Icons_ICO_GLOBIX_128.ico" KeyPath="yes">
</File>
</Component>
<!--WINDREAM Bibliotheken-->
<Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646">
@ -87,29 +92,29 @@
<!-- DEVEXPRESS Bibliotheken -->
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191">
<File Id="DevExpress.Charts.v14.2.Core" Name="DevExpress.Charts.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Charts.v14.2.Core.dll" KeyPath="yes" />
<File Id="DevExpress.Data.v14.2" Name="DevExpress.Data.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Data.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v14.2" Name="DevExpress.DataAccess.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.DataAccess.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v14.2.UI.dll" Name="DevExpress.DataAccess.v14.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.DataAccess.v14.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.Office.v14.2.Core" Name="DevExpress.Office.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Office.v14.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v14.2.Core" Name="DevExpress.Pdf.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Pdf.v14.2.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v14.2.Drawing" Name="DevExpress.Pdf.v14.2.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Pdf.v14.2.Drawing.dll" KeyPath="no" />
<File Id="DevExpress.Printing.v14.2.Core" Name="DevExpress.Printing.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Printing.v14.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.RichEdit.v14.2.Core" Name="DevExpress.RichEdit.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.RichEdit.v14.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Sparkline.v14.2.Core" Name="DevExpress.Sparkline.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Sparkline.v14.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Spreadsheet.v14.2.Core" Name="DevExpress.Spreadsheet.v14.2.Core.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Spreadsheet.v14.2.Core.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v14.2" Name="DevExpress.Utils.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Utils.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v14.2.UI" Name="DevExpress.Utils.v14.2.UI.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.Utils.v14.2.UI.dll" KeyPath="no" />
<File Id="DevExpress.XtraCharts.v14.2" Name="DevExpress.XtraCharts.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraCharts.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraBars.v14.2" Name="DevExpress.XtraBars.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraBars.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraEditors.v14.2" Name="DevExpress.XtraEditors.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraEditors.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraGrid.v14.2" Name="DevExpress.XtraGrid.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraGrid.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraNavBar.v14.2" Name="DevExpress.XtraNavBar.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraNavBar.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPdfViewer.v14.2" Name="DevExpress.XtraPdfViewer.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraPdfViewer.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraPrinting.v14.2" Name="DevExpress.XtraPrinting.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraPrinting.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraRichEdit.v14.2" Name="DevExpress.XtraRichEdit.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraRichEdit.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraSpreadsheet.v14.2" Name="DevExpress.XtraSpreadsheet.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.XtraTreeList.v14.2" Name="DevExpress.XtraTreeList.v14.2.dll" Source="D:\Programme\Sprachen\DevExpress 14.2\Components\Bin\Framework\DevExpress.XtraTreeList.v14.2.dll" KeyPath="no" />
<File Id="DevExpress.Charts.v15.1.Core" Name="DevExpress.Charts.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Charts.v15.1.Core.dll" KeyPath="yes" />
<File Id="DevExpress.Data.v15.1" Name="DevExpress.Data.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Data.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1" Name="DevExpress.DataAccess.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.DataAccess.v15.1.UI.dll" Name="DevExpress.DataAccess.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.UI.dll" KeyPath="no" />
<File Id="DevExpress.Office.v15.1.Core" Name="DevExpress.Office.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Office.v15.1.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Core" Name="DevExpress.Pdf.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Core.dll" KeyPath="no"/>
<File Id="DevExpress.Pdf.v15.1.Drawing" Name="DevExpress.Pdf.v15.1.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Drawing.dll" KeyPath="no" />
<File Id="DevExpress.Printing.v15.1.Core" Name="DevExpress.Printing.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Printing.v15.1.Core.dll" KeyPath="no" />
<File Id="DevExpress.RichEdit.v15.1.Core" Name="DevExpress.RichEdit.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.RichEdit.v15.1.Core.dll" KeyPath="no" />
<File Id="DevExpress.Sparkline.v15.1.Core" Name="DevExpress.Sparkline.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Sparkline.v15.1.Core.dll" KeyPath="no" />
<File Id="DevExpress.Spreadsheet.v15.1.Core" Name="DevExpress.Spreadsheet.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Spreadsheet.v15.1.Core.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1" Name="DevExpress.Utils.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.Utils.v15.1.UI" Name="DevExpress.Utils.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.UI.dll" KeyPath="no" />
<File Id="DevExpress.XtraCharts.v15.1" Name="DevExpress.XtraCharts.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraCharts.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraBars.v15.1" Name="DevExpress.XtraBars.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraBars.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraEditors.v15.1" Name="DevExpress.XtraEditors.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraEditors.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraGrid.v15.1" Name="DevExpress.XtraGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraGrid.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraNavBar.v15.1" Name="DevExpress.XtraNavBar.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraNavBar.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraPdfViewer.v15.1" Name="DevExpress.XtraPdfViewer.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraPrinting.v15.1" Name="DevExpress.XtraPrinting.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPrinting.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraRichEdit.v15.1" Name="DevExpress.XtraRichEdit.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraSpreadsheet.v15.1" Name="DevExpress.XtraSpreadsheet.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.1.dll" KeyPath="no" />
<File Id="DevExpress.XtraTreeList.v15.1" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" KeyPath="no" />
</Component>
<!-- Digital-Data DLLS -->
@ -157,6 +162,7 @@
<ComponentRef Id="DevExpressLibs" />
<ComponentRef Id="ProgramMenuDir"/>
<ComponentRef Id="RegistryEntries"/>
<ComponentRef Id="ApplicationIco"/>
</Feature>
<!-- Legt das Standard-Installationsverzeichnis fest-->