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

DocCount und anderes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-07-12 11:03:46 +02:00
parent feafd96cb6
commit 6d9f41ea09
20 changed files with 1315 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/DD_Clipboard_Searcher/App.config
View File

@ -39,6 +39,15 @@
<setting name="frmProfileMatchSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="LoadDocView" serializeAs="String">
<value>False</value>
</setting>
<setting name="frmResultDataSize" serializeAs="String">
<value>0, 0</value>
</setting>
<setting name="frmResultDataPosition" serializeAs="String">
<value>0, 0</value>
</setting>
</DD_Clipboard_Watcher.My.MySettings>
</userSettings>
</configuration>

236
app/DD_Clipboard_Searcher/ClassDatabase.vb Normal file
View File

@ -0,0 +1,236 @@
Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client
Public Class ClassDatabase
Private Shared SQLSERVERConnectionString As String
Private Shared OracleConnectionString As String
Public Shared Function Get_ConnectionString(id As Integer)
Dim connectionString As String = ""
Try
'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
If DTConnection.Rows.Count = 1 Then
Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
Case "MS-SQL"
If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
Else
connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
End If
' connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Case "Oracle"
If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" &
DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
Else
connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Persist Security Info=True;User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";Unicode=True"
End If
'Case "ODBC"
' Dim conn As New OdbcConnection("dsn=" & DTConnection.Rows(0).Item("SERVER") & ";uid=" & DTConnection.Rows(0).Item("USERNAME") & ";pwd=" + DTConnection.Rows(0).Item("PASSWORD"))
' connectionString = conn.ConnectionString
Case Else
LOGGER.Info(" - ConnectionType nicht integriert", False)
MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
End Select
Else
LOGGER.Info(" No entry for Connection-ID: " & id.ToString, True)
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" - Error in bei Get ConnectionString - Fehler: " & vbNewLine & ex.Message)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Get ConnectionString:")
End Try
Return connectionString
End Function
Public Shared Function Init()
Try
SQLSERVERConnectionString = MyConnectionString
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLconnect.Close()
Return True
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Fehler bei Database-Init: " & ex.Message, True)
Return False
End Try
End Function
Public Shared Function Return_Datatable(Select_anweisung As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
LOGGER.Debug(">>> ReturnDatatable: " & Select_anweisung)
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
LOGGER.Debug(">>> Execute ReturnDatatable: " & Select_anweisung)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
'Clipboard.SetText("Error: " & ex.Message & vbNewLine & "SQL: " & Select_anweisung)
Logger.Info("Fehler bei Return_Datatable: " & ex.Message, True)
LOGGER.Info("#SQL: " & Select_anweisung, False)
Return Nothing
End Try
End Function
Public Shared Function Return_Datatable_CS(SQLCommand As String, Conn_ID As Integer, Optional userInput As Boolean = False)
Try
Dim oConString As String = Get_ConnectionString(Conn_ID)
LOGGER.Debug(">>> ReturnDatatable: " & SQLCommand)
Dim oSQLconnect As New SqlClient.SqlConnection
Dim oSQLcommand As SqlClient.SqlCommand
oSQLconnect.ConnectionString = oConString
oSQLconnect.Open()
oSQLcommand = oSQLconnect.CreateCommand
oSQLcommand.CommandText = SQLCommand
Dim oSQLAdapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(oSQLcommand)
Dim oReturnDatatable As DataTable = New DataTable()
oSQLAdapter.Fill(oReturnDatatable)
oSQLconnect.Close()
Return oReturnDatatable
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Return_Datatable_CS - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & SQLCommand, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Return_Datatable_CS: " & ex.Message, True)
LOGGER.Info("#SQL: " & SQLCommand, False)
Return Nothing
End Try
End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = SQLSERVERConnectionString
LOGGER.Debug(">>> Execute_non_Query: " & ExecuteCMD)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
LOGGER.Debug(">>> Execute NonQuery: " & ExecuteCMD)
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
Return True
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Execute non query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
'Clipboard.SetText("Error ExecuteCMD: " & ex.Message & vbNewLine & "SQL: " & ExecuteCMD)
Logger.Info("Fehler bei Execute_non_Query: " & ex.Message, True)
LOGGER.Info("#SQL: " & ExecuteCMD, False)
Return False
End Try
End Function
Public Shared Function Execute_Scalar(cmdscalar As String, ConString As String, Optional userInput As Boolean = False)
Dim result
Try
Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = ConString
LOGGER.Debug(">>> Execute_non_Query: " & cmdscalar)
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
LOGGER.Debug(">>> Execute Scalar: " & cmdscalar)
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Execute Scalar - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & cmdscalar, MsgBoxStyle.Critical)
End If
' Clipboard.SetText("Error Execute_Scalar: " & ex.Message & vbNewLine & "SQL: " & cmdscalar)
Logger.Info("Fehler bei Execute_Scalar: " & ex.Message, True)
LOGGER.Info("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Dim result
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As New OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = cmdscalar
result = SQLcommand.ExecuteScalar()
SQLcommand.Dispose()
SQLconnect.Close()
Return result
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Fehler bei OracleExecute_Scalar: " & ex.Message, True)
LOGGER.Info("#SQL: " & cmdscalar, False)
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
Return True
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in OracleExecute_non_Query - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & ExecuteCMD, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei OracleExecute_non_Query: " & ex.Message, True)
LOGGER.Info("#SQL: " & ExecuteCMD, False)
Return False
End Try
End Function
Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = Select_anweisung
Dim adapter1 As OracleDataAdapter = New OracleDataAdapter(SQLcommand)
Dim dt As DataTable = New DataTable()
adapter1.Fill(dt)
SQLconnect.Close()
Return dt
Catch ex As Exception
LOGGER.Error(ex)
If userInput = True Then
MsgBox("Error in Oracle Return Datatable - Error-Message:" & vbNewLine & ex.Message & vbNewLine & "SQL-Command:" & vbNewLine & Select_anweisung, MsgBoxStyle.Critical)
End If
LOGGER.Info("Fehler bei Oracle_Return_Datatable: " & ex.Message, True)
LOGGER.Info("#SQL: " & Select_anweisung, False)
Return Nothing
End Try
End Function
End Class

11
app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj
View File

@ -115,6 +115,7 @@
<ItemGroup>
<Compile Include="Class1.vb" />
<Compile Include="ClassConfig.vb" />
<Compile Include="ClassDatabase.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLayout.vb" />
<Compile Include="clsHotkey.vb" />
@ -166,6 +167,12 @@
<Compile Include="frmPrint.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmResultSQL.Designer.vb">
<DependentUpon>frmResultSQL.vb</DependentUpon>
</Compile>
<Compile Include="frmResultSQL.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettings.designer.vb">
<DependentUpon>frmSettings.vb</DependentUpon>
</Compile>
@ -252,6 +259,9 @@
<EmbeddedResource Include="frmPrint.resx">
<DependentUpon>frmPrint.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmResultSQL.resx">
<DependentUpon>frmResultSQL.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettings.resx">
<DependentUpon>frmSettings.vb</DependentUpon>
</EmbeddedResource>
@ -323,6 +333,7 @@
<ItemGroup>
<Content Include="DD_Icons_ICO_CBWATCHER_48px.ico" />
<Content Include="KeyOutput_8167.ico" />
<None Include="Resources\PreviewTab.png" />
<None Include="Resources\cancel.png" />
<None Include="Resources\tiff.png" />
<None Include="Resources\jpg.png" />

4
app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb
View File

@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices
' Die Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("Clipboard Watcher for windream")>
<Assembly: AssemblyTitle("Clipboard Watcher")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("Digital Data")>
<Assembly: AssemblyProduct("Clipboard Watcher for windream")>
<Assembly: AssemblyProduct("Clipboard Watcher")>
<Assembly: AssemblyCopyright("Copyright ©2019")>
<Assembly: AssemblyTrademark("")>

10
app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb generated
View File

@ -310,6 +310,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property PreviewTab() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("PreviewTab", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

31
app/DD_Clipboard_Searcher/My Project/Resources.resx
View File

@ -121,9 +121,6 @@
<data name="door_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\door_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -133,6 +130,9 @@
<data name="pdf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ReduceSize" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -151,15 +151,18 @@
<data name="ppt" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ID_SITE_PUBLISH_ALL" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_go" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Alert_32xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Alert_32xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -211,20 +214,20 @@
<data name="search" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="OpenFile" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="tiff" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="StatusAnnotations_Information_16xMD_color" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\StatusAnnotations_Information_16xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="doc_excel_csv" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mp3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mp3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="properties_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="png" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="build_Selection_32xLG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -235,7 +238,7 @@
<data name="ID_FILE_PAGE_SETUP" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="cancel" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="PreviewTab" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

36
app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb generated
View File

@ -160,6 +160,42 @@ Namespace My
Me("frmProfileMatchSize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property LoadDocView() As Boolean
Get
Return CType(Me("LoadDocView"),Boolean)
End Get
Set
Me("LoadDocView") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmResultDataSize() As Global.System.Drawing.Size
Get
Return CType(Me("frmResultDataSize"),Global.System.Drawing.Size)
End Get
Set
Me("frmResultDataSize") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("0, 0")> _
Public Property frmResultDataPosition() As Global.System.Drawing.Point
Get
Return CType(Me("frmResultDataPosition"),Global.System.Drawing.Point)
End Get
Set
Me("frmResultDataPosition") = value
End Set
End Property
End Class
End Namespace

9
app/DD_Clipboard_Searcher/My Project/Settings.settings
View File

@ -34,5 +34,14 @@
<Setting Name="frmProfileMatchSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="LoadDocView" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="frmResultDataSize" Type="System.Drawing.Size" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
<Setting Name="frmResultDataPosition" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>
</Setting>
</Settings>
</SettingsFile>

BIN
app/DD_Clipboard_Searcher/Resources/PreviewTab.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 320 B

2
app/DD_Clipboard_Searcher/clsSearch.vb
View File

@ -134,7 +134,7 @@ Public Class clsSearch
Catch ex As Exception
Logger.Info("Unexpected error while Setting foreground: " & ex.Message)
End Try
CURR_MATCH_WM_SEARCH = Nothing
'CURR_MATCH_WM_SEARCH = Nothing
CURR_MATCH_RESULT = Nothing
Return ""
Catch ex As Exception

12
app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb generated
View File

@ -22,7 +22,7 @@ Partial Class frmProfileMatch
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileMatch))
Me.Label1 = New System.Windows.Forms.Label()
Me.TileControl1 = New DevExpress.XtraEditors.TileControl()
@ -74,9 +74,9 @@ Partial Class frmProfileMatch
'
'TileItem1
'
TileItemElement2.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
TileItemElement2.Text = "Alle"
Me.TileItem1.Elements.Add(TileItemElement2)
TileItemElement1.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
TileItemElement1.Text = "Alle"
Me.TileItem1.Elements.Add(TileItemElement1)
Me.TileItem1.Id = 1
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
Me.TileItem1.Name = "TileItem1"
@ -88,9 +88,11 @@ Partial Class frmProfileMatch
'SimpleButton1
'
Me.SimpleButton1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SimpleButton1.Appearance.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SimpleButton1.Appearance.Options.UseFont = True
Me.SimpleButton1.ButtonStyle = DevExpress.XtraEditors.Controls.BorderStyles.UltraFlat
Me.SimpleButton1.ImageOptions.Image = CType(resources.GetObject("SimpleButton1.ImageOptions.Image"), System.Drawing.Image)
Me.SimpleButton1.Location = New System.Drawing.Point(564, 390)
Me.SimpleButton1.Location = New System.Drawing.Point(564, 394)
Me.SimpleButton1.Name = "SimpleButton1"
Me.SimpleButton1.Size = New System.Drawing.Size(137, 45)
Me.SimpleButton1.TabIndex = 7

52
app/DD_Clipboard_Searcher/frmProfileMatch.vb
View File

@ -12,9 +12,13 @@ Public Class frmProfileMatch
If My.Settings.frmProfileMatchSize.IsEmpty = False Then
Size = My.Settings.frmProfileMatchSize
End If
If USER_LANGUAGE = "de-DE" Then
Me.Label1.Text = $"Clipboard Watcher hat mehr als einen Match für Ihre Suche [{CURR_MATCH_RESULT}] gefunden:"
Else
Me.Label1.Text = $"Clipboard Watcher found more than on match for Your search [{CURR_MATCH_RESULT}]:"
End If
CreateTiles()
CurrSearch2Load = Nothing
CurrDocSearch2Load = Nothing
End Sub
Sub CreateTiles()
@ -23,6 +27,7 @@ Public Class frmProfileMatch
Dim oSecondaryFont As New Font("Segoe UI", 10)
Dim oGroup = TileControl1.Groups.Item("TileGroupProfiles")
oGroup.Items.Clear()
For Each oRow As DataRow In CurrDT_PROFILE_MATCH.Rows
Dim oItem As New TileItem() With {.Tag = oRow.Item("GUID")}
@ -40,6 +45,21 @@ Public Class frmProfileMatch
oCommentElement.Appearance.Normal.Font = oSecondaryFont
oItem.Elements.Add(oCommentElement)
Dim oCountElement = New TileItemElement()
oCountElement.TextAlignment = TileItemContentAlignment.BottomRight
oCountElement.Appearance.Normal.Font = oSecondaryFont
Dim oText As String
If oRow.Item("COUNT") = 99999 Then
oText = "DocCount 0 = Check Your MatchCountConfig in Profiles!"
ElseIf oRow.Item("COUNT") = 99998 Then
oText = "DocCount (MatchCountConfig has not been configured)"
Else
oText = $"{oRow.Item("COUNT")} files!"
End If
oCountElement.Text = oText
oItem.Elements.Add(oCountElement)
oGroup.Items.Add(oItem)
Next
Catch ex As Exception
@ -48,11 +68,13 @@ Public Class frmProfileMatch
End Sub
Sub OpenResults_Doc()
Me.Hide()
Dim ofrmresult As Form = New frmResultDoc
ofrmresult.ShowDialog()
ofrmresult.Show()
End Sub
Sub OpenResults_Data()
Dim ofrmresult As Form = New frmResultSQL
ofrmresult.Show()
End Sub
Private Sub frmProfileMatch_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
@ -83,11 +105,27 @@ Public Class frmProfileMatch
oResult &= "," & oRow.Item("GUID")
End If
Next
CurrSearch2Load = oResult
CurrDocSearch2Load = oResult
CurrDataSearch2Load = oResult
Else
CurrSearch2Load = oProfileId
CurrDocSearch2Load = oProfileId
CurrDataSearch2Load = oProfileId
End If
OpenResults_Doc()
OpenResults_Data()
Me.Hide()
End Sub
Private Sub frmProfileMatch_VisibleChanged(sender As Object, e As EventArgs) Handles Me.VisibleChanged
If Me.Visible = True Then
If CurrSearchOpen = True Then
End If
Else
If CurrSearchOpen = True Then
End If
End If
End Sub
End Class

33
app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb generated
View File

@ -32,6 +32,7 @@ Partial Class frmResultDoc
Me.ToolStripDropDownButtonFile = New System.Windows.Forms.ToolStripDropDownButton()
Me.ÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EigenschaftenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButtonDocView = New System.Windows.Forms.ToolStripButton()
Me.XtraTabControlDocs = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
@ -51,10 +52,10 @@ Partial Class frmResultDoc
Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.XtraTabControlDocs, System.ComponentModel.ISupportInitialize).BeginInit()
@ -101,7 +102,7 @@ Partial Class frmResultDoc
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripDropDownButtonFile, Me.ToolStripButtonDocView})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
@ -132,6 +133,15 @@ Partial Class frmResultDoc
Me.EigenschaftenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.EigenschaftenToolStripMenuItem.Text = "Eigenschaften"
'
'ToolStripButtonDocView
'
Me.ToolStripButtonDocView.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButtonDocView.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.PreviewTab
Me.ToolStripButtonDocView.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonDocView.Name = "ToolStripButtonDocView"
Me.ToolStripButtonDocView.Size = New System.Drawing.Size(73, 22)
Me.ToolStripButtonDocView.Text = "DocView"
'
'XtraTabControlDocs
'
Me.XtraTabControlDocs.Dock = System.Windows.Forms.DockStyle.Fill
@ -333,7 +343,7 @@ Partial Class frmResultDoc
'
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 142)
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
'
'EigenschaftenDateiToolStripMenuItem
'
@ -349,6 +359,13 @@ Partial Class frmResultDoc
Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
@ -367,13 +384,6 @@ Partial Class frmResultDoc
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
'
'frmResultDoc
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@ -388,7 +398,7 @@ Partial Class frmResultDoc
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmResultDoc"
Me.Text = "Clipboard-Watcher SearchResult"
Me.Text = "Clipboard-Watcher Doc-Result"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
@ -446,4 +456,5 @@ Partial Class frmResultDoc
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButtonDocView As ToolStripButton
End Class

