ZooFlow: Remove modcurrent, move flowsearch, small changes
This commit is contained in:
Jonathan Jenne
230
GUIs.ZooFlow/Search/frmFlowSearch.vb
Normal file
230
GUIs.ZooFlow/Search/frmFlowSearch.vb
Normal file
@@ -0,0 +1,230 @@
|
||||
Imports DigitalData.Modules.Logging
|
||||
Imports DevExpress.XtraEditors
|
||||
Imports DigitalData.GUIs.Common
|
||||
Imports DevExpress.XtraSplashScreen
|
||||
|
||||
Public Class frmFlowSearch
|
||||
Private Logger As Logger
|
||||
Private FontLargeBold As New Font("Segoe UI", 10, FontStyle.Bold)
|
||||
Private FontLargeNormal As New Font("Segoe UI", 10)
|
||||
Private SecondaryFontBold As New Font("Segoe UI", 8, FontStyle.Bold)
|
||||
Private SecondaryFont As New Font("Segoe UI", 8)
|
||||
Dim oLastAttribute As String = ""
|
||||
Dim oAttributeCount As Integer = 1
|
||||
Dim BASE_SSEARCHCommand As String
|
||||
Private LastSearchForm As frmDocumentResultList
|
||||
Public Sub New(pBaseSearchSql As String)
|
||||
|
||||
|
||||
' Dieser Aufruf ist für den Designer erforderlich.
|
||||
InitializeComponent()
|
||||
BASE_SSEARCHCommand = pBaseSearchSql
|
||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||
Logger = My.LogConfig.GetLogger()
|
||||
End Sub
|
||||
|
||||
Private Sub txtSearch_TextChanged(sender As Object, e As EventArgs) Handles txtSearch.TextChanged
|
||||
Try
|
||||
|
||||
If txtSearch.Text = String.Empty Then
|
||||
Exit Sub
|
||||
End If
|
||||
lblFoundResult.Visible = False
|
||||
SearchContent(Trim(txtSearch.Text))
|
||||
|
||||
Catch ex As Exception
|
||||
lblFoundResult.Text = "Unexpected error in FlowSearch - Check Your log"
|
||||
lblFoundResult.Visible = True
|
||||
Logger.Error(ex)
|
||||
End Try
|
||||
End Sub
|
||||
Sub SearchContent(oSearchValue As String)
|
||||
oLastAttribute = ""
|
||||
Dim oSQL = BASE_SSEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
|
||||
Dim oResultCount As Integer = 0
|
||||
TileControlMatch.Groups.Clear()
|
||||
|
||||
Dim ODT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
|
||||
If Not IsNothing(ODT) Then
|
||||
|
||||
Dim oView As DataView = New DataView(ODT)
|
||||
Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID")
|
||||
Dim oGroups = ODT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE"))
|
||||
Dim oNewTable As New DataTable
|
||||
oNewTable.Columns.Add("ATTRIBUTE")
|
||||
oNewTable.Columns.Add("COUNT", Type.GetType("System.Int32"))
|
||||
For Each oGroup In oGroups
|
||||
oNewTable.Rows.Add(oGroup.Key, oGroup.Sum(Function(row) row.Field(Of Int32)("COUNT_OBJ")))
|
||||
Next
|
||||
If Not IsNothing(oNewTable) Then
|
||||
Dim oAttrCount As Integer = 0
|
||||
|
||||
For Each orow As DataRow In oNewTable.Rows
|
||||
oAttrCount += 1
|
||||
oResultCount += orow.Item(1)
|
||||
Next
|
||||
lblFoundResult.Text = GetResultString(oResultCount, oAttrCount, oSearchValue)
|
||||
lblFoundResult.Visible = True
|
||||
|
||||
End If
|
||||
oNewTable.DefaultView.Sort = "COUNT ASC"
|
||||
oNewTable = oNewTable.DefaultView.ToTable
|
||||
|
||||
For Each oGroupRow As DataRow In oNewTable.Rows
|
||||
Dim oGroup As New TileGroup
|
||||
oGroup.Text = $"{oGroupRow.Item(0).ToString} [{oGroupRow.Item(1).ToString}]"
|
||||
oGroup.Visible = True
|
||||
For Each oitemRow As DataRow In ODT.Rows
|
||||
If oitemRow.Item("ATTRIBUTE") = oGroupRow.Item(0) Then
|
||||
Dim oItem = CreateTile(oitemRow.Item("TERM_VALUE"), oitemRow.Item("COUNT_OBJ"), oGroupRow.Item(0).ToString, oitemRow.Item("ATTR_ID"), oitemRow.Item("TERM_GUID"))
|
||||
oGroup.Items.Add(oItem)
|
||||
End If
|
||||
Next
|
||||
TileControlMatch.Groups.Add(oGroup)
|
||||
Next
|
||||
|
||||
'Wenn weniger als 45 Belege gefunden wurden wird direkt die Suche ausgeführt
|
||||
If oResultCount > 0 And oResultCount <= 45 Then
|
||||
StartSearch_Full(oSearchValue)
|
||||
End If
|
||||
|
||||
Else
|
||||
lblFoundResult.Text = "Result from DB Is Nothing..Check SQL"
|
||||
lblFoundResult.Visible = True
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Function StartSearch_Full(pSearchValue As String) As Boolean
|
||||
Dim oHandle As IOverlaySplashScreenHandle = Nothing
|
||||
Dim oItemsFound As Boolean = False
|
||||
Dim oState = My.Application.Search
|
||||
|
||||
Try
|
||||
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||
|
||||
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oState.StringAttributeId}','{oState.IntegerAttributeId}'"
|
||||
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
||||
If Not IsNothing(oDTOBJECT_RESULT) Then
|
||||
Dim oEnvironment As New Modules.ZooFlow.Environment() With {
|
||||
.User = My.Application.User,
|
||||
.Modules = My.Application.Modules,
|
||||
.Database = My.Database,
|
||||
.DatabaseIDB = My.DatabaseIDB,
|
||||
.Settings = My.Application.Settings,
|
||||
.Service = My.Application.Service
|
||||
}
|
||||
Dim oShortGuid = Guid.NewGuid()
|
||||
Dim oWindowGuid = $"FLOWSEARCH-{My.User.Name}"
|
||||
Dim oParams = New DocumentResultParams() With {
|
||||
.WindowGuid = oWindowGuid,
|
||||
.Results = New List(Of DocumentResult) From {
|
||||
New DocumentResult() With {
|
||||
.Title = "FlowSearchResult",
|
||||
.Datatable = oDTOBJECT_RESULT
|
||||
}
|
||||
}
|
||||
}
|
||||
Dim oForm As New frmDocumentResultList(My.LogConfig, oEnvironment, oParams)
|
||||
oForm.Show()
|
||||
|
||||
LastSearchForm = oForm
|
||||
|
||||
' Position Result Window below this window
|
||||
LastSearchForm.Location = GetResultFormLocation()
|
||||
LastSearchForm.Size = GetResultFormSize()
|
||||
oItemsFound = True
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
|
||||
Finally
|
||||
SplashScreenManager.CloseOverlayForm(oHandle)
|
||||
|
||||
End Try
|
||||
Return oItemsFound
|
||||
End Function
|
||||
|
||||
Private Function GetResultFormLocation() As Point
|
||||
Return Location
|
||||
End Function
|
||||
|
||||
Private Function GetResultFormSize() As Size
|
||||
Return Size
|
||||
End Function
|
||||
Private Function GetResultString(CountObjects, CountAttribute, SearchContent) As String
|
||||
Dim oResultString = $"wurden {CountObjects} Objekte" ' IIf(CountAttribute = 1, $"wurden {CountObjects} Objekte", $"wurden {CountObjects} Objekte in {CountAttribute} Attributen")
|
||||
Dim oProfileString = IIf(CountAttribute = 1, "einem Attribut", $"{CountAttribute} Attributen")
|
||||
Dim oBase = "Es {0} in {1} für Ihre Suche nach '{2}' gefunden:"
|
||||
|
||||
Return String.Format(oBase, oResultString, oProfileString, SearchContent)
|
||||
End Function
|
||||
Private Function CreateTile(pTermValue As String, pCount_Obj As String, pAttribute As String, pAttributeID As String, pTermGuid As Long) As TileItem
|
||||
Dim oItem As New TileItem() With {.Tag = $"{pTermGuid}#{pAttributeID}"}
|
||||
|
||||
oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(255, 214, 47)
|
||||
If oLastAttribute <> pAttribute Then
|
||||
oAttributeCount = 1
|
||||
oLastAttribute = pAttribute
|
||||
oItem.ItemSize = TileItemSize.Wide
|
||||
ElseIf oAttributeCount = 2 Then
|
||||
oItem.ItemSize = TileItemSize.Medium
|
||||
End If
|
||||
oAttributeCount += 1
|
||||
|
||||
oItem.Elements.Clear()
|
||||
|
||||
Dim oNameElement = New TileItemElement With {
|
||||
.Text = pTermValue,
|
||||
.TextAlignment = TileItemContentAlignment.TopLeft
|
||||
}
|
||||
Select Case oItem.ItemSize
|
||||
Case TileItemSize.Wide
|
||||
oNameElement.Appearance.Normal.Font = FontLargeBold
|
||||
Case Else
|
||||
oNameElement.Appearance.Normal.Font = SecondaryFontBold
|
||||
End Select
|
||||
|
||||
oNameElement.Appearance.Normal.ForeColor = Color.Black
|
||||
oItem.Elements.Add(oNameElement)
|
||||
|
||||
'Dim oCommentElement = New TileItemElement With {
|
||||
' .Text = "Anzahl Objekte: " & pCount_Obj,
|
||||
' .TextAlignment = TileItemContentAlignment.MiddleLeft
|
||||
'}
|
||||
|
||||
'Select Case oItem.ItemSize
|
||||
' Case TileItemSize.Wide
|
||||
' oCommentElement.Appearance.Normal.Font = FontLargeNormal
|
||||
' Case Else
|
||||
' oCommentElement.Appearance.Normal.Font = SecondaryFont
|
||||
'End Select
|
||||
|
||||
'oCommentElement.Appearance.Normal.ForeColor = Color.Black
|
||||
'oItem.Elements.Add(oCommentElement)
|
||||
|
||||
Dim oCountElement = New TileItemElement With {
|
||||
.Text = "Anzahl Objekte: " & pCount_Obj,
|
||||
.TextAlignment = TileItemContentAlignment.BottomRight
|
||||
}
|
||||
Select Case oItem.ItemSize
|
||||
Case TileItemSize.Wide
|
||||
oCountElement.Appearance.Normal.Font = FontLargeNormal
|
||||
Case Else
|
||||
oCountElement.Appearance.Normal.Font = SecondaryFont
|
||||
End Select
|
||||
oCountElement.Appearance.Normal.ForeColor = Color.Black
|
||||
|
||||
oItem.Elements.Add(oCountElement)
|
||||
|
||||
Return oItem
|
||||
End Function
|
||||
|
||||
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearch.GotFocus
|
||||
Label1.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
TileControlMatch.Groups.Clear()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user