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" > <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" /> <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>
<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> </configSections>
<connectionStrings> <connectionStrings>
<add name="Global_Indexer.My.MySettings.DD_ECMConnectionString" <add name="Global_Indexer.My.MySettings.DD_ECMConnectionString"
@ -27,6 +30,16 @@
<setting name="DoNot_Show_Documents" serializeAs="String"> <setting name="DoNot_Show_Documents" serializeAs="String">
<value>False</value> <value>False</value>
</setting> </setting>
<setting name="AppTerminate" serializeAs="String">
<value>False</value>
</setting>
</Global_Indexer.My.MySettings> </Global_Indexer.My.MySettings>
</userSettings> </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> </configuration>

18
Global_Indexer/ClassDragDrop.vb
View File

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

5
Global_Indexer/ClassFilehandle.vb
View File

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

19
Global_Indexer/ClassHotkey_Windream.vb
View File

@ -2,6 +2,16 @@
Imports System.Text Imports System.Text
Public Class ClassHotkey_Windream 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 fileContents As String
Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String) Private Shared Function IsRelevantWindow(windowname As String, myControlNo As Integer, Value As String)
Try Try
@ -9,9 +19,11 @@ Public Class ClassHotkey_Windream
Dim enumerator1 As New ClassWindowAPI Dim enumerator1 As New ClassWindowAPI
'Jedes Formularwindow durchlaufen 'Jedes Formularwindow durchlaufen
For Each top As ClassWindowAPI.ApiWindow In enumerator1.GetTopLevelWindows() 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 If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
Control_Sequence = 0 Control_Sequence = 0
For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd) For Each vControl As ClassWindowAPI.ApiWindow In enumerator1.GetChildWindows(top.hWnd)
If vControl.MainWindowTitle <> "" Then If vControl.MainWindowTitle <> "" Then
If Control_Sequence = myControlNo Then If Control_Sequence = myControlNo Then
If Value.ToUpper = vControl.MainWindowTitle.ToUpper 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) windowname = ClassDatabase.Execute_Scalar("SELECT WINDOW_NAME FROM TBHOTKEY_PROFILE WHERE GUID = " & HKPROFILE_ID, MyConnectionString, True)
fileContents = "" fileContents = ""
'Eine tempfile generieren 'Eine tempfile generieren
Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName()
'Nur den Filenamen ohne Erweiterung 'Nur den Filenamen ohne Erweiterung
@ -205,6 +215,7 @@ Public Class ClassHotkey_Windream
End Try End Try
CURRENT_WD_TEMPSEARCH = windream_temp_search CURRENT_WD_TEMPSEARCH = windream_temp_search
TEMP_FILES.Add(CURRENT_WD_TEMPSEARCH)
Try Try
Dim myhWnd As IntPtr Dim myhWnd As IntPtr
Dim p As New Process() Dim p As New Process()
@ -269,9 +280,9 @@ Public Class ClassHotkey_Windream
End Function End Function
Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer Private Declare Function ShowWindow Lib "user32" (ByVal handle As IntPtr, ByVal nCmdShow As Integer) As Integer
Declare Auto Function SetForeGroundWindow Lib "User32.dll" (ByVal Hwnd As IntPtr) As Integer Declare Auto Function SetForeGroundWindow Lib "User32.dll" (ByVal Hwnd As IntPtr) As Integer
End Class End Class

26
Global_Indexer/ClassLayout.vb
View File

@ -2,10 +2,9 @@
Imports System.IO Imports System.IO
Public Class ClassWindowLocation Public Class ClassWindowLocation
Public Shared Sub LoadFormLocationSize(ByRef form As Form) Public Shared Sub LoadFormLocationSize(ByRef form As Form)
Try Try
Dim _path As String Dim _path As String
_path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml") _path = Path.Combine(Application.UserAppDataPath(), "FORM" & form.Name & "-PositionSize.xml")
Dim layout As ClassLayout = New ClassLayout(_path) Dim layout As ClassLayout = New ClassLayout(_path)
@ -19,10 +18,9 @@ Public Class ClassWindowLocation
settings.Add(New ClassSetting("Height", form.Size.Height)) settings.Add(New ClassSetting("Height", form.Size.Height))
layout.Save(settings) layout.Save(settings)
End If End If
Dim x, y, w, h As Integer
For Each s As ClassSetting In settings For Each s As ClassSetting In settings
Dim x, y, w, h As Integer 'MsgBox(s._name & vbNewLine & s._value)
Select Case s._name Select Case s._name
Case "PositionX" Case "PositionX"
x = Integer.Parse(s._value) x = Integer.Parse(s._value)
@ -33,23 +31,25 @@ Public Class ClassWindowLocation
Case "Height" Case "Height"
h = Integer.Parse(s._value) h = Integer.Parse(s._value)
End Select End Select
Next
If x = 5000 Then If x = 5000 Then
form.WindowState = FormWindowState.Maximized form.WindowState = FormWindowState.Maximized
Else Else
If x > 0 Then If x > 0 And y > 0 Then
form.Location = New Point(x, y) form.Location = New Point(x, y)
End If End If
If w > 0 And h > 0 Then
form.Size = New Size(w, h) form.Size = New Size(w, h)
End If End If
Next End If
Catch notFoundEx As System.IO.FileNotFoundException Catch notFoundEx As System.IO.FileNotFoundException
Catch ex As Exception Catch ex As Exception
MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error while loading Window Position!" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
Public Shared Sub SaveFormLocationSize(ByRef form As Form) Public Shared Sub SaveFormLocationSize(ByRef form As Form)
Try Try

248
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) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeFulltext", False)
convertValue = CStr(value) convertValue = CStr(value)
Case 4097 Case 4097
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4097 Vektor alphanumerisch", False)
'Vektor alphanumerisch 'Vektor alphanumerisch
vektor = True convertValue = CStr(value)
Case 4098 Case 4098
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4098 Vektor Numerisch", False)
'Vektor Numerisch 'Vektor Numerisch
vektor = True convertValue = CStr(value)
Case 4099 Case 4099
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4099 Vektor Kommazahl", False)
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True convertValue = CStr(value)
Case 4101 Case 4101
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4101 Vektor Date", False)
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True convertValue = CStr(value)
Case 4103 Case 4103
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4103 Vektor DateTime", False)
'Vektor DateTime 'Vektor DateTime
vektor = True convertValue = CStr(value)
Case 4107 Case 4107
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False)
vektor = True vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 4107 Integer 64bit", False)
convertValue = CStr(value)
Case 36865 Case 36865
vektor = True
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: 36865 Vektor alphanumerisch", False)
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True convertValue = CStr(value)
Case Else Case Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes konnte nicht bestimmt werden!", False) 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) If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch des Auslesens (vType): " & vType)
@ -1088,15 +1095,164 @@ Public Class ClassWindream
ClassLogger.Add(" >> Kein Indexwert vorhanden", False) ClassLogger.Add(" >> Kein Indexwert vorhanden", False)
End If End If
Else 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(" >> 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
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False)
End If End If
i += 1 i += 1
Next Next
@ -1118,6 +1274,80 @@ Public Class ClassWindream
oDocument.unlock() oDocument.unlock()
Return False Return False
End Try 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 End Function
Private Shared Function IsNotEmpty(ByVal aValue As Object) Private Shared Function IsNotEmpty(ByVal aValue As Object)

89
Global_Indexer/Global_Indexer.vbproj
View File

@ -47,38 +47,41 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<ApplicationIcon>globe_handdrawn.ico</ApplicationIcon> <ApplicationIcon>DD_Icons_ICO_GLOBIX_128.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest> <ApplicationManifest>My Project\app.manifest</ApplicationManifest>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DevExpress.Charts.v14.2.Core, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Charts.v15.1.Core, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Data.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.DataAccess.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.DataAccess.v14.2.UI, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2.Drawing, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2.Core, Version=14.2.3.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.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Utils.v14.2.UI, Version=14.2.3.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.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraCharts.v15.1.Wizard, Version=15.1.7.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.XtraCharts.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraGrid.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<Reference Include="DevExpress.XtraNavBar.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <SpecificVersion>False</SpecificVersion>
<Reference Include="DevExpress.XtraPdfViewer.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> </Reference>
<Reference Include="DevExpress.XtraPrinting.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraGrid.v15.1, Version=15.1.7.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.XtraNavBar.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraSpreadsheet.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" /> <Reference Include="DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraTreeList.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" /> <Reference Include="DevExpress.XtraPrinting.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DLLLicenseManager"> <Reference Include="DevExpress.XtraRichEdit.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<HintPath>..\..\..\Kunden - Produktiv\PROCESSMANAGER\DD-ProcessManagerWindream\DD_PM_WINDREAM\DD_PM_WINDREAM\bin\Debug\DLLLicenseManager.dll</HintPath> <Reference Include="DevExpress.XtraSpreadsheet.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<EmbedInteropTypes>False</EmbedInteropTypes> <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>
<Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL"> <Reference Include="Independentsoft.Msg, Version=2.0.140.29929, Culture=neutral, PublicKeyToken=76be97fe952f1ec7, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion> <SpecificVersion>False</SpecificVersion>
@ -133,13 +136,16 @@
</Compile> </Compile>
<Compile Include="ClassDatabase.vb" /> <Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEmail.vb" />
<Compile Include="ClassEncryption.vb" /> <Compile Include="ClassEncryption.vb" />
<Compile Include="ClassFilehandle.vb" /> <Compile Include="ClassFilehandle.vb" />
<Compile Include="ClassFolderWatcher.vb" /> <Compile Include="ClassFolderWatcher.vb" />
<Compile Include="ClassFormFunctions.vb" /> <Compile Include="ClassFormFunctions.vb" />
<Compile Include="ClassHotkey_Windream.vb" /> <Compile Include="ClassHotkey_Windream.vb" />
<Compile Include="ClassIndexFunctions.vb" /> <Compile Include="ClassIndexFunctions.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLayout.vb" /> <Compile Include="ClassLayout.vb" />
<Compile Include="ClassLicence.vb" />
<Compile Include="ClassLogger.vb" /> <Compile Include="ClassLogger.vb" />
<Compile Include="ClassPostprocessing.vb" /> <Compile Include="ClassPostprocessing.vb" />
<Compile Include="ClassWindowAPI.vb" /> <Compile Include="ClassWindowAPI.vb" />
@ -206,6 +212,12 @@
<Compile Include="frmNamenkonvention.vb"> <Compile Include="frmNamenkonvention.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </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"> <Compile Include="frmSQL-Result.Designer.vb">
<DependentUpon>frmSQL-Result.vb</DependentUpon> <DependentUpon>frmSQL-Result.vb</DependentUpon>
</Compile> </Compile>
@ -283,6 +295,9 @@
<EmbeddedResource Include="frmAdministration.resx"> <EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon> <DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.en.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmConfig_Basic.resx"> <EmbeddedResource Include="frmConfig_Basic.resx">
<DependentUpon>frmConfig_Basic.vb</DependentUpon> <DependentUpon>frmConfig_Basic.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -311,6 +326,9 @@
<EmbeddedResource Include="frmNamenkonvention.resx"> <EmbeddedResource Include="frmNamenkonvention.resx">
<DependentUpon>frmNamenkonvention.vb</DependentUpon> <DependentUpon>frmNamenkonvention.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSQL-Result.resx"> <EmbeddedResource Include="frmSQL-Result.resx">
<DependentUpon>frmSQL-Result.vb</DependentUpon> <DependentUpon>frmSQL-Result.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -323,6 +341,15 @@
<EmbeddedResource Include="frmSQL_Admin.resx"> <EmbeddedResource Include="frmSQL_Admin.resx">
<DependentUpon>frmSQL_Admin.vb</DependentUpon> <DependentUpon>frmSQL_Admin.vb</DependentUpon>
</EmbeddedResource> </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"> <EmbeddedResource Include="frmStart.resx">
<DependentUpon>frmStart.vb</DependentUpon> <DependentUpon>frmStart.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -538,7 +565,15 @@
<None Include="Resources\arrow_Up_16xLG.png" /> <None Include="Resources\arrow_Up_16xLG.png" />
</ItemGroup> </ItemGroup>
<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" /> <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_16xMD.png" />
<None Include="Resources\action_add_16xLG1.png" /> <None Include="Resources\action_add_16xLG1.png" />
<None Include="Resources\globe_handdrawn.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_LASTDOKART As String = ""
Public CURRENT_INDEXMAN As Integer Public CURRENT_INDEXMAN As Integer
Public CURRENT_INDEXAUTO As Integer Public CURRENT_INDEXAUTO As Integer
Public CURRENT_SQL_CONFIG As String
Public VERSION_DELIMITER As String Public VERSION_DELIMITER As String
Public FILE_DELIMITER As String Public FILE_DELIMITER As String
Public CURRENT_MESSAGEID As String Public CURRENT_MESSAGEID As String
Public CURRENT_MESSAGEDATE As String Public CURRENT_MESSAGEDATE As String
Public CURRENT_MESSAGESUBJECT As String Public CURRENT_MESSAGESUBJECT As String
Public CURRENT_ISATTACHMENT As Boolean = False Public CURRENT_ISATTACHMENT As Boolean = False
Public CURRENT_USERID As Integer 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_FOLDERWATCH As String = ""
Public CURRENT_SCAN_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_WD_DIRECT As Boolean = False
Public CURR_DOKART_OBJECTTYPE As String Public CURR_DOKART_OBJECTTYPE As String
Public CURRENT_WD_TEMPSEARCH As String = "" Public CURRENT_WD_TEMPSEARCH As String = ""
Public License_Expired As Boolean = False Public LICENSE_EXPIRED As Boolean = False
Public License_Anzahl As Integer = 0 Public LICENSE_COUNT As Integer = 0
Public LicenseProfiles As Integer = 0 Public LICENSE_DOCTYPE_COUNT As Integer = 0
Public DOCTYPE_COUNT_ACTUAL As Integer = 0
Public LicenseHotKey As Integer = 0 Public LicenseHotKey As Integer = 0
Public UserLoggedin As Integer = 0
Public CURRENT_HTML_DOC As String Public CURRENT_HTML_DOC As String
Public CURRENT_ABBRUCH As Integer = 0 Public CURRENT_ABBRUCH As Integer = 0
@ -41,5 +53,10 @@
Public CURRENT_SQLRESULT As String Public CURRENT_SQLRESULT As String
Public DTSQL_RESULT As DataTable 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 End Module