68
app/DD_Clipboard_Searcher/frmResultDoc.vb
View File

@ -40,7 +40,8 @@ Public Class frmResultDoc
Private Shared CurrSearchID As Integer
Private DTDocSearchDefinition As DataTable
Private _frmDocView As frmDocView 'You need a reference to Form1
Private _frmProfileMatch As frmDocView 'You need a reference to Form1
Private _frmProfileMatch As frmProfileMatch 'You need a reference to Form1
Private _frmSQL As frmResultSQL 'You need a reference to Form1
Private _activeGridView As GridView
#End Region
Public Sub New()
@ -49,6 +50,8 @@ Public Class frmResultDoc
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
_frmDocView = frmDocView
_frmSQL = frmResultSQL
_frmProfileMatch = frmProfileMatch
End Sub
Sub RefreshTabDoc(PROFILE_ID As Integer, ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
Try
@ -402,12 +405,17 @@ Public Class frmResultDoc
End With
End If
Catch ex As Exception
If My.Settings.LoadDocView = True Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
Else
ToolStripButtonDocView.Checked = False
End If
End Try
Me.BringToFront()
Else
@ -445,12 +453,12 @@ Public Class frmResultDoc
Load_Searches()
End Sub
Sub Load_Searches()
If Not IsNothing(CurrSearch2Load) Then
Dim oSQL = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrSearch2Load}) ORDER BY TAB_INDEX"
If Not IsNothing(CurrDocSearch2Load) Then
Dim oSQL = $"SELECT * FROM TBCW_PROF_DOC_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrDocSearch2Load}) ORDER BY TAB_INDEX"
DTDocSearchDefinition = clsDatabase.Return_Datatable(oSQL)
Dim oindex As Integer
Dim ocounter As Integer = 0
If CurrSearch2Load.ToString.Contains(",") Then
If CurrDocSearch2Load.ToString.Contains(",") Then
End If
For Each oRow As DataRow In DTDocSearchDefinition.Rows
@ -475,15 +483,29 @@ Public Class frmResultDoc
Try
Dim frmCollection As New FormCollection()
frmCollection = Application.OpenForms()
Try
If frmCollection.Item("frmDocView").IsHandleCreated Then
_frmDocView.Close()
End If
Catch ex As Exception
End Try
Try
If frmCollection.Item("frmResultSQL").IsHandleCreated Then
frmResultSQL.Close()
End If
Catch ex As Exception
End Try
If frmCollection.Item("frmProfileMatch").IsHandleCreated Then
frmProfileMatch.Show()
frmProfileMatch.BringToFront()
End If
Catch ex As Exception
_frmProfileMatch.Show()
_frmProfileMatch.BringToFront()
End Try
End Sub
@ -614,4 +636,40 @@ Public Class frmResultDoc
MsgBox("Folder '" & oFilepath & "' not existing or accessible!", MsgBoxStyle.Exclamation)
End If
End Sub
Private Sub ToolStripButtonDocView_Click(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.Click
If My.Settings.LoadDocView = False Then
Dim newDocView As New frmDocView
With newDocView
.Show()
.Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH)
End With
_frmDocView = newDocView
ToolStripButtonDocView.Checked = True
My.Settings.LoadDocView = True
Else
ToolStripButtonDocView.Checked = False
My.Settings.LoadDocView = False
Try
_frmDocView.Close()
Catch ex As Exception
End Try
End If
My.Settings.Save()
End Sub
Private Sub ToolStripButtonDocView_CheckedChanged(sender As Object, e As EventArgs) Handles ToolStripButtonDocView.CheckedChanged
If ToolStripButtonDocView.Checked Then
ToolStripButtonDocView.Text = "DocView (Active)"
Else
ToolStripButtonDocView.Text = "DocView (Inactive)"
End If
End Sub
Private Sub frmResultDoc_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront()
CurrSearchOpen = True
End Sub
End Class

