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

MS 19.08

Browse Source
This commit is contained in:
SchreiberM 2015-08-19 14:36:21 +02:00
parent 1910ac0a74
commit 524552a2da
25 changed files with 3961 additions and 3397 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Global_Indexer/ClassDatabase.vb
View File

@ -11,12 +11,12 @@ Public Class ClassDatabase
SQLconnect.Close() SQLconnect.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Fehler bei DatabaseInit: " & ex.Message, True) ClassLogger.Add("Fehler bei Database-Init: " & ex.Message, True)
Return False Return False
End Try End Try
End Function End Function
<System.Diagnostics.CodeAnalysis.SuppressMessage("Microsoft.Security", "CA2100:SQL-Abfragen auf Sicherheitsrisiken überprüfen")> Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False) Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
@ -35,7 +35,7 @@ Public Class ClassDatabase
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical) MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True) ClassLogger.Add("Fehler bei Return_Datatable: " & ex.Message, True)
ClassLogger.Add("SQL: " & Select_anweisung, False) ClassLogger.Add("#SQL: " & Select_anweisung, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -57,7 +57,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical) MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True) ClassLogger.Add("Fehler bei Execute_non_Query: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False) ClassLogger.Add("#SQL: " & ExecuteCMD, False)
Return False Return False
End Try End Try
@ -81,7 +81,7 @@ Public Class ClassDatabase
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical) MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If End If
ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True) ClassLogger.Add("Fehler bei Execute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False) ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@ -101,7 +101,7 @@ Public Class ClassDatabase
Return result Return result
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True) ClassLogger.Add("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
ClassLogger.Add("SQL: " & cmdscalar, False) ClassLogger.Add("#SQL: " & cmdscalar, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function

27
Global_Indexer/ClassFilehandle.vb
View File

@ -38,6 +38,8 @@ Public Class ClassFilehandle
If Not msg.InternetMessageId Is Nothing Then If Not msg.InternetMessageId Is Nothing Then
CURRENT_MESSAGEID = msg.InternetMessageId CURRENT_MESSAGEID = msg.InternetMessageId
Else
MsgBox("Es konnte keine Message-ID ausgelesen werden." & vbNewLine & "Dies kann zu Fehlern in der Indexierung führen!", MsgBoxStyle.Exclamation, "Achtung:")
End If End If
'Nur die MSGDatei ablegen 'Nur die MSGDatei ablegen
@ -96,4 +98,29 @@ Public Class ClassFilehandle
Return False Return False
End Try End Try
End Function End Function
Public Shared Function IsFileInUse(ByVal fullFilePath As String) As Boolean
' Gibt zurück, ob die übergebene Datei momentan exklusiv zu haben ist.
' Prüft, ob die angegeben Datei aktuell durch eine
' andere Anwendung in Benutzung ist
Dim ff As Integer = FreeFile()
If System.IO.File.Exists(fullFilePath) Then
Try
' Versuchen, die Datei mit *exklusiven* Lese- und
' Schreibrechten zu öffnen
FileOpen(ff, fullFilePath, OpenMode.Binary, _
OpenAccess.ReadWrite, _
OpenShare.LockReadWrite)
Catch
' Ist ein Fehler aufgetreten, so wird nach außen hin generell
' davon ausgegangen, dass die Datei in Benutzung ist (obwohl
' auch andere Ursachen, etwa Rechteprobleme, möglich sind).
IsFileInUse = True
Finally
' Die eventuell geöffnete Datei schließen
FileClose(ff)
End Try
End If
End Function
End Class End Class

4
Global_Indexer/ClassPostprocessing.vb
View File

@ -24,8 +24,8 @@ Public Class ClassPostprocessing
End If End If
result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2")) result = result.Replace(row.Item("TEXT1"), row.Item("TEXT2"))
Case "Regular Expression" Case "REG. EXPRESSION"
If LogErrorsOnly = False Then ClassLogger.Add(" ... NAchbearbeitung mit RegEx", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Nachbearbeitung mit RegEx", False)
Dim RegexList As New List(Of System.Text.RegularExpressions.Regex) Dim RegexList As New List(Of System.Text.RegularExpressions.Regex)
Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase) Dim Regex As New System.Text.RegularExpressions.Regex(row.Item("TEXT1"), System.Text.RegularExpressions.RegexOptions.IgnoreCase)
RegexList.Add(Regex) RegexList.Add(Regex)

10
Global_Indexer/Global_Indexer.vbproj
View File

@ -122,6 +122,12 @@
<Import Include="System.Threading.Tasks" /> <Import Include="System.Threading.Tasks" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="AboutBox1.Designer.vb">
<DependentUpon>AboutBox1.vb</DependentUpon>
</Compile>
<Compile Include="AboutBox1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ClassDatabase.vb" /> <Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEncryption.vb" /> <Compile Include="ClassEncryption.vb" />
@ -261,6 +267,9 @@
</Compile> </Compile>
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<EmbeddedResource Include="AboutBox1.resx">
<DependentUpon>AboutBox1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAdministration.resx"> <EmbeddedResource Include="frmAdministration.resx">
<DependentUpon>frmAdministration.vb</DependentUpon> <DependentUpon>frmAdministration.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@ -516,6 +525,7 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="globe_handdrawn.ico" /> <Content Include="globe_handdrawn.ico" />
<None Include="Resources\Excel_25ixel.jpg" />
<None Include="Resources\cancel.png" /> <None Include="Resources\cancel.png" />
<None Include="Resources\refresh_16xLG.png" /> <None Include="Resources\refresh_16xLG.png" />
</ItemGroup> </ItemGroup>

5
Global_Indexer/ModuleCURRENT.vb
View File

@ -1,4 +1,5 @@
Module ModuleCURRENT Module ModuleCURRENT
Public START_INCOMPLETE As Boolean = False
Public CURRENT_FILENAME As String Public CURRENT_FILENAME As String
Public CURRENT_NEWFILENAME As String Public CURRENT_NEWFILENAME As String
Public CURRENT_WORKFILE_GUID As Integer Public CURRENT_WORKFILE_GUID As Integer
@ -30,4 +31,8 @@
Public CURRENT_ABBRUCH As Integer = 0 Public CURRENT_ABBRUCH As Integer = 0
Public MULTIINDEXING_ACTIVE As Boolean = False
Public DTACTUAL_FILES As DataTable
End Module End Module

2
Global_Indexer/My Project/AssemblyInfo.vb
View File

@ -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.0.0")> <Assembly: AssemblyVersion("1.7.2.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

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

@ -310,6 +310,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 Excel_25ixel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Excel_25ixel", 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>

27
Global_Indexer/My Project/Resources.resx
View File

@ -139,9 +139,6 @@
<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>
@ -154,6 +151,9 @@
<data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="delete_12x12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="database_save2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\database_save2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -169,6 +169,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>
@ -178,6 +181,9 @@
<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>
@ -202,15 +208,12 @@
<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>
@ -244,13 +247,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="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Excel_25ixel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.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>
</root> </root>

1907
Global_Indexer/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

31
Global_Indexer/MyDataset.xsc
View File

@ -212,24 +212,39 @@
<TableUISetting Name="TBDD_INDEX_MAN_POSTPROCESSING"> <TableUISetting Name="TBDD_INDEX_MAN_POSTPROCESSING">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="IDXMAN_ID"> <ColumnUISetting Name="IDXMAN_ID">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
<ColumnUISetting Name="TYPE"> <ColumnUISetting Name="TYPE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
<ColumnUISetting Name="ADDED_WHEN"> <ColumnUISetting Name="ADDED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN"> <ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting>
</ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="VARIANT">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
</ColumnUISettings> </ColumnUISettings>
</TableUISetting> </TableUISetting>

51
Global_Indexer/MyDataset.xsd
View File

@ -548,8 +548,9 @@ WHERE (DOK_ID = @DokID)</CommandText>
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWDDINDEX_AUTOM" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.VWDDINDEX_AUTOM" DbObjectType="View" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT,VALUE <CommandText>SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, VALUE,
SQL_ACTIVE
FROM VWDDINDEX_AUTOM FROM VWDDINDEX_AUTOM
WHERE (DOCTYPE_ID = @DOCTYPE)</CommandText> WHERE (DOCTYPE_ID = @DOCTYPE)</CommandText>
<Parameters> <Parameters>
@ -575,6 +576,7 @@ WHERE (DOCTYPE_ID = @DOCTYPE)</CommandText>
<Mapping SourceColumn="PASSWORD" DataSetColumn="PASSWORD" /> <Mapping SourceColumn="PASSWORD" DataSetColumn="PASSWORD" />
<Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" /> <Mapping SourceColumn="SQL_RESULT" DataSetColumn="SQL_RESULT" />
<Mapping SourceColumn="VALUE" DataSetColumn="VALUE" /> <Mapping SourceColumn="VALUE" DataSetColumn="VALUE" />
<Mapping SourceColumn="SQL_ACTIVE" DataSetColumn="SQL_ACTIVE" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -788,19 +790,19 @@ SELECT GUID, OBJECTTYPE, IDX_EMAIL_ID, IDX_EMAIL_FROM, IDX_EMAIL_TO, IDX_EMAIL_S
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING <CommandText>DELETE FROM TBDD_INDEX_MAN_POSTPROCESSING
WHERE (GUID = @GUID)</CommandText> WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING <CommandText>INSERT INTO TBDD_INDEX_MAN_POSTPROCESSING
(IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO) (IDXMAN_ID, COMMENT, TYPE, FUNCTION1, FUNCTION2, TEXT1, TEXT2, TEXT3, SEQUENCE, ADDED_WHO, VARIANT)
VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO)</CommandText> VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TEXT3,@SEQUENCE,@ADDED_WHO,@VARIANT)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -812,15 +814,17 @@ VALUES (@IDXMAN_ID,@COMMENT,@TYPE,@FUNCTION1,@FUNCTION2,@TEXT1,@TEXT2,@TE
<Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.TYPE, <CommandText>SELECT TBDD_INDEX_MAN_POSTPROCESSING.GUID, TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID, TBDD_INDEX_MAN_POSTPROCESSING.COMMENT, TBDD_INDEX_MAN_POSTPROCESSING.TYPE,
TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDEX_MAN_POSTPROCESSING.TEXT2, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION1, TBDD_INDEX_MAN_POSTPROCESSING.FUNCTION2, TBDD_INDEX_MAN_POSTPROCESSING.TEXT1, TBDD_INDEX_MAN_POSTPROCESSING.TEXT2,
TBDD_INDEX_MAN_POSTPROCESSING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.TEXT3, TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCE, TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHO,
TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHEN, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHO, TBDD_INDEX_MAN_POSTPROCESSING.CHANGED_WHEN,
TBDD_INDEX_MAN_POSTPROCESSING.VARIANT
FROM TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN FROM TBDD_INDEX_MAN_POSTPROCESSING INNER JOIN
TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID TBDD_INDEX_MAN ON TBDD_INDEX_MAN_POSTPROCESSING.IDXMAN_ID = TBDD_INDEX_MAN.GUID
WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText> WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText>
@ -833,7 +837,7 @@ WHERE (TBDD_INDEX_MAN.DOK_ID = @DOK_ID)</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_INDEX_MAN_POSTPROCESSING <CommandText>UPDATE TBDD_INDEX_MAN_POSTPROCESSING
SET IDXMAN_ID = @IDXMAN_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3, SET IDXMAN_ID = @IDXMAN_ID, COMMENT = @COMMENT, TYPE = @TYPE, FUNCTION1 = @FUNCTION1, FUNCTION2 = @FUNCTION2, TEXT1 = @TEXT1, TEXT2 = @TEXT2, TEXT3 = @TEXT3,
SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, VARIANT = @VARIANT
WHERE (GUID = @GUID)</CommandText> WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="IDXMAN_ID" ColumnName="IDXMAN_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@IDXMAN_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="IDXMAN_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -846,6 +850,7 @@ WHERE (GUID = @GUID)</CommandText>
<Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="TEXT3" ColumnName="TEXT3" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@TEXT3" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="TEXT3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@SEQUENCE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="SEQUENCE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="VARIANT" ColumnName="VARIANT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@VARIANT" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="VARIANT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN_POSTPROCESSING" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
@ -867,6 +872,7 @@ WHERE (GUID = @GUID)</CommandText>
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" /> <Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="VARIANT" DataSetColumn="VARIANT" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -1649,7 +1655,7 @@ WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_HISTORYTableAdapter" GeneratorDataComponentClassName="TBGI_HISTORYTableAdapter" Name="TBGI_HISTORY" UserDataComponentName="TBGI_HISTORYTableAdapter"> <TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_HISTORYTableAdapter" GeneratorDataComponentClassName="TBGI_HISTORYTableAdapter" Name="TBGI_HISTORY" UserDataComponentName="TBGI_HISTORYTableAdapter">
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="Fill"> <DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillToday" GenerateMethods="Both" GenerateShortCommands="false" GeneratorGetMethodName="GetData" GeneratorSourceName="FillToday" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="false" UserGetMethodName="GetData" UserSourceName="FillToday">
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN <CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN
@ -1669,7 +1675,21 @@ ORDER BY GUID DESC</CommandText>
<Mapping SourceColumn="FILENAME_NEW" DataSetColumn="FILENAME_NEW" /> <Mapping SourceColumn="FILENAME_NEW" DataSetColumn="FILENAME_NEW" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" /> <Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
</Mappings> </Mappings>
<Sources /> <Sources>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_HISTORY" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="FillByAll" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetDataByAll" GeneratorSourceName="FillByAll" GetMethodModifier="Public" GetMethodName="GetDataByAll" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataByAll" UserSourceName="FillByAll">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN
FROM TBGI_HISTORY
WHERE (ADDED_WHO = @User)
ORDER BY GUID DESC</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="User" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBGI_HISTORY" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@User" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</Sources>
</TableAdapter> </TableAdapter>
</Tables> </Tables>
<Sources /> <Sources />
@ -2141,6 +2161,7 @@ ORDER BY GUID DESC</CommandText>
<xs:element name="Indexiert" msprop:Generator_ColumnVarNameInTable="columnIndexiert" msprop:Generator_ColumnPropNameInRow="Indexiert" msprop:Generator_ColumnPropNameInTable="IndexiertColumn" msprop:Generator_UserColumnName="Indexiert" type="xs:boolean" default="false" minOccurs="0" /> <xs:element name="Indexiert" msprop:Generator_ColumnVarNameInTable="columnIndexiert" msprop:Generator_ColumnPropNameInRow="Indexiert" msprop:Generator_ColumnPropNameInTable="IndexiertColumn" msprop:Generator_UserColumnName="Indexiert" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="Indexwert" msprop:Generator_ColumnVarNameInTable="columnIndexwert" msprop:Generator_ColumnPropNameInRow="Indexwert" msprop:Generator_ColumnPropNameInTable="IndexwertColumn" msprop:Generator_UserColumnName="Indexwert" type="xs:string" default="" minOccurs="0" /> <xs:element name="Indexwert" msprop:Generator_ColumnVarNameInTable="columnIndexwert" msprop:Generator_ColumnPropNameInRow="Indexwert" msprop:Generator_ColumnPropNameInTable="IndexwertColumn" msprop:Generator_UserColumnName="Indexwert" type="xs:string" default="" minOccurs="0" />
<xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" /> <xs:element name="OPTIONAL" msprop:Generator_ColumnVarNameInTable="columnOPTIONAL" msprop:Generator_ColumnPropNameInRow="_OPTIONAL" msprop:Generator_ColumnPropNameInTable="OPTIONALColumn" msprop:Generator_UserColumnName="OPTIONAL" type="xs:boolean" default="false" />
<xs:element name="Indexwert_File" msprop:Generator_ColumnVarNameInTable="columnIndexwert_File" msprop:Generator_ColumnPropNameInRow="Indexwert_File" msprop:Generator_ColumnPropNameInTable="Indexwert_FileColumn" msprop:Generator_UserColumnName="Indexwert_File" type="xs:string" default="" minOccurs="0" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -2236,6 +2257,7 @@ ORDER BY GUID DESC</CommandText>
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="SQL_ACTIVE" msprop:Generator_ColumnVarNameInTable="columnSQL_ACTIVE" msprop:Generator_ColumnPropNameInRow="SQL_ACTIVE" msprop:Generator_ColumnPropNameInTable="SQL_ACTIVEColumn" msprop:Generator_UserColumnName="SQL_ACTIVE" type="xs:boolean" />
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
@ -2495,6 +2517,13 @@ ORDER BY GUID DESC</CommandText>
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" /> <xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="VARIANT" msprop:Generator_ColumnVarNameInTable="columnVARIANT" msprop:Generator_ColumnPropNameInRow="_VARIANT" msprop:Generator_ColumnPropNameInTable="VARIANTColumn" msprop:Generator_UserColumnName="VARIANT" default="FILE AND INDEX">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>

85
Global_Indexer/MyDataset.xss
View File

@ -6,36 +6,37 @@
</autogenerated>--> </autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-12" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout"> <DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-12" ViewPortY="-47" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes> <Shapes>
<Shape ID="DesignTable:TBDD_USER" ZOrder="17" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_USER" ZOrder="19" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="42" X="119" Y="308" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_DOKUMENTART" ZOrder="43" X="119" Y="308" Height="324" Width="278" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="19" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBDD_EINGANGSARTEN" ZOrder="21" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="40" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" /> <Shape ID="DesignTable:TBDD_DOKART_MODULE" ZOrder="41" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="39" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" /> <Shape ID="DesignTable:TBDD_MODULES" ZOrder="40" X="1096" Y="325" Height="115" Width="242" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="31" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" /> <Shape ID="DesignTable:TBDD_INDEX_MAN" ZOrder="33" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="38" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="39" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="36" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" /> <Shape ID="DesignTable:VWDDINDEX_MAN" ZOrder="1" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" />
<Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="35" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:VWDDINDEX_AUTOM" ZOrder="37" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="18" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_INDEX_AUTOM" ZOrder="20" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="32" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="34" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="20" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" /> <Shape ID="DesignTable:TBGI_OBJECTTYPE_EMAIL_INDEX" ZOrder="22" X="117" Y="665" Height="286" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
<Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="29" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_INDEX_MAN_POSTPROCESSING" ZOrder="31" X="743" Y="69" Height="305" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="27" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBWHDD_INDEX_MAN" ZOrder="29" X="133" Y="112" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="25" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" /> <Shape ID="DesignTable:TBDD_USER_GROUPS" ZOrder="27" X="1193" Y="100" Height="191" Width="268" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="140" />
<Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="24" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <Shape ID="DesignTable:TBDD_GROUPS_USER" ZOrder="26" X="708" Y="-9" Height="229" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" />
<Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="21" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" /> <Shape ID="DesignTable:VWGI_USER_GROUPS_RELATION" ZOrder="23" X="845" Y="494" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="4" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <Shape ID="DesignTable:VWGI_DOCTYPE_GROUP" ZOrder="6" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="6" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="8" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="5" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" /> <Shape ID="DesignTable:TBHOTKEY_PATTERNS" ZOrder="7" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" />
<Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="9" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBMYHOTKEYS" ZOrder="11" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="10" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_USER_PROFILE" ZOrder="12" X="30" Y="178" Height="90" Width="227" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="8" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" /> <Shape ID="DesignTable:TBHOTKEY_PATTERNS_REWORK" ZOrder="10" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="3" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBHOTKEY_WINDOW_HOOK" ZOrder="5" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="2" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <Shape ID="DesignTable:TBGI_FILES_USER" ZOrder="4" X="1181" Y="7" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="33" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" /> <Shape ID="DesignTable:TBGI_HISTORY" ZOrder="2" X="0" Y="0" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="26" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <Shape ID="DesignTable:TBTempFiles2Index" ZOrder="35" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<Shape ID="DesignTable:TBTEMP_INDEXRESULTS" ZOrder="28" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" />
</Shapes> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="41" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="42" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>431</X> <X>431</X>
@ -47,7 +48,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="37" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="38" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>543</X> <X>543</X>
@ -59,7 +60,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="34" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="36" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>397</X> <X>397</X>
@ -71,7 +72,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="30" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="32" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>605</X> <X>605</X>
@ -87,7 +88,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="28" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="30" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>959</X> <X>959</X>
@ -99,7 +100,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="23" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="25" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1193</X> <X>1193</X>
@ -115,7 +116,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="22" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="24" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>871</X> <X>871</X>
@ -127,7 +128,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="18" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>94</X> <X>94</X>
@ -147,7 +148,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="15" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="17" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>129</X> <X>129</X>
@ -163,7 +164,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="14" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="16" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>183</X> <X>183</X>
@ -175,7 +176,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="13" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="15" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>88</X> <X>88</X>
@ -195,7 +196,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="12" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="14" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>117</X> <X>117</X>
@ -215,7 +216,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="11" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="13" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>765</X> <X>765</X>
@ -231,7 +232,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="7" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="9" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>409</X> <X>409</X>
@ -251,7 +252,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="1" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="3" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>38</X> <X>38</X>

223
Global_Indexer/frmAdministration.Designer.vb generated
View File

@ -92,6 +92,7 @@ Partial Class frmAdministration
Dim CHANGED_WHOLabel5 As System.Windows.Forms.Label Dim CHANGED_WHOLabel5 As System.Windows.Forms.Label
Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label Dim CHANGED_WHENLabel5 As System.Windows.Forms.Label
Dim SEQUENCELabel3 As System.Windows.Forms.Label Dim SEQUENCELabel3 As System.Windows.Forms.Label
Dim VARIANTLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdministration))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
@ -136,9 +137,10 @@ Partial Class frmAdministration
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() Me.GUIDTextBox1 = New System.Windows.Forms.TextBox()
Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage()
Me.VARIANTComboBox = New System.Windows.Forms.ComboBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblsavePostProcess = New System.Windows.Forms.Label() Me.lblsavePostProcess = New System.Windows.Forms.Label()
Me.ComboBox2 = New System.Windows.Forms.ComboBox() Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWHDD_INDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Function2Label = New System.Windows.Forms.Label() Me.Function2Label = New System.Windows.Forms.Label()
Me.Function1Label = New System.Windows.Forms.Label() Me.Function1Label = New System.Windows.Forms.Label()
@ -173,6 +175,8 @@ Partial Class frmAdministration
Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton30 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton31 = New System.Windows.Forms.ToolStripButton()
Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabPage4 = New DevExpress.XtraTab.XtraTabPage()
Me.lblWindowParameter = New System.Windows.Forms.Label()
Me.lbFileparameter = New System.Windows.Forms.ListBox()
Me.ListBox6 = New System.Windows.Forms.ListBox() Me.ListBox6 = New System.Windows.Forms.ListBox()
Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_INDEX_AUTOMBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.lblValue = New System.Windows.Forms.Label() Me.lblValue = New System.Windows.Forms.Label()
@ -447,6 +451,7 @@ Partial Class frmAdministration
CHANGED_WHOLabel5 = New System.Windows.Forms.Label() CHANGED_WHOLabel5 = New System.Windows.Forms.Label()
CHANGED_WHENLabel5 = New System.Windows.Forms.Label() CHANGED_WHENLabel5 = New System.Windows.Forms.Label()
SEQUENCELabel3 = New System.Windows.Forms.Label() SEQUENCELabel3 = New System.Windows.Forms.Label()
VARIANTLabel = New System.Windows.Forms.Label()
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControl1.SuspendLayout() Me.XtraTabControl1.SuspendLayout()
Me.XtraTabPage1.SuspendLayout() Me.XtraTabPage1.SuspendLayout()
@ -625,7 +630,7 @@ Partial Class frmAdministration
'WD_INDEXLabel 'WD_INDEXLabel
' '
WD_INDEXLabel.AutoSize = True WD_INDEXLabel.AutoSize = True
WD_INDEXLabel.Location = New System.Drawing.Point(395, 30) WD_INDEXLabel.Location = New System.Drawing.Point(439, 30)
WD_INDEXLabel.Name = "WD_INDEXLabel" WD_INDEXLabel.Name = "WD_INDEXLabel"
WD_INDEXLabel.Size = New System.Drawing.Size(62, 15) WD_INDEXLabel.Size = New System.Drawing.Size(62, 15)
WD_INDEXLabel.TabIndex = 5 WD_INDEXLabel.TabIndex = 5
@ -661,7 +666,7 @@ Partial Class frmAdministration
'SEQUENCELabel 'SEQUENCELabel
' '
SEQUENCELabel.AutoSize = True SEQUENCELabel.AutoSize = True
SEQUENCELabel.Location = New System.Drawing.Point(635, 30) SEQUENCELabel.Location = New System.Drawing.Point(674, 30)
SEQUENCELabel.Name = "SEQUENCELabel" SEQUENCELabel.Name = "SEQUENCELabel"
SEQUENCELabel.Size = New System.Drawing.Size(73, 15) SEQUENCELabel.Size = New System.Drawing.Size(73, 15)
SEQUENCELabel.TabIndex = 16 SEQUENCELabel.TabIndex = 16
@ -979,7 +984,7 @@ Partial Class frmAdministration
' '
ADDED_WHOLabel3.AutoSize = True ADDED_WHOLabel3.AutoSize = True
ADDED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) ADDED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHOLabel3.Location = New System.Drawing.Point(164, 168) ADDED_WHOLabel3.Location = New System.Drawing.Point(164, 209)
ADDED_WHOLabel3.Name = "ADDED_WHOLabel3" ADDED_WHOLabel3.Name = "ADDED_WHOLabel3"
ADDED_WHOLabel3.Size = New System.Drawing.Size(67, 15) ADDED_WHOLabel3.Size = New System.Drawing.Size(67, 15)
ADDED_WHOLabel3.TabIndex = 18 ADDED_WHOLabel3.TabIndex = 18
@ -989,7 +994,7 @@ Partial Class frmAdministration
' '
ADDED_WHENLabel3.AutoSize = True ADDED_WHENLabel3.AutoSize = True
ADDED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) ADDED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHENLabel3.Location = New System.Drawing.Point(354, 168) ADDED_WHENLabel3.Location = New System.Drawing.Point(354, 209)
ADDED_WHENLabel3.Name = "ADDED_WHENLabel3" ADDED_WHENLabel3.Name = "ADDED_WHENLabel3"
ADDED_WHENLabel3.Size = New System.Drawing.Size(78, 15) ADDED_WHENLabel3.Size = New System.Drawing.Size(78, 15)
ADDED_WHENLabel3.TabIndex = 20 ADDED_WHENLabel3.TabIndex = 20
@ -999,7 +1004,7 @@ Partial Class frmAdministration
' '
CHANGED_WHOLabel3.AutoSize = True CHANGED_WHOLabel3.AutoSize = True
CHANGED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) CHANGED_WHOLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHOLabel3.Location = New System.Drawing.Point(164, 210) CHANGED_WHOLabel3.Location = New System.Drawing.Point(531, 209)
CHANGED_WHOLabel3.Name = "CHANGED_WHOLabel3" CHANGED_WHOLabel3.Name = "CHANGED_WHOLabel3"
CHANGED_WHOLabel3.Size = New System.Drawing.Size(81, 15) CHANGED_WHOLabel3.Size = New System.Drawing.Size(81, 15)
CHANGED_WHOLabel3.TabIndex = 22 CHANGED_WHOLabel3.TabIndex = 22
@ -1009,7 +1014,7 @@ Partial Class frmAdministration
' '
CHANGED_WHENLabel3.AutoSize = True CHANGED_WHENLabel3.AutoSize = True
CHANGED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) CHANGED_WHENLabel3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHENLabel3.Location = New System.Drawing.Point(354, 210) CHANGED_WHENLabel3.Location = New System.Drawing.Point(691, 209)
CHANGED_WHENLabel3.Name = "CHANGED_WHENLabel3" CHANGED_WHENLabel3.Name = "CHANGED_WHENLabel3"
CHANGED_WHENLabel3.Size = New System.Drawing.Size(92, 15) CHANGED_WHENLabel3.Size = New System.Drawing.Size(92, 15)
CHANGED_WHENLabel3.TabIndex = 24 CHANGED_WHENLabel3.TabIndex = 24
@ -1037,7 +1042,7 @@ Partial Class frmAdministration
'COMMENTLabel2 'COMMENTLabel2
' '
COMMENTLabel2.AutoSize = True COMMENTLabel2.AutoSize = True
COMMENTLabel2.Location = New System.Drawing.Point(384, 36) COMMENTLabel2.Location = New System.Drawing.Point(381, 36)
COMMENTLabel2.Name = "COMMENTLabel2" COMMENTLabel2.Name = "COMMENTLabel2"
COMMENTLabel2.Size = New System.Drawing.Size(73, 15) COMMENTLabel2.Size = New System.Drawing.Size(73, 15)
COMMENTLabel2.TabIndex = 6 COMMENTLabel2.TabIndex = 6
@ -1175,6 +1180,15 @@ Partial Class frmAdministration
SEQUENCELabel3.TabIndex = 90 SEQUENCELabel3.TabIndex = 90
SEQUENCELabel3.Text = "Reihenfolge:" SEQUENCELabel3.Text = "Reihenfolge:"
' '
'VARIANTLabel
'
VARIANTLabel.AutoSize = True
VARIANTLabel.Location = New System.Drawing.Point(556, 81)
VARIANTLabel.Name = "VARIANTLabel"
VARIANTLabel.Size = New System.Drawing.Size(122, 15)
VARIANTLabel.TabIndex = 80
VARIANTLabel.Text = "Anwendungsvariante:"
'
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Location = New System.Drawing.Point(0, 632) Me.StatusStrip1.Location = New System.Drawing.Point(0, 632)
@ -1257,10 +1271,11 @@ Partial Class frmAdministration
'SEQUENCENumericUpDown 'SEQUENCENumericUpDown
' '
Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True)) Me.SEQUENCENumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBDD_DOKUMENTARTBindingSource, "SEQUENCE", True))
Me.SEQUENCENumericUpDown.Enabled = False
Me.SEQUENCENumericUpDown.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.SEQUENCENumericUpDown.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(896, 45) Me.SEQUENCENumericUpDown.Location = New System.Drawing.Point(896, 45)
Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown" Me.SEQUENCENumericUpDown.Name = "SEQUENCENumericUpDown"
Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(70, 24) Me.SEQUENCENumericUpDown.Size = New System.Drawing.Size(67, 24)
Me.SEQUENCENumericUpDown.TabIndex = 91 Me.SEQUENCENumericUpDown.TabIndex = 91
' '
'TBDD_DOKUMENTARTBindingSource 'TBDD_DOKUMENTARTBindingSource
@ -1276,6 +1291,7 @@ Partial Class frmAdministration
'WINDREAM_DIRECTCheckBox 'WINDREAM_DIRECTCheckBox
' '
Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True)) Me.WINDREAM_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "WINDREAM_DIRECT", True))
Me.WINDREAM_DIRECTCheckBox.Enabled = False
Me.WINDREAM_DIRECTCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.WINDREAM_DIRECTCheckBox.Font = New System.Drawing.Font("Segoe UI", 9.0!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WINDREAM_DIRECTCheckBox.Location = New System.Drawing.Point(386, 93) Me.WINDREAM_DIRECTCheckBox.Location = New System.Drawing.Point(386, 93)
Me.WINDREAM_DIRECTCheckBox.Name = "WINDREAM_DIRECTCheckBox" Me.WINDREAM_DIRECTCheckBox.Name = "WINDREAM_DIRECTCheckBox"
@ -1315,7 +1331,7 @@ Partial Class frmAdministration
Me.XtraTabControl2.Location = New System.Drawing.Point(266, 315) Me.XtraTabControl2.Location = New System.Drawing.Point(266, 315)
Me.XtraTabControl2.Name = "XtraTabControl2" Me.XtraTabControl2.Name = "XtraTabControl2"
Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3 Me.XtraTabControl2.SelectedTabPage = Me.XtraTabPage3
Me.XtraTabControl2.Size = New System.Drawing.Size(846, 281) Me.XtraTabControl2.Size = New System.Drawing.Size(862, 281)
Me.XtraTabControl2.TabIndex = 86 Me.XtraTabControl2.TabIndex = 86
Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage6, Me.XtraTabPage4, Me.XtraTabPage9, Me.XtraTabPage10}) Me.XtraTabControl2.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage3, Me.XtraTabPage6, Me.XtraTabPage4, Me.XtraTabPage9, Me.XtraTabPage10})
' '
@ -1352,12 +1368,13 @@ Partial Class frmAdministration
Me.XtraTabPage3.Controls.Add(GUIDLabel1) Me.XtraTabPage3.Controls.Add(GUIDLabel1)
Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1)
Me.XtraTabPage3.Name = "XtraTabPage3" Me.XtraTabPage3.Name = "XtraTabPage3"
Me.XtraTabPage3.Size = New System.Drawing.Size(840, 253) Me.XtraTabPage3.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage3.Text = "manuelle Indexe" Me.XtraTabPage3.Text = "manuelle Indexe"
' '
'OPTIONALCheckBox 'OPTIONALCheckBox
' '
Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True)) Me.OPTIONALCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "OPTIONAL", True))
Me.OPTIONALCheckBox.Enabled = False
Me.OPTIONALCheckBox.Location = New System.Drawing.Point(638, 91) Me.OPTIONALCheckBox.Location = New System.Drawing.Point(638, 91)
Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox" Me.OPTIONALCheckBox.Name = "OPTIONALCheckBox"
Me.OPTIONALCheckBox.Size = New System.Drawing.Size(77, 24) Me.OPTIONALCheckBox.Size = New System.Drawing.Size(77, 24)
@ -1384,6 +1401,7 @@ Partial Class frmAdministration
' '
'btnSQLView 'btnSQLView
' '
Me.btnSQLView.Enabled = False
Me.btnSQLView.Image = Global.Global_Indexer.My.Resources.Resources.database_go Me.btnSQLView.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnSQLView.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSQLView.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSQLView.Location = New System.Drawing.Point(507, 135) Me.btnSQLView.Location = New System.Drawing.Point(507, 135)
@ -1397,7 +1415,6 @@ Partial Class frmAdministration
' '
'lblSaveIndexMan 'lblSaveIndexMan
' '
Me.lblSaveIndexMan.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSaveIndexMan.AutoSize = True Me.lblSaveIndexMan.AutoSize = True
Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow Me.lblSaveIndexMan.BackColor = System.Drawing.Color.Yellow
Me.lblSaveIndexMan.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaveIndexMan.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@ -1447,7 +1464,8 @@ Partial Class frmAdministration
'ACTIVECheckBox 'ACTIVECheckBox
' '
Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True)) Me.ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "ACTIVE", True))
Me.ACTIVECheckBox.Location = New System.Drawing.Point(723, 47) Me.ACTIVECheckBox.Enabled = False
Me.ACTIVECheckBox.Location = New System.Drawing.Point(753, 47)
Me.ACTIVECheckBox.Name = "ACTIVECheckBox" Me.ACTIVECheckBox.Name = "ACTIVECheckBox"
Me.ACTIVECheckBox.Size = New System.Drawing.Size(61, 24) Me.ACTIVECheckBox.Size = New System.Drawing.Size(61, 24)
Me.ACTIVECheckBox.TabIndex = 19 Me.ACTIVECheckBox.TabIndex = 19
@ -1457,7 +1475,8 @@ Partial Class frmAdministration
'SEQUENCETextBox 'SEQUENCETextBox
' '
Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True)) Me.SEQUENCETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "SEQUENCE", True))
Me.SEQUENCETextBox.Location = New System.Drawing.Point(638, 48) Me.SEQUENCETextBox.Enabled = False
Me.SEQUENCETextBox.Location = New System.Drawing.Point(677, 48)
Me.SEQUENCETextBox.Name = "SEQUENCETextBox" Me.SEQUENCETextBox.Name = "SEQUENCETextBox"
Me.SEQUENCETextBox.Size = New System.Drawing.Size(70, 23) Me.SEQUENCETextBox.Size = New System.Drawing.Size(70, 23)
Me.SEQUENCETextBox.TabIndex = 17 Me.SEQUENCETextBox.TabIndex = 17
@ -1465,6 +1484,7 @@ Partial Class frmAdministration
'DEFAULT_VALUETextBox 'DEFAULT_VALUETextBox
' '
Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True)) Me.DEFAULT_VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DEFAULT_VALUE", True))
Me.DEFAULT_VALUETextBox.Enabled = False
Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(162, 180) Me.DEFAULT_VALUETextBox.Location = New System.Drawing.Point(162, 180)
Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox" Me.DEFAULT_VALUETextBox.Name = "DEFAULT_VALUETextBox"
Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(318, 23) Me.DEFAULT_VALUETextBox.Size = New System.Drawing.Size(318, 23)
@ -1473,6 +1493,7 @@ Partial Class frmAdministration
'SUGGESTIONCheckBox 'SUGGESTIONCheckBox
' '
Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True)) Me.SUGGESTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_MANBindingSource, "SUGGESTION", True))
Me.SUGGESTIONCheckBox.Enabled = False
Me.SUGGESTIONCheckBox.Location = New System.Drawing.Point(338, 136) Me.SUGGESTIONCheckBox.Location = New System.Drawing.Point(338, 136)
Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox" Me.SUGGESTIONCheckBox.Name = "SUGGESTIONCheckBox"
Me.SUGGESTIONCheckBox.Size = New System.Drawing.Size(163, 24) Me.SUGGESTIONCheckBox.Size = New System.Drawing.Size(163, 24)
@ -1483,6 +1504,7 @@ Partial Class frmAdministration
'DATATYPEComboBox 'DATATYPEComboBox
' '
Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True)) Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
Me.DATATYPEComboBox.Enabled = False
Me.DATATYPEComboBox.FormattingEnabled = True Me.DATATYPEComboBox.FormattingEnabled = True
Me.DATATYPEComboBox.Items.AddRange(New Object() {"DATE", "INTEGER", "VARCHAR"}) Me.DATATYPEComboBox.Items.AddRange(New Object() {"DATE", "INTEGER", "VARCHAR"})
Me.DATATYPEComboBox.Location = New System.Drawing.Point(162, 136) Me.DATATYPEComboBox.Location = New System.Drawing.Point(162, 136)
@ -1493,6 +1515,7 @@ Partial Class frmAdministration
'COMMENTTextBox 'COMMENTTextBox
' '
Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True)) Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "COMMENT", True))
Me.COMMENTTextBox.Enabled = False
Me.COMMENTTextBox.Location = New System.Drawing.Point(162, 92) Me.COMMENTTextBox.Location = New System.Drawing.Point(162, 92)
Me.COMMENTTextBox.Name = "COMMENTTextBox" Me.COMMENTTextBox.Name = "COMMENTTextBox"
Me.COMMENTTextBox.Size = New System.Drawing.Size(467, 23) Me.COMMENTTextBox.Size = New System.Drawing.Size(467, 23)
@ -1501,8 +1524,9 @@ Partial Class frmAdministration
'WD_INDEXComboBox 'WD_INDEXComboBox
' '
Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True)) Me.WD_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "WD_INDEX", True))
Me.WD_INDEXComboBox.Enabled = False
Me.WD_INDEXComboBox.FormattingEnabled = True Me.WD_INDEXComboBox.FormattingEnabled = True
Me.WD_INDEXComboBox.Location = New System.Drawing.Point(398, 48) Me.WD_INDEXComboBox.Location = New System.Drawing.Point(440, 47)
Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox" Me.WD_INDEXComboBox.Name = "WD_INDEXComboBox"
Me.WD_INDEXComboBox.Size = New System.Drawing.Size(231, 23) Me.WD_INDEXComboBox.Size = New System.Drawing.Size(231, 23)
Me.WD_INDEXComboBox.TabIndex = 6 Me.WD_INDEXComboBox.TabIndex = 6
@ -1510,9 +1534,10 @@ Partial Class frmAdministration
'NAMETextBox 'NAMETextBox
' '
Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True)) Me.NAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "NAME", True))
Me.NAMETextBox.Enabled = False
Me.NAMETextBox.Location = New System.Drawing.Point(162, 48) Me.NAMETextBox.Location = New System.Drawing.Point(162, 48)
Me.NAMETextBox.Name = "NAMETextBox" Me.NAMETextBox.Name = "NAMETextBox"
Me.NAMETextBox.Size = New System.Drawing.Size(230, 23) Me.NAMETextBox.Size = New System.Drawing.Size(263, 23)
Me.NAMETextBox.TabIndex = 4 Me.NAMETextBox.TabIndex = 4
' '
'TBDD_INDEX_MANBindingNav 'TBDD_INDEX_MANBindingNav
@ -1530,7 +1555,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_MANBindingNav.MovePreviousItem = Me.ToolStripButton4 Me.TBDD_INDEX_MANBindingNav.MovePreviousItem = Me.ToolStripButton4
Me.TBDD_INDEX_MANBindingNav.Name = "TBDD_INDEX_MANBindingNav" Me.TBDD_INDEX_MANBindingNav.Name = "TBDD_INDEX_MANBindingNav"
Me.TBDD_INDEX_MANBindingNav.PositionItem = Me.ToolStripTextBox1 Me.TBDD_INDEX_MANBindingNav.PositionItem = Me.ToolStripTextBox1
Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(840, 25) Me.TBDD_INDEX_MANBindingNav.Size = New System.Drawing.Size(856, 25)
Me.TBDD_INDEX_MANBindingNav.TabIndex = 3 Me.TBDD_INDEX_MANBindingNav.TabIndex = 3
Me.TBDD_INDEX_MANBindingNav.Text = "BindingNavigator1" Me.TBDD_INDEX_MANBindingNav.Text = "BindingNavigator1"
' '
@ -1641,6 +1666,8 @@ Partial Class frmAdministration
'XtraTabPage6 'XtraTabPage6
' '
Me.XtraTabPage6.AutoScroll = True Me.XtraTabPage6.AutoScroll = True
Me.XtraTabPage6.Controls.Add(VARIANTLabel)
Me.XtraTabPage6.Controls.Add(Me.VARIANTComboBox)
Me.XtraTabPage6.Controls.Add(Me.lblsavePostProcess) Me.XtraTabPage6.Controls.Add(Me.lblsavePostProcess)
Me.XtraTabPage6.Controls.Add(Me.ComboBox2) Me.XtraTabPage6.Controls.Add(Me.ComboBox2)
Me.XtraTabPage6.Controls.Add(Me.Function2Label) Me.XtraTabPage6.Controls.Add(Me.Function2Label)
@ -1672,16 +1699,35 @@ Partial Class frmAdministration
Me.XtraTabPage6.Controls.Add(Me.GUIDTextBox4) Me.XtraTabPage6.Controls.Add(Me.GUIDTextBox4)
Me.XtraTabPage6.Controls.Add(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator) Me.XtraTabPage6.Controls.Add(Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator)
Me.XtraTabPage6.Name = "XtraTabPage6" Me.XtraTabPage6.Name = "XtraTabPage6"
Me.XtraTabPage6.Size = New System.Drawing.Size(840, 253) Me.XtraTabPage6.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage6.Text = "Nachbearbeitungsfunktionen manueller Index" Me.XtraTabPage6.Text = "Nachbearbeitungsfunktionen manueller Index"
' '
'VARIANTComboBox
'
Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
Me.VARIANTComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "VARIANT", True))
Me.VARIANTComboBox.DataSource = Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
Me.VARIANTComboBox.DisplayMember = "VARIANT"
Me.VARIANTComboBox.Enabled = False
Me.VARIANTComboBox.FormattingEnabled = True
Me.VARIANTComboBox.Location = New System.Drawing.Point(559, 99)
Me.VARIANTComboBox.Name = "VARIANTComboBox"
Me.VARIANTComboBox.Size = New System.Drawing.Size(202, 23)
Me.VARIANTComboBox.TabIndex = 81
Me.VARIANTComboBox.ValueMember = "VARIANT"
'
'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
'
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset
'
'lblsavePostProcess 'lblsavePostProcess
' '
Me.lblsavePostProcess.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblsavePostProcess.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblsavePostProcess.AutoSize = True Me.lblsavePostProcess.AutoSize = True
Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow Me.lblsavePostProcess.BackColor = System.Drawing.Color.Yellow
Me.lblsavePostProcess.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblsavePostProcess.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 186) Me.lblsavePostProcess.Location = New System.Drawing.Point(384, 185)
Me.lblsavePostProcess.Name = "lblsavePostProcess" Me.lblsavePostProcess.Name = "lblsavePostProcess"
Me.lblsavePostProcess.Size = New System.Drawing.Size(213, 17) Me.lblsavePostProcess.Size = New System.Drawing.Size(213, 17)
Me.lblsavePostProcess.TabIndex = 80 Me.lblsavePostProcess.TabIndex = 80
@ -1693,6 +1739,7 @@ Partial Class frmAdministration
Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True)) Me.ComboBox2.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "IDXMAN_ID", True))
Me.ComboBox2.DataSource = Me.TBWHDD_INDEX_MANBindingSource Me.ComboBox2.DataSource = Me.TBWHDD_INDEX_MANBindingSource
Me.ComboBox2.DisplayMember = "NAME" Me.ComboBox2.DisplayMember = "NAME"
Me.ComboBox2.Enabled = False
Me.ComboBox2.FormattingEnabled = True Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(71, 53) Me.ComboBox2.Location = New System.Drawing.Point(71, 53)
Me.ComboBox2.Name = "ComboBox2" Me.ComboBox2.Name = "ComboBox2"
@ -1700,11 +1747,6 @@ Partial Class frmAdministration
Me.ComboBox2.TabIndex = 34 Me.ComboBox2.TabIndex = 34
Me.ComboBox2.ValueMember = "GUID" Me.ComboBox2.ValueMember = "GUID"
' '
'TBDD_INDEX_MAN_POSTPROCESSINGBindingSource
'
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataMember = "TBDD_INDEX_MAN_POSTPROCESSING"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.DataSource = Me.MyDataset
'
'TBWHDD_INDEX_MANBindingSource 'TBWHDD_INDEX_MANBindingSource
' '
Me.TBWHDD_INDEX_MANBindingSource.DataMember = "TBWHDD_INDEX_MAN" Me.TBWHDD_INDEX_MANBindingSource.DataMember = "TBWHDD_INDEX_MAN"
@ -1713,7 +1755,7 @@ Partial Class frmAdministration
'Function2Label 'Function2Label
' '
Me.Function2Label.AutoSize = True Me.Function2Label.AutoSize = True
Me.Function2Label.Location = New System.Drawing.Point(388, 79) Me.Function2Label.Location = New System.Drawing.Point(212, 166)
Me.Function2Label.Name = "Function2Label" Me.Function2Label.Name = "Function2Label"
Me.Function2Label.Size = New System.Drawing.Size(13, 15) Me.Function2Label.Size = New System.Drawing.Size(13, 15)
Me.Function2Label.TabIndex = 33 Me.Function2Label.TabIndex = 33
@ -1722,7 +1764,7 @@ Partial Class frmAdministration
'Function1Label 'Function1Label
' '
Me.Function1Label.AutoSize = True Me.Function1Label.AutoSize = True
Me.Function1Label.Location = New System.Drawing.Point(13, 79) Me.Function1Label.Location = New System.Drawing.Point(116, 166)
Me.Function1Label.Name = "Function1Label" Me.Function1Label.Name = "Function1Label"
Me.Function1Label.Size = New System.Drawing.Size(13, 15) Me.Function1Label.Size = New System.Drawing.Size(13, 15)
Me.Function1Label.TabIndex = 32 Me.Function1Label.TabIndex = 32
@ -1731,7 +1773,7 @@ Partial Class frmAdministration
'Text3Label 'Text3Label
' '
Me.Text3Label.AutoSize = True Me.Text3Label.AutoSize = True
Me.Text3Label.Location = New System.Drawing.Point(384, 123) Me.Text3Label.Location = New System.Drawing.Point(381, 81)
Me.Text3Label.Name = "Text3Label" Me.Text3Label.Name = "Text3Label"
Me.Text3Label.Size = New System.Drawing.Size(41, 15) Me.Text3Label.Size = New System.Drawing.Size(41, 15)
Me.Text3Label.TabIndex = 31 Me.Text3Label.TabIndex = 31
@ -1740,7 +1782,7 @@ Partial Class frmAdministration
'Text2Label 'Text2Label
' '
Me.Text2Label.AutoSize = True Me.Text2Label.AutoSize = True
Me.Text2Label.Location = New System.Drawing.Point(184, 123) Me.Text2Label.Location = New System.Drawing.Point(184, 81)
Me.Text2Label.Name = "Text2Label" Me.Text2Label.Name = "Text2Label"
Me.Text2Label.Size = New System.Drawing.Size(41, 15) Me.Text2Label.Size = New System.Drawing.Size(41, 15)
Me.Text2Label.TabIndex = 30 Me.Text2Label.TabIndex = 30
@ -1749,7 +1791,7 @@ Partial Class frmAdministration
'Text1Label 'Text1Label
' '
Me.Text1Label.AutoSize = True Me.Text1Label.AutoSize = True
Me.Text1Label.Location = New System.Drawing.Point(16, 123) Me.Text1Label.Location = New System.Drawing.Point(16, 81)
Me.Text1Label.Name = "Text1Label" Me.Text1Label.Name = "Text1Label"
Me.Text1Label.Size = New System.Drawing.Size(41, 15) Me.Text1Label.Size = New System.Drawing.Size(41, 15)
Me.Text1Label.TabIndex = 29 Me.Text1Label.TabIndex = 29
@ -1798,6 +1840,7 @@ Partial Class frmAdministration
'SEQUENCETextBox1 'SEQUENCETextBox1
' '
Me.SEQUENCETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "SEQUENCE", True)) Me.SEQUENCETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "SEQUENCE", True))
Me.SEQUENCETextBox1.Enabled = False
Me.SEQUENCETextBox1.Location = New System.Drawing.Point(16, 185) Me.SEQUENCETextBox1.Location = New System.Drawing.Point(16, 185)
Me.SEQUENCETextBox1.Name = "SEQUENCETextBox1" Me.SEQUENCETextBox1.Name = "SEQUENCETextBox1"
Me.SEQUENCETextBox1.Size = New System.Drawing.Size(78, 23) Me.SEQUENCETextBox1.Size = New System.Drawing.Size(78, 23)
@ -1806,7 +1849,8 @@ Partial Class frmAdministration
'TEXT3TextBox 'TEXT3TextBox
' '
Me.TEXT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True)) Me.TEXT3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT3", True))
Me.TEXT3TextBox.Location = New System.Drawing.Point(387, 141) Me.TEXT3TextBox.Enabled = False
Me.TEXT3TextBox.Location = New System.Drawing.Point(384, 99)
Me.TEXT3TextBox.Name = "TEXT3TextBox" Me.TEXT3TextBox.Name = "TEXT3TextBox"
Me.TEXT3TextBox.Size = New System.Drawing.Size(169, 23) Me.TEXT3TextBox.Size = New System.Drawing.Size(169, 23)
Me.TEXT3TextBox.TabIndex = 18 Me.TEXT3TextBox.TabIndex = 18
@ -1814,7 +1858,8 @@ Partial Class frmAdministration
'TEXT2TextBox 'TEXT2TextBox
' '
Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True)) Me.TEXT2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT2", True))
Me.TEXT2TextBox.Location = New System.Drawing.Point(187, 141) Me.TEXT2TextBox.Enabled = False
Me.TEXT2TextBox.Location = New System.Drawing.Point(187, 99)
Me.TEXT2TextBox.Name = "TEXT2TextBox" Me.TEXT2TextBox.Name = "TEXT2TextBox"
Me.TEXT2TextBox.Size = New System.Drawing.Size(191, 23) Me.TEXT2TextBox.Size = New System.Drawing.Size(191, 23)
Me.TEXT2TextBox.TabIndex = 16 Me.TEXT2TextBox.TabIndex = 16
@ -1822,7 +1867,8 @@ Partial Class frmAdministration
'TEXT1TextBox 'TEXT1TextBox
' '
Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True)) Me.TEXT1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TEXT1", True))
Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 141) Me.TEXT1TextBox.Enabled = False
Me.TEXT1TextBox.Location = New System.Drawing.Point(16, 99)
Me.TEXT1TextBox.Name = "TEXT1TextBox" Me.TEXT1TextBox.Name = "TEXT1TextBox"
Me.TEXT1TextBox.Size = New System.Drawing.Size(167, 23) Me.TEXT1TextBox.Size = New System.Drawing.Size(167, 23)
Me.TEXT1TextBox.TabIndex = 14 Me.TEXT1TextBox.TabIndex = 14
@ -1830,24 +1876,27 @@ Partial Class frmAdministration
'FUNCTION2TextBox 'FUNCTION2TextBox
' '
Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION2", True)) Me.FUNCTION2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION2", True))
Me.FUNCTION2TextBox.Location = New System.Drawing.Point(387, 97) Me.FUNCTION2TextBox.Enabled = False
Me.FUNCTION2TextBox.Location = New System.Drawing.Point(211, 184)
Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox" Me.FUNCTION2TextBox.Name = "FUNCTION2TextBox"
Me.FUNCTION2TextBox.Size = New System.Drawing.Size(381, 23) Me.FUNCTION2TextBox.Size = New System.Drawing.Size(70, 23)
Me.FUNCTION2TextBox.TabIndex = 12 Me.FUNCTION2TextBox.TabIndex = 12
' '
'FUNCTION1TextBox 'FUNCTION1TextBox
' '
Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION1", True)) Me.FUNCTION1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "FUNCTION1", True))
Me.FUNCTION1TextBox.Location = New System.Drawing.Point(16, 97) Me.FUNCTION1TextBox.Enabled = False
Me.FUNCTION1TextBox.Location = New System.Drawing.Point(119, 184)
Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox" Me.FUNCTION1TextBox.Name = "FUNCTION1TextBox"
Me.FUNCTION1TextBox.Size = New System.Drawing.Size(362, 23) Me.FUNCTION1TextBox.Size = New System.Drawing.Size(70, 23)
Me.FUNCTION1TextBox.TabIndex = 10 Me.FUNCTION1TextBox.TabIndex = 10
' '
'TYPEComboBox 'TYPEComboBox
' '
Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TYPE", True)) Me.TYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "TYPE", True))
Me.TYPEComboBox.Enabled = False
Me.TYPEComboBox.FormattingEnabled = True Me.TYPEComboBox.FormattingEnabled = True
Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT"}) Me.TYPEComboBox.Items.AddRange(New Object() {"VBREPLACE", "VBSPLIT", "REG. EXPRESSION"})
Me.TYPEComboBox.Location = New System.Drawing.Point(257, 53) Me.TYPEComboBox.Location = New System.Drawing.Point(257, 53)
Me.TYPEComboBox.Name = "TYPEComboBox" Me.TYPEComboBox.Name = "TYPEComboBox"
Me.TYPEComboBox.Size = New System.Drawing.Size(121, 23) Me.TYPEComboBox.Size = New System.Drawing.Size(121, 23)
@ -1856,7 +1905,8 @@ Partial Class frmAdministration
'COMMENTTextBox2 'COMMENTTextBox2
' '
Me.COMMENTTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "COMMENT", True)) Me.COMMENTTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingSource, "COMMENT", True))
Me.COMMENTTextBox2.Location = New System.Drawing.Point(387, 54) Me.COMMENTTextBox2.Enabled = False
Me.COMMENTTextBox2.Location = New System.Drawing.Point(384, 54)
Me.COMMENTTextBox2.Name = "COMMENTTextBox2" Me.COMMENTTextBox2.Name = "COMMENTTextBox2"
Me.COMMENTTextBox2.Size = New System.Drawing.Size(381, 23) Me.COMMENTTextBox2.Size = New System.Drawing.Size(381, 23)
Me.COMMENTTextBox2.TabIndex = 7 Me.COMMENTTextBox2.TabIndex = 7
@ -1886,7 +1936,7 @@ Partial Class frmAdministration
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MovePreviousItem = Me.ToolStripButton27 Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.MovePreviousItem = Me.ToolStripButton27
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Name = "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator" Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Name = "TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator"
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PositionItem = Me.ToolStripTextBox4 Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.PositionItem = Me.ToolStripTextBox4
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(840, 25) Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Size = New System.Drawing.Size(856, 25)
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TabIndex = 4 Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.TabIndex = 4
Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Text = "BindingNavigator1" Me.TBDD_INDEX_MAN_POSTPROCESSINGBindingNavigator.Text = "BindingNavigator1"
' '
@ -1999,6 +2049,8 @@ Partial Class frmAdministration
Me.XtraTabPage4.Appearance.Header.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical Me.XtraTabPage4.Appearance.Header.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
Me.XtraTabPage4.Appearance.HeaderActive.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical Me.XtraTabPage4.Appearance.HeaderActive.GradientMode = System.Drawing.Drawing2D.LinearGradientMode.Vertical
Me.XtraTabPage4.AutoScroll = True Me.XtraTabPage4.AutoScroll = True
Me.XtraTabPage4.Controls.Add(Me.lblWindowParameter)
Me.XtraTabPage4.Controls.Add(Me.lbFileparameter)
Me.XtraTabPage4.Controls.Add(Me.ListBox6) Me.XtraTabPage4.Controls.Add(Me.ListBox6)
Me.XtraTabPage4.Controls.Add(Me.lblValue) Me.XtraTabPage4.Controls.Add(Me.lblValue)
Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexCMB) Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexCMB)
@ -2025,8 +2077,28 @@ Partial Class frmAdministration
Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexTXT) Me.XtraTabPage4.Controls.Add(Me.INDEXNAME_AutoIndexTXT)
Me.XtraTabPage4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.XtraTabPage4.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.XtraTabPage4.Name = "XtraTabPage4" Me.XtraTabPage4.Name = "XtraTabPage4"
Me.XtraTabPage4.Size = New System.Drawing.Size(840, 253) Me.XtraTabPage4.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage4.Text = "automatische Indexe" Me.XtraTabPage4.Text = "automatische/feste Indexe"
'
'lblWindowParameter
'
Me.lblWindowParameter.AutoSize = True
Me.lblWindowParameter.Location = New System.Drawing.Point(602, 47)
Me.lblWindowParameter.Name = "lblWindowParameter"
Me.lblWindowParameter.Size = New System.Drawing.Size(118, 15)
Me.lblWindowParameter.TabIndex = 88
Me.lblWindowParameter.Text = "Windows-Parameter:"
'
'lbFileparameter
'
Me.lbFileparameter.Enabled = False
Me.lbFileparameter.FormattingEnabled = True
Me.lbFileparameter.ItemHeight = 15
Me.lbFileparameter.Items.AddRange(New Object() {"Dateiname (mit Endung)", "Dateiname (ohne Endung)", "Datei Erstelldatum", "Datei Erstellt wer", "Aktuelles Datum (DD.MM.YYYY)"})
Me.lbFileparameter.Location = New System.Drawing.Point(602, 64)
Me.lbFileparameter.Name = "lbFileparameter"
Me.lbFileparameter.Size = New System.Drawing.Size(178, 109)
Me.lbFileparameter.TabIndex = 87
' '
'ListBox6 'ListBox6
' '
@ -2037,7 +2109,7 @@ Partial Class frmAdministration
Me.ListBox6.ItemHeight = 15 Me.ListBox6.ItemHeight = 15
Me.ListBox6.Location = New System.Drawing.Point(6, 94) Me.ListBox6.Location = New System.Drawing.Point(6, 94)
Me.ListBox6.Name = "ListBox6" Me.ListBox6.Name = "ListBox6"
Me.ListBox6.Size = New System.Drawing.Size(146, 154) Me.ListBox6.Size = New System.Drawing.Size(155, 154)
Me.ListBox6.TabIndex = 86 Me.ListBox6.TabIndex = 86
Me.ListBox6.ValueMember = "GUID" Me.ListBox6.ValueMember = "GUID"
' '
@ -2049,7 +2121,7 @@ Partial Class frmAdministration
'lblValue 'lblValue
' '
Me.lblValue.AutoSize = True Me.lblValue.AutoSize = True
Me.lblValue.Location = New System.Drawing.Point(353, 47) Me.lblValue.Location = New System.Drawing.Point(374, 47)
Me.lblValue.Name = "lblValue" Me.lblValue.Name = "lblValue"
Me.lblValue.Size = New System.Drawing.Size(69, 15) Me.lblValue.Size = New System.Drawing.Size(69, 15)
Me.lblValue.TabIndex = 85 Me.lblValue.TabIndex = 85
@ -2058,10 +2130,11 @@ Partial Class frmAdministration
'INDEXNAME_AutoIndexCMB 'INDEXNAME_AutoIndexCMB
' '
Me.INDEXNAME_AutoIndexCMB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) Me.INDEXNAME_AutoIndexCMB.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
Me.INDEXNAME_AutoIndexCMB.Enabled = False
Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True Me.INDEXNAME_AutoIndexCMB.FormattingEnabled = True
Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 64) Me.INDEXNAME_AutoIndexCMB.Location = New System.Drawing.Point(167, 63)
Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB" Me.INDEXNAME_AutoIndexCMB.Name = "INDEXNAME_AutoIndexCMB"
Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(183, 23) Me.INDEXNAME_AutoIndexCMB.Size = New System.Drawing.Size(198, 23)
Me.INDEXNAME_AutoIndexCMB.TabIndex = 84 Me.INDEXNAME_AutoIndexCMB.TabIndex = 84
' '
'Label6 'Label6
@ -2080,7 +2153,7 @@ Partial Class frmAdministration
Me.lblsaveAutoIndex.AutoSize = True Me.lblsaveAutoIndex.AutoSize = True
Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow Me.lblsaveAutoIndex.BackColor = System.Drawing.Color.Yellow
Me.lblsaveAutoIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblsaveAutoIndex.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblsaveAutoIndex.Location = New System.Drawing.Point(601, 66) Me.lblsaveAutoIndex.Location = New System.Drawing.Point(531, 192)
Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex" Me.lblsaveAutoIndex.Name = "lblsaveAutoIndex"
Me.lblsaveAutoIndex.Size = New System.Drawing.Size(192, 17) Me.lblsaveAutoIndex.Size = New System.Drawing.Size(192, 17)
Me.lblsaveAutoIndex.TabIndex = 82 Me.lblsaveAutoIndex.TabIndex = 82
@ -2089,6 +2162,7 @@ Partial Class frmAdministration
' '
'btnSQLViewAuto 'btnSQLViewAuto
' '
Me.btnSQLViewAuto.Enabled = False
Me.btnSQLViewAuto.Image = Global.Global_Indexer.My.Resources.Resources.database_go Me.btnSQLViewAuto.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnSQLViewAuto.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnSQLViewAuto.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 138) Me.btnSQLViewAuto.Location = New System.Drawing.Point(377, 138)
@ -2103,6 +2177,7 @@ Partial Class frmAdministration
'SQL_ACTIVECheckBox 'SQL_ACTIVECheckBox
' '
Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True)) Me.SQL_ACTIVECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "SQL_ACTIVE", True))
Me.SQL_ACTIVECheckBox.Enabled = False
Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 141) Me.SQL_ACTIVECheckBox.Location = New System.Drawing.Point(167, 141)
Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox" Me.SQL_ACTIVECheckBox.Name = "SQL_ACTIVECheckBox"
Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(198, 24) Me.SQL_ACTIVECheckBox.Size = New System.Drawing.Size(198, 24)
@ -2123,14 +2198,16 @@ Partial Class frmAdministration
'VALUETextBox 'VALUETextBox
' '
Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True)) Me.VALUETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "VALUE", True))
Me.VALUETextBox.Location = New System.Drawing.Point(356, 65) Me.VALUETextBox.Enabled = False
Me.VALUETextBox.Location = New System.Drawing.Point(377, 63)
Me.VALUETextBox.Name = "VALUETextBox" Me.VALUETextBox.Name = "VALUETextBox"
Me.VALUETextBox.Size = New System.Drawing.Size(171, 23) Me.VALUETextBox.Size = New System.Drawing.Size(209, 23)
Me.VALUETextBox.TabIndex = 11 Me.VALUETextBox.TabIndex = 11
' '
'COMMENTTextBox1 'COMMENTTextBox1
' '
Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True)) Me.COMMENTTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True))
Me.COMMENTTextBox1.Enabled = False
Me.COMMENTTextBox1.Location = New System.Drawing.Point(167, 111) Me.COMMENTTextBox1.Location = New System.Drawing.Point(167, 111)
Me.COMMENTTextBox1.Name = "COMMENTTextBox1" Me.COMMENTTextBox1.Name = "COMMENTTextBox1"
Me.COMMENTTextBox1.Size = New System.Drawing.Size(419, 23) Me.COMMENTTextBox1.Size = New System.Drawing.Size(419, 23)
@ -2139,7 +2216,7 @@ Partial Class frmAdministration
'ACTIVECheckBox1 'ACTIVECheckBox1
' '
Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True)) Me.ACTIVECheckBox1.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_INDEX_AUTOMBindingSource, "ACTIVE", True))
Me.ACTIVECheckBox1.Location = New System.Drawing.Point(533, 64) Me.ACTIVECheckBox1.Location = New System.Drawing.Point(786, 63)
Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1" Me.ACTIVECheckBox1.Name = "ACTIVECheckBox1"
Me.ACTIVECheckBox1.Size = New System.Drawing.Size(63, 24) Me.ACTIVECheckBox1.Size = New System.Drawing.Size(63, 24)
Me.ACTIVECheckBox1.TabIndex = 17 Me.ACTIVECheckBox1.TabIndex = 17
@ -2150,40 +2227,40 @@ Partial Class frmAdministration
' '
Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ADDED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(167, 184) Me.ADDED_WHOTextBox3.Location = New System.Drawing.Point(167, 225)
Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3" Me.ADDED_WHOTextBox3.Name = "ADDED_WHOTextBox3"
Me.ADDED_WHOTextBox3.ReadOnly = True Me.ADDED_WHOTextBox3.ReadOnly = True
Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(172, 23) Me.ADDED_WHOTextBox3.Size = New System.Drawing.Size(155, 23)
Me.ADDED_WHOTextBox3.TabIndex = 19 Me.ADDED_WHOTextBox3.TabIndex = 19
' '
'ADDED_WHENTextBox3 'ADDED_WHENTextBox3
' '
Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ADDED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(357, 184) Me.ADDED_WHENTextBox3.Location = New System.Drawing.Point(356, 225)
Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3" Me.ADDED_WHENTextBox3.Name = "ADDED_WHENTextBox3"
Me.ADDED_WHENTextBox3.ReadOnly = True Me.ADDED_WHENTextBox3.ReadOnly = True
Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(168, 23) Me.ADDED_WHENTextBox3.Size = New System.Drawing.Size(155, 23)
Me.ADDED_WHENTextBox3.TabIndex = 21 Me.ADDED_WHENTextBox3.TabIndex = 21
' '
'CHANGED_WHOTextBox3 'CHANGED_WHOTextBox3
' '
Me.CHANGED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CHANGED_WHOTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox3.Location = New System.Drawing.Point(167, 228) Me.CHANGED_WHOTextBox3.Location = New System.Drawing.Point(533, 225)
Me.CHANGED_WHOTextBox3.Name = "CHANGED_WHOTextBox3" Me.CHANGED_WHOTextBox3.Name = "CHANGED_WHOTextBox3"
Me.CHANGED_WHOTextBox3.ReadOnly = True Me.CHANGED_WHOTextBox3.ReadOnly = True
Me.CHANGED_WHOTextBox3.Size = New System.Drawing.Size(172, 23) Me.CHANGED_WHOTextBox3.Size = New System.Drawing.Size(155, 23)
Me.CHANGED_WHOTextBox3.TabIndex = 23 Me.CHANGED_WHOTextBox3.TabIndex = 23
' '
'CHANGED_WHENTextBox3 'CHANGED_WHENTextBox3
' '
Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox3.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.CHANGED_WHENTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(357, 228) Me.CHANGED_WHENTextBox3.Location = New System.Drawing.Point(694, 225)
Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3" Me.CHANGED_WHENTextBox3.Name = "CHANGED_WHENTextBox3"
Me.CHANGED_WHENTextBox3.ReadOnly = True Me.CHANGED_WHENTextBox3.ReadOnly = True
Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(168, 23) Me.CHANGED_WHENTextBox3.Size = New System.Drawing.Size(155, 23)
Me.CHANGED_WHENTextBox3.TabIndex = 25 Me.CHANGED_WHENTextBox3.TabIndex = 25
' '
'BindingNavigator2 'BindingNavigator2
@ -2202,7 +2279,7 @@ Partial Class frmAdministration
Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton19 Me.BindingNavigator2.MovePreviousItem = Me.ToolStripButton19
Me.BindingNavigator2.Name = "BindingNavigator2" Me.BindingNavigator2.Name = "BindingNavigator2"
Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3 Me.BindingNavigator2.PositionItem = Me.ToolStripTextBox3
Me.BindingNavigator2.Size = New System.Drawing.Size(840, 25) Me.BindingNavigator2.Size = New System.Drawing.Size(856, 25)
Me.BindingNavigator2.TabIndex = 4 Me.BindingNavigator2.TabIndex = 4
Me.BindingNavigator2.Text = "BindingNavigator1" Me.BindingNavigator2.Text = "BindingNavigator1"
' '
@ -2304,9 +2381,10 @@ Partial Class frmAdministration
'INDEXNAME_AutoIndexTXT 'INDEXNAME_AutoIndexTXT
' '
Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True)) Me.INDEXNAME_AutoIndexTXT.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "INDEXNAME", True))
Me.INDEXNAME_AutoIndexTXT.Enabled = False
Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 64) Me.INDEXNAME_AutoIndexTXT.Location = New System.Drawing.Point(167, 64)
Me.INDEXNAME_AutoIndexTXT.Name = "INDEXNAME_AutoIndexTXT" Me.INDEXNAME_AutoIndexTXT.Name = "INDEXNAME_AutoIndexTXT"
Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(183, 23) Me.INDEXNAME_AutoIndexTXT.Size = New System.Drawing.Size(198, 23)
Me.INDEXNAME_AutoIndexTXT.TabIndex = 28 Me.INDEXNAME_AutoIndexTXT.TabIndex = 28
' '
'XtraTabPage9 'XtraTabPage9
@ -2316,7 +2394,7 @@ Partial Class frmAdministration
Me.XtraTabPage9.Controls.Add(Me.Label8) Me.XtraTabPage9.Controls.Add(Me.Label8)
Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung) Me.XtraTabPage9.Controls.Add(Me.ListBoxDokartzuordnung)
Me.XtraTabPage9.Name = "XtraTabPage9" Me.XtraTabPage9.Name = "XtraTabPage9"
Me.XtraTabPage9.Size = New System.Drawing.Size(840, 253) Me.XtraTabPage9.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage9.Text = "Zuordnung Dokumentenart-Gruppe" Me.XtraTabPage9.Text = "Zuordnung Dokumentenart-Gruppe"
' '
'Button2 'Button2
@ -2429,7 +2507,7 @@ Partial Class frmAdministration
' '
Me.XtraTabPage10.Controls.Add(Me.GroupBox4) Me.XtraTabPage10.Controls.Add(Me.GroupBox4)
Me.XtraTabPage10.Name = "XtraTabPage10" Me.XtraTabPage10.Name = "XtraTabPage10"
Me.XtraTabPage10.Size = New System.Drawing.Size(840, 253) Me.XtraTabPage10.Size = New System.Drawing.Size(856, 253)
Me.XtraTabPage10.Text = "Create Folder for Index" Me.XtraTabPage10.Text = "Create Folder for Index"
' '
'GroupBox4 'GroupBox4
@ -2575,6 +2653,7 @@ Partial Class frmAdministration
Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "EINGANGSART_ID", True)) Me.ComboBox1.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.TBDD_DOKUMENTARTBindingSource, "EINGANGSART_ID", True))
Me.ComboBox1.DataSource = Me.TBDD_EINGANGSARTENBindingSource Me.ComboBox1.DataSource = Me.TBDD_EINGANGSARTENBindingSource
Me.ComboBox1.DisplayMember = "BEZEICHNUNG" Me.ComboBox1.DisplayMember = "BEZEICHNUNG"
Me.ComboBox1.Enabled = False
Me.ComboBox1.FormattingEnabled = True Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(621, 46) Me.ComboBox1.Location = New System.Drawing.Point(621, 46)
Me.ComboBox1.Name = "ComboBox1" Me.ComboBox1.Name = "ComboBox1"
@ -2652,11 +2731,10 @@ Partial Class frmAdministration
' '
'lblSaveDokart 'lblSaveDokart
' '
Me.lblSaveDokart.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblSaveDokart.AutoSize = True Me.lblSaveDokart.AutoSize = True
Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow Me.lblSaveDokart.BackColor = System.Drawing.Color.Yellow
Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblSaveDokart.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblSaveDokart.Location = New System.Drawing.Point(845, 231) Me.lblSaveDokart.Location = New System.Drawing.Point(842, 231)
Me.lblSaveDokart.Name = "lblSaveDokart" Me.lblSaveDokart.Name = "lblSaveDokart"
Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17) Me.lblSaveDokart.Size = New System.Drawing.Size(240, 17)
Me.lblSaveDokart.TabIndex = 78 Me.lblSaveDokart.TabIndex = 78
@ -2665,6 +2743,7 @@ Partial Class frmAdministration
' '
'btnNamenkonvention 'btnNamenkonvention
' '
Me.btnNamenkonvention.Enabled = False
Me.btnNamenkonvention.Image = Global.Global_Indexer.My.Resources.Resources.database_go Me.btnNamenkonvention.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.btnNamenkonvention.Location = New System.Drawing.Point(621, 232) Me.btnNamenkonvention.Location = New System.Drawing.Point(621, 232)
Me.btnNamenkonvention.Name = "btnNamenkonvention" Me.btnNamenkonvention.Name = "btnNamenkonvention"
@ -2674,6 +2753,7 @@ Partial Class frmAdministration
' '
'Button1 'Button1
' '
Me.Button1.Enabled = False
Me.Button1.Location = New System.Drawing.Point(858, 142) Me.Button1.Location = New System.Drawing.Point(858, 142)
Me.Button1.Name = "Button1" Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(31, 23) Me.Button1.Size = New System.Drawing.Size(31, 23)
@ -2684,6 +2764,7 @@ Partial Class frmAdministration
'NAMENKONVENTIONTextBox 'NAMENKONVENTIONTextBox
' '
Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True)) Me.NAMENKONVENTIONTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "NAMENKONVENTION", True))
Me.NAMENKONVENTIONTextBox.Enabled = False
Me.NAMENKONVENTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NAMENKONVENTIONTextBox.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(267, 231) Me.NAMENKONVENTIONTextBox.Location = New System.Drawing.Point(267, 231)
Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox" Me.NAMENKONVENTIONTextBox.Name = "NAMENKONVENTIONTextBox"
@ -2850,6 +2931,7 @@ Partial Class frmAdministration
'BEZEICHNUNGTextBox 'BEZEICHNUNGTextBox
' '
Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True)) Me.BEZEICHNUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BEZEICHNUNG", True))
Me.BEZEICHNUNGTextBox.Enabled = False
Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(330, 46) Me.BEZEICHNUNGTextBox.Location = New System.Drawing.Point(330, 46)
Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox" Me.BEZEICHNUNGTextBox.Name = "BEZEICHNUNGTextBox"
Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(287, 23) Me.BEZEICHNUNGTextBox.Size = New System.Drawing.Size(287, 23)
@ -2858,6 +2940,7 @@ Partial Class frmAdministration
'KURZNAMETextBox 'KURZNAMETextBox
' '
Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True)) Me.KURZNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "KURZNAME", True))
Me.KURZNAMETextBox.Enabled = False
Me.KURZNAMETextBox.Location = New System.Drawing.Point(267, 94) Me.KURZNAMETextBox.Location = New System.Drawing.Point(267, 94)
Me.KURZNAMETextBox.Name = "KURZNAMETextBox" Me.KURZNAMETextBox.Name = "KURZNAMETextBox"
Me.KURZNAMETextBox.Size = New System.Drawing.Size(94, 23) Me.KURZNAMETextBox.Size = New System.Drawing.Size(94, 23)
@ -2866,6 +2949,7 @@ Partial Class frmAdministration
'ZIEL_PFADTextBox 'ZIEL_PFADTextBox
' '
Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True)) Me.ZIEL_PFADTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "ZIEL_PFAD", True))
Me.ZIEL_PFADTextBox.Enabled = False
Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(267, 142) Me.ZIEL_PFADTextBox.Location = New System.Drawing.Point(267, 142)
Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox" Me.ZIEL_PFADTextBox.Name = "ZIEL_PFADTextBox"
Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(585, 23) Me.ZIEL_PFADTextBox.Size = New System.Drawing.Size(585, 23)
@ -2874,6 +2958,7 @@ Partial Class frmAdministration
'BESCHREIBUNGTextBox 'BESCHREIBUNGTextBox
' '
Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True)) Me.BESCHREIBUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "BESCHREIBUNG", True))
Me.BESCHREIBUNGTextBox.Enabled = False
Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(267, 186) Me.BESCHREIBUNGTextBox.Location = New System.Drawing.Point(267, 186)
Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox" Me.BESCHREIBUNGTextBox.Name = "BESCHREIBUNGTextBox"
Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(622, 23) Me.BESCHREIBUNGTextBox.Size = New System.Drawing.Size(622, 23)
@ -2882,6 +2967,7 @@ Partial Class frmAdministration
'AKTIVCheckBox 'AKTIVCheckBox
' '
Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True)) Me.AKTIVCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_DOKUMENTARTBindingSource, "AKTIV", True))
Me.AKTIVCheckBox.Enabled = False
Me.AKTIVCheckBox.Location = New System.Drawing.Point(554, 93) Me.AKTIVCheckBox.Location = New System.Drawing.Point(554, 93)
Me.AKTIVCheckBox.Name = "AKTIVCheckBox" Me.AKTIVCheckBox.Name = "AKTIVCheckBox"
Me.AKTIVCheckBox.Size = New System.Drawing.Size(63, 24) Me.AKTIVCheckBox.Size = New System.Drawing.Size(63, 24)
@ -2932,10 +3018,11 @@ Partial Class frmAdministration
'OBJEKTTYPComboBox 'OBJEKTTYPComboBox
' '
Me.OBJEKTTYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "OBJEKTTYP", True)) Me.OBJEKTTYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_DOKUMENTARTBindingSource, "OBJEKTTYP", True))
Me.OBJEKTTYPComboBox.Enabled = False
Me.OBJEKTTYPComboBox.FormattingEnabled = True Me.OBJEKTTYPComboBox.FormattingEnabled = True
Me.OBJEKTTYPComboBox.Location = New System.Drawing.Point(621, 94) Me.OBJEKTTYPComboBox.Location = New System.Drawing.Point(621, 94)
Me.OBJEKTTYPComboBox.Name = "OBJEKTTYPComboBox" Me.OBJEKTTYPComboBox.Name = "OBJEKTTYPComboBox"
Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(345, 23) Me.OBJEKTTYPComboBox.Size = New System.Drawing.Size(342, 23)
Me.OBJEKTTYPComboBox.TabIndex = 25 Me.OBJEKTTYPComboBox.TabIndex = 25
' '
'XtraTabPage2 'XtraTabPage2
@ -3373,6 +3460,7 @@ Partial Class frmAdministration
'PRENAMETextBox 'PRENAMETextBox
' '
Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True)) Me.PRENAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "PRENAME", True))
Me.PRENAMETextBox.Enabled = False
Me.PRENAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.PRENAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.PRENAMETextBox.Location = New System.Drawing.Point(90, 51) Me.PRENAMETextBox.Location = New System.Drawing.Point(90, 51)
Me.PRENAMETextBox.Name = "PRENAMETextBox" Me.PRENAMETextBox.Name = "PRENAMETextBox"
@ -3382,6 +3470,7 @@ Partial Class frmAdministration
'NAMETextBox1 'NAMETextBox1
' '
Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True)) Me.NAMETextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "NAME", True))
Me.NAMETextBox1.Enabled = False
Me.NAMETextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.NAMETextBox1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.NAMETextBox1.Location = New System.Drawing.Point(299, 51) Me.NAMETextBox1.Location = New System.Drawing.Point(299, 51)
Me.NAMETextBox1.Name = "NAMETextBox1" Me.NAMETextBox1.Name = "NAMETextBox1"
@ -3391,6 +3480,7 @@ Partial Class frmAdministration
'USERNAMETextBox 'USERNAMETextBox
' '
Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True)) Me.USERNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "USERNAME", True))
Me.USERNAMETextBox.Enabled = False
Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.USERNAMETextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.USERNAMETextBox.Location = New System.Drawing.Point(562, 51) Me.USERNAMETextBox.Location = New System.Drawing.Point(562, 51)
Me.USERNAMETextBox.Name = "USERNAMETextBox" Me.USERNAMETextBox.Name = "USERNAMETextBox"
@ -3400,6 +3490,7 @@ Partial Class frmAdministration
'EMAILTextBox 'EMAILTextBox
' '
Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True)) Me.EMAILTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "EMAIL", True))
Me.EMAILTextBox.Enabled = False
Me.EMAILTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.EMAILTextBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.EMAILTextBox.Location = New System.Drawing.Point(90, 92) Me.EMAILTextBox.Location = New System.Drawing.Point(90, 92)
Me.EMAILTextBox.Name = "EMAILTextBox" Me.EMAILTextBox.Name = "EMAILTextBox"
@ -3451,6 +3542,7 @@ Partial Class frmAdministration
'GI_ADMINCheckBox 'GI_ADMINCheckBox
' '
Me.GI_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "GI_ADMIN", True)) Me.GI_ADMINCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_USERBindingSource, "GI_ADMIN", True))
Me.GI_ADMINCheckBox.Enabled = False
Me.GI_ADMINCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GI_ADMINCheckBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GI_ADMINCheckBox.Location = New System.Drawing.Point(562, 90) Me.GI_ADMINCheckBox.Location = New System.Drawing.Point(562, 90)
Me.GI_ADMINCheckBox.Name = "GI_ADMINCheckBox" Me.GI_ADMINCheckBox.Name = "GI_ADMINCheckBox"
@ -4369,4 +4461,7 @@ Partial Class frmAdministration
Friend WithEvents tsbtnCopyDoctype As System.Windows.Forms.ToolStripButton Friend WithEvents tsbtnCopyDoctype As System.Windows.Forms.ToolStripButton
Friend WithEvents SEQUENCENumericUpDown As System.Windows.Forms.NumericUpDown Friend WithEvents SEQUENCENumericUpDown As System.Windows.Forms.NumericUpDown
Friend WithEvents ListBox6 As System.Windows.Forms.ListBox Friend WithEvents ListBox6 As System.Windows.Forms.ListBox
Friend WithEvents lblWindowParameter As System.Windows.Forms.Label
Friend WithEvents lbFileparameter As System.Windows.Forms.ListBox
Friend WithEvents VARIANTComboBox As System.Windows.Forms.ComboBox
End Class End Class

