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

MS 24.07

Browse Source
This commit is contained in:
SchreiberM
2015-07-24 10:45:41 +02:00
parent 8097628f66
commit d23e44524b
21 changed files with 5448 additions and 3380 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Global_Indexer/App.config
View File

@@ -21,6 +21,12 @@
<setting name="WDSearch_maximized" serializeAs="String"> <setting name="WDSearch_maximized" serializeAs="String">
<value>True</value> <value>True</value>
</setting> </setting>
<setting name="Show_IndexResult" serializeAs="String">
<value>True</value>
</setting>
<setting name="DoNot_Show_Documents" serializeAs="String">
<value>False</value>
</setting>
</Global_Indexer.My.MySettings> </Global_Indexer.My.MySettings>
</userSettings> </userSettings>
</configuration> </configuration>

96
Global_Indexer/ClassFolderWatcher.vb
View File

@@ -4,6 +4,7 @@ Imports System.Threading
Public Class ClassFolderWatcher Public Class ClassFolderWatcher
Public Shared FolderWatcher As FileSystemWatcher Public Shared FolderWatcher As FileSystemWatcher
Public Shared FolderWatcher_SCAN As FileSystemWatcher
Public Shared Function Restart_FolderWatch() Public Shared Function Restart_FolderWatch()
If FolderWatcher.EnableRaisingEvents = True Then If FolderWatcher.EnableRaisingEvents = True Then
'Gestartet also Stoppen 'Gestartet also Stoppen
@@ -19,6 +20,21 @@ Public Class ClassFolderWatcher
SaveConfigValue("FW_started", "True") SaveConfigValue("FW_started", "True")
End If End If
End Function End Function
Public Shared Function Restart_FolderWatchSCAN()
If FolderWatcher_SCAN.EnableRaisingEvents = True Then
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
'FolderWatch neu instanzieren
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatchScan neu instanziert", False)
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
FWSCAN_started = True
SaveConfigValue("FWSCAN_started", "True")
End If
End Function
Public Shared Function StartStop_FolderWatch() Public Shared Function StartStop_FolderWatch()
Try Try
If CURRENT_FOLDERWATCH = "" Then If CURRENT_FOLDERWATCH = "" Then
@@ -71,39 +87,64 @@ Public Class ClassFolderWatcher
Return 99 Return 99
End Try End Try
End Function End Function
'Private Sub folder_watch_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles vFolderWatch.Created Public Shared Function StartStop_FolderWatchSCAN()
' Try Try
' 'ersten Dateinamen übergeben If CURRENT_SCAN_FOLDERWATCH = "" Then
' If LogErrorsOnly = False Then MsgBox("Bitte definieren Sie einen Überwachungsordner für Scan-Eingänge:", MsgBoxStyle.Exclamation)
' ClassLogger.Add(" >> vFolderWatch1.Created " & e.Name, False) Return False
' End If End If
' CURRENT_FILENAME = e.Name If FolderWatcher_SCAN Is Nothing Then
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
FWSCAN_started = True
SaveConfigValue("FWSCAN_started", "True")
Return 1
End If
If FolderWatcher_SCAN.EnableRaisingEvents = False Then
' Dim watcher As New FileSystemWatcher()
' watcher.Path = CURRENT_FOLDERWATCH
FolderWatcher_SCAN = New System.IO.FileSystemWatcher(CURRENT_SCAN_FOLDERWATCH, "*.*")
ClassLogger.Add(" >> FolderWatch Scan Gestartet", False)
FolderWatcher_SCAN.IncludeSubdirectories = False
FolderWatcher_SCAN.EnableRaisingEvents = True
AddHandler FolderWatcher_SCAN.Created, AddressOf OnCreated
FWSCAN_started = True
SaveConfigValue("FWSCAN_started", "True")
Return 1
Else
'Gestartet also Stoppen
FolderWatcher_SCAN.EnableRaisingEvents = False
FWSCAN_started = False
ClassLogger.Add(" >> FolderWatch Scan gestoppt", False)
SaveConfigValue("FWSCAN_started", "False")
Return 0
End If
' Catch ex As Exception Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei folder_watch_Created") MsgBox("Error in StartStop_FolderWatchSCAN:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
' End Try Return 99
End Try
'End Sub End Function
Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs) Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
Try Try
If e.FullPath.Contains("Thumbs.") Or e.FullPath.EndsWith(".tmp") Or e.FullPath.Contains("\~$") Then If e.FullPath.Contains("Thumbs.") Or e.FullPath.EndsWith(".tmp") Or e.FullPath.Contains("\~$") Then
Exit Sub Exit Sub
End If End If
Dim praefix As String Dim handleType As String
If e.FullPath.EndsWith(".msg") Then If e.FullPath.EndsWith(".msg") Then
praefix = "@FW_OUTLOOK_MESSAGE@" handleType = "@FW_OUTLOOK_MESSAGE@"
Else Else
praefix = "@FW_SIMPLEINDEXER@" handleType = "@FW_SIMPLEINDEXER@"
End If End If
'ersten Dateinamen übergeben 'Die Datei übergeben
CURRENT_FILENAME = e.FullPath
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND USER@WORK = '" & Environment.UserName & "'", True)
If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False) If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & CURRENT_FILENAME, False)
If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then If ClassIndexFunctions.FileExistsinDropTable(CURRENT_FILENAME) = False Then
Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & CURRENT_FILENAME & "','" & Environment.UserName & "','" & praefix & "')" ClassFilehandle.Decide_FileHandle(e.FullPath, handleType)
ClassDatabase.Execute_non_Query(ins, True)
Else Else
Console.WriteLine("File existiert bereeits") Console.WriteLine("File existiert bereits")
End If End If
'frmMain.MyNewTimer() 'frmMain.MyNewTimer()
@@ -145,18 +186,5 @@ Public Class ClassFolderWatcher
End Try End Try
End Sub End Sub
Sub Check_Dropped_Files()
Try
Catch ex As Exception
MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
<STAThread()> _
Public Shared Sub ShowIndexForm()
Dim frm As New frmIndex
frm.ShowDialog()
End Sub
End Class End Class

2
Global_Indexer/ClassWindream.vb
View File

@@ -995,7 +995,7 @@ Public Class ClassWindream
convertValue = value convertValue = value
Case WMObjectVariableValueTypeTimeStamp Case WMObjectVariableValueTypeTimeStamp
If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False) If LogErrorsOnly = False Then ClassLogger.Add(" ...Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp", False)
convertValue = CDbl(value) convertValue = value
Case WMObjectVariableValueTypeCurrency Case WMObjectVariableValueTypeCurrency
If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False) If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des windream-Indexes: WMObjectVariableValueTypeCurrency", False)
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden 'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden

20
Global_Indexer/Global_Indexer.vbproj
View File

@@ -125,6 +125,7 @@
<Compile Include="ClassDatabase.vb" /> <Compile Include="ClassDatabase.vb" />
<Compile Include="ClassDragDrop.vb" /> <Compile Include="ClassDragDrop.vb" />
<Compile Include="ClassEncryption.vb" /> <Compile Include="ClassEncryption.vb" />
<Compile Include="ClassFilehandle.vb" />
<Compile Include="ClassFolderWatcher.vb" /> <Compile Include="ClassFolderWatcher.vb" />
<Compile Include="ClassFormFunctions.vb" /> <Compile Include="ClassFormFunctions.vb" />
<Compile Include="ClassHotkey_Windream.vb" /> <Compile Include="ClassHotkey_Windream.vb" />
@@ -154,6 +155,12 @@
<Compile Include="frmConnections.vb"> <Compile Include="frmConnections.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmHistory.Designer.vb">
<DependentUpon>frmHistory.vb</DependentUpon>
</Compile>
<Compile Include="frmHistory.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmHotKey_Add.Designer.vb"> <Compile Include="frmHotKey_Add.Designer.vb">
<DependentUpon>frmHotKey_Add.vb</DependentUpon> <DependentUpon>frmHotKey_Add.vb</DependentUpon>
</Compile> </Compile>
@@ -172,6 +179,12 @@
<Compile Include="frmIndex.vb"> <Compile Include="frmIndex.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="frmIndexFileList.Designer.vb">
<DependentUpon>frmIndexFileList.vb</DependentUpon>
</Compile>
<Compile Include="frmIndexFileList.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmLicense.designer.vb"> <Compile Include="frmLicense.designer.vb">
<DependentUpon>frmLicense.vb</DependentUpon> <DependentUpon>frmLicense.vb</DependentUpon>
</Compile> </Compile>
@@ -257,6 +270,9 @@
<EmbeddedResource Include="frmConnections.resx"> <EmbeddedResource Include="frmConnections.resx">
<DependentUpon>frmConnections.vb</DependentUpon> <DependentUpon>frmConnections.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmHistory.resx">
<DependentUpon>frmHistory.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmHotKey_Add.resx"> <EmbeddedResource Include="frmHotKey_Add.resx">
<DependentUpon>frmHotKey_Add.vb</DependentUpon> <DependentUpon>frmHotKey_Add.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -267,6 +283,9 @@
<DependentUpon>frmIndex.vb</DependentUpon> <DependentUpon>frmIndex.vb</DependentUpon>
<SubType>Designer</SubType> <SubType>Designer</SubType>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="frmIndexFileList.resx">
<DependentUpon>frmIndexFileList.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmLicense.resx"> <EmbeddedResource Include="frmLicense.resx">
<DependentUpon>frmLicense.vb</DependentUpon> <DependentUpon>frmLicense.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
@@ -497,6 +516,7 @@
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Content Include="globe_handdrawn.ico" /> <Content Include="globe_handdrawn.ico" />
<None Include="Resources\cancel.png" />
<None Include="Resources\refresh_16xLG.png" /> <None Include="Resources\refresh_16xLG.png" />
</ItemGroup> </ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

2
Global_Indexer/ModuleCURRENT.vb
View File

@@ -13,8 +13,10 @@
Public FILE_DELIMITER As String Public FILE_DELIMITER As String
Public CURRENT_MESSAGEID As String Public CURRENT_MESSAGEID As String
Public CURRENT_MESSAGEDATE As String Public CURRENT_MESSAGEDATE As String
Public CURRENT_ISATTACHMENT As Boolean = False
Public CURRENT_USERID As Integer Public CURRENT_USERID As Integer
Public CURRENT_FOLDERWATCH As String = "" Public CURRENT_FOLDERWATCH As String = ""
Public CURRENT_SCAN_FOLDERWATCH As String = ""
Public CURR_DOKART_WD_DIRECT As Boolean = False Public CURR_DOKART_WD_DIRECT As Boolean = False
Public CURR_DOKART_OBJECTTYPE As String Public CURR_DOKART_OBJECTTYPE As String
Public CURRENT_WD_TEMPSEARCH As String = "" Public CURRENT_WD_TEMPSEARCH As String = ""

14
Global_Indexer/ModuleMySettings.vb
View File