415
app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb generated Normal file
View File

@ -0,0 +1,415 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmResultSQL
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim GridLevelNode1 As DevExpress.XtraGrid.GridLevelNode = New DevExpress.XtraGrid.GridLevelNode()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmResultSQL))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tslblDocID = New System.Windows.Forms.ToolStripStatusLabel()
Me.tslblState = New System.Windows.Forms.ToolStripStatusLabel()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.XtraTabControlData = New DevExpress.XtraTab.XtraTabControl()
Me.XtraTabPageDoc1 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch1 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc2 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch2 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch2 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc3 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch3 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch3 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc4 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch4 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch4 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.XtraTabPageDoc5 = New DevExpress.XtraTab.XtraTabPage()
Me.GridControlDocSearch5 = New DevExpress.XtraGrid.GridControl()
Me.GridViewDataSearch5 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.ContextMenuStripWMFile = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.EigenschaftenDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DateiÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrdnerÖffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.StatusStrip1.SuspendLayout()
CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabControlData.SuspendLayout()
Me.XtraTabPageDoc1.SuspendLayout()
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc2.SuspendLayout()
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc3.SuspendLayout()
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc4.SuspendLayout()
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).BeginInit()
Me.XtraTabPageDoc5.SuspendLayout()
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStripWMFile.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblDocID, Me.tslblState})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 532)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 16, 0)
Me.StatusStrip1.Size = New System.Drawing.Size(933, 22)
Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1"
'
'tslblDocID
'
Me.tslblDocID.Name = "tslblDocID"
Me.tslblDocID.Size = New System.Drawing.Size(0, 17)
'
'tslblState
'
Me.tslblState.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.StatusAnnotations_Alert_32xMD_color
Me.tslblState.Name = "tslblState"
Me.tslblState.Size = New System.Drawing.Size(107, 17)
Me.tslblState.Text = "No action so far"
'
'ToolStrip1
'
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(933, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'XtraTabControlData
'
Me.XtraTabControlData.Dock = System.Windows.Forms.DockStyle.Fill
Me.XtraTabControlData.Location = New System.Drawing.Point(0, 25)
Me.XtraTabControlData.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabControlData.Name = "XtraTabControlData"
Me.XtraTabControlData.SelectedTabPage = Me.XtraTabPageDoc1
Me.XtraTabControlData.Size = New System.Drawing.Size(933, 507)
Me.XtraTabControlData.TabIndex = 5
Me.XtraTabControlData.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageDoc1, Me.XtraTabPageDoc2, Me.XtraTabPageDoc3, Me.XtraTabPageDoc4, Me.XtraTabPageDoc5})
'
'XtraTabPageDoc1
'
Me.XtraTabPageDoc1.Controls.Add(Me.GridControlDocSearch1)
Me.XtraTabPageDoc1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc1.Name = "XtraTabPageDoc1"
Me.XtraTabPageDoc1.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc1.Text = "XtraTabPage1"
'
'GridControlDocSearch1
'
Me.GridControlDocSearch1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch1.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
GridLevelNode1.RelationName = "Level1"
Me.GridControlDocSearch1.LevelTree.Nodes.AddRange(New DevExpress.XtraGrid.GridLevelNode() {GridLevelNode1})
Me.GridControlDocSearch1.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch1.MainView = Me.GridViewDataSearch1
Me.GridControlDocSearch1.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch1.Name = "GridControlDocSearch1"
Me.GridControlDocSearch1.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch1.TabIndex = 0
Me.GridControlDocSearch1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch1})
'
'GridViewDataSearch1
'
Me.GridViewDataSearch1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch1.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch1.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch1.DetailHeight = 431
Me.GridViewDataSearch1.GridControl = Me.GridControlDocSearch1
Me.GridViewDataSearch1.Name = "GridViewDataSearch1"
Me.GridViewDataSearch1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch1.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch1.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch1.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch1.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc2
'
Me.XtraTabPageDoc2.Controls.Add(Me.GridControlDocSearch2)
Me.XtraTabPageDoc2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc2.Name = "XtraTabPageDoc2"
Me.XtraTabPageDoc2.PageVisible = False
Me.XtraTabPageDoc2.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc2.Text = "XtraTabPage2"
'
'GridControlDocSearch2
'
Me.GridControlDocSearch2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch2.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch2.MainView = Me.GridViewDataSearch2
Me.GridControlDocSearch2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch2.Name = "GridControlDocSearch2"
Me.GridControlDocSearch2.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch2.TabIndex = 1
Me.GridControlDocSearch2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch2})
'
'GridViewDataSearch2
'
Me.GridViewDataSearch2.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch2.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch2.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch2.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch2.DetailHeight = 431
Me.GridViewDataSearch2.GridControl = Me.GridControlDocSearch2
Me.GridViewDataSearch2.Name = "GridViewDataSearch2"
Me.GridViewDataSearch2.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch2.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch2.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch2.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch2.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc3
'
Me.XtraTabPageDoc3.Controls.Add(Me.GridControlDocSearch3)
Me.XtraTabPageDoc3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc3.Name = "XtraTabPageDoc3"
Me.XtraTabPageDoc3.PageVisible = False
Me.XtraTabPageDoc3.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc3.Text = "XtraTabPage1"
'
'GridControlDocSearch3
'
Me.GridControlDocSearch3.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch3.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch3.MainView = Me.GridViewDataSearch3
Me.GridControlDocSearch3.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch3.Name = "GridControlDocSearch3"
Me.GridControlDocSearch3.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch3.TabIndex = 1
Me.GridControlDocSearch3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch3})
'
'GridViewDataSearch3
'
Me.GridViewDataSearch3.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch3.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch3.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch3.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch3.DetailHeight = 431
Me.GridViewDataSearch3.GridControl = Me.GridControlDocSearch3
Me.GridViewDataSearch3.Name = "GridViewDataSearch3"
Me.GridViewDataSearch3.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch3.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch3.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch3.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch3.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc4
'
Me.XtraTabPageDoc4.Controls.Add(Me.GridControlDocSearch4)
Me.XtraTabPageDoc4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc4.Name = "XtraTabPageDoc4"
Me.XtraTabPageDoc4.PageVisible = False
Me.XtraTabPageDoc4.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc4.Text = "XtraTabPage2"
'
'GridControlDocSearch4
'
Me.GridControlDocSearch4.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch4.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch4.MainView = Me.GridViewDataSearch4
Me.GridControlDocSearch4.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch4.Name = "GridControlDocSearch4"
Me.GridControlDocSearch4.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch4.TabIndex = 1
Me.GridControlDocSearch4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch4})
'
'GridViewDataSearch4
'
Me.GridViewDataSearch4.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch4.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch4.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch4.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch4.DetailHeight = 431
Me.GridViewDataSearch4.GridControl = Me.GridControlDocSearch4
Me.GridViewDataSearch4.Name = "GridViewDataSearch4"
Me.GridViewDataSearch4.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch4.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch4.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch4.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch4.OptionsView.ShowAutoFilterRow = True
'
'XtraTabPageDoc5
'
Me.XtraTabPageDoc5.Controls.Add(Me.GridControlDocSearch5)
Me.XtraTabPageDoc5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.XtraTabPageDoc5.Name = "XtraTabPageDoc5"
Me.XtraTabPageDoc5.PageVisible = False
Me.XtraTabPageDoc5.Size = New System.Drawing.Size(927, 479)
Me.XtraTabPageDoc5.Text = "XtraTabPage3"
'
'GridControlDocSearch5
'
Me.GridControlDocSearch5.Dock = System.Windows.Forms.DockStyle.Fill
Me.GridControlDocSearch5.EmbeddedNavigator.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Location = New System.Drawing.Point(0, 0)
Me.GridControlDocSearch5.MainView = Me.GridViewDataSearch5
Me.GridControlDocSearch5.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.GridControlDocSearch5.Name = "GridControlDocSearch5"
Me.GridControlDocSearch5.Size = New System.Drawing.Size(927, 479)
Me.GridControlDocSearch5.TabIndex = 1
Me.GridControlDocSearch5.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewDataSearch5})
'
'GridViewDataSearch5
'
Me.GridViewDataSearch5.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
Me.GridViewDataSearch5.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewDataSearch5.Appearance.SelectedRow.BackColor = System.Drawing.Color.Lime
Me.GridViewDataSearch5.Appearance.SelectedRow.Options.UseBackColor = True
Me.GridViewDataSearch5.DetailHeight = 431
Me.GridViewDataSearch5.GridControl = Me.GridControlDocSearch5
Me.GridViewDataSearch5.Name = "GridViewDataSearch5"
Me.GridViewDataSearch5.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewDataSearch5.OptionsFind.AlwaysVisible = True
Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewDataSearch5.OptionsSelection.EnableAppearanceHideSelection = False
Me.GridViewDataSearch5.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewDataSearch5.OptionsView.ShowAutoFilterRow = True
'
'ContextMenuStripWMFile
'
Me.ContextMenuStripWMFile.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EigenschaftenDateiToolStripMenuItem, Me.DateiÖffnenToolStripMenuItem, Me.OrdnerÖffnenToolStripMenuItem, Me.ToolStripSeparator1, Me.ToolStripMenuItem1, Me.ToolStripMenuItem2})
Me.ContextMenuStripWMFile.Name = "ContextMenuStripWMFile"
Me.ContextMenuStripWMFile.Size = New System.Drawing.Size(182, 120)
'
'EigenschaftenDateiToolStripMenuItem
'
Me.EigenschaftenDateiToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.properties_16xMD
Me.EigenschaftenDateiToolStripMenuItem.Name = "EigenschaftenDateiToolStripMenuItem"
Me.EigenschaftenDateiToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.EigenschaftenDateiToolStripMenuItem.Text = "Eigenschaften Datei"
'
'DateiÖffnenToolStripMenuItem
'
Me.DateiÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.OpenFile
Me.DateiÖffnenToolStripMenuItem.Name = "DateiÖffnenToolStripMenuItem"
Me.DateiÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.DateiÖffnenToolStripMenuItem.Text = "Datei öffnen"
'
'OrdnerÖffnenToolStripMenuItem
'
Me.OrdnerÖffnenToolStripMenuItem.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.folder_Open_16xLG
Me.OrdnerÖffnenToolStripMenuItem.Name = "OrdnerÖffnenToolStripMenuItem"
Me.OrdnerÖffnenToolStripMenuItem.Size = New System.Drawing.Size(181, 22)
Me.OrdnerÖffnenToolStripMenuItem.Text = "Ordner öffnen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(178, 6)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.DD_Clipboard_Watcher.My.Resources.Resources.refresh_16xLG
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem1.Text = "Aktualisieren"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(181, 22)
Me.ToolStripMenuItem2.Text = "Layout zurücksetzen"
'
'frmResultSQL
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(933, 554)
Me.Controls.Add(Me.XtraTabControlData)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmResultSQL"
Me.Text = "Clipboard-Watcher SQL-Result"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.XtraTabControlData, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabControlData.ResumeLayout(False)
Me.XtraTabPageDoc1.ResumeLayout(False)
CType(Me.GridControlDocSearch1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch1, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc2.ResumeLayout(False)
CType(Me.GridControlDocSearch2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch2, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc3.ResumeLayout(False)
CType(Me.GridControlDocSearch3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch3, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc4.ResumeLayout(False)
CType(Me.GridControlDocSearch4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch4, System.ComponentModel.ISupportInitialize).EndInit()
Me.XtraTabPageDoc5.ResumeLayout(False)
CType(Me.GridControlDocSearch5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewDataSearch5, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStripWMFile.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents XtraTabControlData As DevExpress.XtraTab.XtraTabControl
Friend WithEvents XtraTabPageDoc1 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc2 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch2 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch2 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc3 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch3 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch3 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc4 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch4 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch4 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents XtraTabPageDoc5 As DevExpress.XtraTab.XtraTabPage
Friend WithEvents GridControlDocSearch5 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewDataSearch5 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents ContextMenuStripWMFile As ContextMenuStrip
Friend WithEvents EigenschaftenDateiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DateiÖffnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents tslblDocID As ToolStripStatusLabel
Friend WithEvents tslblState As ToolStripStatusLabel
Friend WithEvents OrdnerÖffnenToolStripMenuItem As ToolStripMenuItem
End Class

163
app/DD_Clipboard_Searcher/frmResultSQL.resx Normal file
View File

@ -0,0 +1,163 @@
<?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="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>134, 17</value>
</metadata>
<metadata name="ContextMenuStripWMFile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAEBAQAAEABAAoAQAAJgAAABAQAAABAAgAaAUAAE4BAAAoAAAAEAAAACAAAAABAAQAAAAAAIAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAA/////wAAAP93d3d3/wAPh3d3d3d48A93d3d3d3fwD3d3d3d3
d/APd3d3d3d38A93d3d3d3fwD3d3d3d3d/APd3d3d3d38A93d3d3d3fwD3eI//+Id/APf//////38A9/
//////fwD4eI//+IePAA/3d3d3f/AAAA/////wAA8A8AAMADAACAAQAAgAEAAIABAACAAQAAgAEAAIAB
AACAAQAAgAEAAIABAACAAQAAgAEAAIABAADAAwAA8A8AACgAAAAQAAAAIAAAAAEACAAAAAAAAAEAAAAA
AAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBZWVkAhoaGAKSjpACzs7MA29naAODg4ADm5OUA6+vrAPHv
8AD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAD///8AAAAAAA0MDAwMDAwNAAAAAAAADQgEAwEBAQEDBAgNAAAADQYBAQEBAQEB
AQEBBg0AAAwBAQEBAQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEB
AQEBAQEBAQEMAAAMAQEBAQEBAQEBAQEBDAAADAEBAQEBAQEBAQEBAQwAAAwBAQEBAQICAQEBAQEMAAAM
AQIFBwsLCwsHBQIBDAAACgIICwsLCwsLCwsIAQwAAAoCCAsLCwsLCwsLCAEMAAANBgIFBwsLCwsHBQIG
DQAAAA0IBAMBAQEBAwQIDQAAAAAAAA0MDAwMDAwNAAAAAPAPAADAAwAAgAEAAIABAACAAQAAgAEAAIAB
AACAAQAAgAEAAIABAACAAQAAgAEAAIABAACAAQAAwAMAAPAPAAA=
</value>
</data>
</root>

221
app/DD_Clipboard_Searcher/frmResultSQL.vb Normal file
View File

@ -0,0 +1,221 @@
Imports System.ComponentModel
Imports System.IO
Imports System.Runtime.InteropServices
Imports DevExpress.Utils
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraGrid.Views.Grid
Imports DD_LIB_Standards
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraTab
Public Class frmResultSQL
#Region "Laufzeitvariablen & Konstanten"
Private Shared BW_DocPath As String
Private Shared BW_DocID As Integer
Private Shared CurrSearchID As Integer
Private DTDataSearchDefinition As DataTable
Private _activeGridView As GridView
#End Region
Public Sub New()
MyBase.New
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub RefreshTabData(PROFILE_ID As Integer, ConID As Integer, SQLCommand As String, TabIndex As Integer, TabCaption As String)
Try
SQLCommand = clsPatterns.ReplaceAllValues(SQLCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, PROFILE_ID)
Dim myGridControl As DevExpress.XtraGrid.GridControl
Dim myGridview As DevExpress.XtraGrid.Views.Grid.GridView
Select Case TabIndex
Case 0
GridControlDocSearch1.DataSource = Nothing
GridViewDataSearch1.Columns.Clear()
myGridview = GridViewDataSearch1
myGridControl = GridControlDocSearch1
Case 1
GridControlDocSearch2.DataSource = Nothing
GridViewDataSearch2.Columns.Clear()
myGridview = GridViewDataSearch2
myGridControl = GridControlDocSearch2
Case 2
GridControlDocSearch3.DataSource = Nothing
GridViewDataSearch3.Columns.Clear()
myGridview = GridViewDataSearch3
myGridControl = GridControlDocSearch3
Case 3
GridControlDocSearch4.DataSource = Nothing
GridViewDataSearch4.Columns.Clear()
myGridControl = GridControlDocSearch4
myGridview = GridViewDataSearch4
Case 4
GridControlDocSearch5.DataSource = Nothing
GridViewDataSearch5.Columns.Clear()
myGridControl = GridControlDocSearch5
myGridview = GridViewDataSearch5
End Select
myGridControl.ContextMenuStrip = ContextMenuStripWMFile
Dim oDatatable As DataTable = clsDatabase.Return_Datatable(SQLCommand)
If Not IsNothing(oDatatable) Then
XtraTabControlData.TabPages(TabIndex).Text = $"{TabCaption} ({oDatatable.Rows.Count})"
clsWMDocGrid.DTDocuments = oDatatable
'Select Case TabIndex
' Case 0
' GridControlDocSearch1.DataSource = oDatatable
' Case 1
' GridControlDocSearch2.DataSource = oDatatable
' Case 2
' GridControlDocSearch3.DataSource = oDatatable
' Case 3
' GridControlDocSearch4.DataSource = oDatatable
' Case 4
' GridControlDocSearch5.DataSource = oDatatable
'End Select
myGridControl.DataSource = oDatatable
myGridControl.ForceInitialize()
Dim oxmlPath As String = ""
oxmlPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
If File.Exists(oxmlPath) Then
myGridview.RestoreLayoutFromXml(oxmlPath)
myGridview.GuessAutoFilterRowValuesFromFilter()
End If
tslblState.Text = $"Tab [{TabCaption}] refreshed - {Now}"
XtraTabControlData.TabPages(TabIndex).PageVisible = True
Else
clsWMDocGrid.DTDocuments = Nothing
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Function Get_Grid_Layout_Filename(oIndex As Integer)
Dim oFilename As String = String.Format("GridViewData_Search-{0}-{1}-UserLayout.xml", oIndex, CurrSearchID)
Dim oPath = System.IO.Path.Combine(Application.UserAppDataPath(), oFilename)
Return oPath
End Function
Private Sub GridControlDocSearch_Leave(sender As Object, e As EventArgs) Handles GridControlDocSearch1.Leave, GridControlDocSearch2.Leave, GridControlDocSearch3.Leave, GridControlDocSearch4.Leave, GridControlDocSearch5.Leave
SaveDocGridLayout()
End Sub
Sub SaveDocGridLayout()
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
_activeGridView.SaveLayoutToXml(oXMLPath)
End Sub
Private Sub GridViewDocSearch1_ColumnWidthChanged(sender As Object, e As Views.Base.ColumnEventArgs) Handles GridViewDataSearch1.ColumnWidthChanged
_activeGridView = GridViewDataSearch1
SaveDocGridLayout()
End Sub
Private Sub frmResultDoc_Load(sender As Object, e As EventArgs) Handles Me.Load
If My.Settings.frmResultDataPosition.IsEmpty = False Then
If My.Settings.frmResultDataPosition.X > 0 And My.Settings.frmResultDataPosition.Y > 0 Then
Location = My.Settings.frmResultDataPosition
End If
End If
If My.Settings.frmResultDataSize.IsEmpty = False Then
Size = My.Settings.frmResultDataSize
End If
Load_Searches()
End Sub
Sub Load_Searches()
If Not IsNothing(CurrDataSearch2Load) Then
Dim oSQL = $"SELECT * FROM TBCW_PROF_DATA_SEARCH WHERE ACTIVE = 1 AND PROFILE_ID in ({CurrDataSearch2Load}) ORDER BY TAB_INDEX"
DTDataSearchDefinition = clsDatabase.Return_Datatable(oSQL)
Dim oindex As Integer
Dim ocounter As Integer = 0
If CurrDataSearch2Load.ToString.Contains(",") Then
End If
For Each oRow As DataRow In DTDataSearchDefinition.Rows
RefreshTabData(oRow.Item("PROFILE_ID"), oRow.Item("CONN_ID"), oRow.Item("SQL_COMMAND"), ocounter, oRow.Item("TAB_TITLE"))
ocounter += 1
Next
Else
MsgBox("Sorry but the selection of profile went wrong. (CurrSearch2Load is nothing)", MsgBoxStyle.Critical)
Me.Close()
End If
End Sub
Private Sub frmResultDoc_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
' Position und Größe speichern
My.Settings.frmResultDataSize = Me.Size
My.Settings.frmResultDataPosition = Me.Location
My.Settings.Save()
Catch ex As Exception
Logger.Error(ex)
Logger.Info("Error in Save FormLayout: " & ex.Message)
End Try
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
ReLoad_Active_DocTab()
End Sub
Private Sub ToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem2.Click
Set_DoclayoutBack()
End Sub
Sub Set_DoclayoutBack()
Dim oXMLPath = Get_Grid_Layout_Filename(XtraTabControlData.SelectedTabPageIndex)
Try
If File.Exists(oXMLPath) Then
File.Delete(oXMLPath)
ReLoad_Active_DocTab()
tslblState.Text = "Layout has been set back!"
Else
tslblState.Text = ""
End If
Catch ex As Exception
tslblState.Text = ""
End Try
End Sub
Sub ReLoad_Active_DocTab()
Dim oTabIndex = XtraTabControlData.SelectedTabPageIndex
Dim oConID = DTDataSearchDefinition.Rows(oTabIndex).Item("CONN_ID")
Dim oCommand = DTDataSearchDefinition.Rows(oTabIndex).Item("SQL_COMMAND")
Dim oProfID = DTDataSearchDefinition.Rows(oTabIndex).Item("PROFILE_ID")
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfID)
RefreshTabData(oProfID, oConID, oCommand, oTabIndex, DTDataSearchDefinition.Rows(oTabIndex).Item("TAB_TITLE"))
End Sub
Private Sub XtraTabControlDocs_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControlData.SelectedPageChanged
If IsNothing(DTDataSearchDefinition) Then Exit Sub
Dim oConID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("CONN_ID")
Dim oCommand = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("SQL_COMMAND")
Dim oProfileID = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("PROFILE_ID")
oCommand = clsPatterns.ReplaceAllValues(oCommand, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileID)
Dim oTabIndex = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_INDEX")
Dim oTabCaption = DTDataSearchDefinition.Rows(XtraTabControlData.SelectedTabPageIndex).Item("TAB_TITLE")
RefreshTabData(oProfileID, oConID, oCommand, oTabIndex, oTabCaption)
End Sub
Private Sub GridViewDocSearch1_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch1.FocusedRowChanged
_activeGridView = GridViewDataSearch1
End Sub
Private Sub GridViewDocSearch2_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch2.FocusedRowChanged
_activeGridView = GridViewDataSearch2
End Sub
Private Sub GridViewDocSearch3_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch3.FocusedRowChanged
_activeGridView = GridViewDataSearch3
End Sub
Private Sub GridViewDocSearch4_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch4.FocusedRowChanged
_activeGridView = GridViewDataSearch4
End Sub
Private Sub GridViewDocSearch5_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles GridViewDataSearch5.FocusedRowChanged
_activeGridView = GridViewDataSearch5
End Sub
Private Sub frmResultSQL_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Me.BringToFront()
End Sub
End Class

8
app/DD_Clipboard_Searcher/frmStart.Designer.vb generated
View File

@ -59,7 +59,7 @@ Partial Class frmStart
'
Me.cmstrpNotifyIcon.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiChangeState, Me.ClientÖffnenToolStripMenuItem})
Me.cmstrpNotifyIcon.Name = "cmstrpNotifyIcon"
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 70)
Me.cmstrpNotifyIcon.Size = New System.Drawing.Size(250, 48)
'
'tsmiChangeState
'
@ -177,7 +177,7 @@ Partial Class frmStart
Me.btnUserConfig.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnUserConfig.UseVisualStyleBackColor = True
'
'frmMain
'frmStart
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@ -193,9 +193,9 @@ Partial Class frmStart
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMain"
Me.Name = "frmStart"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Clipboard Watcher for windream"
Me.Text = "Clipboard Watcher"
Me.cmstrpNotifyIcon.ResumeLayout(False)
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()

