diff --git a/app/DD_Clipboard_Searcher/App.config b/app/DD_Clipboard_Searcher/App.config index c454930..41b1bc5 100644 --- a/app/DD_Clipboard_Searcher/App.config +++ b/app/DD_Clipboard_Searcher/App.config @@ -39,6 +39,15 @@ 0, 0 + + False + + + 0, 0 + + + 0, 0 + diff --git a/app/DD_Clipboard_Searcher/ClassDatabase.vb b/app/DD_Clipboard_Searcher/ClassDatabase.vb new file mode 100644 index 0000000..ec40bb5 --- /dev/null +++ b/app/DD_Clipboard_Searcher/ClassDatabase.vb @@ -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 diff --git a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj index 4e417e2..d3593d5 100644 --- a/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj +++ b/app/DD_Clipboard_Searcher/DD_Clipboard_Watcher.vbproj @@ -115,6 +115,7 @@ + @@ -166,6 +167,12 @@ Form + + frmResultSQL.vb + + + Form + frmSettings.vb @@ -252,6 +259,9 @@ frmPrint.vb + + frmResultSQL.vb + frmSettings.vb @@ -323,6 +333,7 @@ + diff --git a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb index 343047b..d0e356c 100644 --- a/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb +++ b/app/DD_Clipboard_Searcher/My Project/AssemblyInfo.vb @@ -8,10 +8,10 @@ Imports System.Runtime.InteropServices ' Die Werte der Assemblyattribute überprüfen - + - + diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb index 1646084..a92ea7c 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Resources.Designer.vb @@ -310,6 +310,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_Clipboard_Searcher/My Project/Resources.resx b/app/DD_Clipboard_Searcher/My Project/Resources.resx index c4783b9..efc2bb8 100644 --- a/app/DD_Clipboard_Searcher/My Project/Resources.resx +++ b/app/DD_Clipboard_Searcher/My Project/Resources.resx @@ -121,9 +121,6 @@ ..\Resources\door_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -133,6 +130,9 @@ ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ReduceSize.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -151,15 +151,18 @@ ..\Resources\ppt.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\ID_SITE_PUBLISH_ALL.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\StatusAnnotations_Alert_32xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -211,20 +214,20 @@ ..\Resources\search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\OpenFile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\tiff.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\StatusAnnotations_Information_16xMD_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\doc_excel_csv.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\mp3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\properties_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\png.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\build_Selection_32xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,7 +238,7 @@ ..\Resources\ID_FILE_PAGE_SETUP.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\PreviewTab.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb b/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb index 99046e1..063b1e9 100644 --- a/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb +++ b/app/DD_Clipboard_Searcher/My Project/Settings.Designer.vb @@ -160,6 +160,42 @@ Namespace My Me("frmProfileMatchSize") = value End Set End Property + + _ + Public Property LoadDocView() As Boolean + Get + Return CType(Me("LoadDocView"),Boolean) + End Get + Set + Me("LoadDocView") = value + End Set + End Property + + _ + 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 + + _ + 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 diff --git a/app/DD_Clipboard_Searcher/My Project/Settings.settings b/app/DD_Clipboard_Searcher/My Project/Settings.settings index 319956b..cf59b31 100644 --- a/app/DD_Clipboard_Searcher/My Project/Settings.settings +++ b/app/DD_Clipboard_Searcher/My Project/Settings.settings @@ -34,5 +34,14 @@ 0, 0 + + False + + + 0, 0 + + + 0, 0 + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/Resources/PreviewTab.png b/app/DD_Clipboard_Searcher/Resources/PreviewTab.png new file mode 100644 index 0000000..3ba2f1f Binary files /dev/null and b/app/DD_Clipboard_Searcher/Resources/PreviewTab.png differ diff --git a/app/DD_Clipboard_Searcher/clsSearch.vb b/app/DD_Clipboard_Searcher/clsSearch.vb index 31f8e52..cd3ff2b 100644 --- a/app/DD_Clipboard_Searcher/clsSearch.vb +++ b/app/DD_Clipboard_Searcher/clsSearch.vb @@ -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 diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb index 0acdd00..9f22718 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.Designer.vb @@ -22,7 +22,7 @@ Partial Class frmProfileMatch 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ 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 diff --git a/app/DD_Clipboard_Searcher/frmProfileMatch.vb b/app/DD_Clipboard_Searcher/frmProfileMatch.vb index 407341b..4b8191e 100644 --- a/app/DD_Clipboard_Searcher/frmProfileMatch.vb +++ b/app/DD_Clipboard_Searcher/frmProfileMatch.vb @@ -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 \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb b/app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb index a4b181b..43080cb 100644 --- a/app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmResultDoc.Designer.vb @@ -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 diff --git a/app/DD_Clipboard_Searcher/frmResultDoc.vb b/app/DD_Clipboard_Searcher/frmResultDoc.vb index bf6195d..563cd30 100644 --- a/app/DD_Clipboard_Searcher/frmResultDoc.vb +++ b/app/DD_Clipboard_Searcher/frmResultDoc.vb @@ -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 - Dim newDocView As New frmDocView - With newDocView - .Show() - .Load_File_from_Path(clsWMDocGrid.SELECTED_DOC_PATH) - End With - _frmDocView = newDocView + 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() - If frmCollection.Item("frmDocView").IsHandleCreated Then - _frmDocView.Close() - End If + 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 \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb b/app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb new file mode 100644 index 0000000..df030d9 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmResultSQL.Designer.vb @@ -0,0 +1,415 @@ + +Partial Class frmResultSQL + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/app/DD_Clipboard_Searcher/frmResultSQL.resx b/app/DD_Clipboard_Searcher/frmResultSQL.resx new file mode 100644 index 0000000..6664e11 --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmResultSQL.resx @@ -0,0 +1,163 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + 134, 17 + + + 241, 17 + + + + + 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= + + + \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmResultSQL.vb b/app/DD_Clipboard_Searcher/frmResultSQL.vb new file mode 100644 index 0000000..da99bfc --- /dev/null +++ b/app/DD_Clipboard_Searcher/frmResultSQL.vb @@ -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 \ No newline at end of file diff --git a/app/DD_Clipboard_Searcher/frmStart.Designer.vb b/app/DD_Clipboard_Searcher/frmStart.Designer.vb index 80ce486..2df7ba7 100644 --- a/app/DD_Clipboard_Searcher/frmStart.Designer.vb +++ b/app/DD_Clipboard_Searcher/frmStart.Designer.vb @@ -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() diff --git a/app/DD_Clipboard_Searcher/frmStart.vb b/app/DD_Clipboard_Searcher/frmStart.vb index 32bc89a..a9ae3c2 100644 --- a/app/DD_Clipboard_Searcher/frmStart.vb +++ b/app/DD_Clipboard_Searcher/frmStart.vb @@ -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 diff --git a/app/DD_Clipboard_Searcher/modCurrent.vb b/app/DD_Clipboard_Searcher/modCurrent.vb index 7fa32ff..c240b19 100644 --- a/app/DD_Clipboard_Searcher/modCurrent.vb +++ b/app/DD_Clipboard_Searcher/modCurrent.vb @@ -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