@@ -10,6 +10,7 @@ Module ModuleMySettings
Public Preview As Boolean = True Public Preview As Boolean = True
Public UniversalViewer As String Public UniversalViewer As String
Public FW_started As Boolean = False Public FW_started As Boolean = False
Public FWSCAN_started As Boolean = False
Public Delete_OriginFile As Boolean = False Public Delete_OriginFile As Boolean = False
Public Function LoadMyConfig() Public Function LoadMyConfig()
@@ -57,6 +58,8 @@ Module ModuleMySettings
UniversalViewer = Row.Item("Value") UniversalViewer = Row.Item("Value")
Case "FW_started" Case "FW_started"
FW_started = CBool(Row.Item("Value")) FW_started = CBool(Row.Item("Value"))
Case "FWSCAN_started"
FWSCAN_started = CBool(Row.Item("Value"))
Case "Delete_OriginFile" Case "Delete_OriginFile"
Delete_OriginFile = CBool(Row.Item("Value")) Delete_OriginFile = CBool(Row.Item("Value"))
End Select End Select
@@ -78,6 +81,13 @@ Module ModuleMySettings
DT.Rows.Add(newRow) DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath) DT.WriteXml(ConfigPath)
End If End If
If rowresult.Contains("FWSCAN_started") = False Then
Dim newRow As DataRow = DT.NewRow()
newRow("ConfigName") = "FWSCAN_started"
newRow("Value") = "False"
DT.Rows.Add(newRow)
DT.WriteXml(ConfigPath)
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in MySettings-LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False Return False
@@ -134,6 +144,10 @@ Module ModuleMySettings
newRow4("ConfigName") = "FW_started" newRow4("ConfigName") = "FW_started"
newRow4("Value") = "False" newRow4("Value") = "False"
table.Rows.Add(newRow4) table.Rows.Add(newRow4)
Dim newRow5 As DataRow = table.NewRow()
newRow5("ConfigName") = "FWSCAN_started"
newRow5("Value") = "False"
table.Rows.Add(newRow5)
table.AcceptChanges() table.AcceptChanges()
Return table Return table
Catch ex As Exception Catch ex As Exception

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

@@ -180,6 +180,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 cancel() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("cancel", 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,6 +139,9 @@
<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>
@@ -166,9 +169,6 @@
<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,9 +178,6 @@
<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>
@@ -205,12 +202,15 @@
<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="database_save1" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="save_16xLG" 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> <value>..\Resources\save_16xLG.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>
@@ -232,6 +232,9 @@
<data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="folder_link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\folder_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="handdrawn_arrow_left_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\handdrawn_arrow_left_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@@ -241,13 +244,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="Shortcut_8169_16x" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="Save_6530" 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> <value>..\Resources\Save_6530.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="refresh_16xLG" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value> <value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

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

@@ -88,6 +88,30 @@ Namespace My
Me("WDSearch_maximized") = value Me("WDSearch_maximized") = value
End Set End Set
End Property End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("True")> _
Public Property Show_IndexResult() As Boolean
Get
Return CType(Me("Show_IndexResult"),Boolean)
End Get
Set
Me("Show_IndexResult") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property DoNot_Show_Documents() As Boolean
Get
Return CType(Me("DoNot_Show_Documents"),Boolean)
End Get
Set
Me("DoNot_Show_Documents") = value
End Set
End Property
End Class End Class
End Namespace End Namespace

6
Global_Indexer/My Project/Settings.settings
View File

@@ -16,5 +16,11 @@
<Setting Name="WDSearch_maximized" Type="System.Boolean" Scope="User"> <Setting Name="WDSearch_maximized" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value> <Value Profile="(Default)">True</Value>
</Setting> </Setting>
<Setting Name="Show_IndexResult" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">True</Value>
</Setting>
<Setting Name="DoNot_Show_Documents" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
</Settings> </Settings>
</SettingsFile> </SettingsFile>

3240
Global_Indexer/MyDataset.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

18
Global_Indexer/MyDataset.xsc
View File

@@ -283,18 +283,14 @@
<TableUISetting Name="TBHOTKEY_PATTERNS"> <TableUISetting Name="TBHOTKEY_PATTERNS">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN"> <ColumnUISetting Name="ADDED_WHEN">
<ControlSettings> <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<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> </ControlSetting></ControlSettings>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
<ColumnUISetting Name="CHANGED_WHEN"> <ColumnUISetting Name="CHANGED_WHEN">
<ControlSettings> <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<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> </ControlSetting></ControlSettings>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
</ColumnUISettings> </ColumnUISettings>
</TableUISetting> </TableUISetting>
@@ -334,11 +330,9 @@
<TableUISetting Name="TBHOTKEY_WINDOW_HOOK"> <TableUISetting Name="TBHOTKEY_WINDOW_HOOK">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN"> <ColumnUISetting Name="ADDED_WHEN">
<ControlSettings> <ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<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> </ControlSetting></ControlSettings>
</ControlSettings>
</ColumnUISetting> </ColumnUISetting>
</ColumnUISettings> </ColumnUISettings>
</TableUISetting> </TableUISetting>

191
Global_Indexer/MyDataset.xsd
View File

@@ -330,51 +330,52 @@ FROM TBDD_MODULES</CommandText>
<MainSource> <MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBDD_INDEX_MAN" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" 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" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" 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 <CommandText>DELETE FROM TBDD_INDEX_MAN
WHERE (GUID = @Original_GUID)</CommandText> WHERE (GUID = @Original_GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_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="false">
<CommandText>INSERT INTO TBDD_INDEX_MAN <CommandText>INSERT INTO TBDD_INDEX_MAN
(DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL) (DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, OPTIONAL)
VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL); VALUES (@DOK_ID,@NAME,@WD_INDEX,@COMMENT,@DATATYPE,@SUGGESTION,@DEFAULT_VALUE,@CONNECTION_ID,@SEQUENCE,@SQL_RESULT,@SQL_CHECK,@ACTIVE,@ADDED_WHO,@OPTIONAL);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())</CommandText> SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="" 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="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="" 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="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, <CommandText>SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,
CHANGED_WHEN, OPTIONAL CHANGED_WHEN, OPTIONAL
FROM TBDD_INDEX_MAN FROM TBDD_INDEX_MAN
WHERE (DOK_ID = @DOK_ID)</CommandText> WHERE (DOK_ID = @DOK_ID)
ORDER BY SEQUENCE</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBDD_INDEX_MAN <CommandText>UPDATE TBDD_INDEX_MAN
SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE, SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT = @COMMENT, DATATYPE = @DATATYPE, SUGGESTION = @SUGGESTION, DEFAULT_VALUE = @DEFAULT_VALUE,
CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, CONNECTION_ID = @CONNECTION_ID, SEQUENCE = @SEQUENCE, SQL_RESULT = @SQL_RESULT, SQL_CHECK = @SQL_CHECK, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO,
@@ -382,22 +383,22 @@ SET DOK_ID = @DOK_ID, NAME = @NAME, WD_INDEX = @WD_INDEX, COMMENT
WHERE (GUID = @Original_GUID); WHERE (GUID = @Original_GUID);
SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)</CommandText> SELECT GUID, DOK_ID, NAME, WD_INDEX, COMMENT, DATATYPE, SUGGESTION, DEFAULT_VALUE, CONNECTION_ID, SEQUENCE, SQL_RESULT, SQL_CHECK, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OPTIONAL FROM TBDD_INDEX_MAN WHERE (GUID = @GUID)</CommandText>
<Parameters> <Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DOK_ID" ColumnName="DOK_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@DOK_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="DOK_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="WD_INDEX" ColumnName="WD_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@WD_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="WD_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="COMMENT" ColumnName="COMMENT" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@COMMENT" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="COMMENT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="DATATYPE" ColumnName="DATATYPE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DATATYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DATATYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SUGGESTION" ColumnName="SUGGESTION" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SUGGESTION" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SUGGESTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="DEFAULT_VALUE" ColumnName="DEFAULT_VALUE" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@DEFAULT_VALUE" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="DEFAULT_VALUE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="CONNECTION_ID" ColumnName="CONNECTION_ID" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@CONNECTION_ID" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="CONNECTION_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SEQUENCE" ColumnName="SEQUENCE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="" 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="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_RESULT" ColumnName="SQL_RESULT" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_RESULT" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_RESULT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="SQL_CHECK" ColumnName="SQL_CHECK" DataSourceName="" DataTypeServer="varchar(2000)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_CHECK" Precision="0" ProviderType="VarChar" Scale="0" Size="2000" SourceColumn="SQL_CHECK" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" 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="" 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="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="OPTIONAL" ColumnName="OPTIONAL" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@OPTIONAL" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="OPTIONAL" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM.dbo.TBDD_INDEX_MAN" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_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" 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>
</UpdateCommand> </UpdateCommand>
@@ -1620,6 +1621,56 @@ SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_FILES_USERTableAdapter" GeneratorDataComponentClassName="TBGI_FILES_USERTableAdapter" Name="TBGI_FILES_USER" UserDataComponentName="TBGI_FILES_USERTableAdapter">
<MainSource>
<DbSource ConnectionRef="DD_ECMConnectionString (MySettings)" DbObjectName="DD_ECM.dbo.TBGI_FILES_USER" 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">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, FILENAME2WORK, USER@WORK, WORKED, ADDED_WHEN, HANDLE_TYPE, FILENAME_ONLY
FROM TBGI_FILES_USER
WHERE (WORKED = 0) AND (UPPER(USER@WORK) = UPPER(@USERNAME))</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="USERNAME" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@USERNAME" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="FILENAME2WORK" DataSetColumn="FILENAME2WORK" />
<Mapping SourceColumn="USER@WORK" DataSetColumn="USER@WORK" />
<Mapping SourceColumn="WORKED" DataSetColumn="WORKED" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
<Mapping SourceColumn="HANDLE_TYPE" DataSetColumn="HANDLE_TYPE" />
<Mapping SourceColumn="FILENAME_ONLY" DataSetColumn="FILENAME_ONLY" />
</Mappings>
<Sources />
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBGI_HISTORYTableAdapter" GeneratorDataComponentClassName="TBGI_HISTORYTableAdapter" Name="TBGI_HISTORY" UserDataComponentName="TBGI_HISTORYTableAdapter">
<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">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT GUID, FILENAME_ORIGINAL, FILENAME_NEW, ADDED_WHEN
FROM TBGI_HISTORY
WHERE (ADDED_WHO = @User) AND (CONVERT(DATE, ADDED_WHEN) = CONVERT(DATE, GETDATE()))
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>
</MainSource>
<Mappings>
<Mapping SourceColumn="GUID" DataSetColumn="GUID" />
<Mapping SourceColumn="FILENAME_ORIGINAL" DataSetColumn="FILENAME_ORIGINAL" />
<Mapping SourceColumn="FILENAME_NEW" DataSetColumn="FILENAME_NEW" />
<Mapping SourceColumn="ADDED_WHEN" DataSetColumn="ADDED_WHEN" />
</Mappings>
<Sources />
</TableAdapter>
</Tables> </Tables>
<Sources /> <Sources />
</DataSource> </DataSource>
@@ -2859,6 +2910,66 @@ SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBGI_FILES_USER" msprop:Generator_TableClassName="TBGI_FILES_USERDataTable" msprop:Generator_TableVarName="tableTBGI_FILES_USER" msprop:Generator_RowChangedName="TBGI_FILES_USERRowChanged" msprop:Generator_TablePropName="TBGI_FILES_USER" msprop:Generator_RowDeletingName="TBGI_FILES_USERRowDeleting" msprop:Generator_RowChangingName="TBGI_FILES_USERRowChanging" msprop:Generator_RowEvHandlerName="TBGI_FILES_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_FILES_USERRowDeleted" msprop:Generator_RowClassName="TBGI_FILES_USERRow" msprop:Generator_UserTableName="TBGI_FILES_USER" msprop:Generator_RowEvArgName="TBGI_FILES_USERRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FILENAME2WORK" msprop:Generator_ColumnVarNameInTable="columnFILENAME2WORK" msprop:Generator_ColumnPropNameInRow="FILENAME2WORK" msprop:Generator_ColumnPropNameInTable="FILENAME2WORKColumn" msprop:Generator_UserColumnName="FILENAME2WORK">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="USER_x0040_WORK" msprop:Generator_ColumnVarNameInTable="_columnUSER_WORK" msprop:Generator_ColumnPropNameInRow="_USER_WORK" msprop:Generator_ColumnPropNameInTable="_USER_WORKColumn" msprop:Generator_UserColumnName="USER@WORK">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WORKED" msprop:Generator_ColumnVarNameInTable="columnWORKED" msprop:Generator_ColumnPropNameInRow="WORKED" msprop:Generator_ColumnPropNameInTable="WORKEDColumn" msprop:Generator_UserColumnName="WORKED" type="xs:boolean" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="HANDLE_TYPE" msprop:Generator_ColumnVarNameInTable="columnHANDLE_TYPE" msprop:Generator_ColumnPropNameInRow="HANDLE_TYPE" msprop:Generator_ColumnPropNameInTable="HANDLE_TYPEColumn" msprop:Generator_UserColumnName="HANDLE_TYPE" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Delete" msprop:Generator_ColumnVarNameInTable="columnDelete" msprop:Generator_ColumnPropNameInRow="Delete" msprop:Generator_ColumnPropNameInTable="DeleteColumn" msprop:Generator_UserColumnName="Delete" type="xs:boolean" default="false" minOccurs="0" />
<xs:element name="FILENAME_ONLY" msprop:Generator_ColumnVarNameInTable="columnFILENAME_ONLY" msprop:Generator_ColumnPropNameInRow="FILENAME_ONLY" msprop:Generator_ColumnPropNameInTable="FILENAME_ONLYColumn" msprop:Generator_UserColumnName="FILENAME_ONLY">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBGI_HISTORY" msprop:Generator_TableClassName="TBGI_HISTORYDataTable" msprop:Generator_TableVarName="tableTBGI_HISTORY" msprop:Generator_TablePropName="TBGI_HISTORY" msprop:Generator_RowDeletingName="TBGI_HISTORYRowDeleting" msprop:Generator_RowChangingName="TBGI_HISTORYRowChanging" msprop:Generator_RowEvHandlerName="TBGI_HISTORYRowChangeEventHandler" msprop:Generator_RowDeletedName="TBGI_HISTORYRowDeleted" msprop:Generator_UserTableName="TBGI_HISTORY" msprop:Generator_RowChangedName="TBGI_HISTORYRowChanged" msprop:Generator_RowEvArgName="TBGI_HISTORYRowChangeEvent" msprop:Generator_RowClassName="TBGI_HISTORYRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
<xs:element name="FILENAME_ORIGINAL" msprop:Generator_ColumnVarNameInTable="columnFILENAME_ORIGINAL" msprop:Generator_ColumnPropNameInRow="FILENAME_ORIGINAL" msprop:Generator_ColumnPropNameInTable="FILENAME_ORIGINALColumn" msprop:Generator_UserColumnName="FILENAME_ORIGINAL" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="FILENAME_NEW" msprop:Generator_ColumnVarNameInTable="columnFILENAME_NEW" msprop:Generator_ColumnPropNameInRow="FILENAME_NEW" msprop:Generator_ColumnPropNameInTable="FILENAME_NEWColumn" msprop:Generator_UserColumnName="FILENAME_NEW" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="250" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
</xs:sequence>
</xs:complexType>
</xs:element>
</xs:choice> </xs:choice>
</xs:complexType> </xs:complexType>
<xs:unique name="Constraint1" msdata:PrimaryKey="true"> <xs:unique name="Constraint1" msdata:PrimaryKey="true">
@@ -2957,6 +3068,14 @@ SELECT GUID, HKPROFILE_ID, SEQUENCE_NUMBER, CONTROL_VALUE, ADDED_WHO, ADDED_WHEN
<xs:selector xpath=".//mstns:TBHOTKEY_WINDOW_HOOK" /> <xs:selector xpath=".//mstns:TBHOTKEY_WINDOW_HOOK" />
<xs:field xpath="mstns:GUID" /> <xs:field xpath="mstns:GUID" />
</xs:unique> </xs:unique>
<xs:unique name="TBGI_FILES_USER_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBGI_FILES_USER" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
<xs:unique name="TBGI_HISTORY_Constraint1" msdata:ConstraintName="Constraint1" msdata:PrimaryKey="true">
<xs:selector xpath=".//mstns:TBGI_HISTORY" />
<xs:field xpath="mstns:GUID" />
</xs:unique>
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>