4
Global_Indexer/ModuleMySettings.vb
View File

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

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

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' 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 ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -24,7 +24,7 @@ Namespace My
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New() Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false Me.IsSingleInstance = true
Me.EnableVisualStyles = true Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 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"> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>frmStart</MainForm> <MainForm>frmStart</MainForm>
<SingleInstance>false</SingleInstance> <SingleInstance>true</SingleInstance>
<ShutdownMode>0</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <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 ' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Title Global Indexer")> <Assembly: AssemblyTitle("Global Indexer")>
<Assembly: AssemblyDescription("")> <Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")> <Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Global Indexer")> <Assembly: AssemblyProduct("Global Indexer")>
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.7.7.0")> <Assembly: AssemblyVersion("1.9.0.0")>
<Assembly: AssemblyFileVersion("1.0.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> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' 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 ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -300,6 +300,26 @@ Namespace My.Resources
End Get End Get
End Property 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> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</summary>
@ -340,6 +360,16 @@ Namespace My.Resources
End Get End Get
End Property 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> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</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"> <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> <value>..\Resources\arrow_back_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\arrow_Up_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -133,15 +136,15 @@
<data name="WindowsForm_817_12x" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\WindowsForm_817_12x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\gear_32xSM.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="bell_delete" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\bell_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -178,6 +181,9 @@
<data name="folder_go" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\handdrawn_arrow_right_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -187,9 +193,15 @@
<data name="key" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -205,24 +217,18 @@
<data name="Einstellungen5" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\Einstellungen5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\bullet_arrow_top.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="CheckOutforEdit_13187_32x" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\CheckOutforEdit_13187_32x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="save_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_save1" 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> <value>..\Resources\database_save1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="action_add_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\arrow_left.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -238,17 +244,23 @@
<data name="database_refresh" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\database_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\Selectallrowsfrom_tableA__294.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Excel_25ixel" 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> <value>..\Resources\Excel_25ixel.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="delete2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <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"> <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> <value>..\Resources\gear_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="Save_6530" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Shortcut_8169_16x" 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> <value>..\Resources\Shortcut_8169_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="database_save" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="action_add_16xLG1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="DD_Icons_ICO_GLOBIX_128" 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> <value>..\Resources\DD_Icons_ICO_GLOBIX_128.ico;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>
</root> </root>

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

@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' 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 ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@ -67,7 +67,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 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 Public Property SplitterDistance_Viewer() As Integer
Get Get
Return CType(Me("SplitterDistance_Viewer"),Integer) Return CType(Me("SplitterDistance_Viewer"),Integer)
@ -79,7 +80,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 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 Public Property WDSearch_maximized() As Boolean
Get Get
Return CType(Me("WDSearch_maximized"),Boolean) Return CType(Me("WDSearch_maximized"),Boolean)
@ -91,7 +93,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 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 Public Property Show_IndexResult() As Boolean
Get Get
Return CType(Me("Show_IndexResult"),Boolean) Return CType(Me("Show_IndexResult"),Boolean)
@ -103,7 +106,8 @@ Namespace My
<Global.System.Configuration.UserScopedSettingAttribute(), _ <Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ 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 Public Property DoNot_Show_Documents() As Boolean
Get Get
Return CType(Me("DoNot_Show_Documents"),Boolean) Return CType(Me("DoNot_Show_Documents"),Boolean)
@ -112,6 +116,28 @@ Namespace My
Me("DoNot_Show_Documents") = value Me("DoNot_Show_Documents") = value
End Set End Set
End Property 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 Class
End Namespace End Namespace

14
Global_Indexer/My Project/Settings.settings
View File

@ -10,16 +10,22 @@
&lt;/SerializableConnectionString&gt;</DesignTimeValue> &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> <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>
<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> <Value Profile="(Default)">526</Value>
</Setting> </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> <Value Profile="(Default)">True</Value>
</Setting> </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> <Value Profile="(Default)">True</Value>
</Setting> </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> <Value Profile="(Default)">False</Value>
</Setting> </Setting>
</Settings> </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.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.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.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v14.2, Version=14.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.1, Version=15.1.7.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

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"> <metadata name="NAMELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </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"> <metadata name="COMMENTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </metadata>
@ -327,6 +324,9 @@
<metadata name="VARIANTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="VARIANTLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </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"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
@ -337,10 +337,10 @@
<value>134, 17</value> <value>134, 17</value>
</metadata> </metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_INDEX_MANBindingNav.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <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"> <data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
@ -415,13 +415,13 @@
</value> </value>
</data> </data>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBWHDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<data name="ToolStripButton24.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton24.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -495,10 +495,10 @@
</value> </value>
</data> </data>
<metadata name="TBDD_INDEX_AUTOMBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton16.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -572,19 +572,19 @@
</value> </value>
</data> </data>
<metadata name="TBDD_USER_GROUPSBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="VWGI_DOCTYPE_GROUPBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_EINGANGSARTENBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_MODULESBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_DOKART_MODULEBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_DOKUMENTARTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_DOKUMENTARTBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>921, 17</value> <value>921, 17</value>
@ -661,10 +661,10 @@
</value> </value>
</data> </data>
<metadata name="VWGI_USER_GROUPS_RELATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_USER_GROUPSBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<data name="ToolStripButton32.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton32.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -738,10 +738,10 @@
</value> </value>
</data> </data>
<metadata name="TBDD_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> </metadata>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
@ -815,10 +815,10 @@
</value> </value>
</data> </data>
<metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBGI_CONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TBDD_DOKUMENTARTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>499, 17</value> <value>499, 17</value>
@ -827,49 +827,49 @@
<value>748, 17</value> <value>748, 17</value>
</metadata> </metadata>
<metadata name="TBDD_EINGANGSARTENTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_DOKART_MODULETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_MODULESTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBGI_CONFIGURATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_INDEX_AUTOMTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBWHDD_INDEX_MANTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_USER_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="VWGI_USER_GROUPS_RELATIONTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_GROUPS_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="TBDD_GROUPS_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="VWGI_DOCTYPE_GROUPTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>173</value> <value>173</value>

38
Global_Indexer/frmAdministration.vb
View File

@ -17,14 +17,14 @@
Try Try
Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN) Me.TBDD_EINGANGSARTENTableAdapter.Fill(Me.MyDataset.TBDD_EINGANGSARTEN)
Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES) Me.TBDD_MODULESTableAdapter.Fill(Me.MyDataset.TBDD_MODULES)
If GI_withWindream = True Then
If ClassWindream.Init() = True Then
End If
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) MsgBox("Error in frmAdministration_Load: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try End Try
If GI_withWindream = True Then
If ClassWindream.Init() = True Then
End If
End If
End Sub End Sub
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
@ -166,6 +166,21 @@
Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew Private Sub TBDD_DOKUMENTARTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_DOKUMENTARTBindingSource.AddingNew
Save_Dokumentart() 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 MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
enableControls(XtraTabPage1) enableControls(XtraTabPage1)
IsInsert = True IsInsert = True
@ -197,6 +212,7 @@
Try Try
If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then If Me.OBJEKTTYPComboBox.SelectedIndex <> -1 Then
Me.WD_INDEXComboBox.Items.Clear() Me.WD_INDEXComboBox.Items.Clear()
Me.WD_INDEXComboBox.Items.Add("")
Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text) Dim indexe = ClassWindream.GetIndicesByObjecttype(OBJEKTTYPComboBox.Text)
If indexe IsNot Nothing Then If indexe IsNot Nothing Then
For Each index As String In indexe For Each index As String In indexe
@ -247,6 +263,7 @@
End If End If
frmloaded = True frmloaded = True
tscmbUser.SelectedIndex = 0 tscmbUser.SelectedIndex = 0
TBDD_INDEX_MANBindingNav.Visible = True
End Sub End Sub
Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click Private Sub btndeleteZuordnung_Click(sender As Object, e As EventArgs) Handles btndeleteZuordnung.Click
@ -480,13 +497,14 @@
OBJEKTTYPComboBox.Visible = True OBJEKTTYPComboBox.Visible = True
lblObjekttyp.Visible = True lblObjekttyp.Visible = True
WD_INDEXComboBox.Visible = True WD_INDEXComboBox.Visible = True
lblWDINDEX.Visible = True
If ClassWindream.Init() = True Then If ClassWindream.Init() = True Then
ObjektTypenEintragen() ObjektTypenEintragen()
End If End If
Else Else
OBJEKTTYPComboBox.Visible = False OBJEKTTYPComboBox.Visible = False
lblObjekttyp.Visible = False lblObjekttyp.Visible = False
lblWDINDEX.Visible = False
WD_INDEXComboBox.Visible = False WD_INDEXComboBox.Visible = False
End If End If
End Sub End Sub
@ -590,7 +608,9 @@
Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click Private Sub btnSQLViewAuto_Click(sender As Object, e As EventArgs) Handles btnSQLViewAuto.Click
Save_IndexAuto() Save_IndexAuto()
CURRENT_DOKART_ID = DOKART_GUIDTextBox.Text
CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text CURRENT_INDEXAUTO = GUIDAUTO_INDEXTextbox.Text
CURRENT_SQL_CONFIG = "AUTO"
SQLConfigAutoIndex.ShowDialog() SQLConfigAutoIndex.ShowDialog()
End Sub End Sub
@ -930,7 +950,7 @@
Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & cmbCrFolderIndex.Text & "]" Me.FOLDER_FOR_INDEXTextBox.Text = str & "[%" & cmbCrFolderIndex.Text & "]"
cmbCrFolderIndex.SelectedIndex = -1 cmbCrFolderIndex.SelectedIndex = -1
ElseIf cmbCrFolderDate.SelectedIndex <> -1 Then 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 cmbCrFolderDate.SelectedIndex = -1
ElseIf txtcrFoldermanuell.Text <> "" Then ElseIf txtcrFoldermanuell.Text <> "" Then
Me.FOLDER_FOR_INDEXTextBox.Text = str & txtcrFoldermanuell.Text 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 Private Sub ToolStripButton41_Click(sender As Object, e As EventArgs) Handles ToolStripButton41.Click
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End Sub End Sub
Private Sub FOLDER_FOR_INDEXTextBox_TextChanged(sender As Object, e As EventArgs) Handles FOLDER_FOR_INDEXTextBox.TextChanged
End Sub
End Class 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. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() 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 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.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.chkbxUserAut = New System.Windows.Forms.CheckBox() Me.chkbxUserAut = New System.Windows.Forms.CheckBox()
@ -39,17 +39,21 @@ Partial Class frmConfig_Basic
Me.txtPasswort = New System.Windows.Forms.TextBox() Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button() Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage() 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.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.CheckBox2 = 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.chkLogErrorsOnly = New System.Windows.Forms.CheckBox()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.txtuniversalViewer = New System.Windows.Forms.TextBox() Me.txtuniversalViewer = New System.Windows.Forms.TextBox()
Me.lblUniversalViewer = New System.Windows.Forms.Label() 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.TabPage3 = New System.Windows.Forms.TabPage()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
Me.DataGridView1 = New System.Windows.Forms.DataGridView() Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox() Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
@ -59,6 +63,7 @@ Partial Class frmConfig_Basic
Me.btnFW_Desktop = New System.Windows.Forms.Button() Me.btnFW_Desktop = New System.Windows.Forms.Button()
Me.txtFolderWatch = New System.Windows.Forms.TextBox() Me.txtFolderWatch = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
Me.btnSaveExclusionFiles = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button() Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
@ -71,18 +76,16 @@ Partial Class frmConfig_Basic
' '
'TabControl1 'TabControl1
' '
resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) 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.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(695, 358)
Me.TabControl1.TabIndex = 0
' '
'TabPage1 'TabPage1
' '
resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Controls.Add(Me.chkbxUserAut) Me.TabPage1.Controls.Add(Me.chkbxUserAut)
Me.TabPage1.Controls.Add(Me.Label5) Me.TabPage1.Controls.Add(Me.Label5)
Me.TabPage1.Controls.Add(Me.cmbDatenbank) 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.txtUser)
Me.TabPage1.Controls.Add(Me.txtPasswort) Me.TabPage1.Controls.Add(Me.txtPasswort)
Me.TabPage1.Controls.Add(Me.BtnConnect) Me.TabPage1.Controls.Add(Me.BtnConnect)
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" 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 Me.TabPage1.UseVisualStyleBackColor = True
' '
'chkbxUserAut 'chkbxUserAut
' '
Me.chkbxUserAut.AutoSize = True resources.ApplyResources(Me.chkbxUserAut, "chkbxUserAut")
Me.chkbxUserAut.Location = New System.Drawing.Point(510, 36)
Me.chkbxUserAut.Name = "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 Me.chkbxUserAut.UseVisualStyleBackColor = True
' '
'Label5 'Label5
' '
Me.Label5.AutoSize = True resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Location = New System.Drawing.Point(5, 115)
Me.Label5.Name = "Label5" Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(150, 13)
Me.Label5.TabIndex = 46
Me.Label5.Text = "Aktueller ConnectionString:"
' '
'cmbDatenbank 'cmbDatenbank
' '
resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank")
Me.cmbDatenbank.FormattingEnabled = True Me.cmbDatenbank.FormattingEnabled = True
Me.cmbDatenbank.Location = New System.Drawing.Point(8, 82)
Me.cmbDatenbank.Name = "cmbDatenbank" Me.cmbDatenbank.Name = "cmbDatenbank"
Me.cmbDatenbank.Size = New System.Drawing.Size(252, 21)
Me.cmbDatenbank.TabIndex = 39
' '
'Label4 'Label4
' '
Me.Label4.AutoSize = True resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Location = New System.Drawing.Point(5, 62)
Me.Label4.Name = "Label4" Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(67, 13)
Me.Label4.TabIndex = 44
Me.Label4.Text = "Datenbank:"
' '
'Label1 'Label1
' '
Me.Label1.AutoSize = True resources.ApplyResources(Me.Label1, "Label1")
Me.Label1.Location = New System.Drawing.Point(5, 14)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(74, 13)
Me.Label1.TabIndex = 41
Me.Label1.Text = "Server-Name:"
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True resources.ApplyResources(Me.Label2, "Label2")
Me.Label2.Location = New System.Drawing.Point(299, 14)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(84, 13)
Me.Label2.TabIndex = 42
Me.Label2.Text = "Benutzername:"
' '
'Label3 'Label3
' '
Me.Label3.AutoSize = True resources.ApplyResources(Me.Label3, "Label3")
Me.Label3.Location = New System.Drawing.Point(423, 14)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(56, 13)
Me.Label3.TabIndex = 43
Me.Label3.Text = "Passwort:"
' '
'txtActualConnection 'txtActualConnection
' '
Me.txtActualConnection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ resources.ApplyResources(Me.txtActualConnection, "txtActualConnection")
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke Me.txtActualConnection.BackColor = System.Drawing.Color.WhiteSmoke
Me.txtActualConnection.Location = New System.Drawing.Point(8, 131)
Me.txtActualConnection.Name = "txtActualConnection" Me.txtActualConnection.Name = "txtActualConnection"
Me.txtActualConnection.ReadOnly = True Me.txtActualConnection.ReadOnly = True
Me.txtActualConnection.Size = New System.Drawing.Size(547, 22)
Me.txtActualConnection.TabIndex = 45
' '
'txtServer 'txtServer
' '
resources.ApplyResources(Me.txtServer, "txtServer")
Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtServer.Location = New System.Drawing.Point(8, 34)
Me.txtServer.Name = "txtServer" Me.txtServer.Name = "txtServer"
Me.txtServer.Size = New System.Drawing.Size(288, 22)
Me.txtServer.TabIndex = 36
' '
'txtUser 'txtUser
' '
resources.ApplyResources(Me.txtUser, "txtUser")
Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtUser.Location = New System.Drawing.Point(302, 34)
Me.txtUser.Name = "txtUser" Me.txtUser.Name = "txtUser"
Me.txtUser.Size = New System.Drawing.Size(118, 22)
Me.txtUser.TabIndex = 37
' '
'txtPasswort 'txtPasswort
' '
resources.ApplyResources(Me.txtPasswort, "txtPasswort")
Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText
Me.txtPasswort.Location = New System.Drawing.Point(426, 34)
Me.txtPasswort.Name = "txtPasswort" Me.txtPasswort.Name = "txtPasswort"
Me.txtPasswort.Size = New System.Drawing.Size(64, 22)
Me.txtPasswort.TabIndex = 38
Me.txtPasswort.UseSystemPasswordChar = True Me.txtPasswort.UseSystemPasswordChar = True
' '
'BtnConnect 'BtnConnect
' '
resources.ApplyResources(Me.BtnConnect, "BtnConnect")
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go 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.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 Me.BtnConnect.UseVisualStyleBackColor = True
' '
'TabPage2 '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.CheckBox3)
Me.TabPage2.Controls.Add(Me.CheckBox2) 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.chkLogErrorsOnly)
Me.TabPage2.Controls.Add(Me.Button1) Me.TabPage2.Controls.Add(Me.Button1)
Me.TabPage2.Controls.Add(Me.txtuniversalViewer) Me.TabPage2.Controls.Add(Me.txtuniversalViewer)
Me.TabPage2.Controls.Add(Me.lblUniversalViewer) 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.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 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 'CheckBox3
' '
Me.CheckBox3.AutoSize = True resources.ApplyResources(Me.CheckBox3, "CheckBox3")
Me.CheckBox3.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents 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.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.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 Me.CheckBox3.UseVisualStyleBackColor = True
' '
'CheckBox2 'CheckBox2
' '
Me.CheckBox2.AutoSize = True resources.ApplyResources(Me.CheckBox2, "CheckBox2")
Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked 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.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.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 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 'chkLogErrorsOnly
' '
Me.chkLogErrorsOnly.AutoSize = True resources.ApplyResources(Me.chkLogErrorsOnly, "chkLogErrorsOnly")
Me.chkLogErrorsOnly.Location = New System.Drawing.Point(11, 96)
Me.chkLogErrorsOnly.Name = "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 Me.chkLogErrorsOnly.UseVisualStyleBackColor = True
' '
'Button1 'Button1
' '
Me.Button1.Location = New System.Drawing.Point(478, 26) resources.ApplyResources(Me.Button1, "Button1")
Me.Button1.Name = "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 Me.Button1.UseVisualStyleBackColor = True
' '
'txtuniversalViewer 'txtuniversalViewer
' '
Me.txtuniversalViewer.Location = New System.Drawing.Point(11, 28) resources.ApplyResources(Me.txtuniversalViewer, "txtuniversalViewer")
Me.txtuniversalViewer.Name = "txtuniversalViewer" Me.txtuniversalViewer.Name = "txtuniversalViewer"
Me.txtuniversalViewer.Size = New System.Drawing.Size(461, 22)
Me.txtuniversalViewer.TabIndex = 1
' '
'lblUniversalViewer 'lblUniversalViewer
' '
Me.lblUniversalViewer.AutoSize = True resources.ApplyResources(Me.lblUniversalViewer, "lblUniversalViewer")
Me.lblUniversalViewer.Location = New System.Drawing.Point(8, 12)
Me.lblUniversalViewer.Name = "lblUniversalViewer" Me.lblUniversalViewer.Name = "lblUniversalViewer"
Me.lblUniversalViewer.Size = New System.Drawing.Size(95, 13) '
Me.lblUniversalViewer.TabIndex = 0 'btnLogMail
Me.lblUniversalViewer.Text = "Universal Viewer:" '
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 'TabPage3
' '
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Controls.Add(Me.Label8) Me.TabPage3.Controls.Add(Me.Label8)
Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
Me.TabPage3.Controls.Add(Me.DataGridView1) Me.TabPage3.Controls.Add(Me.DataGridView1)
Me.TabPage3.Controls.Add(Me.Button2) Me.TabPage3.Controls.Add(Me.Button2)
Me.TabPage3.Controls.Add(Me.txtScanFolderWatch) 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.btnFW_Desktop)
Me.TabPage3.Controls.Add(Me.txtFolderWatch) Me.TabPage3.Controls.Add(Me.txtFolderWatch)
Me.TabPage3.Controls.Add(Me.Label6) Me.TabPage3.Controls.Add(Me.Label6)
Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles)
Me.TabPage3.Controls.Add(Me.btnstartstop2) Me.TabPage3.Controls.Add(Me.btnstartstop2)
Me.TabPage3.Controls.Add(Me.btnstartstop1) Me.TabPage3.Controls.Add(Me.btnstartstop1)
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" 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 Me.TabPage3.UseVisualStyleBackColor = True
' '
'Label8 'Label8
' '
Me.Label8.AutoSize = True resources.ApplyResources(Me.Label8, "Label8")
Me.Label8.Location = New System.Drawing.Point(8, 197)
Me.Label8.Name = "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 'DataGridView1
' '
resources.ApplyResources(Me.DataGridView1, "DataGridView1")
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 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.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Location = New System.Drawing.Point(11, 213)
Me.DataGridView1.Name = "DataGridView1" Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(192, 113)
Me.DataGridView1.TabIndex = 11
' '
'Button2 'Button2
' '
Me.Button2.Location = New System.Drawing.Point(616, 142) resources.ApplyResources(Me.Button2, "Button2")
Me.Button2.Name = "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 Me.Button2.UseVisualStyleBackColor = True
' '
'txtScanFolderWatch 'txtScanFolderWatch
' '
resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch")
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
Me.txtScanFolderWatch.Location = New System.Drawing.Point(11, 142)
Me.txtScanFolderWatch.Name = "txtScanFolderWatch" Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
Me.txtScanFolderWatch.Size = New System.Drawing.Size(602, 22)
Me.txtScanFolderWatch.TabIndex = 8
' '
'Label7 'Label7
' '
Me.Label7.AutoSize = True resources.ApplyResources(Me.Label7, "Label7")
Me.Label7.Location = New System.Drawing.Point(8, 126)
Me.Label7.Name = "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 '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.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 Me.btnsetFW_Folder.UseVisualStyleBackColor = True
' '
'btnFW_OwnFiles '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.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 Me.btnFW_OwnFiles.UseVisualStyleBackColor = True
' '
'btnFW_Desktop '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.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 Me.btnFW_Desktop.UseVisualStyleBackColor = True
' '
'txtFolderWatch 'txtFolderWatch
' '
resources.ApplyResources(Me.txtFolderWatch, "txtFolderWatch")
Me.txtFolderWatch.BackColor = System.Drawing.Color.Khaki Me.txtFolderWatch.BackColor = System.Drawing.Color.Khaki
Me.txtFolderWatch.Location = New System.Drawing.Point(11, 30)
Me.txtFolderWatch.Name = "txtFolderWatch" Me.txtFolderWatch.Name = "txtFolderWatch"
Me.txtFolderWatch.Size = New System.Drawing.Size(602, 22)
Me.txtFolderWatch.TabIndex = 1
' '
'Label6 'Label6
' '
Me.Label6.AutoSize = True resources.ApplyResources(Me.Label6, "Label6")
Me.Label6.Location = New System.Drawing.Point(8, 14)
Me.Label6.Name = "Label6" Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(295, 13) '
Me.Label6.TabIndex = 0 'btnSaveExclusionFiles
Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:" '
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 'btnstartstop2
' '
resources.ApplyResources(Me.btnstartstop2, "btnstartstop2")
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go 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.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 Me.btnstartstop2.UseVisualStyleBackColor = True
' '
'btnstartstop1 'btnstartstop1
' '
resources.ApplyResources(Me.btnstartstop1, "btnstartstop1")
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go 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.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 Me.btnstartstop1.UseVisualStyleBackColor = True
' '
'OpenFileDialog1 'OpenFileDialog1
' '
Me.OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
resources.ApplyResources(Me.OpenFileDialog1, "OpenFileDialog1")
' '
'frmConfig_Basic 'frmConfig_Basic
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(695, 358)
Me.Controls.Add(Me.TabControl1) 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.MaximizeBox = False
Me.MinimizeBox = False Me.MinimizeBox = False
Me.Name = "frmConfig_Basic" Me.Name = "frmConfig_Basic"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Grundeinstellungen für User"
Me.TabControl1.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
Me.TabPage1.PerformLayout() Me.TabPage1.PerformLayout()
@ -535,4 +435,9 @@ Partial Class frmConfig_Basic
Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button Friend WithEvents btnSaveExclusionFiles As System.Windows.Forms.Button
Friend WithEvents Label8 As System.Windows.Forms.Label 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 End Class