3
Global_Indexer/frmAdministration.resx
View File

@ -324,6 +324,9 @@
<metadata name="SEQUENCELabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="SEQUENCELabel3.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </metadata>
<metadata name="VARIANTLabel.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>

82
Global_Indexer/frmAdministration.vb
View File

@ -49,6 +49,9 @@
Else Else
Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART) Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.MyDataset.TBDD_DOKUMENTART)
End If End If
If MyDataset.TBDD_DOKUMENTART.Rows.Count > 0 Then
enableControls(XtraTabPage1)
End If
If Me.DOKART_GUIDTextBox.Text <> "" Then If Me.DOKART_GUIDTextBox.Text <> "" Then
Load_TabData() Load_TabData()
End If End If
@ -159,6 +162,7 @@
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
MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName MyDataset.TBDD_DOKUMENTART.ERSTELLTWERColumn.DefaultValue = Environment.UserName
enableControls(XtraTabPage1)
IsInsert = True IsInsert = True
End Sub End Sub
@ -256,6 +260,9 @@
Private Sub Load_INDEXMAN(DA_ID As Integer) Private Sub Load_INDEXMAN(DA_ID As Integer)
Try Try
Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID) Me.TBDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN, DA_ID)
If MyDataset.TBDD_INDEX_MAN.Rows.Count > 0 Then
enableControls(XtraTabPage3)
End If
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load IndexeManuell: ")
End Try End Try
@ -264,6 +271,9 @@
Private Sub Load_INDEXE_AUTO(DA_ID As Integer) Private Sub Load_INDEXE_AUTO(DA_ID As Integer)
Try Try
Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID) Me.TBDD_INDEX_AUTOMTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_AUTOM, DA_ID)
If MyDataset.TBDD_INDEX_AUTOM.Rows.Count > 0 Then
enableControls(XtraTabPage4)
End If
CheckIndexAutoWD() CheckIndexAutoWD()
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Indexe Auto: ")
@ -272,8 +282,11 @@
End Sub End Sub
Private Sub Load_PostProcessing(DA_ID As Integer) Private Sub Load_PostProcessing(DA_ID As Integer)
Try Try
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID) Me.TBWHDD_INDEX_MANTableAdapter.Fill(Me.MyDataset.TBWHDD_INDEX_MAN, DA_ID)
Me.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter.Fill(Me.MyDataset.TBDD_INDEX_MAN_POSTPROCESSING, DA_ID)
If MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.Rows.Count > 0 Then
enableControls(XtraTabPage6)
End If
Catch ex As System.Exception Catch ex As System.Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Load Postprocessing-Values: ")
End Try End Try
@ -296,6 +309,7 @@
IsInsert = True IsInsert = True
MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBDD_INDEX_MAN.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text MyDataset.TBDD_INDEX_MAN.DOK_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
enableControls(XtraTabPage3)
If GI_withWindream = True Then If GI_withWindream = True Then
Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text) Load_INDEXMAN(Me.DOKART_GUIDTextBox.Text)
End If End If
@ -350,6 +364,7 @@
If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then If SUGGESTIONCheckBox.CheckState = CheckState.Checked Then
btnSQLView.Visible = True btnSQLView.Visible = True
Else Else
btnSQLView.Visible = False btnSQLView.Visible = False
End If End If
If IsInsert = False Then If IsInsert = False Then
@ -373,7 +388,9 @@
Else Else
Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER) Me.TBDD_USERTableAdapter.Fill(Me.MyDataset.TBDD_USER)
End If End If
If MyDataset.TBDD_USER.Rows.Count > 0 Then
enableControls(XtraTabPage2)
End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_User: ")
End Try End Try
@ -524,6 +541,7 @@
Try Try
MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBDD_INDEX_AUTOM.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text MyDataset.TBDD_INDEX_AUTOM.DOCTYPE_IDColumn.DefaultValue = Me.DOKART_GUIDTextBox.Text
enableControls(XtraTabPage4)
IsInsert = True IsInsert = True
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Add IndexeAuto: ")
@ -543,11 +561,15 @@
Me.lblValue.Visible = False Me.lblValue.Visible = False
VALUETextBox.Visible = False VALUETextBox.Visible = False
VALUETextBox.Text = "" VALUETextBox.Text = ""
lblWindowParameter.Visible = False
lbFileparameter.Visible = False
Else Else
Me.lblValue.Visible = True Me.lblValue.Visible = True
VALUETextBox.Visible = True VALUETextBox.Visible = True
VALUETextBox.Text = "" VALUETextBox.Text = ""
btnSQLViewAuto.Visible = False btnSQLViewAuto.Visible = False
lblWindowParameter.Visible = True
lbFileparameter.Visible = True
End If End If
If IsInsert = False Then If IsInsert = False Then
Save_IndexAuto() Save_IndexAuto()
@ -638,8 +660,22 @@
Me.Function2Label.Visible = False Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False Me.FUNCTION2TextBox.Visible = False
Case Else Case "REG. EXPRESSION"
Me.Text1Label.Text = "Regulärer Ausdruck:"
Me.TEXT1TextBox.Visible = True
Me.Text2Label.Visible = False
Me.TEXT2TextBox.Visible = False
Me.Text3Label.Visible = False
Me.TEXT3TextBox.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.Function1Label.Visible = False
Me.Function2Label.Visible = False
Me.FUNCTION1TextBox.Visible = False
Me.FUNCTION2TextBox.Visible = False
End Select End Select
End If End If
@ -665,10 +701,18 @@
End Sub End Sub
Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew Private Sub TBDD_INDEX_MAN_POSTPROCESSINGBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_INDEX_MAN_POSTPROCESSINGBindingSource.AddingNew
enableControls(XtraTabPage6)
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.ADDED_WHOColumn.DefaultValue = Environment.UserName
MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1 MyDataset.TBDD_INDEX_MAN_POSTPROCESSING.SEQUENCEColumn.DefaultValue = 1
End Sub End Sub
Sub enableControls(obj As Object)
For Each element In obj.Controls
If element.enabled = False Then
element.enabled = True
End If
Next
End Sub
Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click Private Sub ToolStripButton31_Click(sender As Object, e As EventArgs) Handles ToolStripButton31.Click
Load_PostProcessing(Me.DOKART_GUIDTextBox.Text) Load_PostProcessing(Me.DOKART_GUIDTextBox.Text)
End Sub End Sub
@ -924,4 +968,34 @@
Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging Private Sub XtraTabControl2_SelectedPageChanging(sender As Object, e As DevExpress.XtraTab.TabPageChangingEventArgs) Handles XtraTabControl2.SelectedPageChanging
Save_Dokumentart() Save_Dokumentart()
End Sub End Sub
Private Sub lblFileparameter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbFileparameter.SelectedIndexChanged
If Not lbFileparameter.SelectedItem Is Nothing Then
If GUIDAUTO_INDEXTextbox.Text <> "" Then
Dim value As String
Select Case lbFileparameter.SelectedItem.ToString.ToUpper
Case "Dateiname (mit Endung)".ToUpper
value = "$filename_ext"
Case "Dateiname (ohne Endung)".ToUpper
value = "$filename"
Case "Datei Erstelldatum".ToUpper
value = "$FileCreateDate"
Case "Datei Erstellt wer".ToUpper
value = "$FileCreatedWho"
Case "Aktuelles Datum (DD.MM.YYYY)".ToUpper
value = "$DateDDMMYYY"
End Select
If value <> "" Then
VALUETextBox.Text = value
Save_IndexAuto()
End If
Else
MsgBox("Bitte fügen Sie zuerst einen neuen Index hinzu!", MsgBoxStyle.Information)
End If
End If
End Sub
Private Sub TBDD_USERBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_USERBindingSource.AddingNew
enableControls(XtraTabPage2)
End Sub
End Class End Class