100
Global_Indexer/MyDataset.xss
View File

@@ -6,34 +6,36 @@
</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="14" X="765" Y="247" Height="324" Width="213" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <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_DOKUMENTART" ZOrder="39" X="119" Y="308" Height="324" Width="278" 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_EINGANGSARTEN" ZOrder="16" X="431" Y="313" Height="210" Width="286" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="159" /> <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_DOKART_MODULE" ZOrder="37" 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="40" X="1381" Y="161" Height="134" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBDD_MODULES" ZOrder="36" X="1096" Y="325" Height="115" Width="242" 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_INDEX_MAN" ZOrder="28" 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="31" X="464" Y="656" Height="360" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="292" />
<Shape ID="DesignTable:TBDD_CONNECTION" ZOrder="35" X="433" Y="81" Height="305" Width="264" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <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:VWDDINDEX_MAN" ZOrder="33" X="1071" Y="200" Height="381" Width="256" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="313" /> <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_AUTOM" ZOrder="32" X="1361" Y="319" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <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:TBDD_INDEX_AUTOM" ZOrder="15" 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="18" X="668" Y="605" Height="305" Width="272" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBGI_CONFIGURATION" ZOrder="29" X="1071" Y="621" Height="229" Width="279" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" /> <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_OBJECTTYPE_EMAIL_INDEX" ZOrder="17" 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="20" 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="26" 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="29" 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="24" 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="27" 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="22" 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="25" 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="21" 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="24" 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="18" 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="21" 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="1" 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="4" X="255" Y="216" Height="267" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="178" />
<Shape ID="DesignTable:TBHOTKEY_PROFILE" ZOrder="3" X="-12" Y="311" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <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_PATTERNS" ZOrder="2" X="221" Y="-36" Height="320" Width="196" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="252" /> <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:TBMYHOTKEYS" ZOrder="6" X="25" Y="-1" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" /> <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:TBHOTKEY_USER_PROFILE" ZOrder="7" 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="10" 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="5" 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="8" X="415" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="39" />
<Shape ID="DesignTable:TBTempFiles2Index" ZOrder="30" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" /> <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:TBTEMP_INDEXRESULTS" ZOrder="23" X="639" Y="943" Height="67" Width="208" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="63" /> <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:TBTempFiles2Index" ZOrder="33" X="915" Y="82" Height="106" Width="150" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="102" />
<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" />
</Shapes> </Shapes>
<Connectors> <Connectors>
<Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="38" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_DOKUMENTART_EINGID" ZOrder="41" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>431</X> <X>431</X>
@@ -45,7 +47,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="34" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_CID" ZOrder="37" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>543</X> <X>543</X>
@@ -57,7 +59,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="31" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_AUTOM_DOCID" ZOrder="34" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>397</X> <X>397</X>
@@ -69,7 +71,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="27" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID" ZOrder="30" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>605</X> <X>605</X>
@@ -85,7 +87,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="25" LineWidth="11"> <Connector ID="DesignRelation:FKTBDD_INDEX_MAN_POSTPROCESSING_IDXID1" ZOrder="28" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>959</X> <X>959</X>
@@ -97,7 +99,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="20" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_GROUP_ID" ZOrder="23" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>1193</X> <X>1193</X>
@@ -113,7 +115,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="19" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_GROUPS_USER_USER_ID" ZOrder="22" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>871</X> <X>871</X>
@@ -125,7 +127,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="13" LineWidth="11"> <Connector ID="DesignRelation:FK_TBDD_INDEX_MAN_DAID" ZOrder="16" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>94</X> <X>94</X>
@@ -145,7 +147,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="12" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID" ZOrder="15" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>129</X> <X>129</X>
@@ -161,7 +163,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="11" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_PROFILE_ID1" ZOrder="14" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>183</X> <X>183</X>
@@ -173,7 +175,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="10" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID" ZOrder="13" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>88</X> <X>88</X>
@@ -193,7 +195,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="9" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_PROFILE_ID1" ZOrder="12" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>117</X> <X>117</X>
@@ -213,7 +215,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="8" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_USER_PROFILE_USER_ID" ZOrder="11" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>765</X> <X>765</X>
@@ -229,7 +231,7 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="4" LineWidth="11"> <Connector ID="DesignRelation:FK_TBHOTKEY_PATTERNS_REWORK_HKPATTERN_ID" ZOrder="7" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>409</X> <X>409</X>
@@ -249,5 +251,25 @@
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBHOTKEY_WINDOW_HOOK_PROFILE_ID" ZOrder="1" LineWidth="11">
<RoutePoints>
<Point>
<X>38</X>
<Y>0</Y>
</Point>
<Point>
<X>38</X>
<Y>-30</Y>
</Point>
<Point>
<X>38</X>
<Y>-30</Y>
</Point>
<Point>
<X>38</X>
<Y>0</Y>
</Point>
</RoutePoints>
</Connector>
</Connectors> </Connectors>
</DiagramLayout> </DiagramLayout>

179
Global_Indexer/frmConfig_Basic.designer.vb generated
View File