1134
Global_Indexer/frmConfig_Basic.resx
View File

File diff suppressed because it is too large Load Diff

211
Global_Indexer/frmConfig_Basic.vb
View File

@ -1,12 +1,29 @@
Imports System.IO Imports System.IO
Imports System.Threading
Imports System.Globalization
Public Class frmConfig_Basic Public Class frmConfig_Basic
Dim formloaded = False 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 Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click
Try Try
Dim constring As String Dim constring As String
If chkbxUserAut.Checked Then 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 Else
constring = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";" constring = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";"
End If End If
@ -19,7 +36,12 @@ Public Class frmConfig_Basic
Cursor = Cursors.Default Cursor = Cursors.Default
'DialogResult = Windows.Forms.DialogResult.OK 'DialogResult = Windows.Forms.DialogResult.OK
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) 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 If result = MsgBoxResult.Yes Then
'Set the construction string 'Set the construction string
MyConnectionString = constring 'csb.ConnectionString MyConnectionString = constring 'csb.ConnectionString
@ -39,7 +61,7 @@ Public Class frmConfig_Basic
End If End If
Catch ex As Exception Catch ex As Exception
Cursor = Cursors.Default 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 Try
End Sub End Sub
@ -72,7 +94,7 @@ Public Class frmConfig_Basic
End If End If
connection.Close() connection.Close()
Catch ex As Exception 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 End Try
Cursor = Cursors.Default Cursor = Cursors.Default
End Sub End Sub
@ -80,31 +102,42 @@ Public Class frmConfig_Basic
Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmConfig_Basic_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
SaveConfigValue("UniversalViewer", txtuniversalViewer.Text) SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
End Sub End Sub
<STAThread()> _
Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmConfig_Basic_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Sub
<STAThread()> _
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
With OpenFileDialog1 Try
' Do With OpenFileDialog1
.Filter = "Viewer.Exe|*.exe" ' Do
.FilterIndex = 1 .Filter = "Viewer.Exe|*.exe"
.Title = "Pfad zu Universal Viewer.exe:" .FilterIndex = 1
If .ShowDialog() = DialogResult.OK Then .Title = "Pfad zu Universal Viewer.exe:"
Me.txtuniversalViewer.Text = .FileName If .ShowDialog() = DialogResult.OK Then
SaveConfigValue("UniversalViewer", txtuniversalViewer.Text) Me.txtuniversalViewer.Text = .FileName
UniversalViewer = txtuniversalViewer.Text SaveConfigValue("UniversalViewer", txtuniversalViewer.Text)
UniversalViewer_Path = txtuniversalViewer.Text
End If
End With
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 If
End With End Try
End Sub
Private Sub Label6_Click(sender As Object, e As EventArgs) Handles Label6.Click
End Sub End Sub
Dim reload As Boolean = False Dim reload As Boolean = False
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 1
If USER_LANGUAGE = "de-DE" Then
cmbLanguage.SelectedIndex = 0
Else
cmbLanguage.SelectedIndex = 1
End If
Case 2 Case 2
reload = True reload = True
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString) 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 Not ClassFolderWatcher.FolderWatcher Is Nothing Then
If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then
btnstartstop1.Text = "Überwachung stoppen" If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung stoppen"
Else
btnstartstop1.Text = "Stop hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_delete btnstartstop1.Image = My.Resources.bell_delete
Else Else
btnstartstop1.Text = "Überwachung starten" If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Start hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go btnstartstop1.Image = My.Resources.bell_go
End If End If
Else Else
@ -134,14 +177,29 @@ Public Class frmConfig_Basic
If Not ClassFolderWatcher.FolderWatcher_SCAN Is Nothing Then If Not ClassFolderWatcher.FolderWatcher_SCAN Is Nothing Then
If ClassFolderWatcher.FolderWatcher_SCAN.EnableRaisingEvents = True Then If ClassFolderWatcher.FolderWatcher_SCAN.EnableRaisingEvents = True Then
btnstartstop2.Text = "Überwachung stoppen" If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete btnstartstop2.Image = My.Resources.bell_delete
Else Else
btnstartstop2.Text = "Überwachung starten" If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go btnstartstop2.Image = My.Resources.bell_go
End If End If
Else Else
btnstartstop2.Text = "Überwachung starten" If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Stop hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go btnstartstop2.Image = My.Resources.bell_go
End If End If
reload = False reload = False
@ -162,10 +220,15 @@ Public Class frmConfig_Basic
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False) ClassLogger.Add(" >> Fehler beim Erstellen des Folderwatchordners: " & mypath, False)
ClassLogger.Add(" >> " & ex.Message, False) ClassLogger.Add(" >> " & ex.Message, False)
MsgBox("Fehler beim Erstellen des Folderwatchordners: " & mypath & vbNewLine & "Bitte überprüfen Sie die Rechte!" & vbNewLine & ex.Message, MsgBoxStyle.Critical) 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 Exit Sub
End Try End Try
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString) Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
Dim sql As String Dim sql As String
If folderwatch Is Nothing Then If folderwatch Is Nothing Then
@ -201,7 +264,6 @@ Public Class frmConfig_Basic
CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT") CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub End Sub
<STAThread()> _
Private Sub btnstartstop1_Click(sender As Object, e As EventArgs) Handles btnstartstop1.Click Private Sub btnstartstop1_Click(sender As Object, e As EventArgs) Handles btnstartstop1.Click
If CURRENT_FOLDERWATCH <> "" Then If CURRENT_FOLDERWATCH <> "" Then
CheckFW_State() CheckFW_State()
@ -211,20 +273,38 @@ Public Class frmConfig_Basic
Sub CheckFW_State() Sub CheckFW_State()
Select Case ClassFolderWatcher.StartStop_FolderWatch() Select Case ClassFolderWatcher.StartStop_FolderWatch()
Case 1 Case 1
btnstartstop1.Text = "Überwachung stoppen" If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung stoppen"
Else
btnstartstop1.Text = "Stop Hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_delete btnstartstop1.Image = My.Resources.bell_delete
Case 0 Case 0
btnstartstop1.Text = "Überwachung starten" If USER_LANGUAGE = "de-DE" Then
btnstartstop1.Text = "Überwachung starten"
Else
btnstartstop1.Text = "Stop Hotfolder"
End If
btnstartstop1.Image = My.Resources.bell_go btnstartstop1.Image = My.Resources.bell_go
End Select End Select
End Sub End Sub
Sub CheckFWSCAN_State() Sub CheckFWSCAN_State()
Select Case ClassFolderWatcher.StartStop_FolderWatchSCAN() Select Case ClassFolderWatcher.StartStop_FolderWatchSCAN()
Case 1 Case 1
btnstartstop2.Text = "Überwachung stoppen" If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung stoppen"
Else
btnstartstop2.Text = "Stop Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_delete btnstartstop2.Image = My.Resources.bell_delete
Case 0 Case 0
btnstartstop2.Text = "Überwachung starten" If USER_LANGUAGE = "de-DE" Then
btnstartstop2.Text = "Überwachung starten"
Else
btnstartstop2.Text = "Start Hotfolder"
End If
btnstartstop2.Image = My.Resources.bell_go btnstartstop2.Image = My.Resources.bell_go
End Select End Select
End Sub End Sub
@ -239,12 +319,17 @@ Public Class frmConfig_Basic
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles chkLogErrorsOnly.CheckedChanged
If formloaded = True Then If formloaded = True Then
SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked) SaveConfigValue("LogErrorsOnly", chkLogErrorsOnly.Checked)
ClassLogger.Add(" >> LogErrorsOnly auf '" & chkLogErrorsOnly.Checked & "' umgestellt", False) ClassLogger.Add(" >> LogErrorsOnly changed to '" & chkLogErrorsOnly.Checked, False)
LogErrorsOnly = chkLogErrorsOnly.Checked LogErrorsOnly = chkLogErrorsOnly.Checked
End If End If
End Sub End Sub
<STAThread()> _
Private Sub frmConfig_Basic_Shown(sender As Object, e As EventArgs) Handles Me.Shown 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 If Not MyConnectionString = String.Empty Then
Dim csb As New SqlClient.SqlConnectionStringBuilder Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString csb.ConnectionString = MyConnectionString
@ -253,16 +338,14 @@ Public Class frmConfig_Basic
constr = constr.Replace(csb.Password, "XXXXX") constr = constr.Replace(csb.Password, "XXXXX")
Me.txtActualConnection.Text = constr Me.txtActualConnection.Text = constr
End If End If
Me.txtuniversalViewer.Text = UniversalViewer Me.txtuniversalViewer.Text = UniversalViewer_Path
chkLogErrorsOnly.Checked = LogErrorsOnly chkLogErrorsOnly.Checked = LogErrorsOnly
If ERROR_STATE = "FAILED CONNECTION" Then If ERROR_STATE = "FAILED DBCONNECTION" Then
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
ElseIf ERROR_STATE = "NO UV" Then ElseIf ERROR_STATE = "NO UV" Then
Me.TabControl1.SelectedIndex = 1 Me.TabControl1.SelectedIndex = 1
End If End If
formloaded = True
End Sub End Sub
Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click
Process.Start(ClassLogger.DateiSpeicherort) 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 Private Sub btnSaveExclusionFiles_Click(sender As Object, e As EventArgs) Handles btnSaveExclusionFiles.Click
DTEXCLUDE_FILES.AcceptChanges() DTEXCLUDE_FILES.AcceptChanges()
DTEXCLUDE_FILES.WriteXml(PATH_FileExclusions) 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 Sub
End Class 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_PATTERNSTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_PATTERNSTableAdapter()
Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBHOTKEY_PATTERNSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.OFDWindreamsuche = New System.Windows.Forms.OpenFileDialog() 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.TabPageUebersicht = New System.Windows.Forms.TabPage()
Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox() Me.GroupBoxPatterns = New System.Windows.Forms.GroupBox()
Me.ListBox1 = New System.Windows.Forms.ListBox() Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.TBHOTKEY_WINDOW_HOOKBindingSource = New System.Windows.Forms.BindingSource(Me.components) 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.TabPage6 = New System.Windows.Forms.TabPage()
Me.lblSavePAttern = New System.Windows.Forms.Label() Me.lblSavePAttern = New System.Windows.Forms.Label()
Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox()
@ -182,7 +182,7 @@ Partial Class frmHotKey_Add
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ListBoxPatterns = New System.Windows.Forms.ListBox() 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.TabPage3 = New System.Windows.Forms.TabPage()
Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox() Me.WINDOW_NAMETextBox = New System.Windows.Forms.TextBox()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
@ -260,11 +260,11 @@ Partial Class frmHotKey_Add
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_PATTERNSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout() Me.TabControlMain.SuspendLayout()
Me.TabPageUebersicht.SuspendLayout() Me.TabPageUebersicht.SuspendLayout()
Me.GroupBoxPatterns.SuspendLayout() Me.GroupBoxPatterns.SuspendLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl3.SuspendLayout() Me.TabControlDetails.SuspendLayout()
Me.TabPage6.SuspendLayout() Me.TabPage6.SuspendLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator2.SuspendLayout() Me.BindingNavigator2.SuspendLayout()
@ -275,7 +275,7 @@ Partial Class frmHotKey_Add
Me.TabPage5.SuspendLayout() Me.TabPage5.SuspendLayout()
CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator3.SuspendLayout() Me.BindingNavigator3.SuspendLayout()
Me.TabControl2.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage3.SuspendLayout() Me.TabPage3.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout() Me.ContextMenuStrip1.SuspendLayout()
@ -1077,23 +1077,23 @@ Partial Class frmHotKey_Add
Me.OFDWindreamsuche.RestoreDirectory = True Me.OFDWindreamsuche.RestoreDirectory = True
Me.OFDWindreamsuche.Title = "windream-Suche wählen" Me.OFDWindreamsuche.Title = "windream-Suche wählen"
' '
'TabControl1 'TabControlMain
' '
Me.TabControl1.Controls.Add(Me.TabPageUebersicht) Me.TabControlMain.Controls.Add(Me.TabPageUebersicht)
Me.TabControl1.Controls.Add(Me.TabPage_Designer) Me.TabControlMain.Controls.Add(Me.TabPage_Designer)
Me.TabControl1.Controls.Add(Me.TabPageTest) Me.TabControlMain.Controls.Add(Me.TabPageTest)
Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill Me.TabControlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControlMain.Location = New System.Drawing.Point(0, 0)
Me.TabControl1.Name = "TabControl1" Me.TabControlMain.Name = "TabControlMain"
Me.TabControl1.SelectedIndex = 0 Me.TabControlMain.SelectedIndex = 0
Me.TabControl1.Size = New System.Drawing.Size(972, 613) Me.TabControlMain.Size = New System.Drawing.Size(972, 613)
Me.TabControl1.TabIndex = 17 Me.TabControlMain.TabIndex = 17
' '
'TabPageUebersicht 'TabPageUebersicht
' '
Me.TabPageUebersicht.AutoScroll = True Me.TabPageUebersicht.AutoScroll = True
Me.TabPageUebersicht.Controls.Add(Me.GroupBoxPatterns) 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.btndelete)
Me.TabPageUebersicht.Controls.Add(Me.ListBox_Profiles) Me.TabPageUebersicht.Controls.Add(Me.ListBox_Profiles)
Me.TabPageUebersicht.Controls.Add(Me.Label9) Me.TabPageUebersicht.Controls.Add(Me.Label9)
@ -1110,7 +1110,7 @@ Partial Class frmHotKey_Add
Me.GroupBoxPatterns.Controls.Add(Label17) Me.GroupBoxPatterns.Controls.Add(Label17)
Me.GroupBoxPatterns.Controls.Add(Me.ListBox1) Me.GroupBoxPatterns.Controls.Add(Me.ListBox1)
Me.GroupBoxPatterns.Controls.Add(Label15) 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.Controls.Add(Me.ListBoxPatterns)
Me.GroupBoxPatterns.Location = New System.Drawing.Point(8, 283) Me.GroupBoxPatterns.Location = New System.Drawing.Point(8, 283)
Me.GroupBoxPatterns.Name = "GroupBoxPatterns" Me.GroupBoxPatterns.Name = "GroupBoxPatterns"
@ -1135,18 +1135,18 @@ Partial Class frmHotKey_Add
Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK" Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataMember = "TBHOTKEY_WINDOW_HOOK"
Me.TBHOTKEY_WINDOW_HOOKBindingSource.DataSource = Me.MyDataset 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) Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TabControl3.Controls.Add(Me.TabPage6) Me.TabControlDetails.Controls.Add(Me.TabPage6)
Me.TabControl3.Controls.Add(Me.TabPage4) Me.TabControlDetails.Controls.Add(Me.TabPage4)
Me.TabControl3.Controls.Add(Me.TabPage5) Me.TabControlDetails.Controls.Add(Me.TabPage5)
Me.TabControl3.Location = New System.Drawing.Point(261, 21) Me.TabControlDetails.Location = New System.Drawing.Point(261, 21)
Me.TabControl3.Name = "TabControl3" Me.TabControlDetails.Name = "TabControlDetails"
Me.TabControl3.SelectedIndex = 0 Me.TabControlDetails.SelectedIndex = 0
Me.TabControl3.Size = New System.Drawing.Size(639, 271) Me.TabControlDetails.Size = New System.Drawing.Size(639, 271)
Me.TabControl3.TabIndex = 1 Me.TabControlDetails.TabIndex = 1
' '
'TabPage6 'TabPage6
' '
@ -1889,16 +1889,16 @@ Partial Class frmHotKey_Add
Me.ListBoxPatterns.TabIndex = 0 Me.ListBoxPatterns.TabIndex = 0
Me.ListBoxPatterns.ValueMember = "GUID" Me.ListBoxPatterns.ValueMember = "GUID"
' '
'TabControl2 'TabControl1
' '
Me.TabControl2.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl2.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl2.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl2.Location = New System.Drawing.Point(269, 62) Me.TabControl1.Location = New System.Drawing.Point(269, 62)
Me.TabControl2.Name = "TabControl2" Me.TabControl1.Name = "TabControl1"
Me.TabControl2.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(639, 215) Me.TabControl1.Size = New System.Drawing.Size(639, 215)
Me.TabControl2.TabIndex = 36 Me.TabControl1.TabIndex = 36
' '
'TabPage3 'TabPage3
' '
@ -2316,7 +2316,7 @@ Partial Class frmHotKey_Add
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(972, 635) Me.ClientSize = New System.Drawing.Size(972, 635)
Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.TabControlMain)
Me.Controls.Add(Me.StatusStrip1) 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.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.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.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBHOTKEY_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBHOTKEY_PATTERNSBindingSource, 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.ResumeLayout(False)
Me.TabPageUebersicht.PerformLayout() Me.TabPageUebersicht.PerformLayout()
Me.GroupBoxPatterns.ResumeLayout(False) Me.GroupBoxPatterns.ResumeLayout(False)
Me.GroupBoxPatterns.PerformLayout() Me.GroupBoxPatterns.PerformLayout()
CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBHOTKEY_WINDOW_HOOKBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl3.ResumeLayout(False) Me.TabControlDetails.ResumeLayout(False)
Me.TabPage6.ResumeLayout(False) Me.TabPage6.ResumeLayout(False)
Me.TabPage6.PerformLayout() Me.TabPage6.PerformLayout()
CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigator2, System.ComponentModel.ISupportInitialize).EndInit()
@ -2356,7 +2356,7 @@ Partial Class frmHotKey_Add
CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.BindingNavigator3, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigator3.ResumeLayout(False) Me.BindingNavigator3.ResumeLayout(False)
Me.BindingNavigator3.PerformLayout() Me.BindingNavigator3.PerformLayout()
Me.TabControl2.ResumeLayout(False) Me.TabControl1.ResumeLayout(False)
Me.TabPage3.ResumeLayout(False) Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout() Me.TabPage3.PerformLayout()
Me.TabPage1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False)
@ -2406,7 +2406,7 @@ Partial Class frmHotKey_Add
Friend WithEvents lblLinkadd As System.Windows.Forms.Label Friend WithEvents lblLinkadd As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents OFDWindreamsuche As System.Windows.Forms.OpenFileDialog 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 TabPage_Designer As System.Windows.Forms.TabPage
Friend WithEvents TabPageTest As System.Windows.Forms.TabPage Friend WithEvents TabPageTest As System.Windows.Forms.TabPage
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox 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 ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents AlleAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents KeineAuswä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 TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents chklbUserProfile As System.Windows.Forms.CheckedListBox 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 Button2 As System.Windows.Forms.Button
Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox Friend WithEvents GroupBoxPatterns As System.Windows.Forms.GroupBox
Friend WithEvents ListBoxPatterns As System.Windows.Forms.ListBox 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 TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TBHOTKEY_PATTERNS_REWORKBindingSource As System.Windows.Forms.BindingSource 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"> <metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1040, 95</value> <value>1040, 95</value>
</metadata> </metadata>
<metadata name="TBHOTKEY_PATTERNS_REWORKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<value>1098, 56</value> <data name="BindingNavigatorDeleteItem1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
</metadata> <value>
<metadata name="TBHOTKEY_PATTERNS_REWORKBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
<value>1098, 56</value> wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC
</metadata> 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"> <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> <value>1098, 56</value>
</metadata> </metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>317, 95</value> <value>317, 95</value>
</metadata> </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"> <data name="BindingNavigatorAddNewItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
@ -309,67 +355,6 @@
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== 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> </value>
</data> </data>
<metadata name="BindingNavigator3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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 Public Class frmHotKey_Add
Dim Form_loaded As Boolean = False
Private Control_Sequence As Integer Private Control_Sequence As Integer
Private Sub ObjektTypenEintragen() Private Sub ObjektTypenEintragen()
Try Try
@ -32,6 +33,8 @@
Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString Me.TBHOTKEY_USER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBHOTKEY_PATTERNS_REWORKTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBHOTKEY_WINDOW_HOOKTableAdapter.Connection.ConnectionString = MyConnectionString
TabControlDetails.SelectedIndex = 0
TabControl1.SelectedIndex = 0
Load_Profiles() Load_Profiles()
load_users() load_users()
GroupBox1.Visible = True GroupBox1.Visible = True
@ -240,12 +243,12 @@
Console.WriteLine(e.KeyCode) Console.WriteLine(e.KeyCode)
End Sub End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControlMain.SelectedIndexChanged
Select Case TabControl1.SelectedIndex Select Case TabControlMain.SelectedIndex
Case 0 Case 0
TabControl2.SelectedIndex = 0 TabControl1.SelectedIndex = 0
TabControl3.SelectedIndex = 0 TabControlDetails.SelectedIndex = 0
Load_Profiles() Load_Profiles()
Case 1 Case 1
If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then If NAMETextBox.Text <> "" And CheckFormTitle_isOpen(WINDOW_NAMETextBox.Text) = True Then
@ -335,17 +338,7 @@
TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue) TBHOTKEY_USER_PROFILETableAdapter.cmdInsert(userid, ListBox_Profiles.SelectedValue)
added += 1 added += 1
End If 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 Next
Else Else
@ -377,9 +370,9 @@
Next Next
End Sub 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 GroupBoxPatterns.Visible = False
Select Case TabControl2.SelectedIndex Select Case TabControl1.SelectedIndex
Case 0 Case 0
GroupBoxPatterns.Visible = True GroupBoxPatterns.Visible = True
Case 2 Case 2
@ -406,7 +399,7 @@
Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged Private Sub ListBox_Profiles_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox_Profiles.SelectedIndexChanged
If ListBox_Profiles.SelectedIndex <> -1 Then If ListBox_Profiles.SelectedIndex <> -1 Then
Select Case TabControl2.SelectedIndex Select Case TabControl1.SelectedIndex
Case 1 Case 1
'Try 'Try
' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue) ' TBHOTKEY_PROFILETableAdapter.FillByID(MyDataset.TBHOTKEY_PROFILE, ListBox_Profiles.SelectedValue)
@ -458,17 +451,6 @@
TBHOTKEY_USER_PROFILETableAdapter.Delete(ID) TBHOTKEY_USER_PROFILETableAdapter.Delete(ID)
deleted += 1 deleted += 1
End If 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 Next
Else Else
@ -493,6 +475,26 @@
TBHOTKEY_PROFILEBindingSource.EndEdit() TBHOTKEY_PROFILEBindingSource.EndEdit()
TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE) TBHOTKEY_PROFILETableAdapter.Update(MyDataset.TBHOTKEY_PROFILE)
Me.lblSave.Visible = True 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 Else
Me.lblSave.Visible = False Me.lblSave.Visible = False
End If End If
@ -729,4 +731,12 @@
TEXT1TextBox.ForeColor = Color.Black TEXT1TextBox.ForeColor = Color.Black
End If End If
End Sub 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 End Class