134
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@ -36,7 +36,10 @@ Partial Class frmConfig_Basic
Me.txtServer = New System.Windows.Forms.TextBox() Me.txtServer = New System.Windows.Forms.TextBox()
Me.txtUser = New System.Windows.Forms.TextBox() Me.txtUser = New System.Windows.Forms.TextBox()
Me.txtPasswort = New System.Windows.Forms.TextBox() Me.txtPasswort = New System.Windows.Forms.TextBox()
Me.BtnConnect = New System.Windows.Forms.Button()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.CheckBox1 = 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()
@ -50,14 +53,11 @@ 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.btnstartstop2 = 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()
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.BtnConnect = New System.Windows.Forms.Button()
Me.btnApplicationFolder = New System.Windows.Forms.Button()
Me.btnopenlog = New System.Windows.Forms.Button()
Me.btnstartstop2 = New System.Windows.Forms.Button()
Me.btnstartstop1 = New System.Windows.Forms.Button()
Me.TabControl1.SuspendLayout() Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout() Me.TabPage1.SuspendLayout()
Me.TabPage2.SuspendLayout() Me.TabPage2.SuspendLayout()
@ -197,6 +197,18 @@ Partial Class frmConfig_Basic
Me.txtPasswort.TabIndex = 38 Me.txtPasswort.TabIndex = 38
Me.txtPasswort.UseSystemPasswordChar = True Me.txtPasswort.UseSystemPasswordChar = True
' '
'BtnConnect
'
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 40
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'TabPage2 'TabPage2
' '
Me.TabPage2.Controls.Add(Me.CheckBox3) Me.TabPage2.Controls.Add(Me.CheckBox3)
@ -215,6 +227,30 @@ Partial Class frmConfig_Basic
Me.TabPage2.Text = "Diverse Einstellungen" Me.TabPage2.Text = "Diverse Einstellungen"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.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
'
'CheckBox1 'CheckBox1
' '
Me.CheckBox1.AutoSize = True Me.CheckBox1.AutoSize = True
@ -340,6 +376,32 @@ Partial Class frmConfig_Basic
Me.Label6.TabIndex = 0 Me.Label6.TabIndex = 0
Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:" Me.Label6.Text = "Definieren Sie hier den Ordner welcher überwacht wird:"
' '
'btnstartstop2
'
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.Location = New System.Drawing.Point(408, 169)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop2.TabIndex = 9
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.Location = New System.Drawing.Point(408, 57)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop1.TabIndex = 5
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
'
'OpenFileDialog1 'OpenFileDialog1
' '
Me.OpenFileDialog1.FileName = "OpenFileDialog1" Me.OpenFileDialog1.FileName = "OpenFileDialog1"
@ -369,68 +431,6 @@ Partial Class frmConfig_Basic
Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?" Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
Me.CheckBox2.UseVisualStyleBackColor = True Me.CheckBox2.UseVisualStyleBackColor = True
' '
'BtnConnect
'
Me.BtnConnect.Image = Global.Global_Indexer.My.Resources.Resources.database_go
Me.BtnConnect.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.BtnConnect.Location = New System.Drawing.Point(302, 82)
Me.BtnConnect.Name = "BtnConnect"
Me.BtnConnect.Size = New System.Drawing.Size(253, 25)
Me.BtnConnect.TabIndex = 40
Me.BtnConnect.Text = "Verbindung zur Datenbank herstellen"
Me.BtnConnect.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.BtnConnect.UseVisualStyleBackColor = True
'
'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
'
'btnstartstop2
'
Me.btnstartstop2.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop2.Location = New System.Drawing.Point(408, 169)
Me.btnstartstop2.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop2.Name = "btnstartstop2"
Me.btnstartstop2.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop2.TabIndex = 9
Me.btnstartstop2.Text = "Überwachung starten"
Me.btnstartstop2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop2.UseVisualStyleBackColor = True
'
'btnstartstop1
'
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
Me.btnstartstop1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnstartstop1.Location = New System.Drawing.Point(408, 57)
Me.btnstartstop1.Margin = New System.Windows.Forms.Padding(4)
Me.btnstartstop1.Name = "btnstartstop1"
Me.btnstartstop1.Size = New System.Drawing.Size(205, 25)
Me.btnstartstop1.TabIndex = 5
Me.btnstartstop1.Text = "Überwachung starten"
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True
'
'frmConfig_Basic 'frmConfig_Basic
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