@@ -36,22 +36,28 @@ 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()
Me.lblUniversalViewer = New System.Windows.Forms.Label() Me.lblUniversalViewer = New System.Windows.Forms.Label()
Me.TabPage3 = New System.Windows.Forms.TabPage() Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.Button2 = New System.Windows.Forms.Button()
Me.txtScanFolderWatch = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.btnsetFW_Folder = New System.Windows.Forms.Button() Me.btnsetFW_Folder = New System.Windows.Forms.Button()
Me.btnFW_OwnFiles = New System.Windows.Forms.Button() Me.btnFW_OwnFiles = New System.Windows.Forms.Button()
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.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.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()
@@ -191,20 +197,10 @@ 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.CheckBox2)
Me.TabPage2.Controls.Add(Me.btnApplicationFolder) Me.TabPage2.Controls.Add(Me.btnApplicationFolder)
Me.TabPage2.Controls.Add(Me.btnopenlog) Me.TabPage2.Controls.Add(Me.btnopenlog)
Me.TabPage2.Controls.Add(Me.CheckBox1) Me.TabPage2.Controls.Add(Me.CheckBox1)
@@ -219,34 +215,10 @@ 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, 101)
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, 130)
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
Me.CheckBox1.Location = New System.Drawing.Point(11, 65) Me.CheckBox1.Location = New System.Drawing.Point(11, 96)
Me.CheckBox1.Name = "CheckBox1" Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(99, 17) Me.CheckBox1.Size = New System.Drawing.Size(99, 17)
Me.CheckBox1.TabIndex = 3 Me.CheckBox1.TabIndex = 3
@@ -280,25 +252,55 @@ Partial Class frmConfig_Basic
' '
'TabPage3 'TabPage3
' '
Me.TabPage3.Controls.Add(Me.Button2)
Me.TabPage3.Controls.Add(Me.txtScanFolderWatch)
Me.TabPage3.Controls.Add(Me.Label7)
Me.TabPage3.Controls.Add(Me.btnsetFW_Folder) Me.TabPage3.Controls.Add(Me.btnsetFW_Folder)
Me.TabPage3.Controls.Add(Me.btnFW_OwnFiles) Me.TabPage3.Controls.Add(Me.btnFW_OwnFiles)
Me.TabPage3.Controls.Add(Me.btnFW_Desktop) Me.TabPage3.Controls.Add(Me.btnFW_Desktop)
Me.TabPage3.Controls.Add(Me.txtFolderWatch) Me.TabPage3.Controls.Add(Me.txtFolderWatch)
Me.TabPage3.Controls.Add(Me.Label6) Me.TabPage3.Controls.Add(Me.Label6)
Me.TabPage3.Controls.Add(Me.btnstartstop2)
Me.TabPage3.Controls.Add(Me.btnstartstop1) Me.TabPage3.Controls.Add(Me.btnstartstop1)
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(687, 235) Me.TabPage3.Size = New System.Drawing.Size(687, 235)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Überwachter Ordner/Folderwatch" Me.TabPage3.Text = "Überwachte Ordner - Folderwatch"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
' '
'Button2
'
Me.Button2.Location = New System.Drawing.Point(616, 142)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(49, 22)
Me.Button2.TabIndex = 10
Me.Button2.Text = "..."
Me.Button2.UseVisualStyleBackColor = True
'
'txtScanFolderWatch
'
Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon
Me.txtScanFolderWatch.Location = New System.Drawing.Point(11, 142)
Me.txtScanFolderWatch.Name = "txtScanFolderWatch"
Me.txtScanFolderWatch.Size = New System.Drawing.Size(602, 22)
Me.txtScanFolderWatch.TabIndex = 8
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(8, 126)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(392, 13)
Me.Label7.TabIndex = 7
Me.Label7.Text = "Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll:"
'
'btnsetFW_Folder 'btnsetFW_Folder
' '
Me.btnsetFW_Folder.Location = New System.Drawing.Point(616, 28) Me.btnsetFW_Folder.Location = New System.Drawing.Point(616, 30)
Me.btnsetFW_Folder.Name = "btnsetFW_Folder" Me.btnsetFW_Folder.Name = "btnsetFW_Folder"
Me.btnsetFW_Folder.Size = New System.Drawing.Size(49, 23) Me.btnsetFW_Folder.Size = New System.Drawing.Size(49, 22)
Me.btnsetFW_Folder.TabIndex = 6 Me.btnsetFW_Folder.TabIndex = 6
Me.btnsetFW_Folder.Text = "..." Me.btnsetFW_Folder.Text = "..."
Me.btnsetFW_Folder.UseVisualStyleBackColor = True Me.btnsetFW_Folder.UseVisualStyleBackColor = True
@@ -323,6 +325,7 @@ Partial Class frmConfig_Basic
' '
'txtFolderWatch 'txtFolderWatch
' '
Me.txtFolderWatch.BackColor = System.Drawing.Color.Khaki
Me.txtFolderWatch.Location = New System.Drawing.Point(11, 30) Me.txtFolderWatch.Location = New System.Drawing.Point(11, 30)
Me.txtFolderWatch.Name = "txtFolderWatch" Me.txtFolderWatch.Name = "txtFolderWatch"
Me.txtFolderWatch.Size = New System.Drawing.Size(602, 22) Me.txtFolderWatch.Size = New System.Drawing.Size(602, 22)
@@ -337,6 +340,84 @@ 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:"
' '
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'CheckBox3
'
Me.CheckBox3.AutoSize = True
Me.CheckBox3.Checked = Global.Global_Indexer.My.MySettings.Default.DoNot_Show_Documents
Me.CheckBox3.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "DoNot_Show_Documents", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBox3.Location = New System.Drawing.Point(11, 56)
Me.CheckBox3.Name = "CheckBox3"
Me.CheckBox3.Size = New System.Drawing.Size(249, 17)
Me.CheckBox3.TabIndex = 7
Me.CheckBox3.Text = "Dokumente bei Indexierung nicht anzeigen"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'CheckBox2
'
Me.CheckBox2.AutoSize = True
Me.CheckBox2.Checked = Global.Global_Indexer.My.MySettings.Default.Show_IndexResult
Me.CheckBox2.CheckState = System.Windows.Forms.CheckState.Checked
Me.CheckBox2.DataBindings.Add(New System.Windows.Forms.Binding("Checked", Global.Global_Indexer.My.MySettings.Default, "Show_IndexResult", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
Me.CheckBox2.Location = New System.Drawing.Point(241, 96)
Me.CheckBox2.Name = "CheckBox2"
Me.CheckBox2.Size = New System.Drawing.Size(231, 17)
Me.CheckBox2.TabIndex = 6
Me.CheckBox2.Text = "Meldungsfenster nach Erfolg anzeigen?"
Me.CheckBox2.UseVisualStyleBackColor = True
'
'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 'btnstartstop1
' '
Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go Me.btnstartstop1.Image = Global.Global_Indexer.My.Resources.Resources.bell_go
@@ -350,10 +431,6 @@ Partial Class frmConfig_Basic
Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnstartstop1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnstartstop1.UseVisualStyleBackColor = True Me.btnstartstop1.UseVisualStyleBackColor = True
' '
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'frmConfig_Basic 'frmConfig_Basic
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -406,4 +483,10 @@ Partial Class frmConfig_Basic
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
Friend WithEvents btnopenlog As System.Windows.Forms.Button Friend WithEvents btnopenlog As System.Windows.Forms.Button
Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button Friend WithEvents btnApplicationFolder As System.Windows.Forms.Button
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents txtScanFolderWatch As System.Windows.Forms.TextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents btnstartstop2 As System.Windows.Forms.Button
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
End Class End Class

77
Global_Indexer/frmConfig_Basic.vb
View File

@@ -120,11 +120,18 @@ Public Class frmConfig_Basic
Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex Select Case TabControl1.SelectedIndex
Case 2 Case 2
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 FOLDER_TYPE = 'DEFAULT' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
If Not folderwatch Is Nothing Then If Not folderwatch Is Nothing Then
CURRENT_FOLDERWATCH = folderwatch CURRENT_FOLDERWATCH = folderwatch
End If End If
Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
Dim SCAN_folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & CURRENT_USERID, MyConnectionString)
If Not SCAN_folderwatch Is Nothing Then
CURRENT_SCAN_FOLDERWATCH = SCAN_folderwatch
End If
Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
If Not ClassFolderWatcher.FolderWatcher Is Nothing Then If Not ClassFolderWatcher.FolderWatcher Is Nothing Then
If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then If ClassFolderWatcher.FolderWatcher.EnableRaisingEvents = True Then
btnstartstop1.Text = "Überwachung stoppen" btnstartstop1.Text = "Überwachung stoppen"
@@ -138,31 +145,52 @@ Public Class frmConfig_Basic
btnstartstop1.Image = My.Resources.bell_go btnstartstop1.Image = My.Resources.bell_go
End If End If
If Not ClassFolderWatcher.FolderWatcher_SCAN Is Nothing Then
If ClassFolderWatcher.FolderWatcher_SCAN.EnableRaisingEvents = True Then
btnstartstop2.Text = "Überwachung stoppen"
btnstartstop2.Image = My.Resources.bell_delete
Else
btnstartstop2.Text = "Überwachung starten"
btnstartstop2.Image = My.Resources.bell_go
End If
Else
btnstartstop2.Text = "Überwachung starten"
btnstartstop2.Image = My.Resources.bell_go
End If
End Select End Select
End Sub End Sub
Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "SimpleIndexer") CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "SimpleIndexer")
CheckFolder(CURRENT_FOLDERWATCH) CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub End Sub
Sub CheckFolder(mypath As String) Sub CheckFolder(mypath As String, FOLDER_TYPE As String)
Try Try
If (Not System.IO.Directory.Exists(mypath)) Then If (Not System.IO.Directory.Exists(mypath)) Then
System.IO.Directory.CreateDirectory(mypath) System.IO.Directory.CreateDirectory(mypath)
End If End If
Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) Dim folderwatch = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
Dim sql As String Dim sql As String
If folderwatch Is Nothing Then If folderwatch Is Nothing Then
sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, ADDED_WHO) VALUES (" & CURRENT_USERID & ",'" & mypath & "','" & Environment.UserName & "')" sql = "INSERT INTO TBGI_FOLDERWATCH_USER (USER_ID, FOLDER_PATH, FOLDER_TYPE, ADDED_WHO) VALUES (" & CURRENT_USERID & ",'" & mypath & "','" & FOLDER_TYPE & "','" & Environment.UserName & "')"
Else Else
sql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch sql = "UPDATE TBGI_FOLDERWATCH_USER SET FOLDER_PATH = '" & mypath & "', CHANGED_WHO = '" & Environment.UserName & "' where GUID = " & folderwatch
End If End If
If ClassDatabase.Execute_non_Query(sql) Then If ClassDatabase.Execute_non_Query(sql) Then
folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID, MyConnectionString) folderwatch = ClassDatabase.Execute_Scalar("SELECT FOLDER_PATH FROM TBGI_FOLDERWATCH_USER WHERE USER_ID = " & CURRENT_USERID & " AND FOLDER_TYPE = '" & FOLDER_TYPE & "'", MyConnectionString)
If FOLDER_TYPE = "SCAN" Then
CURRENT_SCAN_FOLDERWATCH = folderwatch
Me.txtScanFolderWatch.Text = CURRENT_SCAN_FOLDERWATCH
Else
CURRENT_FOLDERWATCH = folderwatch CURRENT_FOLDERWATCH = folderwatch
Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH Me.txtFolderWatch.Text = CURRENT_FOLDERWATCH
End If End If
If FW_started = True Then
End If
If FW_started = True And FOLDER_TYPE = "DEFAULT" Then
ClassFolderWatcher.Restart_FolderWatch() ClassFolderWatcher.Restart_FolderWatch()
End If End If
Catch ex As Exception Catch ex As Exception
@@ -173,7 +201,7 @@ Public Class frmConfig_Basic
Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click
CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "SimpleIndexer") CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "SimpleIndexer")
CheckFolder(CURRENT_FOLDERWATCH) CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT")
End Sub End Sub
<STAThread()> _ <STAThread()> _
@@ -193,11 +221,21 @@ Public Class frmConfig_Basic
btnstartstop1.Image = My.Resources.bell_go btnstartstop1.Image = My.Resources.bell_go
End Select End Select
End Sub End Sub
Sub CheckFWSCAN_State()
Select Case ClassFolderWatcher.StartStop_FolderWatchSCAN()
Case 1
btnstartstop2.Text = "Überwachung stoppen"
btnstartstop2.Image = My.Resources.bell_delete
Case 0
btnstartstop2.Text = "Überwachung starten"
btnstartstop2.Image = My.Resources.bell_go
End Select
End Sub
Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click Private Sub btnsetFW_Folder_Click(sender As Object, e As EventArgs) Handles btnsetFW_Folder.Click
Dim fbdialog As New FolderBrowserDialog Dim fbdialog As New FolderBrowserDialog
If fbdialog.ShowDialog() = DialogResult.OK Then If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath) CheckFolder(fbdialog.SelectedPath, "DEFAULT")
End If End If
End Sub End Sub
@@ -218,4 +256,25 @@ Public Class frmConfig_Basic
Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click Private Sub btnApplicationFolder_Click(sender As Object, e As EventArgs) Handles btnApplicationFolder.Click
Process.Start(Application.UserAppDataPath()) Process.Start(Application.UserAppDataPath())
End Sub End Sub
Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.CheckedChanged
My.Settings.Save()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim fbdialog As New FolderBrowserDialog
If fbdialog.ShowDialog() = DialogResult.OK Then
CheckFolder(fbdialog.SelectedPath, "SCAN")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnstartstop2.Click
If CURRENT_FOLDERWATCH <> "" Then
CheckFWSCAN_State()
End If
End Sub
Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.CheckedChanged
My.Settings.Save()
End Sub
End Class End Class

179
Global_Indexer/frmHistory.resx Normal file
View File

@@ -0,0 +1,179 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="TBGI_HISTORYBindingNavigator.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>713, 17</value>
</metadata>
<metadata name="TBGI_HISTORYBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>127, 17</value>
</metadata>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="BindingNavigatorMoveFirstItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77
wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0
v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg
UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA
Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu
lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMovePreviousItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w
5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f
Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+
08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC
</value>
</data>
<data name="BindingNavigatorMoveNextItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78
n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI
N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f
oAc0QjgAAAAASUVORK5CYII=
</value>
</data>
<data name="BindingNavigatorMoveLastItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+//
h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B
twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA
kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG
WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9
8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="MyDataset.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="TBGI_HISTORYTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>336, 17</value>
</metadata>
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>540, 17</value>
</metadata>
</root>

125
Global_Indexer/frmIndex.designer.vb generated
View File