6
Global_Indexer/frmIndex.designer.vb generated
View File

@ -438,9 +438,9 @@ Partial Class frmIndex
'PdfViewer1 'PdfViewer1
' '
Me.PdfViewer1.Dock = System.Windows.Forms.DockStyle.Fill 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.Name = "PdfViewer1"
Me.PdfViewer1.Size = New System.Drawing.Size(200, 144) Me.PdfViewer1.Size = New System.Drawing.Size(200, 145)
Me.PdfViewer1.TabIndex = 4 Me.PdfViewer1.TabIndex = 4
' '
'StatusStrip2 'StatusStrip2
@ -476,7 +476,7 @@ Partial Class frmIndex
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.PdfRibbonPage1}) Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.PdfRibbonPage1})
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2010 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 Me.RibbonControl1.ToolbarLocation = DevExpress.XtraBars.Ribbon.RibbonQuickAccessToolbarLocation.Above
' '
'PdfFileOpenBarItem1 '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"> <metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 212</value> <value>17, 212</value>
</metadata> </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"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>
@ -150,12 +147,6 @@
<metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1212, 173</value> <value>1212, 173</value>
</metadata> </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"> <metadata name="PdfBarController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 56</value> <value>244, 56</value>
</metadata> </metadata>

207
Global_Indexer/frmIndex.vb
View File