55
Global_Indexer/frmHistory.Designer.vb generated
View File

@ -36,6 +36,9 @@ Partial Class frmHistory
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.TBGI_HISTORYTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter() Me.TBGI_HISTORYTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter()
Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl() Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
@ -44,8 +47,6 @@ Partial Class frmHistory
Me.colFILENAME_ORIGINAL = New DevExpress.XtraGrid.Columns.GridColumn() Me.colFILENAME_ORIGINAL = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colFILENAME_NEW = New DevExpress.XtraGrid.Columns.GridColumn() Me.colFILENAME_NEW = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBGI_HISTORYBindingNavigator.SuspendLayout() Me.TBGI_HISTORYBindingNavigator.SuspendLayout()
CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -59,9 +60,9 @@ Partial Class frmHistory
Me.TBGI_HISTORYBindingNavigator.AddNewItem = Nothing Me.TBGI_HISTORYBindingNavigator.AddNewItem = Nothing
Me.TBGI_HISTORYBindingNavigator.BindingSource = Me.TBGI_HISTORYBindingSource Me.TBGI_HISTORYBindingNavigator.BindingSource = Me.TBGI_HISTORYBindingSource
Me.TBGI_HISTORYBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBGI_HISTORYBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} heute indexierten Dateien" Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} indexierten Dateien"
Me.TBGI_HISTORYBindingNavigator.DeleteItem = Nothing Me.TBGI_HISTORYBindingNavigator.DeleteItem = Nothing
Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2}) Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripButton3})
Me.TBGI_HISTORYBindingNavigator.Location = New System.Drawing.Point(0, 0) Me.TBGI_HISTORYBindingNavigator.Location = New System.Drawing.Point(0, 0)
Me.TBGI_HISTORYBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBGI_HISTORYBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBGI_HISTORYBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.TBGI_HISTORYBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@ -86,8 +87,8 @@ Partial Class frmHistory
'BindingNavigatorCountItem 'BindingNavigatorCountItem
' '
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(181, 22) Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(148, 22)
Me.BindingNavigatorCountItem.Text = "von {0} heute indexierten Dateien" Me.BindingNavigatorCountItem.Text = "von {0} indexierten Dateien"
Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente." Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
' '
'BindingNavigatorMoveFirstItem 'BindingNavigatorMoveFirstItem
@ -150,6 +151,31 @@ Partial Class frmHistory
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25) Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
' '
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22)
Me.ToolStripButton1.Text = "Alle Dateien laden"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(144, 22)
Me.ToolStripButton2.Text = "Heutige Dateien laden"
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = Global.Global_Indexer.My.Resources.Resources.Excel_25ixel
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Export Excel"
'
'TBGI_HISTORYTableAdapter 'TBGI_HISTORYTableAdapter
' '
Me.TBGI_HISTORYTableAdapter.ClearBeforeFill = True Me.TBGI_HISTORYTableAdapter.ClearBeforeFill = True
@ -236,22 +262,6 @@ Partial Class frmHistory
Me.colADDED_WHEN.VisibleIndex = 3 Me.colADDED_WHEN.VisibleIndex = 3
Me.colADDED_WHEN.Width = 140 Me.colADDED_WHEN.Width = 140
' '
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22)
Me.ToolStripButton1.Text = "Alle Dateien laden"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(117, 22)
Me.ToolStripButton2.Text = "ToolStripButton2"
'
'frmHistory 'frmHistory
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -295,4 +305,5 @@ Partial Class frmHistory
Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents ToolStripButton3 As System.Windows.Forms.ToolStripButton
End Class End Class