@@ -26,6 +26,7 @@ Partial Class frmIndex
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.cmbDokumentart = New System.Windows.Forms.ComboBox() Me.cmbDokumentart = New System.Windows.Forms.ComboBox()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button1 = New System.Windows.Forms.Button()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.lblerror = New System.Windows.Forms.Label() Me.lblerror = New System.Windows.Forms.Label()
@@ -46,11 +47,12 @@ Partial Class frmIndex
Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter() Me.VWINDEX_AUTOMTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWDDINDEX_AUTOMTableAdapter()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.pnlIndex = New System.Windows.Forms.Panel() Me.pnlIndex = New System.Windows.Forms.Panel()
Me.pnlWebbrowser = New System.Windows.Forms.Panel() Me.grpbxMailBody = New System.Windows.Forms.GroupBox()
Me.WebBrowser = New System.Windows.Forms.WebBrowser() Me.WebBrowser = New System.Windows.Forms.WebBrowser()
Me.Label3 = New System.Windows.Forms.Label()
Me.StatusStrip3 = New System.Windows.Forms.StatusStrip() Me.StatusStrip3 = New System.Windows.Forms.StatusStrip()
Me.tslblWebbrowser = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblWebbrowser = New System.Windows.Forms.ToolStripStatusLabel()
Me.grpBetreff = New System.Windows.Forms.GroupBox()
Me.txtBetreff = New System.Windows.Forms.TextBox()
Me.pnlPDF = New System.Windows.Forms.Panel() Me.pnlPDF = New System.Windows.Forms.Panel()
Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer() Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer()
Me.StatusStrip2 = New System.Windows.Forms.StatusStrip() Me.StatusStrip2 = New System.Windows.Forms.StatusStrip()
@@ -97,8 +99,9 @@ Partial Class frmIndex
Me.SplitContainer1.Panel1.SuspendLayout() Me.SplitContainer1.Panel1.SuspendLayout()
Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.Panel2.SuspendLayout()
Me.SplitContainer1.SuspendLayout() Me.SplitContainer1.SuspendLayout()
Me.pnlWebbrowser.SuspendLayout() Me.grpbxMailBody.SuspendLayout()
Me.StatusStrip3.SuspendLayout() Me.StatusStrip3.SuspendLayout()
Me.grpBetreff.SuspendLayout()
Me.pnlPDF.SuspendLayout() Me.pnlPDF.SuspendLayout()
Me.StatusStrip2.SuspendLayout() Me.StatusStrip2.SuspendLayout()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -123,13 +126,14 @@ Partial Class frmIndex
Me.cmbDokumentart.FormattingEnabled = True Me.cmbDokumentart.FormattingEnabled = True
Me.cmbDokumentart.Location = New System.Drawing.Point(5, 44) Me.cmbDokumentart.Location = New System.Drawing.Point(5, 44)
Me.cmbDokumentart.Name = "cmbDokumentart" Me.cmbDokumentart.Name = "cmbDokumentart"
Me.cmbDokumentart.Size = New System.Drawing.Size(387, 25) Me.cmbDokumentart.Size = New System.Drawing.Size(376, 25)
Me.cmbDokumentart.TabIndex = 2 Me.cmbDokumentart.TabIndex = 2
Me.cmbDokumentart.ValueMember = "DOKART_ID" Me.cmbDokumentart.ValueMember = "DOKART_ID"
' '
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight Me.Panel1.BackColor = System.Drawing.SystemColors.ButtonHighlight
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Controls.Add(Me.ToolStrip1) Me.Panel1.Controls.Add(Me.ToolStrip1)
Me.Panel1.Controls.Add(Me.lblerror) Me.Panel1.Controls.Add(Me.lblerror)
Me.Panel1.Controls.Add(Me.cmbDokumentart) Me.Panel1.Controls.Add(Me.cmbDokumentart)
@@ -141,6 +145,20 @@ Partial Class frmIndex
Me.Panel1.Size = New System.Drawing.Size(526, 110) Me.Panel1.Size = New System.Drawing.Size(526, 110)
Me.Panel1.TabIndex = 4 Me.Panel1.TabIndex = 4
' '
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Image = Global.Global_Indexer.My.Resources.Resources.cancel
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(387, 41)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(133, 30)
Me.Button1.TabIndex = 11
Me.Button1.Text = "Abbruch"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
'
'ToolStrip1 'ToolStrip1
' '
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1})
@@ -204,10 +222,10 @@ Partial Class frmIndex
Me.Panel2.Controls.Add(Me.txtIndexfilepath) Me.Panel2.Controls.Add(Me.txtIndexfilepath)
Me.Panel2.Controls.Add(Me.OK_Button) Me.Panel2.Controls.Add(Me.OK_Button)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel2.Location = New System.Drawing.Point(0, 397) 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)
Me.Panel2.Name = "Panel2" Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(526, 113) Me.Panel2.Size = New System.Drawing.Size(526, 137)
Me.Panel2.TabIndex = 7 Me.Panel2.TabIndex = 7
' '
'chkMultiIndexer 'chkMultiIndexer
@@ -216,7 +234,7 @@ Partial Class frmIndex
Me.chkMultiIndexer.BackColor = System.Drawing.Color.Yellow Me.chkMultiIndexer.BackColor = System.Drawing.Color.Yellow
Me.chkMultiIndexer.Font = New System.Drawing.Font("Verdana", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.chkMultiIndexer.Font = New System.Drawing.Font("Verdana", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkMultiIndexer.ForeColor = System.Drawing.Color.Maroon Me.chkMultiIndexer.ForeColor = System.Drawing.Color.Maroon
Me.chkMultiIndexer.Location = New System.Drawing.Point(5, 43) Me.chkMultiIndexer.Location = New System.Drawing.Point(3, 39)
Me.chkMultiIndexer.Name = "chkMultiIndexer" Me.chkMultiIndexer.Name = "chkMultiIndexer"
Me.chkMultiIndexer.Size = New System.Drawing.Size(520, 20) Me.chkMultiIndexer.Size = New System.Drawing.Size(520, 20)
Me.chkMultiIndexer.TabIndex = 10 Me.chkMultiIndexer.TabIndex = 10
@@ -227,19 +245,19 @@ Partial Class frmIndex
' '
Me.chkdelete_origin.AutoSize = True Me.chkdelete_origin.AutoSize = True
Me.chkdelete_origin.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.chkdelete_origin.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkdelete_origin.Location = New System.Drawing.Point(5, 14) Me.chkdelete_origin.Location = New System.Drawing.Point(3, 13)
Me.chkdelete_origin.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) Me.chkdelete_origin.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.chkdelete_origin.Name = "chkdelete_origin" Me.chkdelete_origin.Name = "chkdelete_origin"
Me.chkdelete_origin.Size = New System.Drawing.Size(169, 20) Me.chkdelete_origin.Size = New System.Drawing.Size(176, 20)
Me.chkdelete_origin.TabIndex = 3 Me.chkdelete_origin.TabIndex = 3
Me.chkdelete_origin.Text = "Lösche ""Dropped File""" Me.chkdelete_origin.Text = "Lösche Ursprungsdatei"
Me.chkdelete_origin.UseVisualStyleBackColor = True Me.chkdelete_origin.UseVisualStyleBackColor = True
' '
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(2, 66) Me.Label2.Location = New System.Drawing.Point(2, 84)
Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(92, 13) Me.Label2.Size = New System.Drawing.Size(92, 13)
@@ -250,21 +268,22 @@ Partial Class frmIndex
' '
Me.txtIndexfilepath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ Me.txtIndexfilepath.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtIndexfilepath.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtIndexfilepath.Font = New System.Drawing.Font("Verdana", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtIndexfilepath.Location = New System.Drawing.Point(5, 82) Me.txtIndexfilepath.Location = New System.Drawing.Point(2, 100)
Me.txtIndexfilepath.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3) Me.txtIndexfilepath.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.txtIndexfilepath.Multiline = True Me.txtIndexfilepath.Multiline = True
Me.txtIndexfilepath.Name = "txtIndexfilepath" Me.txtIndexfilepath.Name = "txtIndexfilepath"
Me.txtIndexfilepath.ReadOnly = True Me.txtIndexfilepath.ReadOnly = True
Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 28) Me.txtIndexfilepath.Size = New System.Drawing.Size(519, 34)
Me.txtIndexfilepath.TabIndex = 1 Me.txtIndexfilepath.TabIndex = 1
' '
'OK_Button 'OK_Button
' '
Me.OK_Button.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.OK_Button.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.OK_Button.Image = Global.Global_Indexer.My.Resources.Resources.Go Me.OK_Button.Image = Global.Global_Indexer.My.Resources.Resources.Go
Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.OK_Button.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.OK_Button.Location = New System.Drawing.Point(383, 7) Me.OK_Button.Location = New System.Drawing.Point(387, 6)
Me.OK_Button.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.OK_Button.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.OK_Button.Name = "OK_Button" Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(134, 30) Me.OK_Button.Size = New System.Drawing.Size(134, 30)
@@ -331,7 +350,8 @@ Partial Class frmIndex
' '
'SplitContainer1.Panel2 'SplitContainer1.Panel2
' '
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlWebbrowser) Me.SplitContainer1.Panel2.Controls.Add(Me.grpbxMailBody)
Me.SplitContainer1.Panel2.Controls.Add(Me.grpBetreff)
Me.SplitContainer1.Panel2.Controls.Add(Me.pnlPDF) Me.SplitContainer1.Panel2.Controls.Add(Me.pnlPDF)
Me.SplitContainer1.Size = New System.Drawing.Size(813, 510) Me.SplitContainer1.Size = New System.Drawing.Size(813, 510)
Me.SplitContainer1.SplitterDistance = 526 Me.SplitContainer1.SplitterDistance = 526
@@ -343,45 +363,37 @@ Partial Class frmIndex
Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill Me.pnlIndex.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlIndex.Location = New System.Drawing.Point(0, 110) Me.pnlIndex.Location = New System.Drawing.Point(0, 110)
Me.pnlIndex.Name = "pnlIndex" Me.pnlIndex.Name = "pnlIndex"
Me.pnlIndex.Size = New System.Drawing.Size(526, 287) Me.pnlIndex.Size = New System.Drawing.Size(526, 263)
Me.pnlIndex.TabIndex = 8 Me.pnlIndex.TabIndex = 8
Me.pnlIndex.Visible = False Me.pnlIndex.Visible = False
' '
'pnlWebbrowser 'grpbxMailBody
' '
Me.pnlWebbrowser.Controls.Add(Me.WebBrowser) Me.grpbxMailBody.Controls.Add(Me.WebBrowser)
Me.pnlWebbrowser.Controls.Add(Me.Label3) Me.grpbxMailBody.Controls.Add(Me.StatusStrip3)
Me.pnlWebbrowser.Controls.Add(Me.StatusStrip3) Me.grpbxMailBody.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.pnlWebbrowser.Location = New System.Drawing.Point(17, 216) Me.grpbxMailBody.Location = New System.Drawing.Point(58, 352)
Me.pnlWebbrowser.Name = "pnlWebbrowser" Me.grpbxMailBody.Name = "grpbxMailBody"
Me.pnlWebbrowser.Size = New System.Drawing.Size(200, 100) Me.grpbxMailBody.Size = New System.Drawing.Size(200, 100)
Me.pnlWebbrowser.TabIndex = 2 Me.grpbxMailBody.TabIndex = 5
Me.grpbxMailBody.TabStop = False
Me.grpbxMailBody.Text = "Mail-Body:"
' '
'WebBrowser 'WebBrowser
' '
Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill Me.WebBrowser.Dock = System.Windows.Forms.DockStyle.Fill
Me.WebBrowser.Location = New System.Drawing.Point(0, 17) Me.WebBrowser.Location = New System.Drawing.Point(3, 21)
Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20) Me.WebBrowser.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser.Name = "WebBrowser" Me.WebBrowser.Name = "WebBrowser"
Me.WebBrowser.Size = New System.Drawing.Size(200, 61) Me.WebBrowser.Size = New System.Drawing.Size(194, 54)
Me.WebBrowser.TabIndex = 2 Me.WebBrowser.TabIndex = 2
' '
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Dock = System.Windows.Forms.DockStyle.Top
Me.Label3.Location = New System.Drawing.Point(0, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(115, 17)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Ansicht Mail-Body:"
'
'StatusStrip3 'StatusStrip3
' '
Me.StatusStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWebbrowser}) Me.StatusStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblWebbrowser})
Me.StatusStrip3.Location = New System.Drawing.Point(0, 78) Me.StatusStrip3.Location = New System.Drawing.Point(3, 75)
Me.StatusStrip3.Name = "StatusStrip3" Me.StatusStrip3.Name = "StatusStrip3"
Me.StatusStrip3.Size = New System.Drawing.Size(200, 22) Me.StatusStrip3.Size = New System.Drawing.Size(194, 22)
Me.StatusStrip3.TabIndex = 0 Me.StatusStrip3.TabIndex = 0
Me.StatusStrip3.Text = "StatusStrip3" Me.StatusStrip3.Text = "StatusStrip3"
' '
@@ -391,6 +403,28 @@ Partial Class frmIndex
Me.tslblWebbrowser.Size = New System.Drawing.Size(121, 17) Me.tslblWebbrowser.Size = New System.Drawing.Size(121, 17)
Me.tslblWebbrowser.Text = "ToolStripStatusLabel1" Me.tslblWebbrowser.Text = "ToolStripStatusLabel1"
' '
'grpBetreff
'
Me.grpBetreff.Controls.Add(Me.txtBetreff)
Me.grpBetreff.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, CType((System.Drawing.FontStyle.Bold Or System.Drawing.FontStyle.Italic), System.Drawing.FontStyle), System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.grpBetreff.Location = New System.Drawing.Point(20, 64)
Me.grpBetreff.Name = "grpBetreff"
Me.grpBetreff.Size = New System.Drawing.Size(200, 58)
Me.grpBetreff.TabIndex = 4
Me.grpBetreff.TabStop = False
Me.grpBetreff.Text = "Betreff"
'
'txtBetreff
'
Me.txtBetreff.BackColor = System.Drawing.SystemColors.Info
Me.txtBetreff.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtBetreff.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBetreff.Location = New System.Drawing.Point(3, 21)
Me.txtBetreff.Name = "txtBetreff"
Me.txtBetreff.ReadOnly = True
Me.txtBetreff.Size = New System.Drawing.Size(194, 25)
Me.txtBetreff.TabIndex = 0
'
'pnlPDF 'pnlPDF
' '
Me.pnlPDF.Controls.Add(Me.PdfViewer1) Me.pnlPDF.Controls.Add(Me.PdfViewer1)
@@ -624,6 +658,7 @@ Partial Class frmIndex
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(813, 532) Me.ClientSize = New System.Drawing.Size(813, 532)
Me.ControlBox = False
Me.Controls.Add(Me.SplitContainer1) Me.Controls.Add(Me.SplitContainer1)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -648,10 +683,12 @@ Partial Class frmIndex
Me.SplitContainer1.Panel2.ResumeLayout(False) Me.SplitContainer1.Panel2.ResumeLayout(False)
CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainer1.ResumeLayout(False) Me.SplitContainer1.ResumeLayout(False)
Me.pnlWebbrowser.ResumeLayout(False) Me.grpbxMailBody.ResumeLayout(False)
Me.pnlWebbrowser.PerformLayout() Me.grpbxMailBody.PerformLayout()
Me.StatusStrip3.ResumeLayout(False) Me.StatusStrip3.ResumeLayout(False)
Me.StatusStrip3.PerformLayout() Me.StatusStrip3.PerformLayout()
Me.grpBetreff.ResumeLayout(False)
Me.grpBetreff.PerformLayout()
Me.pnlPDF.ResumeLayout(False) Me.pnlPDF.ResumeLayout(False)
Me.pnlPDF.PerformLayout() Me.pnlPDF.PerformLayout()
Me.StatusStrip2.ResumeLayout(False) Me.StatusStrip2.ResumeLayout(False)
@@ -728,14 +765,16 @@ End Sub
Friend WithEvents PdfNavigationRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup Friend WithEvents PdfNavigationRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfNavigationRibbonPageGroup
Friend WithEvents PdfZoomRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup Friend WithEvents PdfZoomRibbonPageGroup1 As DevExpress.XtraPdfViewer.Bars.PdfZoomRibbonPageGroup
Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController Friend WithEvents PdfBarController2 As DevExpress.XtraPdfViewer.Bars.PdfBarController
Friend WithEvents pnlWebbrowser As System.Windows.Forms.Panel
Friend WithEvents StatusStrip3 As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip3 As System.Windows.Forms.StatusStrip
Friend WithEvents tslblWebbrowser As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tslblWebbrowser As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents WebBrowser As System.Windows.Forms.WebBrowser Friend WithEvents WebBrowser As System.Windows.Forms.WebBrowser
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox Friend WithEvents chkMultiIndexer As System.Windows.Forms.CheckBox
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents grpBetreff As System.Windows.Forms.GroupBox
Friend WithEvents txtBetreff As System.Windows.Forms.TextBox
Friend WithEvents grpbxMailBody As System.Windows.Forms.GroupBox
Friend WithEvents Button1 As System.Windows.Forms.Button