@ -58,7 +58,7 @@ Public Class frmIndex
pnlIndex.Controls.Add(lbl) pnlIndex.Controls.Add(lbl)
lbl.Location = New Point(11, ylbl) lbl.Location = New Point(11, ylbl)
End Sub 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 Dim txt As New TextBox
txt.Name = "txt" & indexname txt.Name = "txt" & indexname
@ -77,7 +77,8 @@ Public Class frmIndex
AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged AddHandler txt.TextChanged, AddressOf OnTextBoxTextChanged
End Sub Return txt
End Function
Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs) Public Sub OnTextBoxFocus(sender As System.Object, e As System.EventArgs)
Dim box As TextBox = sender Dim box As TextBox = sender
box.BackColor = Color.Lime box.BackColor = Color.Lime
@ -564,6 +565,102 @@ Public Class frmIndex
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Unvorhergesehener Fehler bei AddVorschlag_ComboBox:")
End Try End Try
End Sub 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) Private Sub Renew_ComboboxResults(INDEX_GUID As Integer, SearchString As String, Resultvalue As String)
Try Try
@ -854,8 +951,7 @@ Public Class frmIndex
'#### '####
' alle Vorkommen innerhalbd er Namenkonvention durchlaufen ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
Console.WriteLine(element.Value) Console.WriteLine(element.ToString)
Console.WriteLine(element.Value.Substring(2, 1).ToUpper)
Select Case element.Value.Substring(2, 1).ToUpper Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
@ -915,6 +1011,7 @@ Public Class frmIndex
_day = "0" & _day _day = "0" & _day
End If End If
Dim type = element.Value '.ToUpper.Replace("[v%", "") Dim type = element.Value '.ToUpper.Replace("[v%", "")
type = type.Replace("[%v_", "")
type = type.Replace("[%v", "") type = type.Replace("[%v", "")
type = type.Replace("]", "") type = type.Replace("]", "")
Select Case type Select Case type
@ -988,38 +1085,44 @@ Public Class frmIndex
For Each row As DataRow In DTMan.Rows For Each row As DataRow In DTMan.Rows
Dim idxvalue = row.Item("Indexwert") Dim idxvalue = row.Item("Indexwert")
Dim indexname = row.Item("WD_INDEX").ToString 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 CBool(row.Item("Indexiert")) = True And idxvalue.ToString <> "" Then
'Den Indexwert zwischenspeichern If indexname <> "" And optional_Index = False Then
Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS 'Den Indexwert zwischenspeichern
Dim rowexists As Boolean = False Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
For Each rowTemp As DataRow In DTTemp.Rows Dim rowexists As Boolean = False
'Wenn bereits ein Eintrag existiert..... For Each rowTemp As DataRow In DTTemp.Rows
If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then 'Wenn bereits ein Eintrag existiert.....
rowexists = True If rowTemp.Item("Dokumentart") = row.Item("DOKUMENTART") And rowTemp.Item("Indexname") = row.Item("INDEXNAME") Then
'......überschreiben rowexists = True
rowTemp.Item("Value") = row.Item("Indexwert") '......überschreiben
rowTemp.Item("Value") = row.Item("Indexwert")
End If
Next
'.....ansonsten neu anlegen
If rowexists = False Then
Dim newRow As DataRow = DTTemp.NewRow()
newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
newRow("Indexname") = row.Item("INDEXNAME").ToString
newRow("Value") = row.Item("Indexwert")
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)
If indexierung_erfolgreich = False Then
MsgBox("Error in Indexing file - See log", MsgBoxStyle.Critical)
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
Next
'.....ansonsten neu anlegen
If rowexists = False Then
Dim newRow As DataRow = DTTemp.NewRow()
newRow("Dokumentart") = row.Item("DOKUMENTART").ToString
newRow("Indexname") = row.Item("INDEXNAME").ToString
newRow("Value") = row.Item("Indexwert")
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)
If indexierung_erfolgreich = False Then
MsgBox("Error in Indexing file - See log", MsgBoxStyle.Critical)
Return False
Exit For
End If End If
End If End If
Next Next
@ -1511,6 +1614,7 @@ Public Class frmIndex
Case "INTEGER" Case "INTEGER"
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then 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) 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 Else
Dim VORBELGUNG As Integer = DefaultValue Dim VORBELGUNG As Integer = DefaultValue
'nur eine Textbox 'nur eine Textbox
@ -1519,6 +1623,7 @@ Public Class frmIndex
Case "VARCHAR" Case "VARCHAR"
If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then 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) 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 Else
If DR.Item("NAME").ToString.ToLower = "dateiname" Then If DR.Item("NAME").ToString.ToLower = "dateiname" Then
'Übergibt den Dateinamen um diesen Vorzuschlagen 'Übergibt den Dateinamen um diesen Vorzuschlagen
@ -1691,10 +1796,10 @@ Public Class frmIndex
End If End If
Next Next
Case Else Case Else
If My.Settings.DoNot_Show_Documents = False And UniversalViewer <> "" Then If My.Settings.DoNot_Show_Documents = False And UniversalViewer_Path <> "" Then
If File.Exists(UniversalViewer) Then If File.Exists(UniversalViewer_Path) Then
Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE)) 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.EnableRaisingEvents = True
Proc.StartInfo = psi Proc.StartInfo = psi
Proc.Start() Proc.Start()
@ -1706,12 +1811,14 @@ Public Class frmIndex
Else Else
Dim tempFilename = My.Computer.FileSystem.GetTempFileName() Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
Try Try
Me.grpBetreff.Dock = DockStyle.Top Me.grpBetreff.Dock = DockStyle.Top
Me.grpbxMailBody.Dock = DockStyle.Fill Me.grpbxMailBody.Dock = DockStyle.Fill
Dim msg_email As New Msg.Message(CURRENT_WORKFILE) Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'Eine tempfile generieren 'Eine tempfile generieren
Dim name = Path.GetFileNameWithoutExtension(tempFilename) Dim name = Path.GetFileNameWithoutExtension(tempFilename)
tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html") tempFilename = Path.Combine(Path.GetDirectoryName(tempFilename), name & ".html")
TEMP_FILES.Add(tempFilename)
If LogErrorsOnly = False Then ClassLogger.Add(" ...tempFilename: " & tempFilename, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...tempFilename: " & tempFilename, False)
'tempfile löschen 'tempfile löschen
If My.Computer.FileSystem.FileExists(tempFilename) Then If My.Computer.FileSystem.FileExists(tempFilename) Then
@ -1731,13 +1838,18 @@ Public Class frmIndex
'Catch ex As IOException 'Catch ex As IOException
' MsgBox(ex.ToString) ' MsgBox(ex.ToString)
'End Try 'End Try
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)
File.WriteAllText(tempFilename, vOut, System.Text.Encoding.UTF8)
End If
Dim vIn() As Byte = msg_email.BodyHtml If LogErrorsOnly = False Then ClassLogger.Add(" ...byteData and write to file finished.", False)
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)
Catch ex As Exception 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 End Try
CURRENT_HTML_DOC = tempFilename CURRENT_HTML_DOC = tempFilename
@ -1880,6 +1992,7 @@ Public Class frmIndex
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If err = False Then If err = False Then
MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:") MsgBox("Alle Dateien wurden mit Multiindexing erfolgreich verarbeitet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
DTACTUAL_FILES.Clear()
Me.Close() Me.Close()
End If End If
End If End If
@ -2008,17 +2121,18 @@ Public Class frmIndex
Dim RootFolder As String = Path.GetDirectoryName(fullfilename) Dim RootFolder As String = Path.GetDirectoryName(fullfilename)
'###### '######
Dim p_reg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden ' 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 ' 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 ' alle Vorkommen innerhalb des Ordnerstrings durchlaufen
For Each element As System.Text.RegularExpressions.Match In elemente For Each element As System.Text.RegularExpressions.Match In elemente
If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" >> Elementname in FolderString: '" & element.ToString & "'", False)
Console.WriteLine(element.ToString)
Select Case element.Value.Substring(2, 1).ToUpper Select Case element.Value.Substring(2, 1).ToUpper
'Manueller Indexwert 'Manueller Indexwert
Case "M" Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
@ -2062,6 +2176,9 @@ Public Class frmIndex
_day = "0" & _day _day = "0" & _day
End If End If
Dim type = element.Value.Substring(3, element.Value.Length - 4) Dim type = element.Value.Substring(3, element.Value.Length - 4)
If type.StartsWith("_") Then
type = type.Replace("_", "")
End If
Select Case type Select Case type
Case "YYYY/MM/DD" Case "YYYY/MM/DD"
folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day folder_temp = My.Computer.Clock.LocalTime.Year & "\" & _Month & "\" & _day