46
Global_Indexer/frmHistory.vb
View File

@ -1,10 +1,54 @@
Public Class frmHistory Public Class frmHistory
Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoadData_Today()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen. 'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user) Me.TBGI_HISTORYTableAdapter.FillByAll(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading All Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
LoadData_Today()
End Sub
Sub LoadData_Today()
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBGI_HISTORYTableAdapter.FillToday(Me.MyDataset.TBGI_HISTORY, user)
Catch ex As Exception
MsgBox("Error loading Today Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim saveFileDialog1 As New SaveFileDialog
saveFileDialog1.Filter = "Excel (*.xls)|*.xls|Excel (*.xlsx)|*.xlsx"
saveFileDialog1.Title = "Export to Excel:"
saveFileDialog1.ShowDialog()
If saveFileDialog1.FileName <> "" Then
Cursor = Cursors.WaitCursor
If saveFileDialog1.FileName.EndsWith("xlsx") Then
GridView1.ExportToXlsx(saveFileDialog1.FileName)
Else
GridView1.ExportToXls(saveFileDialog1.FileName)
End If
Dim result As MsgBoxResult
result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Process.Start(saveFileDialog1.FileName)
End If
End If
Cursor = Cursors.Default
End Sub End Sub
End Class End Class

32
Global_Indexer/frmIndex.designer.vb generated
View File

@ -38,7 +38,7 @@ Partial Class frmIndex
Me.chkdelete_origin = New System.Windows.Forms.CheckBox() Me.chkdelete_origin = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.txtIndexfilepath = New System.Windows.Forms.TextBox() Me.txtIndexfilepath = New System.Windows.Forms.TextBox()
Me.OK_Button = New System.Windows.Forms.Button() Me.btnOK = New System.Windows.Forms.Button()
Me.MyDataset = New Global_Indexer.MyDataset() Me.MyDataset = New Global_Indexer.MyDataset()
Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWDDINDEX_MANBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.VWDDINDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter() Me.VWDDINDEX_MANTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_MANTableAdapter()
@ -220,7 +220,7 @@ Partial Class frmIndex
Me.Panel2.Controls.Add(Me.chkdelete_origin) Me.Panel2.Controls.Add(Me.chkdelete_origin)
Me.Panel2.Controls.Add(Me.Label2) Me.Panel2.Controls.Add(Me.Label2)
Me.Panel2.Controls.Add(Me.txtIndexfilepath) Me.Panel2.Controls.Add(Me.txtIndexfilepath)
Me.Panel2.Controls.Add(Me.OK_Button) Me.Panel2.Controls.Add(Me.btnOK)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 373) Me.Panel2.Location = New System.Drawing.Point(0, 373)
Me.Panel2.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) Me.Panel2.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
@ -277,19 +277,19 @@ Partial Class frmIndex
Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 34) Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 34)
Me.txtIndexfilepath.TabIndex = 1 Me.txtIndexfilepath.TabIndex = 1
' '
'OK_Button 'btnOK
' '
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.OK_Button.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.btnOK.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.OK_Button.Image = Global.Global_Indexer.My.Resources.Resources.Go Me.btnOK.Image = Global.Global_Indexer.My.Resources.Resources.Go
Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.OK_Button.Location = New System.Drawing.Point(387, 6) Me.btnOK.Location = New System.Drawing.Point(354, 6)
Me.OK_Button.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.btnOK.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.OK_Button.Name = "OK_Button" Me.btnOK.Name = "btnOK"
Me.OK_Button.Size = New System.Drawing.Size(134, 30) Me.btnOK.Size = New System.Drawing.Size(167, 30)
Me.OK_Button.TabIndex = 0 Me.btnOK.TabIndex = 0
Me.OK_Button.Text = "Indexiere Datei" Me.btnOK.Text = "Indexiere Datei"
Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
' '
'MyDataset 'MyDataset
' '
@ -697,10 +697,10 @@ Partial Class frmIndex
CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PdfBarController2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout Me.PerformLayout()
End Sub End Sub
Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox Friend WithEvents cmbDokumentart As System.Windows.Forms.ComboBox