139
Global_Indexer/frmIndex.vb
View File

@@ -1005,7 +1005,7 @@ Public Class frmIndex
End If End If
Next Next
End If End If
If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Then
indexierung_erfolgreich = SetEmailIndices() indexierung_erfolgreich = SetEmailIndices()
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
@@ -1056,6 +1056,9 @@ Public Class frmIndex
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
'Message-ID nur auswerten wenn vorher nicht gestzt wurde!
If CURRENT_MESSAGEID = "" Then
If Not msg.InternetMessageId Is Nothing Then
indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, msg.InternetMessageId) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, msg.InternetMessageId)
'Die aktuelle Message-ID zwischenspeichern 'Die aktuelle Message-ID zwischenspeichern
CURRENT_MESSAGEID = msg.InternetMessageId CURRENT_MESSAGEID = msg.InternetMessageId
@@ -1063,6 +1066,16 @@ Public Class frmIndex
MsgBox("Error in SetEmailIndices-EmailID - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices-EmailID - See log", MsgBoxStyle.Critical)
Return False Return False
End If End If
Else
ClassLogger.Add("Eine Message-ID konnte nicht ausgelesen werden!", True)
End If
Else
indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, CURRENT_MESSAGEID)
If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices-EmailID - See log", MsgBoxStyle.Critical)
Return False
End If
End If
' Regular Expressions vorbereiten ' Regular Expressions vorbereiten
Dim fromPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FROM_EMAIL_HEADER'", MyConnectionString) Dim fromPattern As String = ClassDatabase.Execute_Scalar("SELECT REGEX FROM TBGI_FUNCTION_REGEX WHERE FUNCTION_NAME = 'FROM_EMAIL_HEADER'", MyConnectionString)
@@ -1079,10 +1092,18 @@ Public Class frmIndex
' Email Header auslesen ' Email Header auslesen
Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg) Dim headers As String = ClassEmailHeaderExtractor.getMessageHeaders(msg)
Dim emailFrom As String
Dim emailTo As String
' Email Absender und Empfänger ' Email Absender und Empfänger
Dim emailFrom As String = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList) If headers Is Nothing Then
Dim emailTo As String = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList) emailFrom = msg.DisplayTo.Replace("'", "")
emailTo = msg.InternetAccountName.Replace("'", "")
Else
emailFrom = ClassEmailHeaderExtractor.extractFromAddress(headers, FromRegexList)
emailTo = ClassEmailHeaderExtractor.extractToAddress(headers, ToRegexList)
End If
If LogErrorsOnly = False Then ClassLogger.Add(" ...emailFrom: " & emailFrom, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...emailFrom: " & emailFrom, False)
If LogErrorsOnly = False Then ClassLogger.Add(" ...emailTo: " & emailTo, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...emailTo: " & emailTo, False)
'FROM 'FROM
@@ -1102,9 +1123,9 @@ Public Class frmIndex
End If End If
End If End If
Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject) ' Dim subj As String = ClassFormFunctions.CleanInput(msg.Subject)
If LogErrorsOnly = False Then ClassLogger.Add(" ...subj: " & subj, False) If LogErrorsOnly = False Then ClassLogger.Add(" ...subj: " & msg.Subject, False)
indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, subj) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_SUBJECT").ToString, msg.Subject)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical) MsgBox("Error in SetEmailIndices-Subject - See log", MsgBoxStyle.Critical)
Return False Return False
@@ -1135,6 +1156,7 @@ Public Class frmIndex
Try Try
Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'") Dim DT As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBGI_OBJECTTYPE_EMAIL_INDEX WHERE OBJECTTYPE = '" & ClassWindream._WDObjekttyp & "'")
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
If Not CURRENT_MESSAGEID Is Nothing Then
If CURRENT_MESSAGEID <> "" Then If CURRENT_MESSAGEID <> "" Then
indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, CURRENT_MESSAGEID) indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_ID").ToString, CURRENT_MESSAGEID)
If indexierung_erfolgreich = False Then If indexierung_erfolgreich = False Then
@@ -1142,6 +1164,7 @@ Public Class frmIndex
Return False Return False
End If End If
End If End If
End If
'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, msg.SenderEmailAddress) 'indexierung_erfolgreich = WriteIndex2File(DT.Rows(0).Item("IDX_EMAIL_FROM").ToString, msg.SenderEmailAddress)
'If indexierung_erfolgreich = False Then 'If indexierung_erfolgreich = False Then
' MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical) ' MsgBox("Error in SetAttachmentIndices - See log", MsgBoxStyle.Critical)
@@ -1211,7 +1234,26 @@ Public Class frmIndex
Dim Insert_String As String Dim Insert_String As String
Try Try
Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO,ADDED_WHERE) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "','" & Environment.MachineName & "')" Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO,ADDED_WHERE) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "','" & Environment.MachineName & "')"
ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString) If ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString) = True Then
If CURRENT_MESSAGEID <> "" Then
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"
Dim GUID = ClassDatabase.Execute_Scalar(max, MyConnectionString, True)
Try
If GUID > 0 Then
Dim sql As String
If CURRENT_ISATTACHMENT = True Then
sql = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
Else
sql = "Update TBGI_HISTORY SET ATTACHMENT = 0, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
End If
End If
Catch ex As Exception
End Try
End If
End If
Return False Return False
Catch ex As Exception Catch ex As Exception
ClassLogger.Add(" - Fehler bei Move_Rename - Fehler: " & vbNewLine & ex.Message) ClassLogger.Add(" - Fehler bei Move_Rename - Fehler: " & vbNewLine & ex.Message)
@@ -1262,31 +1304,27 @@ Public Class frmIndex
End Sub End Sub
Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try Try
CURRENT_ISATTACHMENT = False
DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True) DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True)
chkdelete_origin.Visible = False chkdelete_origin.Visible = False
If DropType = "@DROPFROMFSYSTEM@" Then If DropType = "@DROPFROMFSYSTEM@" Then
chkdelete_origin.Visible = True chkdelete_origin.Visible = True
chkdelete_origin.Checked = Delete_OriginFile chkdelete_origin.Checked = Delete_OriginFile
Me.Text = "Indexierung der gedroppten Datei:" Me.Text = "Indexierung der gedroppten Datei:"
ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Then
Select Case DropType Select Case DropType
Case "@FW_OUTLOOK_MESSAGE@""" Case "@FW_MSGONLY@"
If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file from folderwatch", False) If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file from folderwatch", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:" Me.Text = "Indexierung der msg-Datei (ohne Anhang) - aus Folderwatch:"
Case "@OUTLOOK_MESSAGE@" Case "@OUTLOOK_MESSAGE@"
If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file through dragdrop", False) If LogErrorsOnly = False Then ClassLogger.Add(" ....msg-file through dragdrop", False)
Me.Text = "Indexierung der msg-Datei (ohne Anhang):" Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
End Select End Select
Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) & "_excl_att.msg")
Dim savestring = tempfile 'Path.GetDirectoryName(CURRENT_WORKFILE) & "\" & Path.GetFileNameWithoutExtension(CURRENT_WORKFILE) & "_excl_att.msg" ElseIf DropType = "@MSGONLY@" Then
If File.Exists(savestring) Then Me.Text = "Indexierung der msg-Datei (ohne Anhang):"
File.Delete(savestring)
End If
Dim _msg As New Msg.Message(CURRENT_WORKFILE)
_msg.Attachments.Clear()
_msg.Save(savestring)
CURRENT_WORKFILE = savestring
ElseIf DropType = "@ATTMNTEXTRACTED@" Then ElseIf DropType = "@ATTMNTEXTRACTED@" Then
CURRENT_ISATTACHMENT = True
Me.Text = "Indexierung eines Email-Attachments:" Me.Text = "Indexierung eines Email-Attachments:"
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then ElseIf DropType = "@FW_SIMPLEINDEXER@" Then
Me.Text = "Indexierung einer Folderwatch-Datei:" Me.Text = "Indexierung einer Folderwatch-Datei:"
@@ -1303,6 +1341,7 @@ Public Class frmIndex
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)
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.Visible = True chkMultiIndexer.Visible = True
Else Else
chkMultiIndexer.Visible = False chkMultiIndexer.Visible = False
@@ -1377,7 +1416,7 @@ Public Class frmIndex
' <STAThread()> _ ' <STAThread()> _
Private Sub Refresh_IndexeMan(dokartid As Integer) Private Sub Refresh_IndexeMan(dokartid As Integer)
Try Try
DT_INDEXEMAN = ClassDatabase.Return_Datatable("select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid) DT_INDEXEMAN = ClassDatabase.Return_Datatable("select T1.BEZEICHNUNG AS DOKUMENTART,T.* from TBDD_INDEX_MAN T, TBDD_DOKUMENTART T1 where T.ACTIVE = 1 AND T.DOK_ID = T1.GUID AND T.DOK_ID = " & dokartid & " ORDER BY T.SEQUENCE")
pnlIndex.Visible = True pnlIndex.Visible = True
LoadIndexe_Man() LoadIndexe_Man()
Catch ex As System.Exception Catch ex As System.Exception
@@ -1550,7 +1589,8 @@ Public Class frmIndex
Sub PreviewFile() Sub PreviewFile()
Try Try
Dim Proc As New System.Diagnostics.Process Dim Proc As New System.Diagnostics.Process
Me.pnlWebbrowser.Visible = False Me.grpbxMailBody.Visible = False
Me.grpBetreff.Visible = False
Me.pnlPDF.Visible = False Me.pnlPDF.Visible = False
CURRENT_HTML_DOC = "" CURRENT_HTML_DOC = ""
If Not CURRENT_WORKFILE.EndsWith("msg") Then If Not CURRENT_WORKFILE.EndsWith("msg") Then
@@ -1582,16 +1622,21 @@ Public Class frmIndex
End If End If
Next Next
Case Else Case Else
If My.Settings.DoNot_Show_Documents = False And UniversalViewer <> "" Then
If File.Exists(UniversalViewer) Then
Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE)) Console.WriteLine(Path.GetExtension(CURRENT_WORKFILE))
Dim psi As New ProcessStartInfo(UniversalViewer, """" & CURRENT_WORKFILE & """") Dim psi As New ProcessStartInfo(UniversalViewer, """" & CURRENT_WORKFILE & """")
Proc.EnableRaisingEvents = True Proc.EnableRaisingEvents = True
Proc.StartInfo = psi Proc.StartInfo = psi
Proc.Start() Proc.Start()
End If
End If
End Select End Select
End If End If
Else Else
Me.pnlWebbrowser.Dock = DockStyle.Fill Me.grpBetreff.Dock = DockStyle.Top
Me.grpbxMailBody.Dock = DockStyle.Fill
Dim msg_email As New Msg.Message(CURRENT_WORKFILE) Dim msg_email As New Msg.Message(CURRENT_WORKFILE)
'Eine tempfile generieren 'Eine tempfile generieren
Dim tempFilename = My.Computer.FileSystem.GetTempFileName() Dim tempFilename = My.Computer.FileSystem.GetTempFileName()
@@ -1602,7 +1647,7 @@ Public Class frmIndex
My.Computer.FileSystem.DeleteFile(tempFilename) My.Computer.FileSystem.DeleteFile(tempFilename)
End If End If
Me.txtBetreff.Text = msg_email.Subject
'Try 'Try
Dim wFile As System.IO.FileStream Dim wFile As System.IO.FileStream
Dim byteData() As Byte Dim byteData() As Byte
@@ -1623,7 +1668,8 @@ Public Class frmIndex
CURRENT_HTML_DOC = tempFilename CURRENT_HTML_DOC = tempFilename
Me.tslblWebbrowser.Text = CURRENT_HTML_DOC Me.tslblWebbrowser.Text = CURRENT_HTML_DOC
WebBrowser.Navigate("file:///" & CURRENT_HTML_DOC) WebBrowser.Navigate("file:///" & CURRENT_HTML_DOC)
Me.pnlWebbrowser.Visible = True Me.grpbxMailBody.Visible = True
Me.grpBetreff.Visible = True
Me.SplitContainer1.Panel2Collapsed = False Me.SplitContainer1.Panel2Collapsed = False
SplitContainer1.SplitterDistance = My.Settings.SplitterDistance_Viewer SplitContainer1.SplitterDistance = My.Settings.SplitterDistance_Viewer
End If End If
@@ -1690,7 +1736,7 @@ Public Class frmIndex
ElseIf DropType = "@ATTMNTEXTRACTED@" Then ElseIf DropType = "@ATTMNTEXTRACTED@" Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
File.Delete(CURRENT_WORKFILE) File.Delete(CURRENT_WORKFILE)
ElseIf (DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@") Then ElseIf (DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@") Then
'Die temporäre Datei löschen 'Die temporäre Datei löschen
File.Delete(CURRENT_WORKFILE) File.Delete(CURRENT_WORKFILE)
ElseIf DropType = "@FW_SIMPLEINDEXER@" Then ElseIf DropType = "@FW_SIMPLEINDEXER@" Then
@@ -1729,7 +1775,6 @@ Public Class frmIndex
lblerror.Visible = False lblerror.Visible = False
Me.Cursor = Cursors.WaitCursor Me.Cursor = Cursors.WaitCursor
If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then If chkMultiIndexer.Visible = True And chkMultiIndexer.Checked = True Then
'Die erste Datei indexieren 'Die erste Datei indexieren
If WORK_FILE() = True Then If WORK_FILE() = True Then
'Und nun die folgenden 'Und nun die folgenden
@@ -1739,7 +1784,7 @@ Public Class frmIndex
For Each filerow As DataRow In DTFiles2Work.Rows For Each filerow As DataRow In DTFiles2Work.Rows
CURRENT_WORKFILE_GUID = filerow.Item("GUID") CURRENT_WORKFILE_GUID = filerow.Item("GUID")
CURRENT_WORKFILE = filerow.Item("FILENAME2WORK") CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
DropType = filerow.Item("HANDLE_TYPE")
'Dim HandleType As String = filerow.Item("HANDLE_TYPE") 'Dim HandleType As String = filerow.Item("HANDLE_TYPE")
'If HandleType = "@DROPFROMFSYSTEM@" Then 'If HandleType = "@DROPFROMFSYSTEM@" Then
' DropType = "dragdrop file" ' DropType = "dragdrop file"
@@ -1763,11 +1808,14 @@ Public Class frmIndex
Else Else
If WORK_FILE() = True Then If WORK_FILE() = True Then
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
If My.Settings.Show_IndexResult = True Then
MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung") MsgBox("Die Datei wurde erfolgreich verarbeitet!" & vbNewLine & "Ablagepfad:" & vbNewLine & CURRENT_NEWFILENAME, MsgBoxStyle.Information, "Erfolgsmeldung")
End If
Me.Close() Me.Close()
End If End If
End If End If
Me.Cursor = Cursors.Default
End Sub End Sub
Private Function Move_File2_Target() Private Function Move_File2_Target()
@@ -1780,7 +1828,7 @@ Public Class frmIndex
Dim exp2WD As Boolean = False Dim exp2WD As Boolean = False
If DropType = "@DROPFROMFSYSTEM@" Or DropType = "@OUTLOOK_ATTACHMENT@" Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@FW_SIMPLEINDEXER@" Then If DropType = "@DROPFROMFSYSTEM@" Or DropType = "@OUTLOOK_ATTACHMENT@" Or DropType = "@ATTMNTEXTRACTED@" Or DropType = "@FW_SIMPLEINDEXER@" Then
exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_OUTLOOK_MESSAGE@" Then ElseIf DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Then
exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE) exp2WD = SINGLEFILE_2_WINDREAM(CURR_DOKART_OBJECTTYPE)
End If End If
If exp2WD = True Then If exp2WD = True Then
@@ -1804,7 +1852,28 @@ Public Class frmIndex
Dim Insert_String As String Dim Insert_String As String
Try Try
Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')" Insert_String = sql_history_INSERT_INTO & ",ADDED_WHO) VALUES ('" & CURRENT_WORKFILE & "','" & CURRENT_NEWFILENAME & "'" & sql_history_Index_Values & ",'" & Environment.UserDomainName & "\" & Environment.UserName & "')"
ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString) ClassDatabase.Execute_Scalar(Insert_String, MyConnectionString, True)
If DropType.Contains("MSG") Or DropType = "@ATTMNTEXTRACTED@" Then
If CURRENT_MESSAGEID <> "" Then
Dim max As String = "SELECT MAX(GUID) FROM TBGI_HISTORY"
Dim GUID = ClassDatabase.Execute_Scalar(max, MyConnectionString, True)
Try
If GUID > 0 Then
Dim sqlUpdate As String
If DropType = "@ATTMNTEXTRACTED@" Then
sqlUpdate = "Update TBGI_HISTORY SET ATTACHMENT = 1, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
ClassDatabase.Execute_non_Query(sqlUpdate, True)
Else
sqlUpdate = "Update TBGI_HISTORY SET ATTACHMENT = 0, MSG_ID = '" & CURRENT_MESSAGEID & "' WHERE GUID = " & GUID
ClassDatabase.Execute_non_Query(sqlUpdate, True)
End If
End If
Catch ex As Exception
End Try
End If
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Insert-History - View logfile: " & ex.Message, MsgBoxStyle.Critical)
ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message) ClassLogger.Add(" - Fehler bei Insert-History - Fehler: " & vbNewLine & ex.Message)
@@ -2084,4 +2153,14 @@ Public Class frmIndex
Delete_OriginFile = chkdelete_origin.Checked Delete_OriginFile = chkdelete_origin.Checked
SaveConfigValue("Delete_OriginFile", Delete_OriginFile) SaveConfigValue("Delete_OriginFile", Delete_OriginFile)
End Sub End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Select Case CURRENT_ABBRUCH
Case 0
CURRENT_ABBRUCH = 1
Case 1
CURRENT_ABBRUCH = 2
End Select
Me.Close()
End Sub
End Class End Class