25
Global_Indexer/frmIndexFileList.vb
View File

@ -20,10 +20,27 @@
End Sub End Sub
Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
For Each item In CheckedListBoxControl1.CheckedItems Try
Dim row As DataRowView = CType(item, DataRowView) For Each item In CheckedListBoxControl1.CheckedItems
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True) Dim row As DataRowView = CType(item, DataRowView)
Next 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() Me.Close()
End Sub 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.txtPW = New System.Windows.Forms.TextBox()
Me.lblPW = New System.Windows.Forms.Label() Me.lblPW = New System.Windows.Forms.Label()
Me.grbBoxlicense = New System.Windows.Forms.GroupBox() 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.txtProfile = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtlicensekey = New System.Windows.Forms.TextBox() Me.txtlicensekey = New System.Windows.Forms.TextBox()
@ -34,12 +40,6 @@ Partial Class frmLicense
Me.txtNewlicences = New System.Windows.Forms.TextBox() Me.txtNewlicences = New System.Windows.Forms.TextBox()
Me.lblnewlicenses = New System.Windows.Forms.Label() Me.lblnewlicenses = New System.Windows.Forms.Label()
Me.lblAktuelleLizenzen = 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.grbBoxlicense.SuspendLayout()
Me.SuspendLayout() Me.SuspendLayout()
' '
@ -97,6 +97,62 @@ Partial Class frmLicense
Me.grbBoxlicense.Text = "Lizenzanzahl ändern (nur Administrator):" Me.grbBoxlicense.Text = "Lizenzanzahl ändern (nur Administrator):"
Me.grbBoxlicense.Visible = False 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 'txtProfile
' '
Me.txtProfile.Location = New System.Drawing.Point(194, 91) Me.txtProfile.Location = New System.Drawing.Point(194, 91)
@ -111,9 +167,9 @@ Partial Class frmLicense
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(7, 94) Me.Label2.Location = New System.Drawing.Point(7, 94)
Me.Label2.Name = "Label2" 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.TabIndex = 10
Me.Label2.Text = "Anzahl Profile:" Me.Label2.Text = "Anzahl Dokumentarten:"
' '
'txtlicensekey 'txtlicensekey
' '
@ -174,62 +230,6 @@ Partial Class frmLicense
Me.lblAktuelleLizenzen.TabIndex = 2 Me.lblAktuelleLizenzen.TabIndex = 2
Me.lblAktuelleLizenzen.Text = "Label13" 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 'frmLicense
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) 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 If lic <> "" Then
lizenzzahl = split(0) lizenzzahl = split(0)
License_Anzahl = lizenzzahl LICENSE_COUNT = lizenzzahl
Else Else
lizenzzahl = "0" lizenzzahl = "0"
End If End If
@ -61,6 +61,7 @@ Public Class frmLicense
End If End If
txtProfile.Text = split(2) txtProfile.Text = split(2)
LICENSE_DOCTYPE_COUNT = CInt(txtProfile.Text)
Try Try
txtHotKey.Text = split(3) txtHotKey.Text = split(3)
Catch ex As Exception Catch ex As Exception

48
Global_Indexer/frmNamenkonvention.designer.vb generated
View File

@ -23,6 +23,7 @@ Partial Class frmNamenkonvention
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() 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.Label1 = New System.Windows.Forms.Label()
Me.txtnamenKonv = New System.Windows.Forms.TextBox() Me.txtnamenKonv = New System.Windows.Forms.TextBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox()
@ -36,6 +37,7 @@ Partial Class frmNamenkonvention
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnVersionTZ = New System.Windows.Forms.Button() Me.btnVersionTZ = New System.Windows.Forms.Button()
Me.btnTrennzeichen = New System.Windows.Forms.Button() Me.btnTrennzeichen = New System.Windows.Forms.Button()
Me.btnVersion = 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.cmbDate = New System.Windows.Forms.ComboBox()
Me.Label20 = New System.Windows.Forms.Label() Me.Label20 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout() Me.GroupBox1.SuspendLayout()
CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@ -93,7 +94,7 @@ Partial Class frmNamenkonvention
' '
'btnAddIndexA '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.Location = New System.Drawing.Point(187, 89)
Me.btnAddIndexA.Name = "btnAddIndexA" Me.btnAddIndexA.Name = "btnAddIndexA"
Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23) Me.btnAddIndexA.Size = New System.Drawing.Size(30, 23)
@ -102,7 +103,7 @@ Partial Class frmNamenkonvention
' '
'btnAddIndexM '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.Location = New System.Drawing.Point(187, 41)
Me.btnAddIndexM.Name = "btnAddIndexM" Me.btnAddIndexM.Name = "btnAddIndexM"
Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23) Me.btnAddIndexM.Size = New System.Drawing.Size(30, 23)
@ -177,9 +178,21 @@ Partial Class frmNamenkonvention
Me.GroupBox2.TabStop = False Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Variablen:" 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 '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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVersionTZ.Location = New System.Drawing.Point(6, 105) Me.btnVersionTZ.Location = New System.Drawing.Point(6, 105)
Me.btnVersionTZ.Name = "btnVersionTZ" Me.btnVersionTZ.Name = "btnVersionTZ"
@ -191,7 +204,7 @@ Partial Class frmNamenkonvention
' '
'btnTrennzeichen '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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnTrennzeichen.Location = New System.Drawing.Point(6, 56) Me.btnTrennzeichen.Location = New System.Drawing.Point(6, 56)
Me.btnTrennzeichen.Name = "btnTrennzeichen" Me.btnTrennzeichen.Name = "btnTrennzeichen"
@ -203,7 +216,7 @@ Partial Class frmNamenkonvention
' '
'btnVersion '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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnVersion.Location = New System.Drawing.Point(6, 21) Me.btnVersion.Location = New System.Drawing.Point(6, 21)
Me.btnVersion.Name = "btnVersion" Me.btnVersion.Name = "btnVersion"
@ -224,7 +237,7 @@ Partial Class frmNamenkonvention
' '
'btnOK '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.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(261, 303) Me.btnOK.Location = New System.Drawing.Point(261, 303)
Me.btnOK.Name = "btnOK" Me.btnOK.Name = "btnOK"
@ -265,6 +278,11 @@ Partial Class frmNamenkonvention
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = 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 Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'TBDD_INDEX_AUTOMTableAdapter 'TBDD_INDEX_AUTOMTableAdapter
@ -292,30 +310,18 @@ Partial Class frmNamenkonvention
' '
'Button1 '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.Location = New System.Drawing.Point(199, 265)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(30, 23) Me.Button1.Size = New System.Drawing.Size(30, 23)
Me.Button1.TabIndex = 9 Me.Button1.TabIndex = 9
Me.Button1.UseVisualStyleBackColor = True 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 'frmNamenkonvention
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font 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.ControlBox = False
Me.Controls.Add(Me.Button1) Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.cmbDate) Me.Controls.Add(Me.cmbDate)

66
Global_Indexer/frmNamenkonvention.resx
View File