9
Global_Indexer/frmIndex.resx
View File

@ -120,6 +120,9 @@
<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>
@ -147,6 +150,12 @@
<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>

124
Global_Indexer/frmIndex.vb
View File

@ -5,6 +5,8 @@ Imports System.Text.RegularExpressions
Imports Independentsoft Imports Independentsoft
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Imports System.Text Imports System.Text
Imports System.Security.AccessControl
Imports System.Security.Principal
Public Class frmIndex Public Class frmIndex
#Region "+++++ Variablen ++++++" #Region "+++++ Variablen ++++++"
@ -334,7 +336,7 @@ Public Class frmIndex
' Return 99 ' Return 99
' End Try ' End Try
' End Function ' End Function
Function GetManIndex_Value(indexname As String) Function GetManIndex_Value(indexname As String, RequestFor As String)
Try Try
Dim DT As DataTable Dim DT As DataTable
Dim DR As DataRow Dim DR As DataRow
@ -342,8 +344,29 @@ Public Class frmIndex
For Each DR In DT.Rows For Each DR In DT.Rows
If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then If DR.Item("INDEXNAME").ToString.ToLower = indexname.ToLower Then
If DR.Item("Indexiert") = True Then If DR.Item("Indexiert") = True Then
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index: " & indexname, False)
Select Case RequestFor
Case "FILE"
If DR.Item("Indexwert_File").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Es liegt ein separater nachbearbeiteter Wert für die Dateibenennung vor: " & DR.Item("Indexwert_File").ToString, False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener NachbearbeitungsWert: " & DR.Item("Indexwert_File"), False)
Return DR.Item("Indexwert_File")
Else
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Console.WriteLine("Rückgabe manueller wert: " & DR.Item("Indexwert"))
Return DR.Item("Indexwert")
Else
Dim optional_index As Boolean = ClassDatabase.Execute_Scalar("SELECT OPTIONAL FROM TBDD_INDEX_MAN WHERE DOK_ID = " & CURRENT_DOKART_ID & " AND UPPER(NAME) = UPPER('" & indexname & "')", MyConnectionString, True)
If optional_index = False Then
ClassLogger.Add(" >> Achtung, der Indexwert des manuellen Indexes '" & indexname & "' ist String.empty!", False)
showlblhinweis("Indexiert = True - Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
End If
Return ""
End If
End If
Case Else
If DR.Item("Indexwert").ToString <> String.Empty Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Zurückgegebener manueller Indexwert: " & DR.Item("Indexwert"), False)
Return DR.Item("Indexwert") Return DR.Item("Indexwert")
Else Else
@ -354,6 +377,7 @@ Public Class frmIndex
End If End If
Return "" Return ""
End If End If
End Select
Else Else
showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!") showlblhinweis("Der Index: " & DR.Item("INDEXNAME") & " wurde nicht ordnungsgemäss indexiert! - Automatischer Index konnte nicht gesetzt werden!")
Return "" Return ""
@ -717,25 +741,39 @@ Public Class frmIndex
End Function End Function
Sub Indexwert_Postprocessing(indexname As String, wert As String) Sub Indexwert_Postprocessing(indexname As String, wert_in As String)
Try Try
Dim DT As DataTable Dim DT As DataTable
Dim DR As DataRow Dim DR As DataRow
DT = MyDataset.VWDDINDEX_MAN DT = MyDataset.VWDDINDEX_MAN
Dim value_post As String = ""
For Each DR In DT.Rows For Each DR In DT.Rows
If DR.Item("INDEXNAME") = indexname Then If DR.Item("INDEXNAME") = indexname Then
Dim idxid As Integer = DR.Item("GUID") Dim idxid As Integer = DR.Item("GUID")
If idxid > 0 Then If idxid > 0 Then
' In jedem Fall schon mal den Wert einfügen
DR.Item("Indexwert") = wert_in
'Die Nachbearbeitungsschritte laden 'Die Nachbearbeitungsschritte laden
Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " ORDER BY SEQUENCE") 'FILE AND INDEX
'Zuerst nur die Fälle für die Variante ONLY FILE/FOLDER
Dim DTNB As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'ONLY FILE/FOLDER' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then If DTNB.Rows.Count > 0 Then
wert = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert, DTNB) value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = wert_in
DR.Item("Indexwert_File") = value_post
End If
End If
'Jetzt die Fälle für die Variante FILE AND INDEX
DTNB = Nothing
DTNB = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_INDEX_MAN_POSTPROCESSING WHERE IDXMAN_ID = " & idxid & " AND VARIANT = 'FILE AND INDEX' ORDER BY SEQUENCE")
If DTNB Is Nothing = False Then
If DTNB.Rows.Count > 0 Then
value_post = ClassPostprocessing.Get_Nachbearbeitung_Wert(wert_in, DTNB)
DR.Item("Indexwert") = value_post
End If End If
End If End If
End If End If
DR.Item("Indexwert") = wert
DR.Item("Indexiert") = True DR.Item("Indexiert") = True
End If End If
Next Next
@ -823,7 +861,7 @@ Public Class frmIndex
Case "M" Case "M"
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index wird geprüft...", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Index wird geprüft...", False)
Dim Indexname = element.Value.Substring(3, element.Value.Length - 4) Dim Indexname = element.Value.Substring(3, element.Value.Length - 4)
Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4)) Dim value As String = GetManIndex_Value(element.Value.Substring(3, element.Value.Length - 4), "FILE")
If value <> String.Empty Then If value <> String.Empty Then
DATEINAME = DATEINAME.Replace(element.Value, value) DATEINAME = DATEINAME.Replace(element.Value, value)
NewFileString = DATEINAME NewFileString = DATEINAME
@ -945,9 +983,12 @@ Public Class frmIndex
'Manuelle Indexe Indexieren 'Manuelle Indexe Indexieren
Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN
If DTMan.Rows.Count > 0 Then If DTMan.Rows.Count > 0 Then
Dim Count As Integer = 0 Dim Count As Integer = 0
For Each row As DataRow In DTMan.Rows For Each row As DataRow In DTMan.Rows
If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then Dim idxvalue = row.Item("Indexwert")
Dim indexname = row.Item("WD_INDEX").ToString
If CBool(row.Item("Indexiert")) = True And idxvalue.ToString <> "" Then
'Den Indexwert zwischenspeichern 'Den Indexwert zwischenspeichern
Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS Dim DTTemp As DataTable = MyDataset.TBTEMP_INDEXRESULTS
Dim rowexists As Boolean = False Dim rowexists As Boolean = False
@ -969,8 +1010,8 @@ Public Class frmIndex
End If End If
Dim indexname = row.Item("WD_INDEX").ToString
Dim idxvalue = row.Item("Indexwert")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexvalue: " & idxvalue.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexvalue: " & idxvalue.ToString, False)
Count += 1 Count += 1
indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_NEWFILENAME, indexname, idxvalue)
@ -988,8 +1029,6 @@ Public Class frmIndex
If DTAut.Rows.Count > 0 Then If DTAut.Rows.Count > 0 Then
Dim Count As Integer = 0 Dim Count As Integer = 0
For Each row As DataRow In DTAut.Rows For Each row As DataRow In DTAut.Rows
Console.WriteLine(row.Item("Indexwert"))
Console.WriteLine(row.Item("Indexiert").ToString)
If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then If CBool(row.Item("Indexiert")) = True And row.Item("Indexwert").ToString <> "" Then
Dim indexname = row.Item("INDEXNAME").ToString Dim indexname = row.Item("INDEXNAME").ToString
Dim idxvalue = row.Item("Indexwert") Dim idxvalue = row.Item("Indexwert")
@ -1339,6 +1378,7 @@ Public Class frmIndex
End If End If
Load_String() Load_String()
MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True) MULTIFILES = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBGI_FILES_USER WHERE WORKED = 0 AND GUID <> " & CURRENT_WORKFILE_GUID & " AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", MyConnectionString, True)
MULTIINDEXING_ACTIVE = False
If MULTIFILES > 0 Then If MULTIFILES > 0 Then
chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren" chkMultiIndexer.Text = "Multi-Indexing - Alle nachfolgenden Dateien (" & MULTIFILES & ") identisch indexieren"
chkMultiIndexer.Checked = False chkMultiIndexer.Checked = False
@ -1505,12 +1545,6 @@ Public Class frmIndex
cmbName.Items.Add(Value) cmbName.Items.Add(Value)
End Sub End Sub
'
' Private Sub lblhinweis_Click(sender As System.Object, e As System.EventArgs) Handles lblhinweis.Click
' End Sub
Function FillIndexe_Autom(dokart_id As Integer) Function FillIndexe_Autom(dokart_id As Integer)
Try Try
Me.VWINDEX_AUTOMTableAdapter.Fill(Me.MyDataset.VWDDINDEX_AUTOM, CURRENT_DOKART_ID) Me.VWINDEX_AUTOMTableAdapter.Fill(Me.MyDataset.VWDDINDEX_AUTOM, CURRENT_DOKART_ID)
@ -1518,8 +1552,9 @@ Public Class frmIndex
If DT_INDEXAUTOM.Rows.Count > 0 Then If DT_INDEXAUTOM.Rows.Count > 0 Then
' MsgBox(DT.Rows.Count.ToString) ' MsgBox(DT.Rows.Count.ToString)
For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows For Each DR_AUTOINDEX As DataRow In DT_INDEXAUTOM.Rows
If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & DR_AUTOINDEX.Item("INDEXNAME") & "'", False) Dim indexname As String = DR_AUTOINDEX.Item("INDEXNAME")
If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty Then If LogErrorsOnly = False Then ClassLogger.Add(" ...Build Automatischer Index '" & indexname & "'", False)
If DR_AUTOINDEX.Item("SQL_RESULT").ToString <> String.Empty And CBool(DR_AUTOINDEX.Item("SQL_ACTIVE")) = True Then
' Regulären Ausdruck zum Auslesen der windream-Indexe definieren ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' SQL-String für aktuellen INdex laden ' SQL-String für aktuellen INdex laden
@ -1538,7 +1573,7 @@ Public Class frmIndex
Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3) Dim elementOhneSonderzeichen As String = element.Value.Substring(2, element.Value.Length - 3)
If LogErrorsOnly = False Then ClassLogger.Add(" ...elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...elementOhneSonderzeichen: '" & elementOhneSonderzeichen & "'", False)
'den Platzhalter im SQL-String durch den Wert ersetzen 'den Platzhalter im SQL-String durch den Wert ersetzen
Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen) Dim manIndexwert As String = GetManIndex_Value(elementOhneSonderzeichen, "IDX_AUTO")
If manIndexwert <> "" Then If manIndexwert <> "" Then
SqlString = SqlString.Replace(element.Value, manIndexwert) SqlString = SqlString.Replace(element.Value, manIndexwert)
If LogErrorsOnly = False Then ClassLogger.Add(" ...zusammengesetzter SQL-String: " & SqlString, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...zusammengesetzter SQL-String: " & SqlString, False)
@ -1562,10 +1597,35 @@ Public Class frmIndex
Else Else
If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then If Not IsDBNull(DR_AUTOINDEX.Item("VALUE")) Then
If DR_AUTOINDEX.Item("VALUE") <> "" Then If DR_AUTOINDEX.Item("VALUE") <> "" Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Manueller Indexwert wird gespeichert: " & DR_AUTOINDEX.Item("VALUE"), False) Dim DEFAULTVALUE As String = DR_AUTOINDEX.Item("VALUE")
Console.WriteLine(DR_AUTOINDEX.Item("VALUE")) 'Indexierung mit WindowsVariable
If DEFAULTVALUE.StartsWith("$") Then
If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einer Windowsvariable: '" & DEFAULTVALUE & "'", False)
Select Case DEFAULTVALUE.ToUpper
Case "$filename_ext".ToUpper
DEFAULTVALUE = Path.GetFileName(CURRENT_WORKFILE)
Case "$filename".ToUpper
DEFAULTVALUE = Path.GetFileNameWithoutExtension(CURRENT_WORKFILE)
Case "$FileCreateDate".ToUpper
Dim FI As New FileInfo(CURRENT_WORKFILE)
Dim CreationDate As Date = FI.CreationTime
DEFAULTVALUE = CreationDate.ToShortDateString
Case "$FileCreatedWho".ToUpper
Dim fs As FileSecurity = File.GetAccessControl(CURRENT_WORKFILE)
Dim sid As IdentityReference = fs.GetOwner(GetType(SecurityIdentifier))
Dim ntaccount As IdentityReference = sid.Translate(GetType(NTAccount))
Dim owner As String = ntaccount.ToString()
DEFAULTVALUE = owner
Case "$DateDDMMYYY".ToUpper
DEFAULTVALUE = System.DateTime.Now.ToShortDateString
End Select
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis der Windowsvariable: '" & DEFAULTVALUE & "'", False)
Else
If LogErrorsOnly = False Then ClassLogger.Add(" ...Indexierung mit einem Festen Wert: '" & DEFAULTVALUE & "'", False)
End If
'Den Wert in der Zwischentabelle speichern
DR_AUTOINDEX.Item("Indexiert") = True DR_AUTOINDEX.Item("Indexiert") = True
DR_AUTOINDEX.Item("Indexwert") = DR_AUTOINDEX.Item("VALUE") DR_AUTOINDEX.Item("Indexwert") = DEFAULTVALUE
End If End If
End If End If
End If End If
@ -1770,7 +1830,7 @@ Public Class frmIndex
Return False Return False
End Try End Try
End Function End Function
Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles btnOK.Click
lblhinweis.Visible = False lblhinweis.Visible = False
lblerror.Visible = False lblerror.Visible = False
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
@ -1944,7 +2004,7 @@ Public Class frmIndex
Case "M" Case "M"
Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4) Dim ManIndexname = element.Value.Substring(3, element.Value.Length - 4)
If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Versuch den Indexwert aus '" & ManIndexname & "' auszulesen.", False)
Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname) Dim ManIndex_Value As String = GetManIndex_Value(ManIndexname, "FILE")
If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Ergebnis/Wert für neuen Ordner: '" & ManIndexname & "'", False)
If Not ManIndex_Value = String.Empty Then If Not ManIndex_Value = String.Empty Then
If IsDate(ManIndex_Value) Then If IsDate(ManIndex_Value) Then
@ -2163,4 +2223,14 @@ Public Class frmIndex
End Select End Select
Me.Close() Me.Close()
End Sub End Sub
Private Sub chkMultiIndexer_CheckedChanged(sender As Object, e As EventArgs) Handles chkMultiIndexer.CheckedChanged
If chkMultiIndexer.Checked Then
Me.btnOK.Text = "Dateien indexieren"
MULTIINDEXING_ACTIVE = True
Else
Me.btnOK.Text = "Indexiere Datei"
MULTIINDEXING_ACTIVE = False
End If
End Sub
End Class End Class