20
Global_Indexer/frmStart.Designer.vb generated
View File

@@ -43,6 +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.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()
@@ -61,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.KonfigurationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdministrationToolStripMenuItem, Me.ToolStripSeparator1, Me.GrundeinstellungenToolStripMenuItem, Me.FrmHotkeyAddToolStripMenuItem, Me.AApiToolStripMenuItem, Me.HistoryIndexierteDateienToolStripMenuItem})
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)
@@ -72,7 +73,7 @@ Partial Class frmStart
Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem}) Me.AdministrationToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GlobalIndexerEinstellungenToolStripMenuItem, Me.HotkeyEisntellungenToolStripMenuItem})
Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6 Me.AdministrationToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Einstellungen6
Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem" Me.AdministrationToolStripMenuItem.Name = "AdministrationToolStripMenuItem"
Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.AdministrationToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.AdministrationToolStripMenuItem.Text = "Administration" Me.AdministrationToolStripMenuItem.Text = "Administration"
' '
'GlobalIndexerEinstellungenToolStripMenuItem 'GlobalIndexerEinstellungenToolStripMenuItem
@@ -92,25 +93,25 @@ Partial Class frmStart
'ToolStripSeparator1 'ToolStripSeparator1
' '
Me.ToolStripSeparator1.Name = "ToolStripSeparator1" Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(201, 6) Me.ToolStripSeparator1.Size = New System.Drawing.Size(214, 6)
' '
'GrundeinstellungenToolStripMenuItem 'GrundeinstellungenToolStripMenuItem
' '
Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem" Me.GrundeinstellungenToolStripMenuItem.Name = "GrundeinstellungenToolStripMenuItem"
Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.GrundeinstellungenToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen User" Me.GrundeinstellungenToolStripMenuItem.Text = "Grundeinstellungen User"
' '
'FrmHotkeyAddToolStripMenuItem 'FrmHotkeyAddToolStripMenuItem
' '
Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x Me.FrmHotkeyAddToolStripMenuItem.Image = Global.Global_Indexer.My.Resources.Resources.Shortcut_8169_16x
Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem" Me.FrmHotkeyAddToolStripMenuItem.Name = "FrmHotkeyAddToolStripMenuItem"
Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.FrmHotkeyAddToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User" Me.FrmHotkeyAddToolStripMenuItem.Text = "Hotkey-Funktion User"
' '
'AApiToolStripMenuItem 'AApiToolStripMenuItem
' '
Me.AApiToolStripMenuItem.Name = "AApiToolStripMenuItem" Me.AApiToolStripMenuItem.Name = "AApiToolStripMenuItem"
Me.AApiToolStripMenuItem.Size = New System.Drawing.Size(204, 22) Me.AApiToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.AApiToolStripMenuItem.Text = "AApi" Me.AApiToolStripMenuItem.Text = "AApi"
Me.AApiToolStripMenuItem.Visible = False Me.AApiToolStripMenuItem.Visible = False
' '
@@ -189,6 +190,12 @@ 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
'
Me.HistoryIndexierteDateienToolStripMenuItem.Name = "HistoryIndexierteDateienToolStripMenuItem"
Me.HistoryIndexierteDateienToolStripMenuItem.Size = New System.Drawing.Size(217, 22)
Me.HistoryIndexierteDateienToolStripMenuItem.Text = "History - Indexierte Dateien"
'
'frmStart 'frmStart
' '
Me.AllowDrop = True Me.AllowDrop = True
@@ -233,4 +240,5 @@ Partial Class frmStart
Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer Friend WithEvents TimerFolderWatch As System.Windows.Forms.Timer
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
End Class End Class