@ -117,24 +117,64 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </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"> <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> <value>1004, 17</value>
</metadata> </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"> <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>257, 17</value> <value>257, 17</value>
</metadata> </metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <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> <value>367, 17</value>
</metadata> </metadata>
<metadata name="TBDD_INDEX_MANBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <data name="Button2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>367, 17</value> <value>
</metadata> 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"> <metadata name="TBKONFIGURATIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </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"> <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> <value>1254, 17</value>
</metadata> </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> </root>

18
Global_Indexer/frmSQLConfigAutoIndex.Designer.vb generated
View File

@ -25,7 +25,7 @@ Partial Class SQLConfigAutoIndex
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim SQL_ERGEBNISLabel As System.Windows.Forms.Label Dim SQL_ERGEBNISLabel As System.Windows.Forms.Label
Dim Label3 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.btnVorschlag = New System.Windows.Forms.Button()
Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox() Me.SQL_ERGEBNISTextBox = New System.Windows.Forms.TextBox()
Me.cmbConnection = New System.Windows.Forms.ComboBox() Me.cmbConnection = New System.Windows.Forms.ComboBox()
@ -57,7 +57,6 @@ Partial Class SQLConfigAutoIndex
Me.cmbFromTables = New System.Windows.Forms.ComboBox() Me.cmbFromTables = New System.Windows.Forms.ComboBox()
Me.cmbWhereColumns = New System.Windows.Forms.ComboBox() Me.cmbWhereColumns = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
SQL_ERGEBNISLabel = New System.Windows.Forms.Label() SQL_ERGEBNISLabel = New System.Windows.Forms.Label()
Label3 = New System.Windows.Forms.Label() Label3 = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -244,8 +243,8 @@ Partial Class SQLConfigAutoIndex
' '
Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToAddRows = False
Me.dgvPlaceholders.AllowUserToDeleteRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan
Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace})
Me.dgvPlaceholders.Enabled = False Me.dgvPlaceholders.Enabled = False
@ -267,7 +266,6 @@ Partial Class SQLConfigAutoIndex
' '
'GroupBox4 'GroupBox4
' '
Me.GroupBox4.Controls.Add(Me.Label5)
Me.GroupBox4.Controls.Add(Me.radioView) Me.GroupBox4.Controls.Add(Me.radioView)
Me.GroupBox4.Controls.Add(Me.radioTable) Me.GroupBox4.Controls.Add(Me.radioTable)
Me.GroupBox4.Controls.Add(Me.Label4) Me.GroupBox4.Controls.Add(Me.Label4)
@ -400,15 +398,6 @@ Partial Class SQLConfigAutoIndex
Me.Label8.TabIndex = 23 Me.Label8.TabIndex = 23
Me.Label8.Text = "WHERE" 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 'SQLConfigAutoIndex
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) 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 radioTable As System.Windows.Forms.RadioButton
Friend WithEvents radioView As System.Windows.Forms.RadioButton Friend WithEvents radioView As System.Windows.Forms.RadioButton
Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
End Class 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"> <metadata name="TBDD_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value> <value>127, 17</value>
</metadata> </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"> <metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </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"> <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> <value>782, 17</value>
</metadata> </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"> <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> <value>1017, 17</value>
</metadata> </metadata>

7
Global_Indexer/frmSQLConfigAutoIndex.vb
View File

@ -129,6 +129,7 @@ Public Class SQLConfigAutoIndex
End If End If
Try Try
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, CURRENT_DOKART_ID) Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, CURRENT_DOKART_ID)
Add_ManualIndexe()
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Manual Indices:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Load Manual Indices:")
End Try End Try
@ -177,7 +178,13 @@ Public Class SQLConfigAutoIndex
e.Handled = True e.Handled = True
End If End If
End Sub 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 Private Sub btnaddManualIdx_Click(sender As Object, e As EventArgs) Handles btnaddManualIdx.Click
If cmbManualIDX.SelectedIndex <> -1 Then If cmbManualIDX.SelectedIndex <> -1 Then
If Not cmbManualIDX.Text = String.Empty 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.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblFW = 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.MyDataset = New Global_Indexer.MyDataset()
Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBHOTKEY_USER_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter() Me.TBHOTKEY_USER_PROFILETableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBHOTKEY_USER_PROFILETableAdapter()
Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components) Me.btnChoosefiles = New System.Windows.Forms.Button()
Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components)
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.MenuStrip1.SuspendLayout() Me.MenuStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
@ -53,11 +62,8 @@ Partial Class frmStart
'MenuStrip1 'MenuStrip1
' '
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KonfigurationToolStripMenuItem}) 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.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(305, 24)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Text = "MenuStrip1"
' '
'KonfigurationToolStripMenuItem '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.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.Image = Global.Global_Indexer.My.Resources.Resources.gear_32xLG
Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem" Me.KonfigurationToolStripMenuItem.Name = "KonfigurationToolStripMenuItem"
Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(108, 20) resources.ApplyResources(Me.KonfigurationToolStripMenuItem, "KonfigurationToolStripMenuItem")
Me.KonfigurationToolStripMenuItem.Text = "Konfiguration"
' '
'AdministrationToolStripMenuItem 'AdministrationToolStripMenuItem
' '
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem}) 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.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(217, 22) resources.ApplyResources(Me.AdministrationToolStripMenuItem, "AdministrationToolStripMenuItem")
Me.AdministrationToolStripMenuItem.Text = "Administration"
' '
'GlobalIndexerEinstellungenToolStripMenuItem 'GlobalIndexerEinstellungenToolStripMenuItem
' '
Me.GlobalIndexerEinstellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 Me.GlobalIndexerEinstellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem" Me.GlobalIndexerEinstellungenToolStripMenuItem.Name = "GlobalIndexerEinstellungenToolStripMenuItem"
Me.GlobalIndexerEinstellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22) resources.ApplyResources(Me.GlobalIndexerEinstellungenToolStripMenuItem, "GlobalIndexerEinstellungenToolStripMenuItem")
Me.GlobalIndexerEinstellungenToolStripMenuItem.Text = "Global Indexer - Einstellungen"
' '
'HotkeyEisntellungenToolStripMenuItem 'HotkeyEisntellungenToolStripMenuItem
' '
Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x Me.HotkeyEisntellungenToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem" Me.HotkeyEisntellungenToolStripMenuItem.Name = "HotkeyEisntellungenToolStripMenuItem"
Me.HotkeyEisntellungenToolStripMenuItem.Size = New System.Drawing.Size(231, 22) resources.ApplyResources(Me.HotkeyEisntellungenToolStripMenuItem, "HotkeyEisntellungenToolStripMenuItem")
Me.HotkeyEisntellungenToolStripMenuItem.Text = "Hotkey - Einstellungen"
' '
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6) resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
' '
'GrundeinstellungenToolStripMenuItem 'GrundeinstellungenToolStripMenuItem
' '
Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem" Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(217, 22) resources.ApplyResources(Me.GrundeinstellungenToolStripMenuItem, "GrundeinstellungenToolStripMenuItem")
Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen User"
' '
'FrmHotkeyAddToolStripMenuItem 'FrmHotkeyAddToolStripMenuItem
' '
Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem" Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem"
Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22) resources.ApplyResources(Me.FrmHotkeyAddToolStripMenuItem, "FrmHotkeyAddToolStripMenuItem")
Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User"
' '
'HistoryIndexierteDateienToolStripMenuItem 'HistoryIndexierteDateienToolStripMenuItem
' '
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem" Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22) resources.ApplyResources(Me.HistoryIndexierteDateienToolStripMenuItem, "HistoryIndexierteDateienToolStripMenuItem")
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
' '
'InfoToolStripMenuItem 'InfoToolStripMenuItem
' '
Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem" Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22) resources.ApplyResources(Me.InfoToolStripMenuItem, "InfoToolStripMenuItem")
Me.InfoToolStripMenuItem.Text = "Info"
' '
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.AllowDrop = True Me.StatusStrip1.AllowDrop = True
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblFW}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblFW, Me.tslblCultureInfo})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 99) resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
Me.StatusStrip1.Name = "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 'tslblFW
' '
Me.tslblFW.BackColor = System.Drawing.SystemColors.Control Me.tslblFW.BackColor = System.Drawing.SystemColors.Control
Me.tslblFW.Image = Global.Global_Indexer.My.Resources.Resources.bell_go Me.tslblFW.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.tslblFW.Name = "tslblFW" Me.tslblFW.Name = "tslblFW"
Me.tslblFW.Size = New System.Drawing.Size(133, 17) resources.ApplyResources(Me.tslblFW, "tslblFW")
Me.tslblFW.Text = "FolderWatch ist aktiv" '
Me.tslblFW.Visible = False '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 'MyDataset
' '
@ -182,33 +232,25 @@ Partial Class frmStart
Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
' '
'TimerFolderWatch 'btnChoosefiles
' '
Me.TimerFolderWatch.Interval = 2000 Me.btnChoosefiles.AllowDrop = True
' resources.ApplyResources(Me.btnChoosefiles, "btnChoosefiles")
'TimerClose3Minutes Me.btnChoosefiles.Name = "btnChoosefiles"
' Me.btnChoosefiles.UseVisualStyleBackColor = True
Me.TimerClose3Minutes.Interval = 180000
'
'NotifyIcon1
'
Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
Me.NotifyIcon1.Text = "GlobalIndexer"
' '
'frmStart 'frmStart
' '
Me.AllowDrop = True 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.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.ActiveCaption Me.BackColor = System.Drawing.SystemColors.ControlLight
Me.ClientSize = New System.Drawing.Size(305, 121) Me.Controls.Add(Me.btnChoosefiles)
Me.Controls.Add(Me.LabelControl1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1) 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.MaximizeBox = False
Me.Name = "frmStart" Me.Name = "frmStart"
Me.Text = "Global Indexer"
Me.TopMost = True Me.TopMost = True
Me.MenuStrip1.ResumeLayout(False) Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout() Me.MenuStrip1.PerformLayout()
@ -229,7 +271,6 @@ Partial Class frmStart
Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents GrundeinstellungenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents FrmHotkeyAddToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip 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 tslblFW As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents MyDataset As Global_Indexer.MyDataset Friend WithEvents MyDataset As Global_Indexer.MyDataset
Friend WithEvents TBHOTKEY_USER_PROFILEBindingSource As System.Windows.Forms.BindingSource 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 NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents HistoryIndexierteDateienToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents HistoryIndexierteDateienToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents InfoToolStripMenuItem 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 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

738
Global_Indexer/frmStart.vb
View File