1
Global_Indexer/frmSQLSuggestion.vb
View File

@ -111,6 +111,7 @@ Public Class frmSQLSuggestion
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Try Try
ClassDatabase.Init()
Dim origresultstring = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) Dim origresultstring = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)
Dim origcheckstring = ClassDatabase.Execute_Scalar("SELECT SQL_CHECK FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) Dim origcheckstring = ClassDatabase.Execute_Scalar("SELECT SQL_CHECK FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)
Dim origConnection = ClassDatabase.Execute_Scalar("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True) Dim origConnection = ClassDatabase.Execute_Scalar("SELECT CONNECTION_ID FROM TBDD_INDEX_MAN WHERE GUID = " & CURRENT_INDEXMAN, True)

25
Global_Indexer/frmStart.Designer.vb generated
View File

@ -32,7 +32,7 @@ Partial Class frmStart
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.GrundeinstellungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.FrmHotkeyAddToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AApiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HistoryIndexierteDateienToolStripMenuItem = 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.tslblstatus = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblFW = New System.Windows.Forms.ToolStripStatusLabel()
@ -43,7 +43,7 @@ Partial Class frmStart
Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components) Me.TimerFolderWatch = New System.Windows.Forms.Timer(Me.components)
Me.TimerClose3Minutes = 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.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
Me.HistoryIndexierteDateienToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.InfoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
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()
@ -62,7 +62,7 @@ Partial Class frmStart
'KonfigurationToolStripMenuItem 'KonfigurationToolStripMenuItem
' '
Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.KonfigurationToolStripMenuItem.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.AApiToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem}) 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) Me.KonfigurationToolStripMenuItem.Size = New System.Drawing.Size(108, 20)
@ -108,12 +108,11 @@ Partial Class frmStart
Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User" Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User"
' '
'AApiToolStripMenuItem 'HistoryIndexierteDateienToolStripMenuItem
' '
Me.AApiToolStripMenuItem.Name = "AApiToolStripMenuItem" Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.AApiToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.AApiToolStripMenuItem.Text = "AApi" Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
Me.AApiToolStripMenuItem.Visible = False
' '
'StatusStrip1 'StatusStrip1
' '
@ -190,11 +189,11 @@ Partial Class frmStart
Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon) Me.NotifyIcon1.Icon = CType(resources.GetObject("NotifyIcon1.Icon"), System.Drawing.Icon)
Me.NotifyIcon1.Text = "GlobalIndexer" Me.NotifyIcon1.Text = "GlobalIndexer"
' '
'HistoryIndexierteDateienToolStripMenuItem 'InfoToolStripMenuItem
' '
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem" Me.InfoToolStripMenuItem.Name = "InfoToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22) Me.InfoToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien" Me.InfoToolStripMenuItem.Text = "Info"
' '
'frmStart 'frmStart
' '
@ -229,7 +228,6 @@ Partial Class frmStart
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
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 AApiToolStripMenuItem 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 tslblstatus As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tslblFW As System.Windows.Forms.ToolStripStatusLabel
@ -241,4 +239,5 @@ Partial Class frmStart
Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer Friend WithEvents TimerClose3Minutes As System.Windows.Forms.Timer
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
End Class End Class