171
Global_Indexer/frmStart.vb
View File

@@ -80,8 +80,10 @@ Public Class frmStart
e.Effect = DragDropEffects.None e.Effect = DragDropEffects.None
End If End If
End Sub End Sub
Sub Check_Dropped_Files() Sub Check_Dropped_Files()
Try 'Try
Me.TopMost = False
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')") ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
CURRENT_ABBRUCH = 0 CURRENT_ABBRUCH = 0
Dim i As Integer Dim i As Integer
@@ -91,11 +93,7 @@ Public Class frmStart
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1) Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1) Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "')" ClassFilehandle.Decide_FileHandle(filename, handleType)
If ClassDatabase.Execute_non_Query(ins, True) = False Then
MsgBox("Unexpected Error in Create Record for dropped-file - Check logfile", MsgBoxStyle.Critical)
Exit Sub
End If
i += 1 i += 1
Else Else
Console.WriteLine("File gibt es bereits") Console.WriteLine("File gibt es bereits")
@@ -103,55 +101,58 @@ Public Class frmStart
End If End If
Next Next
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) Dim DTFiles As DataTable = ClassDatabase.Return_Datatable(sql, True)
If DTFiles.Rows.Count > 1 Then
frmIndexFileList.ShowDialog()
DTFiles = ClassDatabase.Return_Datatable(sql, True)
End If
For Each Filerow As DataRow In DTFiles.Rows For Each Filerow As DataRow In DTFiles.Rows
CURRENT_FILENAME = Filerow.Item(0) Dim filestring As String = Filerow.Item("FILENAME2WORK")
CURRENT_FILENAME = Filerow.Item("FILENAME2WORK")
CURRENT_WORKFILE_GUID = Filerow.Item(0) CURRENT_WORKFILE_GUID = Filerow.Item(0)
CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK") CURRENT_WORKFILE = Filerow.Item("FILENAME2WORK")
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
Open_IndexDialog() Open_IndexDialog()
End If
Next Next
'Prüfen ob alle Files abgearbeitet wurden ''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 & "')") '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 'If DT.Rows.Count > 0 Then
For Each row As DataRow In DT.Rows ' For Each row As DataRow In DT.Rows
Dim filestring As String = row.Item(1) ' Dim filestring As String = row.Item(1)
filestring = filestring.Substring(filestring.LastIndexOf("@") + 1) ' filestring = filestring.Substring(filestring.LastIndexOf("@") + 1)
Select Case CURRENT_ABBRUCH ' Select Case CURRENT_ABBRUCH
Case 0 ' Case 0
CURRENT_ABBRUCH = 1 ' CURRENT_ABBRUCH = 1
Case 1 ' Case 1
CURRENT_ABBRUCH = 2 ' CURRENT_ABBRUCH = 2
Case 2 ' Case 2
CURRENT_ABBRUCH = 0 ' CURRENT_ABBRUCH = 0
End Select ' End Select
If File.Exists(filestring) Then ' If File.Exists(filestring) Then
If CURRENT_ABBRUCH = 2 Then ' MsgBox("Es sind noch Dateien zum Indexieren vorhanden:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation)
Dim result As MsgBoxResult ' CURRENT_WORKFILE = row.Item(1)
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie abbrechen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) ' CURRENT_FILENAME = row.Item(1)
If result = MsgBoxResult.Yes Then ' CURRENT_WORKFILE_GUID = row.Item(0)
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0)) ' Open_IndexDialog()
Exit Sub ' Else
End If ' ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0))
Else ' End If
MsgBox("Es sind noch Dateien zum Indexieren vorhanden:" & vbNewLine & "Bitte indexieren Sie die folgende Datei vollständig:", MsgBoxStyle.Exclamation) ' Next
CURRENT_WORKFILE = row.Item(1) 'End If
CURRENT_FILENAME = row.Item(1) 'Catch ex As Exception
CURRENT_WORKFILE_GUID = row.Item(0) ' MsgBox("Check_Dropped_Files: " & ex.Message, MsgBoxStyle.Critical)
Open_IndexDialog() 'End Try
End If
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()
Try Try
Me.Hide() Me.Hide()
@@ -159,58 +160,22 @@ Public Class frmStart
Me.Visible = True Me.Visible = True
Me.TopMost = True Me.TopMost = True
Me.BringToFront() Me.BringToFront()
If Not CURRENT_FILENAME.EndsWith("msg") Then If File.Exists(CURRENT_FILENAME) Then
Dim workedsql = "select WORKED FROM TBGI_FILES_USER where guid = " & CURRENT_WORKFILE_GUID
If ClassDatabase.Execute_Scalar(workedsql, MyConnectionString, True) = 0 Then
Select Case CURRENT_ABBRUCH Select Case CURRENT_ABBRUCH
Case 0
CURRENT_ABBRUCH = 1
Case 1 Case 1
CURRENT_ABBRUCH = 2 MsgBox("Bitte indexieren Sie die Datei vollständig!" & vbNewLine & "(Abbruch 1 des Indexierungsvorgangs)", MsgBoxStyle.Information)
End Select Open_IndexDialog()
If CURRENT_ABBRUCH = 2 Then Case 2
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show("Sie brechen nun zum zweiten Mal den Indexierungsvorgang ab!" & vbNewLine & "Wollen Sie 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
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')", True)
CURRENT_ABBRUCH = 0 CURRENT_ABBRUCH = 0
Exit Sub Exit Sub
End If
Else Else
MsgBox("Datei wurde nicht vollständig indexiert:" & vbNewLine & "Bitte wiederholen Sie den Vorgang:", MsgBoxStyle.Exclamation) CURRENT_ABBRUCH = 0
Open_IndexDialog()
End If End If
End If End Select
Else
'Hier nun die Anhänge indexieren
Dim _msg As New Msg.Message(CURRENT_FILENAME)
Dim i1 As Integer = 1
If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False)
For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
If attachment.DisplayName Is Nothing Then
If Not attachment.LongFileName Is Nothing Then
If Not attachment.LongFileName.Contains("inline") Then
Dim tempfile As String = Path.Combine(Path.GetTempPath, attachment.LongFileName)
If File.Exists(tempfile) Then
File.Delete(tempfile)
End If
attachment.Save(tempfile)
Dim sql As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE) VALUES ('" & tempfile & "','" & Environment.UserName & "','@ATTMNTEXTRACTED@')"
If ClassDatabase.Execute_non_Query(sql, True) = True Then
sql = "SELECT MAX(GUID) FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
Dim GUID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If Not IsNothing(GUID) Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
CURRENT_FILENAME = tempfile
CURRENT_WORKFILE = tempfile
CURRENT_WORKFILE_GUID = GUID
Open_IndexDialog()
i1 += 1
End If
End If
End If
End If
End If
Next
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Aufruf Indexdialog: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Fehler bei Aufruf Indexdialog: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -289,7 +254,7 @@ Public Class frmStart
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 Einstellungen und den Datenbankserver", MsgBoxStyle.Critical)
Me.Close() Me.Close()
End If End If
If UniversalViewer = String.Empty 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
@@ -440,28 +405,6 @@ Public Class frmStart
MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Load_Hotkeys:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
End Sub End Sub
'Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
' If loaded = True Then
' If m.Msg = ClassHotkey.WM_HOTKEY Then
' ' ' 'Me.Cursor = Cursors.WaitCursor
' ' ' ' ClassHotkey_Windream.RUN_WD_SEARCH(m.WParam)
' ' ' 'Me.NotifyIcon1.Visible = True
' ' ' 'NotifyIcon1.ShowBalloonTip(2000, "Hotkey", "Hotkey wird ausgeführt!", ToolTipIcon.Info)
' ' ' 'Dim Result =
' ' ' 'MyBase.WndProc(m)
' ' ' 'If Result = "" Then
' ' ' ' ' Me.NotifyIcon1.Visible = False
' ' ' 'Else
' ' ' ' ' NotifyIcon1.ShowBalloonTip(5000, "Hotkey-Fehler:", Result.ToString, ToolTipIcon.Warning)
' ' ' 'End If
' ' ' End If
' Else
' Console.WriteLine("MESSAGE: " & m.ToString)
' End If
' End If
'End Sub 'System wide hotkey event handling
Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click Private Sub HotkeyEisntellungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HotkeyEisntellungenToolStripMenuItem.Click
Me.Hide() Me.Hide()
Unregister_Hotkeys() Unregister_Hotkeys()
@@ -528,4 +471,8 @@ Public Class frmStart
Opacity = 0.65 Opacity = 0.65
TimerFolderWatch.Start() TimerFolderWatch.Start()
End Sub End Sub
Private Sub HistoryIndexierteDateienToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles HistoryIndexierteDateienToolStripMenuItem.Click
frmHistory.ShowDialog()
End Sub
End Class End Class