@ -3,35 +3,165 @@ Imports Microsoft.Office.Interop
Imports Independentsoft Imports Independentsoft
Imports DLLLicenseManager Imports DLLLicenseManager
Imports System.Text Imports System.Text
Imports System.Globalization
Imports System.Threading
Imports System.Runtime.InteropServices
Public Class frmStart 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 Public _lizenzManager As ClassLicenseManager
Dim loaded As Boolean = False Dim loaded As Boolean = False
Dim WithEvents HotKey As New clsHotkey(Me) 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) Thread.CurrentThread.CurrentUICulture = New CultureInfo(USER_LANGUAGE)
Check_Dropped_Files() Me.Controls.Clear()
End Sub
Private Sub ReceiveHotKey(ByVal HotKeyID As String) Handles HotKey.HotKeyPressed 'Me.Events.Dispose()
Me.Cursor = Cursors.WaitCursor
Me.NotifyIcon1.Visible = True InitializeComponent()
NotifyIcon1.ShowBalloonTip(2000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info) tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
Try Try
'Die vorherige Tempfile löschen Dim Ic As Icon = New Icon(Application.StartupPath & "\DD_Icons_ICO_GLOBIX_128.ico")
If CURRENT_WD_TEMPSEARCH <> "" Then If Not IsNothing(Ic) Then
If My.Computer.FileSystem.FileExists(CURRENT_WD_TEMPSEARCH) Then Me.Icon = Ic
Try End If
My.Computer.FileSystem.DeleteFile(CURRENT_WD_TEMPSEARCH)
Catch ex As Exception
End Try 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
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 HK1 As String
Dim HK2 As String Dim HK2 As String
'Die Hotkeys definieren 'Die Hotkeys definieren
@ -45,11 +175,25 @@ Public Class frmStart
Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True) Dim DTHOTKEY_PROFILES As DataTable = ClassDatabase.Return_Datatable(SQL, True)
Dim Result As String = "" Dim Result As String = ""
If Not IsNothing(DTHOTKEY_PROFILES) Then 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 For Each row As DataRow In DTHOTKEY_PROFILES.Rows
Result = ClassHotkey_Windream.RUN_WD_SEARCH(row.Item("GUID")) 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"))
End If
Next Next
If _focusedWindowfound = False Then
Result = "Focused Window not configured in hotkey"
End If
End If End If
If Result = "" Then If Result = "" Then
Me.NotifyIcon1.Visible = False Me.NotifyIcon1.Visible = False
Else Else
@ -80,50 +224,54 @@ Public Class frmStart
e.Effect = DragDropEffects.None e.Effect = DragDropEffects.None
End If End If
End Sub End Sub
Sub Check_Dropped_Files()
'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
Dim i As Integer
For Each Str As Object In ClassDragDrop.files_dropped
If Not Str Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
ClassFilehandle.Decide_FileHandle(filename, handleType)
i += 1
Else
Console.WriteLine("File gibt es bereits")
End If
End If Sub Check_Dropped_Files()
Next Try
Me.TopMost = True Me.TopMost = False
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
DTACTUAL_FILES = Nothing CURRENT_ABBRUCH = 0
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True) Dim i As Integer
ABORT_INDEXING = False For Each Str As Object In ClassDragDrop.files_dropped
If DTACTUAL_FILES.Rows.Count > 1 Then If Not Str Is Nothing Then
frmIndexFileList.ShowDialog() If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
ClassFilehandle.Decide_FileHandle(filename, handleType)
i += 1
Else
Console.WriteLine("File gibt es bereits")
End If
End If
Next
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = Nothing DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True) DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
End If ABORT_INDEXING = False
For Each Filerow As DataRow In DTACTUAL_FILES.Rows If DTACTUAL_FILES.Rows.Count > 1 Then
Dim filestring As String = Filerow.Item("FILENAME2WORK") frmIndexFileList.ShowDialog()
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK") DTACTUAL_FILES = Nothing
CURRENT_WORKFILE_GUID = Filerow.Item(0) DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
If File.Exists(CURRENT_WORKFILE) Then
Open_IndexDialog()
Else
Console.WriteLine("File existiert nicht mehr!")
End If End If
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
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) = True Then
Open_IndexDialog()
End If
Next 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 End Sub
Sub Open_IndexDialog() Sub Open_IndexDialog()
@ -136,33 +284,61 @@ Public Class frmStart
If File.Exists(CURRENT_FILENAME) Then If File.Exists(CURRENT_FILENAME) Then
Select Case CURRENT_ABBRUCH Select Case CURRENT_ABBRUCH
Case 1 Case 1
MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information) 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() Open_IndexDialog()
Case 2 Case 2
Dim result As MsgBoxResult Dim result As MsgBoxResult
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) 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 If result = MsgBoxResult.Yes Then
Dim containsfw_file As Boolean = False Dim containsfw_file As Boolean = False
Try Try
ABORT_INDEXING = True 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 filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE") Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
System.IO.File.Delete(filestring) Try
System.IO.File.Delete(filestring)
Catch ex As Exception
End Try
ElseIf handletype.StartsWith("@FW") Then ElseIf handletype.StartsWith("@FW") Then
containsfw_file = True containsfw_file = True
End If End If
Next Next
'Zuerst die Daten des Ablaufs löschen '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 containsfw_file = True 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:") 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 End If
Catch ex As Exception 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 End Try
@ -174,215 +350,135 @@ Public Class frmStart
End Select End Select
End If End If
Catch ex As Exception 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 Me.Visible = True
End Try End Try
End Sub End Sub
Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing Private Sub frmStart_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try If My.Settings.AppTerminate = False Then
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 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 ClassLogger.Add("", False)
frmConfig_Basic.ShowDialog() If START_INCOMPLETE = False Then
End If Dim sql = "UPDATE TBDD_USER SET LOGGED_IN = 0, LOGGED_WHERE = '' WHERE LOWER(USERNAME) = LOWER('" & Environment.UserName & "')"
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'"
If ClassDatabase.Execute_non_Query(sql, True) = True Then 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
sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'Global-Indexer')"
ClassDatabase.Execute_non_Query(sql, True)
sql = "SELECT GI_ADMIN FROM TBDD_USER WHERE GUID = " & USER_GUID
ISUserAdmin = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If ISUserAdmin = 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
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) End If
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) ClassWindowLocation.SaveFormLocationSize(Me)
If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False) Catch ex As Exception
If Load_BasicConfig() = False Then MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
START_INCOMPLETE = True End Try
Exit Sub 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
'Dim sql = sql_UserID
Dim splash As New frmSplash()
splash.ShowDialog()
'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
Unregister_Hotkeys()
Load_Hotkeys()
End If 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
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
Unregister_Hotkeys()
Load_Hotkeys()
Me.Opacity = 30
'tslblCultureInfo.Text = "Culture/Language: " & USER_LANGUAGE
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Load-Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try 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 End Sub
Sub Unregister_Hotkeys() Sub Unregister_Hotkeys()
Try Try
@ -395,7 +491,7 @@ Public Class frmStart
sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID sql = "delete from TBHOTKEYTEMP_USER_HOTKEYS where [USER_ID] = " & CURRENT_USERID
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql, True)
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Unregister_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
@ -444,11 +540,15 @@ Public Class frmStart
End Try End Try
End Sub End Sub
Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
Me.Hide() If ClassLicence.license_is_Valid = True Then
Unregister_Hotkeys() Me.Hide()
frmHotKey_Add.ShowDialog() Unregister_Hotkeys()
Load_Hotkeys() frmHotKey_Add.ShowDialog()
Me.Visible = True Load_Hotkeys()
Me.Visible = True
End If
End Sub End Sub
Private Sub GlobalIndexerEinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GlobalIndexerEinstellungenToolStripMenuItem.Click 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 Private Sub GrundeinstellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GrundeinstellungenToolStripMenuItem.Click
Me.TopMost = False Me.TopMost = False
frmConfig_Basic.ShowDialog() 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 Me.TopMost = True
End Sub End Sub
Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click Private Sub FrmHotkeyAddToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FrmHotkeyAddToolStripMenuItem.Click
Me.TopMost = False If ClassLicence.license_is_Valid = True Then
Unregister_Hotkeys() Me.Hide()
frmHotkey_User.ShowDialog() Unregister_Hotkeys()
Load_Hotkeys() frmHotkey_User.ShowDialog()
Me.TopMost = True Load_Hotkeys()
Me.Visible = True
End If
End Sub End Sub
Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick Private Sub TimerFolderWatch_Tick(sender As Object, e As EventArgs) Handles TimerFolderWatch.Tick
@ -496,10 +606,10 @@ Public Class frmStart
CURRENT_WORKFILE_GUID = row.Item("GUID") CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog() Open_IndexDialog()
Else Else
ClassLogger.Add(">> Datei existiert (noch) nicht - fileexists?!", False) ClassLogger.Add(">> file not existing - filexists!", False)
End If End If
Else 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 End If
Next Next
@ -514,25 +624,99 @@ Public Class frmStart
End Try End Try
End Sub End Sub
Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick Private Sub TimerClose3Minutes_Tick(sender As Object, e As EventArgs) Handles TimerClose3Minutes.Tick
If License_Expired = True Or License_Anzahl < UserLoggedin Then If LICENSE_EXPIRED = True Or LICENSE_COUNT < UserLoggedin Then
MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information) 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() Me.Close()
Else
TimerClose3Minutes.Stop()
End If End If
End Sub End Sub
Private Sub frmStart_Shown(sender As Object, e As EventArgs) Handles Me.Shown 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() Me.Close()
End If 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 loaded = True
Opacity = 0.65 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 Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog() frmHistory.ShowDialog()
End Sub End Sub
Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click Private Sub InfoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoToolStripMenuItem.Click
Me.TopMost = False
AboutBox1.ShowDialog() 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 Sub
End Class 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.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.btnCancel = New System.Windows.Forms.Button()
Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton()
Me.tbSelectNone = 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() Me.btnAddUsers = New System.Windows.Forms.Button()
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
@ -115,15 +115,6 @@ Partial Class frmUserKonfig_AddUsers
Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22) Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22)
Me.ToolStripLabel2.Text = "Verfügbare Benutzer:" 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 'tbSelectEverything
' '
Me.tbSelectEverything.Image = Global.Global_Indexer.My.Resources.Resources.CheckOutforEdit_13187_32x 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.Size = New System.Drawing.Size(104, 22)
Me.tbSelectNone.Text = "Nichts auswählen" 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 'btnAddUsers
' '
Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add Me.btnAddUsers.Image = Global.Global_Indexer.My.Resources.Resources.add

325
Global_Indexer/frmUserKonfig_AddUsers.vb
View File

@ -3,20 +3,172 @@ Imports System.DirectoryServices.ActiveDirectory
Imports System.DirectoryServices.AccountManagement Imports System.DirectoryServices.AccountManagement
Public Class frmUserKonfig_AddUsers 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 Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try 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 For Each group In groups
lbGroups.Items.Add(group) lbGroups.Items.Add(group)
Next Next
'Dim groups As List(Of String) = GetActiveDirectoryGroups()
'For Each group In groups
' lbGroups.Items.Add(group)
'Next
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Load Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load Groups: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
End Sub 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) Function GetActiveDirectoryGroups() As List(Of String)
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
Dim groups As List(Of String) = New List(Of String) Dim groups As List(Of String) = New List(Of String)
@ -31,68 +183,139 @@ Public Class frmUserKonfig_AddUsers
Return groups Return groups
End Function 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) Function GetUsersForGroup(g As String) As List(Of UserPrincipal)
Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal) Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal)
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain) 'Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g) 'Dim group As GroupPrincipal = GroupPrincipal.FindByIdentity(ctx, g)
Dim u = group.GetMembers(True) 'Dim u = group.GetMembers(True)
For Each user In u 'For Each user In u
If user.GetType().Name = "UserPrincipal" Then ' If user.GetType().Name = "UserPrincipal" Then
users.Add(user) ' users.Add(user)
End If ' End If
Next 'Next
Return users Return users
End Function End Function
Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged
Me.Cursor = Cursors.WaitCursor
Dim group As String = lbGroups.SelectedItem 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() clbUsers.Items.Clear()
For Each user In users If users Is Nothing Then
clbUsers.Items.Add(user) Me.Cursor = Cursors.Default
Next
End Sub
Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click
Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
Dim usersAdded As Integer = 0
If items.Count = 0 Then
MsgBox("Keine Benutzer ausgewählt")
Exit Sub Exit Sub
End If End If
For Each item As UserPrincipal In items For Each user In users
Dim user As UserPrincipal = item clbUsers.Items.Add(user)
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()
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 & "')"
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 Next
Me.Cursor = Cursors.Default
If usersAdded = 1 Then End Sub
MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information)
Else Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click
MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information) Try
End If Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
Dim usersAdded As Integer = 0
If items.Count = 0 Then
MsgBox("Keine Benutzer ausgewählt")
Exit Sub
End If
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 = 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
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
If usersAdded = 1 Then
MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information)
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 End Sub
@ -125,4 +348,18 @@ Public Class frmUserKonfig_AddUsers
clbUsers.SetItemChecked(i, False) clbUsers.SetItemChecked(i, False)
Next Next
End Sub 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 End Class

56
SetupWix/Product.wxs
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<Wix xmlns="http://schemas.microsoft.com/wix/2006/wi" <Wix xmlns="http://schemas.microsoft.com/wix/2006/wi"
xmlns:util="http://schemas.microsoft.com/wix/UtilExtension"> 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"/> <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! --> <!-- Nicht entfernen! -->
@ -71,8 +71,13 @@
<File Id="ReleaseNote" Name="Release Notes.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\GlobalIndexer\Release Notes.txt" KeyPath="yes"> <File Id="ReleaseNote" Name="Release Notes.txt" Source="P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DD_MODULE\GlobalIndexer\Release Notes.txt" KeyPath="yes">
</File> </File>
</Component> </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--> <!--WINDREAM Bibliotheken-->
<Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646"> <Component Id="WindreamLibs" Guid="4D11FC99-50D9-4E54-B18A-8885C9112646">
<File Id="WINDREAMLibDLL" Name="Interop.WINDREAMLib.dll" Source="E:\SchreiberM\Visual Studio\Bibliotheken\DLL\windreamDLL\64bit\Interop.WINDREAMLib.dll" KeyPath="yes" /> <File Id="WINDREAMLibDLL" Name="Interop.WINDREAMLib.dll" Source="E:\SchreiberM\Visual Studio\Bibliotheken\DLL\windreamDLL\64bit\Interop.WINDREAMLib.dll" KeyPath="yes" />
<File Id="WMOTOOLLib" Name="Interop.WMOTOOLLib.dll" Source="\\dd-sto01\DD-STO01-A2\Projekte\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll" KeyPath="no" /> <File Id="WMOTOOLLib" Name="Interop.WMOTOOLLib.dll" Source="\\dd-sto01\DD-STO01-A2\Projekte\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll" KeyPath="no" />
@ -87,29 +92,29 @@
<!-- DEVEXPRESS Bibliotheken --> <!-- DEVEXPRESS Bibliotheken -->
<Component Id="DevExpressLibs" Guid="CB40DAAE-348E-4BD3-B275-9A526EB8F191"> <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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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.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> </Component>
<!-- Digital-Data DLLS --> <!-- Digital-Data DLLS -->
@ -157,6 +162,7 @@
<ComponentRef Id="DevExpressLibs" /> <ComponentRef Id="DevExpressLibs" />
<ComponentRef Id="ProgramMenuDir"/> <ComponentRef Id="ProgramMenuDir"/>
<ComponentRef Id="RegistryEntries"/> <ComponentRef Id="RegistryEntries"/>
<ComponentRef Id="ApplicationIco"/>
</Feature> </Feature>
<!-- Legt das Standard-Installationsverzeichnis fest--> <!-- Legt das Standard-Installationsverzeichnis fest-->