120
Global_Indexer/frmStart.vb
View File

@ -103,15 +103,15 @@ Public Class frmStart
Next Next
Me.TopMost = True Me.TopMost = True
Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')" Dim sql As String = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
Dim DTFiles As DataTable = ClassDatabase.Return_Datatable(sql, True) DTACTUAL_FILES = Nothing
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
If DTFiles.Rows.Count > 1 Then
If DTACTUAL_FILES.Rows.Count > 1 Then
frmIndexFileList.ShowDialog() frmIndexFileList.ShowDialog()
DTACTUAL_FILES = Nothing
DTFiles = ClassDatabase.Return_Datatable(sql, True) DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
End If End If
For Each Filerow As DataRow In DTFiles.Rows For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK") Dim filestring As String = Filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK") CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_GUID = Filerow.Item(0) CURRENT_WORKFILE_GUID = Filerow.Item(0)
@ -119,38 +119,11 @@ Public Class frmStart
If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False) If LogErrorsOnly = False Then ClassLogger.Add(">> CURRENT_WORKFILE: " & CURRENT_WORKFILE, False)
If File.Exists(CURRENT_WORKFILE) Then If File.Exists(CURRENT_WORKFILE) Then
Open_IndexDialog() Open_IndexDialog()
Else
Console.WriteLine("File existiert nicht mehr!")
End If End If
Next Next
''Prüfen ob alle Files abgearbeitet wurden
'Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE not like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
'If DT.Rows.Count > 0 Then
' For Each row As DataRow In DT.Rows
' Dim filestring As String = row.Item(1)
' filestring = filestring.Substring(filestring.LastIndexOf("@") + 1)
' Select Case CURRENT_ABBRUCH
' Case 0
' CURRENT_ABBRUCH = 1
' Case 1
' CURRENT_ABBRUCH = 2
' Case 2
' CURRENT_ABBRUCH = 0
' End Select
' If File.Exists(filestring) Then
' MsgBox("Es sind noch Dateien zum Indexieren vorhanden:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation)
' CURRENT_WORKFILE = row.Item(1)
' CURRENT_FILENAME = row.Item(1)
' CURRENT_WORKFILE_GUID = row.Item(0)
' Open_IndexDialog()
' Else
' ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0))
' End If
' Next
'End If
'Catch ex As Exception
' MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
'End Try
End Sub End Sub
Sub Open_IndexDialog() Sub Open_IndexDialog()
@ -169,7 +142,21 @@ Public Class frmStart
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) 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 result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Try
'Zuerst die Daten des Ablaufs löschen
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
For Each Filerow As DataRow In DTACTUAL_FILES.Rows
Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
System.IO.File.Delete(filestring)
End If
Next
Catch ex As Exception
MsgBox("Fehler bei Abbruch der Indexierung: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
CURRENT_ABBRUCH = 0 CURRENT_ABBRUCH = 0
Exit Sub Exit Sub
Else Else
@ -185,18 +172,26 @@ Public Class frmStart
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 Try
ClassLogger.Add("", False)
If START_INCOMPLETE = False Then
Dim sql = sql_User_Login Dim sql = sql_User_Login
sql = sql.Replace("@LogInOut", 0) sql = sql.Replace("@LogInOut", 0)
sql = sql.Replace("@ANGEMELDETWO", "''") sql = sql.Replace("@ANGEMELDETWO", "''")
sql = sql.Replace("@user", Environment.UserName) sql = sql.Replace("@user", Environment.UserName)
ClassDatabase.Execute_non_Query(sql) 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'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE = 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql) ClassDatabase.Execute_non_Query(sql)
End If
End If
ClassWindowLocation.SaveFormLocationSize(Me) ClassWindowLocation.SaveFormLocationSize(Me)
Catch ex As Exception Catch ex As Exception
End Try End Try
If Not USER_GUID Is Nothing Then
Unregister_Hotkeys() Unregister_Hotkeys()
End If
End Sub End Sub
Sub Refresh_Licence() Sub Refresh_Licence()
@ -234,16 +229,12 @@ Public Class frmStart
'Me.TransparencyKey = Color.Transparent 'Me.TransparencyKey = Color.Transparent
' Me.BackColor = Color.Transparent ' Me.BackColor = Color.Transparent
Try Try
If Environment.UserName.ToLower = "schreiberm" Then
AApiToolStripMenuItem.Visible = True
Else
AApiToolStripMenuItem.Visible = False
End If
Me.Opacity = 30 Me.Opacity = 30
ClassWindowLocation.LoadFormLocationSize(Me) ClassWindowLocation.LoadFormLocationSize(Me)
Dim sql = sql_UserID Dim sql = sql_UserID
sql = sql.Replace("@user", Environment.UserName) sql = sql.Replace("@user", Environment.UserName)
ClassLogger.Init("", "log_" & Environment.UserName) ClassLogger.Init("", "log_" & Environment.UserName)
ClassLogger.Add(">> Programmstart: " & Now, False)
ClassLogger.Add(">> Username: " & Environment.UserName, False) ClassLogger.Add(">> Username: " & Environment.UserName, False)
LoadMyConfig() LoadMyConfig()
@ -251,21 +242,31 @@ Public Class frmStart
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
End If End If
If ClassDatabase.Init() = False Then If ClassDatabase.Init() = False Then
MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Einstellungen und den Datenbankserver", MsgBoxStyle.Critical) MsgBox("Es konnte keine Datenbankverbindung aufgebaut werden!" & vbNewLine & "Bitte prüfen Sie die Konfiguration der Datenbankverbindung und ggfls. den Datenbankserver", MsgBoxStyle.Critical)
Me.Close() frmConfig_Basic.ShowDialog()
End If
If ClassDatabase.Init() = False Then
ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If End If
If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then If UniversalViewer = String.Empty And My.Settings.DoNot_Show_Documents = False Then
frmConfig_Basic.ShowDialog() frmConfig_Basic.ShowDialog()
End If End If
If MyConnectionString = String.Empty Then If MyConnectionString = String.Empty Then
Me.Close() ClassLogger.Add(" >> Kein Connection-String definiert - Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
End If End If
Refresh_Licence() Refresh_Licence()
USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString) USER_GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString)
If USER_GUID Is Nothing Then If USER_GUID Is Nothing Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht in der Userverwaltung hinterlegt!", False) 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:") MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Me.Close() ClassLogger.Add(" >> Global Indexer wird geschlossen!", False)
START_INCOMPLETE = True
Exit Sub
Else Else
CURRENT_USERID = USER_GUID CURRENT_USERID = USER_GUID
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString)
@ -284,7 +285,8 @@ Public Class frmStart
If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then If ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) = False Then
ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) 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:") 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:")
Me.Close() START_INCOMPLETE = True
Exit Sub
Else Else
'Am System anmelden 'Am System anmelden
sql = sql_User_Login sql = sql_User_Login
@ -292,7 +294,8 @@ Public Class frmStart
sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName)
sql = sql.Replace("@user", Environment.UserName) sql = sql.Replace("@user", Environment.UserName)
If ClassDatabase.Execute_non_Query(sql, True) = False Then If ClassDatabase.Execute_non_Query(sql, True) = False Then
Me.Close() START_INCOMPLETE = True
Exit Sub
End If End If
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'" sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Global-Indexer'"
ClassDatabase.Execute_non_Query(sql, True) ClassDatabase.Execute_non_Query(sql, True)
@ -312,7 +315,8 @@ Public Class frmStart
'Lizenz abgellaufen, überprüfen ob User Admin ist 'Lizenz abgellaufen, überprüfen ob User Admin ist
If License_Expired And ISUserAdmin = False Then If License_Expired And ISUserAdmin = False Then
' wenn ja dann schliessen ' wenn ja dann schliessen
Me.Close() START_INCOMPLETE = True
Exit Sub
Else Else
'ansonsten timer starten 'ansonsten timer starten
TimerClose3Minutes.Start() TimerClose3Minutes.Start()
@ -323,7 +327,8 @@ Public Class frmStart
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:") 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 für Process-Manager!", False) ClassLogger.Add(" - Die Anzahl der aktuell angemeldeten User (" & UserLoggedin.ToString & ") überschreitet die Anzahl der Lizenzen für Process-Manager!", False)
If ISUserAdmin = False Then If ISUserAdmin = False Then
Me.Close() START_INCOMPLETE = True
Exit Sub
Else Else
'ansonsten timer starten 'ansonsten timer starten
If TimerClose3Minutes.Enabled = False Then If TimerClose3Minutes.Enabled = False Then
@ -336,7 +341,8 @@ Public Class frmStart
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True) ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
If LogErrorsOnly = False Then ClassLogger.Add(" - Anzahl Angemeldete User: " & anzahl.ToString, False) If LogErrorsOnly = False Then ClassLogger.Add(" - Anzahl Angemeldete User: " & anzahl.ToString, False)
If Load_BasicConfig() = False Then If Load_BasicConfig() = False Then
Me.Close() START_INCOMPLETE = True
Exit Sub
End If End If
Unregister_Hotkeys() Unregister_Hotkeys()
Load_Hotkeys() Load_Hotkeys()
@ -443,10 +449,15 @@ Public Class frmStart
' Dim fil As String ' Dim fil As String
Me.TimerFolderWatch.Stop() Me.TimerFolderWatch.Stop()
For Each row As DataRow In DT.Rows For Each row As DataRow In DT.Rows
If ClassFilehandle.IsFileInUse(row.Item(1)) = True Then
CURRENT_WORKFILE = row.Item(1) CURRENT_WORKFILE = row.Item(1)
CURRENT_FILENAME = row.Item(1) CURRENT_FILENAME = row.Item(1)
CURRENT_WORKFILE_GUID = row.Item("GUID") CURRENT_WORKFILE_GUID = row.Item("GUID")
Open_IndexDialog() Open_IndexDialog()
Else
ClassLogger.Add(">> Datei '" & row.Item(1) & "' kann nicht exclusiv geöffnet werden!", False)
End If
Next Next
Me.TimerFolderWatch.Start() Me.TimerFolderWatch.Start()
End If End If
@ -458,15 +469,16 @@ Public Class frmStart
MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Work FolderWatch-File:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End 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_Anzahl < UserLoggedin Then
MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information) MsgBox("Global Indexer wird nun geschlossen, weil keine neue Lizenzdaten eingegeben wurden!", MsgBoxStyle.Information)
Me.Close() Me.Close()
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
Me.Close()
End If
loaded = True loaded = True
Opacity = 0.65 Opacity = 0.65
TimerFolderWatch.Start() TimerFolderWatch.Start()
@ -475,4 +487,8 @@ Public Class frmStart
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
AboutBox1.ShowDialog()
End Sub
End Class End Class

5
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.0.0" Manufacturer="Digital Data" Language="1031" Codepage="1252"> <Product Name="Global Indexer" Id="*" UpgradeCode="{930076B5-9D2B-455F-920F-9718ED091D0C}" Version="1.7.2.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! -->
@ -47,11 +47,10 @@
<Directory Id="TARGETDIR" Name="SourceDir"> <Directory Id="TARGETDIR" Name="SourceDir">
<Directory Id="ProgramFilesFolder" Name="Pfiles"> <Directory Id="ProgramFilesFolder" Name="Pfiles">
<Directory Id="DD" Name="Digital Data"> <Directory Id="DD" Name="Digital Data">
<!-- Speichert den Installationsort in der Registry --> <!-- Speichert den Installationsort in der Registry -->
<Component Id="RegistryEntries" Guid="57CCE36E-F152-4D17-81A0-CCAAEFA777A3"> <Component Id="RegistryEntries" Guid="57CCE36E-F152-4D17-81A0-CCAAEFA777A3">
<RegistryKey Root="HKCU" Key="Software\[Manufacturer]\[ProductName]"> <RegistryKey Root="HKCU" Key="Software\[Manufacturer]\[ProductName]">
<RegistryValue Type="string" Name="Path" Value="[DD]" KeyPath="yes" /> <RegistryValue Type="string" Name="Path" Value="[INSTALLDIR]" KeyPath="yes" />
</RegistryKey> </RegistryKey>
</Component> </Component>