37
app/DD_Clipboard_Searcher/frmStart.vb
View File

@ -23,7 +23,7 @@ Public Class frmStart
Exit Sub
End If
CURR_MATCH_RESULT = Nothing
CURR_MATCH_WM_SEARCH = Nothing
'CURR_MATCH_WM_SEARCH = Nothing
If MONITORING_ACTIVE = False Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Clipboard-watcher is inactive.", ToolTipIcon.Info)
Exit Sub
@ -44,6 +44,7 @@ Public Class frmStart
Dim oDTMatchProfiles As DataTable = New DataTable
oDTMatchProfiles.Columns.Add("GUID")
oDTMatchProfiles.Columns.Add("NAME")
oDTMatchProfiles.Columns.Add("COUNT")
oDTMatchProfiles.Columns.Add("COMMENT")
For Each oProfileRow As DataRow In DT_USER_PROFILES.Rows
@ -57,15 +58,27 @@ Public Class frmStart
' If match.Groups(0).Value <> CURR_MATCH_RESULT Then
CURR_MATCH_RESULT = match.Groups(0).Value
If Not IsNothing(CURR_MATCH_RESULT) Then
CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
'CURR_MATCH_WM_SEARCH = oProfileRow.Item("WD_SEARCH")
Dim oSQL_COUNT As String = oProfileRow.Item("SQL_COUNT_RESULT")
Dim oRESULTDocs As Integer
If oSQL_COUNT <> String.Empty Then
oSQL_COUNT = clsPatterns.ReplaceAllValues(oSQL_COUNT, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, oProfileRow.Item("GUID"))
Try
oRESULTDocs = ClassDatabase.Execute_Scalar(oSQL_COUNT, MyConnectionString)
Catch ex As Exception
oRESULTDocs = 99999
End Try
Else
oRESULTDocs = 99998
End If
Dim onewMatchRow As DataRow = oDTMatchProfiles.NewRow
onewMatchRow("GUID") = oProfileRow.Item("GUID")
onewMatchRow("NAME") = oProfileRow.Item("NAME")
onewMatchRow("COMMENT") = oProfileRow.Item("COMMENT")
onewMatchRow("COUNT") = oRESULTDocs
oDTMatchProfiles.Rows.Add(onewMatchRow)
found = True
End If
'Else
' NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", String.Format("Clipboard Watcher fired but Clipboardcontent is equal: '{0}'", CURR_MATCH_RESULT), ToolTipIcon.Info)
@ -82,6 +95,7 @@ Public Class frmStart
CurrDT_PROFILE_MATCH = Nothing
Else
CurrDT_PROFILE_MATCH = oDTMatchProfiles
End If
End Sub
@ -198,8 +212,19 @@ Public Class frmStart
End Sub
Sub CHECK_PROFILE_MATCH()
If CurrDT_PROFILE_MATCH.Rows.Count = 1 Then
frmProfileMatch.ShowDialog()
clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
If CurrDT_PROFILE_MATCH.Rows(0).Item("COUNT") = 99999 Then
NotifyIconMain.ShowBalloonTip(20000, "Clipboard Watcher", "Found match but check is wrong - Check Your MatchCountConfig in Profiles!", ToolTipIcon.Info)
Exit Sub
ElseIf CurrDT_PROFILE_MATCH.Rows(0).Item("COUNT") = 99998 Then
NotifyIconMain.ShowBalloonTip(10000, "Clipboard Watcher", "Found match but MatchCountConfig is not configured!", ToolTipIcon.Info)
End If
CurrDocSearch2Load = CurrDT_PROFILE_MATCH.Rows(0).Item("GUID")
frmResultDoc.Show()
'frmProfileMatch.ShowDialog()
'clsSearch.RUN_WD_SEARCH(CURR_MATCH_WM_SEARCH)
Else
frmProfileMatch.ShowDialog()
End If

6
app/DD_Clipboard_Searcher/modCurrent.vb
View File

@ -48,7 +48,7 @@ Module modCurrent
Public CLIPBOARD_TEXT As String
Public CURR_MATCH_RESULT
Public CURR_MATCH_WM_SEARCH
'Public CURR_MATCH_WM_SEARCH
Public CURR_FOCUSED_WINDOWNAME
Public MONITORING_ACTIVE As Boolean = True
@ -60,5 +60,7 @@ Module modCurrent
Public CurrDT_PROFILE_MATCH As DataTable
Public CURRENT_DT_DOC_SEARCHES As DataTable
Public CURRENT_DT_DATA_SEARCHES As DataTable
Public CurrSearch2Load As Object
Public CurrDocSearch2Load As Object
Public CurrDataSearch2Load As Object
Public CurrSearchOpen As Boolean = False
End Module