MS FlowSearch
This commit is contained in:
parent
0a77e55b7d
commit
0bd0d0d40c
@ -27,7 +27,8 @@
|
|||||||
|
|
||||||
Public Const NOTIFICATION_DELAY = 2500
|
Public Const NOTIFICATION_DELAY = 2500
|
||||||
|
|
||||||
Public Const SQLCMD_FLOW_SEARCH1 = "FLOW_SEARCH1"
|
Public Const SQLCMD_FLOW_SEARCH_LOWER_LIMIT = "FLOW_SEARCH_LOWER_LIMIT"
|
||||||
|
Public Const SQLCMD_FLOW_SEARCH_TILE = "FLOW_SEARCH_PER_TILE"
|
||||||
|
|
||||||
Public Const RESULTLIST_COL_ADDED_WHEN_DE = "Erstellt wann"
|
Public Const RESULTLIST_COL_ADDED_WHEN_DE = "Erstellt wann"
|
||||||
Public Const RESULTLIST_COL_CHANGED_WHEN_DE = "Geändert wann"
|
Public Const RESULTLIST_COL_CHANGED_WHEN_DE = "Geändert wann"
|
||||||
|
|||||||
@ -313,22 +313,22 @@ Public Class ClassInit
|
|||||||
For Each oLine In oLines
|
For Each oLine In oLines
|
||||||
_Logger.Debug(oLine.Trim)
|
_Logger.Debug(oLine.Trim)
|
||||||
If oLine = "NO_BASICCONF" Then
|
If oLine = "NO_BASICCONF" Then
|
||||||
My.Application.User.HideBasicConfig = True
|
MyApplication.User.HideBasicConfig = True
|
||||||
|
|
||||||
ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then
|
ElseIf oLine.StartsWith("SEARCH_STRING_ATTRID") Then
|
||||||
Try
|
Try
|
||||||
Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "")
|
Dim oResult = oLine.Replace("SEARCH_STRING_ATTRID=", "")
|
||||||
My.Application.Search.StringAttributeId = Long.Parse(oResult)
|
MyApplication.Search.SelectInStringAttributeIds = oResult
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
My.Application.Search.StringAttributeId = -1
|
MyApplication.Search.SelectInStringAttributeIds = ""
|
||||||
End Try
|
End Try
|
||||||
ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then
|
ElseIf oLine.StartsWith("SEARCH_INT_ATTRID") Then
|
||||||
Try
|
Try
|
||||||
Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "")
|
Dim oResult = oLine.Replace("SEARCH_INT_ATTRID=", "")
|
||||||
|
|
||||||
My.Application.Search.IntegerAttributeId = Long.Parse(oResult)
|
MyApplication.Search.SelectInIntegerAttributeIds = oResult
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
My.Application.Search.IntegerAttributeId = -1
|
MyApplication.Search.SelectInIntegerAttributeIds = ""
|
||||||
End Try
|
End Try
|
||||||
Else
|
Else
|
||||||
_Logger.Info($"Wrong WorkingMode: {oLine}")
|
_Logger.Info($"Wrong WorkingMode: {oLine}")
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
Namespace Search
|
Namespace Search
|
||||||
Public Class State
|
Public Class State
|
||||||
Public Property StringAttributeId As Long = -1
|
Public Property SelectInStringAttributeIds As String = ""
|
||||||
Public Property IntegerAttributeId As Long = -1
|
Public Property SelectInIntegerAttributeIds As String = ""
|
||||||
End Class
|
End Class
|
||||||
End Namespace
|
End Namespace
|
||||||
|
|||||||
394
GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
generated
394
GUIs.ZooFlow/Search/frmFlowSearch.Designer.vb
generated
@ -22,54 +22,25 @@ Partial Class frmFlowSearch
|
|||||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||||
<System.Diagnostics.DebuggerStepThrough()>
|
<System.Diagnostics.DebuggerStepThrough()>
|
||||||
Private Sub InitializeComponent()
|
Private Sub InitializeComponent()
|
||||||
Dim TileItemElement19 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
Dim TileItemElement1 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||||
Dim TileItemElement20 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
Dim TileItemElement2 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
||||||
Dim TileItemElement21 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement22 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement23 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemFrame3 As DevExpress.XtraEditors.TileItemFrame = New DevExpress.XtraEditors.TileItemFrame()
|
|
||||||
Dim TileItemElement24 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFlowSearch))
|
||||||
Dim TileItemFrame4 As DevExpress.XtraEditors.TileItemFrame = New DevExpress.XtraEditors.TileItemFrame()
|
|
||||||
Dim TileItemElement25 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement26 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement27 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement28 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement29 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement30 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement31 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement32 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement33 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement34 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement35 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Dim TileItemElement36 As DevExpress.XtraEditors.TileItemElement = New DevExpress.XtraEditors.TileItemElement()
|
|
||||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||||
Me.txtSearch = New System.Windows.Forms.TextBox()
|
Me.txtSearch = New System.Windows.Forms.TextBox()
|
||||||
Me.lblFoundResult = New System.Windows.Forms.Label()
|
Me.lblFoundResult = New System.Windows.Forms.Label()
|
||||||
Me.Label1 = New System.Windows.Forms.Label()
|
Me.Label1 = New System.Windows.Forms.Label()
|
||||||
|
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||||
Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
|
Me.TileControlMatch = New DevExpress.XtraEditors.TileControl()
|
||||||
Me.TileGroupDocumentsData = New DevExpress.XtraEditors.TileGroup()
|
Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
|
||||||
Me.TileGroupDocuments = New DevExpress.XtraEditors.TileGroup()
|
Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
|
||||||
Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
|
Me.TileItem1 = New DevExpress.XtraEditors.TileItem()
|
||||||
Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
|
Me.TileItem2 = New DevExpress.XtraEditors.TileItem()
|
||||||
Me.TileItem3 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileGroupData = New DevExpress.XtraEditors.TileGroup()
|
|
||||||
Me.TileGroup2 = New DevExpress.XtraEditors.TileGroup()
|
|
||||||
Me.TileItem5 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileItem4 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileGroup3 = New DevExpress.XtraEditors.TileGroup()
|
|
||||||
Me.TileItem6 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileItem7 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileItem8 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileGroup4 = New DevExpress.XtraEditors.TileGroup()
|
|
||||||
Me.TileItem9 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileItem10 = New DevExpress.XtraEditors.TileItem()
|
|
||||||
Me.TileGroup5 = New DevExpress.XtraEditors.TileGroup()
|
|
||||||
Me.Panel1.SuspendLayout()
|
Me.Panel1.SuspendLayout()
|
||||||
Me.SuspendLayout()
|
Me.SuspendLayout()
|
||||||
'
|
'
|
||||||
'Panel1
|
'Panel1
|
||||||
'
|
'
|
||||||
|
Me.Panel1.BackColor = System.Drawing.Color.DimGray
|
||||||
Me.Panel1.Controls.Add(Me.txtSearch)
|
Me.Panel1.Controls.Add(Me.txtSearch)
|
||||||
Me.Panel1.Controls.Add(Me.lblFoundResult)
|
Me.Panel1.Controls.Add(Me.lblFoundResult)
|
||||||
Me.Panel1.Controls.Add(Me.Label1)
|
Me.Panel1.Controls.Add(Me.Label1)
|
||||||
@ -81,19 +52,19 @@ Partial Class frmFlowSearch
|
|||||||
'
|
'
|
||||||
'txtSearch
|
'txtSearch
|
||||||
'
|
'
|
||||||
Me.txtSearch.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
|
Me.txtSearch.BackColor = System.Drawing.Color.White
|
||||||
Me.txtSearch.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.txtSearch.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.txtSearch.Location = New System.Drawing.Point(16, 12)
|
Me.txtSearch.Location = New System.Drawing.Point(16, 12)
|
||||||
Me.txtSearch.Name = "txtSearch"
|
Me.txtSearch.Name = "txtSearch"
|
||||||
Me.txtSearch.Size = New System.Drawing.Size(167, 23)
|
Me.txtSearch.Size = New System.Drawing.Size(167, 23)
|
||||||
Me.txtSearch.TabIndex = 1
|
Me.txtSearch.TabIndex = 0
|
||||||
'
|
'
|
||||||
'lblFoundResult
|
'lblFoundResult
|
||||||
'
|
'
|
||||||
Me.lblFoundResult.AutoSize = True
|
Me.lblFoundResult.AutoSize = True
|
||||||
Me.lblFoundResult.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
Me.lblFoundResult.BackColor = System.Drawing.Color.Transparent
|
||||||
Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.lblFoundResult.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.lblFoundResult.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
|
Me.lblFoundResult.ForeColor = System.Drawing.Color.White
|
||||||
Me.lblFoundResult.Location = New System.Drawing.Point(12, 38)
|
Me.lblFoundResult.Location = New System.Drawing.Point(12, 38)
|
||||||
Me.lblFoundResult.Name = "lblFoundResult"
|
Me.lblFoundResult.Name = "lblFoundResult"
|
||||||
Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
|
Me.lblFoundResult.Size = New System.Drawing.Size(53, 19)
|
||||||
@ -105,342 +76,66 @@ Partial Class frmFlowSearch
|
|||||||
'
|
'
|
||||||
Me.Label1.AutoSize = True
|
Me.Label1.AutoSize = True
|
||||||
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||||
Me.Label1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(47, Byte), Integer))
|
Me.Label1.ForeColor = System.Drawing.Color.White
|
||||||
Me.Label1.Location = New System.Drawing.Point(185, 15)
|
Me.Label1.Location = New System.Drawing.Point(185, 15)
|
||||||
Me.Label1.Name = "Label1"
|
Me.Label1.Name = "Label1"
|
||||||
Me.Label1.Size = New System.Drawing.Size(43, 16)
|
Me.Label1.Size = New System.Drawing.Size(43, 16)
|
||||||
Me.Label1.TabIndex = 0
|
Me.Label1.TabIndex = 0
|
||||||
Me.Label1.Text = "finden"
|
Me.Label1.Text = "finden"
|
||||||
'
|
'
|
||||||
|
'Panel2
|
||||||
|
'
|
||||||
|
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||||
|
Me.Panel2.Location = New System.Drawing.Point(0, 474)
|
||||||
|
Me.Panel2.Name = "Panel2"
|
||||||
|
Me.Panel2.Size = New System.Drawing.Size(1245, 18)
|
||||||
|
Me.Panel2.TabIndex = 1
|
||||||
|
'
|
||||||
'TileControlMatch
|
'TileControlMatch
|
||||||
'
|
'
|
||||||
Me.TileControlMatch.AllowDragTilesBetweenGroups = False
|
Me.TileControlMatch.BackColor = System.Drawing.Color.DimGray
|
||||||
Me.TileControlMatch.AllowGlyphSkinning = True
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.BackColor = System.Drawing.Color.Transparent
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.Font = New System.Drawing.Font("Segoe UI", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.ForeColor = System.Drawing.Color.White
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.Options.UseBackColor = True
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.Options.UseFont = True
|
|
||||||
Me.TileControlMatch.AppearanceGroupText.Options.UseForeColor = True
|
|
||||||
Me.TileControlMatch.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
|
||||||
Me.TileControlMatch.ColumnCount = 6
|
|
||||||
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
|
Me.TileControlMatch.Dock = System.Windows.Forms.DockStyle.Fill
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroupDocumentsData)
|
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroupDocuments)
|
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroupData)
|
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroup2)
|
Me.TileControlMatch.Groups.Add(Me.TileGroup2)
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroup3)
|
Me.TileControlMatch.Groups.Add(Me.TileGroup3)
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroup4)
|
|
||||||
Me.TileControlMatch.Groups.Add(Me.TileGroup5)
|
|
||||||
Me.TileControlMatch.IndentBetweenGroups = 25
|
|
||||||
Me.TileControlMatch.Location = New System.Drawing.Point(0, 61)
|
Me.TileControlMatch.Location = New System.Drawing.Point(0, 61)
|
||||||
Me.TileControlMatch.MaxId = 14
|
Me.TileControlMatch.MaxId = 2
|
||||||
Me.TileControlMatch.Name = "TileControlMatch"
|
Me.TileControlMatch.Name = "TileControlMatch"
|
||||||
Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
|
Me.TileControlMatch.ScrollMode = DevExpress.XtraEditors.TileControlScrollMode.ScrollBar
|
||||||
Me.TileControlMatch.ShowGroupText = True
|
Me.TileControlMatch.Size = New System.Drawing.Size(1245, 413)
|
||||||
Me.TileControlMatch.Size = New System.Drawing.Size(1245, 431)
|
|
||||||
Me.TileControlMatch.TabIndex = 2
|
Me.TileControlMatch.TabIndex = 2
|
||||||
Me.TileControlMatch.Text = "TileControl1"
|
Me.TileControlMatch.Text = "TileControl1"
|
||||||
'
|
'
|
||||||
'TileGroupDocumentsData
|
'TileGroup2
|
||||||
'
|
'
|
||||||
Me.TileGroupDocumentsData.Name = "TileGroupDocumentsData"
|
Me.TileGroup2.Items.Add(Me.TileItem1)
|
||||||
Me.TileGroupDocumentsData.Text = "Kombiniert"
|
Me.TileGroup2.Items.Add(Me.TileItem2)
|
||||||
Me.TileGroupDocumentsData.Visible = False
|
Me.TileGroup2.Name = "TileGroup2"
|
||||||
|
Me.TileGroup2.Text = "Attribut1"
|
||||||
'
|
'
|
||||||
'TileGroupDocuments
|
'TileGroup3
|
||||||
'
|
'
|
||||||
Me.TileGroupDocuments.Items.Add(Me.TileItem1)
|
Me.TileGroup3.Name = "TileGroup3"
|
||||||
Me.TileGroupDocuments.Items.Add(Me.TileItem2)
|
|
||||||
Me.TileGroupDocuments.Items.Add(Me.TileItem3)
|
|
||||||
Me.TileGroupDocuments.Name = "TileGroupDocuments"
|
|
||||||
Me.TileGroupDocuments.Text = "Dokumente"
|
|
||||||
'
|
'
|
||||||
'TileItem1
|
'TileItem1
|
||||||
'
|
'
|
||||||
Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
Me.TileItem1.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||||
Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True
|
Me.TileItem1.AppearanceItem.Normal.Options.UseBackColor = True
|
||||||
TileItemElement19.Appearance.Normal.ForeColor = System.Drawing.Color.Black
|
TileItemElement1.Text = "TileItem1"
|
||||||
TileItemElement19.Appearance.Normal.Options.UseForeColor = True
|
Me.TileItem1.Elements.Add(TileItemElement1)
|
||||||
TileItemElement19.Text = "TileItem1"
|
|
||||||
Me.TileItem1.Elements.Add(TileItemElement19)
|
|
||||||
Me.TileItem1.Id = 0
|
Me.TileItem1.Id = 0
|
||||||
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
Me.TileItem1.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
||||||
Me.TileItem1.Name = "TileItem1"
|
Me.TileItem1.Name = "TileItem1"
|
||||||
'
|
'
|
||||||
'TileItem2
|
'TileItem2
|
||||||
'
|
'
|
||||||
Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
Me.TileItem2.AppearanceItem.Normal.BackColor = System.Drawing.Color.White
|
||||||
Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True
|
Me.TileItem2.AppearanceItem.Normal.Options.UseBackColor = True
|
||||||
Me.TileItem2.CurrentFrameIndex = 1
|
TileItemElement2.Text = "TileItem2"
|
||||||
TileItemElement20.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
Me.TileItem2.Elements.Add(TileItemElement2)
|
||||||
TileItemElement20.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement20.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement20.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement20.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement20.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
|
||||||
TileItemElement20.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement20.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement20.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement20.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement20.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
|
||||||
TileItemElement20.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement20.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement20.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement20.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement20.Text = "Header"
|
|
||||||
TileItemElement20.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement20.TextLocation = New System.Drawing.Point(4, 0)
|
|
||||||
TileItemElement21.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement21.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement21.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement21.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement21.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement21.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement21.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement21.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement21.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement21.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement21.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement21.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement21.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement21.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement21.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement21.Text = "Text2"
|
|
||||||
TileItemElement21.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement21.TextLocation = New System.Drawing.Point(4, 27)
|
|
||||||
TileItemElement22.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement22.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement22.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement22.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement22.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement22.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement22.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement22.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement22.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement22.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement22.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement22.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement22.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement22.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement22.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement22.Text = "Text3"
|
|
||||||
TileItemElement22.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement22.TextLocation = New System.Drawing.Point(4, 43)
|
|
||||||
TileItemElement23.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement23.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement23.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement23.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement23.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement23.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement23.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement23.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement23.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement23.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement23.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement23.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement23.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement23.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement23.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement23.Text = "Text4"
|
|
||||||
TileItemElement23.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement23.TextLocation = New System.Drawing.Point(4, 59)
|
|
||||||
Me.TileItem2.Elements.Add(TileItemElement20)
|
|
||||||
Me.TileItem2.Elements.Add(TileItemElement21)
|
|
||||||
Me.TileItem2.Elements.Add(TileItemElement22)
|
|
||||||
Me.TileItem2.Elements.Add(TileItemElement23)
|
|
||||||
TileItemFrame3.Animation = DevExpress.XtraEditors.TileItemContentAnimationType.ScrollDown
|
|
||||||
TileItemElement24.ImageOptions.Image = CType(resources.GetObject("resource.Image"), System.Drawing.Image)
|
|
||||||
TileItemElement24.ImageOptions.ImageAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement24.ImageOptions.ImageLocation = New System.Drawing.Point(-12, -8)
|
|
||||||
TileItemElement24.ImageOptions.ImageScaleMode = DevExpress.XtraEditors.TileItemImageScaleMode.ZoomOutside
|
|
||||||
TileItemElement24.ImageOptions.ImageSize = New System.Drawing.Size(120, 120)
|
|
||||||
TileItemFrame3.Elements.Add(TileItemElement24)
|
|
||||||
TileItemFrame3.Image = CType(resources.GetObject("TileItemFrame3.Image"), System.Drawing.Image)
|
|
||||||
TileItemFrame4.Animation = DevExpress.XtraEditors.TileItemContentAnimationType.ScrollTop
|
|
||||||
TileItemElement25.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
|
||||||
TileItemElement25.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement25.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement25.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement25.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement25.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
|
||||||
TileItemElement25.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement25.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement25.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement25.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement25.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI Light", 17.0!)
|
|
||||||
TileItemElement25.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement25.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement25.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement25.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement25.Text = "Header"
|
|
||||||
TileItemElement25.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement25.TextLocation = New System.Drawing.Point(4, 0)
|
|
||||||
TileItemElement26.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement26.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement26.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement26.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement26.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement26.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement26.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement26.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement26.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement26.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement26.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement26.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement26.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement26.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement26.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement26.Text = "Text2"
|
|
||||||
TileItemElement26.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement26.TextLocation = New System.Drawing.Point(4, 27)
|
|
||||||
TileItemElement27.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement27.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement27.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement27.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement27.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement27.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement27.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement27.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement27.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement27.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement27.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement27.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement27.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement27.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement27.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement27.Text = "Text3"
|
|
||||||
TileItemElement27.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement27.TextLocation = New System.Drawing.Point(4, 43)
|
|
||||||
TileItemElement28.Appearance.Hovered.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement28.Appearance.Hovered.Options.UseFont = True
|
|
||||||
TileItemElement28.Appearance.Hovered.Options.UseTextOptions = True
|
|
||||||
TileItemElement28.Appearance.Hovered.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement28.Appearance.Hovered.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement28.Appearance.Normal.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement28.Appearance.Normal.Options.UseFont = True
|
|
||||||
TileItemElement28.Appearance.Normal.Options.UseTextOptions = True
|
|
||||||
TileItemElement28.Appearance.Normal.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement28.Appearance.Normal.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement28.Appearance.Selected.Font = New System.Drawing.Font("Segoe UI", 9.0!)
|
|
||||||
TileItemElement28.Appearance.Selected.Options.UseFont = True
|
|
||||||
TileItemElement28.Appearance.Selected.Options.UseTextOptions = True
|
|
||||||
TileItemElement28.Appearance.Selected.TextOptions.Trimming = DevExpress.Utils.Trimming.EllipsisCharacter
|
|
||||||
TileItemElement28.Appearance.Selected.TextOptions.WordWrap = DevExpress.Utils.WordWrap.NoWrap
|
|
||||||
TileItemElement28.Text = "Text4"
|
|
||||||
TileItemElement28.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.Manual
|
|
||||||
TileItemElement28.TextLocation = New System.Drawing.Point(4, 59)
|
|
||||||
TileItemFrame4.Elements.Add(TileItemElement25)
|
|
||||||
TileItemFrame4.Elements.Add(TileItemElement26)
|
|
||||||
TileItemFrame4.Elements.Add(TileItemElement27)
|
|
||||||
TileItemFrame4.Elements.Add(TileItemElement28)
|
|
||||||
Me.TileItem2.Frames.Add(TileItemFrame3)
|
|
||||||
Me.TileItem2.Frames.Add(TileItemFrame4)
|
|
||||||
Me.TileItem2.Id = 1
|
Me.TileItem2.Id = 1
|
||||||
Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
Me.TileItem2.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
||||||
Me.TileItem2.Name = "TileItem2"
|
Me.TileItem2.Name = "TileItem2"
|
||||||
'
|
'
|
||||||
'TileItem3
|
|
||||||
'
|
|
||||||
Me.TileItem3.AppearanceItem.Normal.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(214, Byte), Integer), CType(CType(49, Byte), Integer))
|
|
||||||
Me.TileItem3.AppearanceItem.Normal.Options.UseBackColor = True
|
|
||||||
TileItemElement29.Text = "TileItem3"
|
|
||||||
Me.TileItem3.Elements.Add(TileItemElement29)
|
|
||||||
Me.TileItem3.Id = 2
|
|
||||||
Me.TileItem3.ItemSize = DevExpress.XtraEditors.TileItemSize.Small
|
|
||||||
Me.TileItem3.Name = "TileItem3"
|
|
||||||
'
|
|
||||||
'TileGroupData
|
|
||||||
'
|
|
||||||
Me.TileGroupData.Name = "TileGroupData"
|
|
||||||
Me.TileGroupData.Text = "Daten"
|
|
||||||
'
|
|
||||||
'TileGroup2
|
|
||||||
'
|
|
||||||
Me.TileGroup2.Items.Add(Me.TileItem5)
|
|
||||||
Me.TileGroup2.Items.Add(Me.TileItem4)
|
|
||||||
Me.TileGroup2.Name = "TileGroup2"
|
|
||||||
Me.TileGroup2.Text = "Group3"
|
|
||||||
'
|
|
||||||
'TileItem5
|
|
||||||
'
|
|
||||||
TileItemElement30.Text = "TileItem5"
|
|
||||||
Me.TileItem5.Elements.Add(TileItemElement30)
|
|
||||||
Me.TileItem5.Id = 11
|
|
||||||
Me.TileItem5.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
|
||||||
Me.TileItem5.Name = "TileItem5"
|
|
||||||
'
|
|
||||||
'TileItem4
|
|
||||||
'
|
|
||||||
TileItemElement31.Text = "TileItem4dadadasdasdasdasdasd"
|
|
||||||
TileItemElement31.TextAlignment = DevExpress.XtraEditors.TileItemContentAlignment.TopLeft
|
|
||||||
Me.TileItem4.Elements.Add(TileItemElement31)
|
|
||||||
Me.TileItem4.Id = 3
|
|
||||||
Me.TileItem4.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
|
||||||
Me.TileItem4.Name = "TileItem4"
|
|
||||||
Me.TileItem4.RowCount = 3
|
|
||||||
Me.TileItem4.TextShowMode = DevExpress.XtraEditors.TileItemContentShowMode.Hover
|
|
||||||
'
|
|
||||||
'TileGroup3
|
|
||||||
'
|
|
||||||
Me.TileGroup3.Items.Add(Me.TileItem6)
|
|
||||||
Me.TileGroup3.Items.Add(Me.TileItem7)
|
|
||||||
Me.TileGroup3.Items.Add(Me.TileItem8)
|
|
||||||
Me.TileGroup3.Name = "TileGroup3"
|
|
||||||
Me.TileGroup3.Text = "Group4"
|
|
||||||
'
|
|
||||||
'TileItem6
|
|
||||||
'
|
|
||||||
TileItemElement32.Text = "TileItem6"
|
|
||||||
Me.TileItem6.Elements.Add(TileItemElement32)
|
|
||||||
Me.TileItem6.Id = 6
|
|
||||||
Me.TileItem6.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
|
||||||
Me.TileItem6.Name = "TileItem6"
|
|
||||||
'
|
|
||||||
'TileItem7
|
|
||||||
'
|
|
||||||
TileItemElement33.Text = "TileItem7"
|
|
||||||
Me.TileItem7.Elements.Add(TileItemElement33)
|
|
||||||
Me.TileItem7.Id = 7
|
|
||||||
Me.TileItem7.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
|
||||||
Me.TileItem7.Name = "TileItem7"
|
|
||||||
'
|
|
||||||
'TileItem8
|
|
||||||
'
|
|
||||||
TileItemElement34.Text = "TileItem8"
|
|
||||||
Me.TileItem8.Elements.Add(TileItemElement34)
|
|
||||||
Me.TileItem8.Id = 8
|
|
||||||
Me.TileItem8.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
|
||||||
Me.TileItem8.Name = "TileItem8"
|
|
||||||
'
|
|
||||||
'TileGroup4
|
|
||||||
'
|
|
||||||
Me.TileGroup4.Items.Add(Me.TileItem9)
|
|
||||||
Me.TileGroup4.Items.Add(Me.TileItem10)
|
|
||||||
Me.TileGroup4.Name = "TileGroup4"
|
|
||||||
Me.TileGroup4.Text = "Group5"
|
|
||||||
'
|
|
||||||
'TileItem9
|
|
||||||
'
|
|
||||||
TileItemElement35.Text = "TileItem9"
|
|
||||||
Me.TileItem9.Elements.Add(TileItemElement35)
|
|
||||||
Me.TileItem9.Id = 12
|
|
||||||
Me.TileItem9.ItemSize = DevExpress.XtraEditors.TileItemSize.Wide
|
|
||||||
Me.TileItem9.Name = "TileItem9"
|
|
||||||
'
|
|
||||||
'TileItem10
|
|
||||||
'
|
|
||||||
TileItemElement36.Text = "TileItem10"
|
|
||||||
Me.TileItem10.Elements.Add(TileItemElement36)
|
|
||||||
Me.TileItem10.Id = 13
|
|
||||||
Me.TileItem10.ItemSize = DevExpress.XtraEditors.TileItemSize.Medium
|
|
||||||
Me.TileItem10.Name = "TileItem10"
|
|
||||||
'
|
|
||||||
'TileGroup5
|
|
||||||
'
|
|
||||||
Me.TileGroup5.Name = "TileGroup5"
|
|
||||||
Me.TileGroup5.Text = "Group 6"
|
|
||||||
'
|
|
||||||
'frmFlowSearch
|
'frmFlowSearch
|
||||||
'
|
'
|
||||||
Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
Me.Appearance.BackColor = System.Drawing.Color.FromArgb(CType(CType(165, Byte), Integer), CType(CType(36, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||||
@ -449,6 +144,7 @@ Partial Class frmFlowSearch
|
|||||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||||
Me.ClientSize = New System.Drawing.Size(1245, 492)
|
Me.ClientSize = New System.Drawing.Size(1245, 492)
|
||||||
Me.Controls.Add(Me.TileControlMatch)
|
Me.Controls.Add(Me.TileControlMatch)
|
||||||
|
Me.Controls.Add(Me.Panel2)
|
||||||
Me.Controls.Add(Me.Panel1)
|
Me.Controls.Add(Me.Panel1)
|
||||||
Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
Me.IconOptions.SvgImage = CType(resources.GetObject("frmFlowSearch.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
|
||||||
Me.Name = "frmFlowSearch"
|
Me.Name = "frmFlowSearch"
|
||||||
@ -462,23 +158,11 @@ Partial Class frmFlowSearch
|
|||||||
Friend WithEvents Panel1 As Panel
|
Friend WithEvents Panel1 As Panel
|
||||||
Friend WithEvents txtSearch As TextBox
|
Friend WithEvents txtSearch As TextBox
|
||||||
Friend WithEvents Label1 As Label
|
Friend WithEvents Label1 As Label
|
||||||
|
Friend WithEvents lblFoundResult As Label
|
||||||
|
Friend WithEvents Panel2 As Panel
|
||||||
Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
|
Friend WithEvents TileControlMatch As DevExpress.XtraEditors.TileControl
|
||||||
Friend WithEvents TileGroupDocumentsData As DevExpress.XtraEditors.TileGroup
|
Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
|
||||||
Friend WithEvents TileGroupDocuments As DevExpress.XtraEditors.TileGroup
|
|
||||||
Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
|
Friend WithEvents TileItem1 As DevExpress.XtraEditors.TileItem
|
||||||
Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
|
Friend WithEvents TileItem2 As DevExpress.XtraEditors.TileItem
|
||||||
Friend WithEvents TileItem3 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileGroupData As DevExpress.XtraEditors.TileGroup
|
|
||||||
Friend WithEvents TileGroup2 As DevExpress.XtraEditors.TileGroup
|
|
||||||
Friend WithEvents TileItem5 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileItem4 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup
|
Friend WithEvents TileGroup3 As DevExpress.XtraEditors.TileGroup
|
||||||
Friend WithEvents TileItem6 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileItem7 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileItem8 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileGroup4 As DevExpress.XtraEditors.TileGroup
|
|
||||||
Friend WithEvents TileItem9 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileItem10 As DevExpress.XtraEditors.TileItem
|
|
||||||
Friend WithEvents TileGroup5 As DevExpress.XtraEditors.TileGroup
|
|
||||||
Friend WithEvents lblFoundResult As Label
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@ -117,89 +117,6 @@
|
|||||||
<resheader name="writer">
|
<resheader name="writer">
|
||||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||||
</resheader>
|
</resheader>
|
||||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
|
||||||
<data name="resource.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAAHgAAAB4CAYAAAA5ZDbSAAAABGdBTUEAALGPC/xhBQAACFBJREFUeF7t
|
|
||||||
nN9rlmUcxj3wwAPBAw889UAQPPIP8KBlqAUjsyhiBytCKoqRIpn9IBZm5Y8ywUE6WqARhpKwSUvbwlKX
|
|
||||||
aIlNSdhcc2PTZjN92Y+2d5t9r7tbuG+fa83t1e2+7/d7wQf6XtfzffY+z8Vs77v33azbt28rCUNNJR2o
|
|
||||||
qaQDNZV0yBqzZj2kxEumz4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsAclU
|
|
||||||
AYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5
|
|
||||||
eIMxyBKQTBWQWEcAkYs3GIMsAcmozp8//6XobeX+g3trb3NGrCOAyMUbjEGWgGRUeCDseKVwcG/tbc6I
|
|
||||||
HQ8QuXiDMcgSkIxKC35waMGJowUnjhacOFpw4mjBiRNlwfPmzVt+4MCBd69cudLQ39/flc/n+0Aul/uj
|
|
||||||
paWldvfu3evYXjESXcFVVVXrpdROuzquent7L2zYsOF5do5iIqqCjx8/vlsOH/tva2KNjo7+s2/fvjfZ
|
|
||||||
uYqFaAquq6v70B4+KY2NjeW3bdv2KjtnMRBFweXl5c/iu9EePmkNDg7+uXjx4lXs3KkTRcFtbW3f2kOn
|
|
||||||
rFOnTn3Gzp06wRe8dOnSx+S7d8geOmXhBzN2/tQJvuDq6uqN9rCC9bSIfY2UCb7gxsbGT+1hBWvPnj0b
|
|
||||||
2NdImeALPnPmzOf2sIL1f18nVYIvuKGh4RN7WMEqxle4gi8YpdjDCtaqVaueYF8jZYIveOHChSvz+Xy/
|
|
||||||
PXTKunXrVgs7f+oEXzC4ePHiQXvolHXs2LGP2blTJ4qCV6xYsXp4eDhnD5+0crlc2/z58x9h506dKAoG
|
|
||||||
eD48JrIr9yz8875u3bpyds5iIJqCAX4HPJlXtYaGhv7esmXLy+xcxUJUBQN8N16/fv1Xuzqextrb278v
|
|
||||||
LS19kp2jmIiu4DtUVla+iHft9/T0/CI/IV8WWq9evdp0+vTpvWvXri1jO8VItAUr94YWnDhacOJowYmj
|
|
||||||
BSeOFpw4WnBgzJ49u+Tw4cPv9/X1deAp35IlSx5lx90rWnBAVFRUZF7EGR4evnXixIkq/FaN7UyEFhwA
|
|
||||||
KO/cuXP78R5ue0syGhoa6m1sbNy1YMGCSf3SRAueYWpqat4YGBjotrdiQuE93kePHt2Oz2ex892NFjxD
|
|
||||||
4B2enZ2dP9pbMGnhQ3f4tMecOXNK2PnvoAVPM/jOw/9TR0ZGBuzlFyT5Yaz90KFD741XtBY8jWzduvWV
|
|
||||||
XC532V72fRXekoT7iJ/C3a+pBU8Dy5YtK21tba2zl/tAdfPmzd+rq6tfv/O1teAHCL6bjhw58hGe6thL
|
|
||||||
nTb19vY279q16zUt+AGxfv365+Qm/2YvccaEn7rtf2bEHjdA5OINxiBLQDKqlArGx1Sbm5u/kue0I/by
|
|
||||||
ghV7/ACRizcYgywByahSKXj//v1vyXPacb9jQhO7BoDIxRuMQZaAZFSxF1xWVvZMd3f3SXs50YhdC0Dk
|
|
||||||
4g3GIEtAMqpYC8Z7rfHB8kL++sBMil0TQOTiDcYgS0AyqhgL3rlzZ4U8p223lxCl2HUBRC7eYAyyBCSj
|
|
||||||
iqng5cuXr25ra6u3Dz1qsesDiFy8wRhkCUhGFUPBeCmwvr5+ez6fn/JHaEITu06AyMUbjEGWgGRUoRe8
|
|
||||||
adOmF27cuHHRPtxkxK4VIHLxBmOQJSAZVUgF49Un/NkmeUzvnD179ouurq6T8px21D7UpMSuHyBy8QZj
|
|
||||||
kCUgGdVMFbxo0aKVmzdvfgn/9F66dOkbvPI0MjJS8GeRYxG7JwCRizcYgywByaimo+A1a9Y8VVNTs7Gp
|
|
||||||
qWlvR0fHD319fVem8mnFlMTuE0Dk4g3GIEtAMqr7WTCem+L/mbW1tR9cuHDh656enl9n4sX+GMTuH0Dk
|
|
||||||
4g3GIEtAMqqpFlxSUvI4/vosfoEuT12+w4fQYngNOBSxewoQuXiDMcgSkIxqooLnzp37MN5xePDgwUp8
|
|
||||||
ovDatWs/Dw4O/mXXVVMUu9cAkYs3GIMsAcmo3ILxpwt37NhRgT+Ahl+S4xfYsb4UGLrcblwQuXiDMcgS
|
|
||||||
kIwKbz6TpyM/DQwMXLWWahrEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwj
|
|
||||||
gMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xB
|
|
||||||
loBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDE
|
|
||||||
OgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzB
|
|
||||||
GGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYK
|
|
||||||
SKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjF
|
|
||||||
G4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBk
|
|
||||||
qoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKI
|
|
||||||
XLzBGGQJSKYKSKwjgMjFG4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsKfGQ
|
|
||||||
6fNuQ0kLairpQE0lHaippMLtWf8CcsOF40c0ZBkAAAAASUVORK5CYII=
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<data name="TileItemFrame3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
|
||||||
<value>
|
|
||||||
iVBORw0KGgoAAAANSUhEUgAAAHgAAAB4CAYAAAA5ZDbSAAAABGdBTUEAALGPC/xhBQAACFBJREFUeF7t
|
|
||||||
nN9rlmUcxj3wwAPBAw889UAQPPIP8KBlqAUjsyhiBytCKoqRIpn9IBZm5Y8ywUE6WqARhpKwSUvbwlKX
|
|
||||||
aIlNSdhcc2PTZjN92Y+2d5t9r7tbuG+fa83t1e2+7/d7wQf6XtfzffY+z8Vs77v33azbt28rCUNNJR2o
|
|
||||||
qaQDNZV0yBqzZj2kxEumz4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsAclU
|
|
||||||
AYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5eIMxyBKQTBWQWEcAkYs3GIMsAclUAYl1BBC5
|
|
||||||
eIMxyBKQTBWQWEcAkYs3GIMsAcmozp8//6XobeX+g3trb3NGrCOAyMUbjEGWgGRUeCDseKVwcG/tbc6I
|
|
||||||
HQ8QuXiDMcgSkIxKC35waMGJowUnjhacOFpw4mjBiRNlwfPmzVt+4MCBd69cudLQ39/flc/n+0Aul/uj
|
|
||||||
paWldvfu3evYXjESXcFVVVXrpdROuzquent7L2zYsOF5do5iIqqCjx8/vlsOH/tva2KNjo7+s2/fvjfZ
|
|
||||||
uYqFaAquq6v70B4+KY2NjeW3bdv2KjtnMRBFweXl5c/iu9EePmkNDg7+uXjx4lXs3KkTRcFtbW3f2kOn
|
|
||||||
rFOnTn3Gzp06wRe8dOnSx+S7d8geOmXhBzN2/tQJvuDq6uqN9rCC9bSIfY2UCb7gxsbGT+1hBWvPnj0b
|
|
||||||
2NdImeALPnPmzOf2sIL1f18nVYIvuKGh4RN7WMEqxle4gi8YpdjDCtaqVaueYF8jZYIveOHChSvz+Xy/
|
|
||||||
PXTKunXrVgs7f+oEXzC4ePHiQXvolHXs2LGP2blTJ4qCV6xYsXp4eDhnD5+0crlc2/z58x9h506dKAoG
|
|
||||||
eD48JrIr9yz8875u3bpyds5iIJqCAX4HPJlXtYaGhv7esmXLy+xcxUJUBQN8N16/fv1Xuzqextrb278v
|
|
||||||
LS19kp2jmIiu4DtUVla+iHft9/T0/CI/IV8WWq9evdp0+vTpvWvXri1jO8VItAUr94YWnDhacOJowYmj
|
|
||||||
BSeOFpw4WnBgzJ49u+Tw4cPv9/X1deAp35IlSx5lx90rWnBAVFRUZF7EGR4evnXixIkq/FaN7UyEFhwA
|
|
||||||
KO/cuXP78R5ue0syGhoa6m1sbNy1YMGCSf3SRAueYWpqat4YGBjotrdiQuE93kePHt2Oz2ex892NFjxD
|
|
||||||
4B2enZ2dP9pbMGnhQ3f4tMecOXNK2PnvoAVPM/jOw/9TR0ZGBuzlFyT5Yaz90KFD741XtBY8jWzduvWV
|
|
||||||
XC532V72fRXekoT7iJ/C3a+pBU8Dy5YtK21tba2zl/tAdfPmzd+rq6tfv/O1teAHCL6bjhw58hGe6thL
|
|
||||||
nTb19vY279q16zUt+AGxfv365+Qm/2YvccaEn7rtf2bEHjdA5OINxiBLQDKqlArGx1Sbm5u/kue0I/by
|
|
||||||
ghV7/ACRizcYgywByahSKXj//v1vyXPacb9jQhO7BoDIxRuMQZaAZFSxF1xWVvZMd3f3SXs50YhdC0Dk
|
|
||||||
4g3GIEtAMqpYC8Z7rfHB8kL++sBMil0TQOTiDcYgS0AyqhgL3rlzZ4U8p223lxCl2HUBRC7eYAyyBCSj
|
|
||||||
iqng5cuXr25ra6u3Dz1qsesDiFy8wRhkCUhGFUPBeCmwvr5+ez6fn/JHaEITu06AyMUbjEGWgGRUoRe8
|
|
||||||
adOmF27cuHHRPtxkxK4VIHLxBmOQJSAZVUgF49Un/NkmeUzvnD179ouurq6T8px21D7UpMSuHyBy8QZj
|
|
||||||
kCUgGdVMFbxo0aKVmzdvfgn/9F66dOkbvPI0MjJS8GeRYxG7JwCRizcYgywByaimo+A1a9Y8VVNTs7Gp
|
|
||||||
qWlvR0fHD319fVem8mnFlMTuE0Dk4g3GIEtAMqr7WTCem+L/mbW1tR9cuHDh656enl9n4sX+GMTuH0Dk
|
|
||||||
4g3GIEtAMqqpFlxSUvI4/vosfoEuT12+w4fQYngNOBSxewoQuXiDMcgSkIxqooLnzp37MN5xePDgwUp8
|
|
||||||
ovDatWs/Dw4O/mXXVVMUu9cAkYs3GIMsAcmo3ILxpwt37NhRgT+Ahl+S4xfYsb4UGLrcblwQuXiDMcgS
|
|
||||||
kIwKbz6TpyM/DQwMXLWWahrEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwj
|
|
||||||
gMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xB
|
|
||||||
loBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDE
|
|
||||||
OgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzB
|
|
||||||
GGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYK
|
|
||||||
SKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjF
|
|
||||||
G4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBk
|
|
||||||
qoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKIXLzBGGQJSKYKSKwjgMjFG4xBloBkqoDEOgKI
|
|
||||||
XLzBGGQJSKYKSKwjgMjFG4xBlpR4yPSZMciSEg+ZPjMGWVLiIdNnxiBLSjxk+swYZEmJh0yfGYMsKfGQ
|
|
||||||
6fNuQ0kLairpQE0lHaippMLtWf8CcsOF40c0ZBkAAAAASUVORK5CYII=
|
|
||||||
</value>
|
|
||||||
</data>
|
|
||||||
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
<assembly alias="DevExpress.Data.v19.2" name="DevExpress.Data.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
|
||||||
<data name="frmFlowSearch.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
<data name="frmFlowSearch.IconOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v19.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||||
<value>
|
<value>
|
||||||
|
|||||||
@ -11,14 +11,14 @@ Public Class frmFlowSearch
|
|||||||
Private SecondaryFont As New Font("Segoe UI", 8)
|
Private SecondaryFont As New Font("Segoe UI", 8)
|
||||||
Dim oLastAttribute As String = ""
|
Dim oLastAttribute As String = ""
|
||||||
Dim oAttributeCount As Integer = 1
|
Dim oAttributeCount As Integer = 1
|
||||||
Dim BASE_SSEARCHCommand As String
|
Dim BASE_SEARCHCommand As String
|
||||||
Private LastSearchForm As frmDocumentResultList
|
Private LastSearchForm As frmDocumentResultList
|
||||||
Public Sub New(pBaseSearchSql As String)
|
Public Sub New(pBaseSearchSql As String)
|
||||||
|
|
||||||
|
|
||||||
' Dieser Aufruf ist für den Designer erforderlich.
|
' Dieser Aufruf ist für den Designer erforderlich.
|
||||||
InitializeComponent()
|
InitializeComponent()
|
||||||
BASE_SSEARCHCommand = pBaseSearchSql
|
BASE_SEARCHCommand = pBaseSearchSql
|
||||||
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
|
||||||
Logger = My.LogConfig.GetLogger()
|
Logger = My.LogConfig.GetLogger()
|
||||||
End Sub
|
End Sub
|
||||||
@ -27,6 +27,7 @@ Public Class frmFlowSearch
|
|||||||
Try
|
Try
|
||||||
|
|
||||||
If txtSearch.Text = String.Empty Then
|
If txtSearch.Text = String.Empty Then
|
||||||
|
Reset_Form()
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
lblFoundResult.Visible = False
|
lblFoundResult.Visible = False
|
||||||
@ -38,101 +39,92 @@ Public Class frmFlowSearch
|
|||||||
Logger.Error(ex)
|
Logger.Error(ex)
|
||||||
End Try
|
End Try
|
||||||
End Sub
|
End Sub
|
||||||
Sub SearchContent(oSearchValue As String)
|
Sub Reset_Form()
|
||||||
oLastAttribute = ""
|
|
||||||
Dim oSQL = BASE_SSEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
|
|
||||||
Dim oResultCount As Integer = 0
|
|
||||||
TileControlMatch.Groups.Clear()
|
TileControlMatch.Groups.Clear()
|
||||||
|
lblFoundResult.Visible = False
|
||||||
|
End Sub
|
||||||
|
Sub SearchContent(oSearchValue As String)
|
||||||
|
Try
|
||||||
|
oLastAttribute = ""
|
||||||
|
Dim oSQL = BASE_SEARCHCommand.Replace("@SEARCH_STRING", oSearchValue)
|
||||||
|
Dim oResultCountAttributes As Integer = 0
|
||||||
|
TileControlMatch.Groups.Clear()
|
||||||
|
|
||||||
Dim ODT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
|
Dim oResultsfromSearchDT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
|
||||||
If Not IsNothing(ODT) Then
|
If Not IsNothing(oResultsfromSearchDT) Then
|
||||||
|
|
||||||
Dim oView As DataView = New DataView(ODT)
|
Dim oView As DataView = New DataView(oResultsfromSearchDT)
|
||||||
Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID")
|
Dim oDTDistinctValues As DataTable = oView.ToTable(True, "ATTRIBUTE", "ATTR_ID")
|
||||||
Dim oGroups = ODT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE"))
|
Dim oGroups = oResultsfromSearchDT.AsEnumerable().GroupBy(Function(row) row.Field(Of String)("ATTRIBUTE"))
|
||||||
Dim oNewTable As New DataTable
|
Dim oNewTable As New DataTable
|
||||||
oNewTable.Columns.Add("ATTRIBUTE")
|
oNewTable.Columns.Add("ATTRIBUTE")
|
||||||
oNewTable.Columns.Add("COUNT", Type.GetType("System.Int32"))
|
oNewTable.Columns.Add("COUNT", Type.GetType("System.Int32"))
|
||||||
For Each oGroup In oGroups
|
For Each oGroup In oGroups
|
||||||
oNewTable.Rows.Add(oGroup.Key, oGroup.Sum(Function(row) row.Field(Of Int32)("COUNT_OBJ")))
|
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
|
Next
|
||||||
lblFoundResult.Text = GetResultString(oResultCount, oAttrCount, oSearchValue)
|
If Not IsNothing(oNewTable) Then
|
||||||
lblFoundResult.Visible = True
|
Dim oAttrCount As Integer = 0
|
||||||
|
|
||||||
End If
|
For Each orow As DataRow In oNewTable.Rows
|
||||||
oNewTable.DefaultView.Sort = "COUNT ASC"
|
oAttrCount += 1
|
||||||
oNewTable = oNewTable.DefaultView.ToTable
|
oResultCountAttributes += orow.Item(1)
|
||||||
|
Next
|
||||||
|
lblFoundResult.Text = GetResultString(oResultCountAttributes, 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 oResultsfromSearchDT.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"))
|
||||||
|
If Not IsNothing(oItem) Then
|
||||||
|
oGroup.Items.Add(oItem)
|
||||||
|
End If
|
||||||
|
|
||||||
|
End If
|
||||||
|
Next
|
||||||
|
TileControlMatch.Groups.Add(oGroup)
|
||||||
|
Next
|
||||||
|
|
||||||
|
'Wenn weniger als 45 Belege gefunden wurden wird direkt die Suche ausgeführt
|
||||||
|
If oResultCountAttributes > 0 And oResultCountAttributes <= 45 Then
|
||||||
|
StartSearch_Full(oSearchValue)
|
||||||
|
Else
|
||||||
|
If oResultsfromSearchDT.Rows.Count = 0 Then
|
||||||
|
Reset_Form()
|
||||||
|
|
||||||
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
|
End If
|
||||||
Next
|
End If
|
||||||
TileControlMatch.Groups.Add(oGroup)
|
|
||||||
Next
|
|
||||||
|
|
||||||
'Wenn weniger als 45 Belege gefunden wurden wird direkt die Suche ausgeführt
|
Else
|
||||||
If oResultCount > 0 And oResultCount <= 45 Then
|
lblFoundResult.Text = "Result from DB Is Nothing..Check SQL"
|
||||||
StartSearch_Full(oSearchValue)
|
lblFoundResult.Visible = True
|
||||||
End If
|
End If
|
||||||
|
Catch ex As Exception
|
||||||
|
Logger.Error(ex)
|
||||||
|
End Try
|
||||||
|
|
||||||
Else
|
|
||||||
lblFoundResult.Text = "Result from DB Is Nothing..Check SQL"
|
|
||||||
lblFoundResult.Visible = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Function StartSearch_Full(pSearchValue As String) As Boolean
|
Private Function StartSearch_Full(pSearchValue As String) As Boolean
|
||||||
Dim oHandle As IOverlaySplashScreenHandle = Nothing
|
Dim oHandle As IOverlaySplashScreenHandle = Nothing
|
||||||
Dim oItemsFound As Boolean = False
|
Dim oItemsFound As Boolean = False
|
||||||
Dim oState = My.Application.Search
|
Dim oSearchData = My.Application.Search
|
||||||
|
|
||||||
Try
|
Try
|
||||||
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||||
|
|
||||||
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oState.StringAttributeId}','{oState.IntegerAttributeId}'"
|
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT '{pSearchValue}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
|
||||||
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
||||||
If Not IsNothing(oDTOBJECT_RESULT) Then
|
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
|
oItemsFound = True
|
||||||
|
OpenResultForm(oDTOBJECT_RESULT)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
@ -144,6 +136,40 @@ Public Class frmFlowSearch
|
|||||||
End Try
|
End Try
|
||||||
Return oItemsFound
|
Return oItemsFound
|
||||||
End Function
|
End Function
|
||||||
|
Private Sub OpenResultForm(pDTRESULT As DataTable)
|
||||||
|
Try
|
||||||
|
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 = pDTRESULT
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
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()
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
Logger.Error(ex)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
|
|
||||||
Private Function GetResultFormLocation() As Point
|
Private Function GetResultFormLocation() As Point
|
||||||
Return Location
|
Return Location
|
||||||
@ -160,64 +186,73 @@ Public Class frmFlowSearch
|
|||||||
Return String.Format(oBase, oResultString, oProfileString, SearchContent)
|
Return String.Format(oBase, oResultString, oProfileString, SearchContent)
|
||||||
End Function
|
End Function
|
||||||
Private Function CreateTile(pTermValue As String, pCount_Obj As String, pAttribute As String, pAttributeID As String, pTermGuid As Long) As TileItem
|
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}"}
|
Try
|
||||||
|
Dim oItem As New TileItem() With {.Tag = $"{pTermGuid}|{pAttributeID}"}
|
||||||
|
|
||||||
oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(255, 214, 47)
|
If oLastAttribute <> pAttribute Then
|
||||||
If oLastAttribute <> pAttribute Then
|
oAttributeCount = 1
|
||||||
oAttributeCount = 1
|
oLastAttribute = pAttribute
|
||||||
oLastAttribute = pAttribute
|
oItem.ItemSize = TileItemSize.Wide
|
||||||
oItem.ItemSize = TileItemSize.Wide
|
oItem.AppearanceItem.Normal.BackColor = Color.FromArgb(165, 36, 49) ' GELB 255, 214, 47)
|
||||||
ElseIf oAttributeCount = 2 Then
|
Else
|
||||||
oItem.ItemSize = TileItemSize.Medium
|
oItem.ItemSize = TileItemSize.Medium
|
||||||
End If
|
oItem.AppearanceItem.Normal.BackColor = Color.White
|
||||||
oAttributeCount += 1
|
End If
|
||||||
|
oAttributeCount += 1
|
||||||
|
|
||||||
oItem.Elements.Clear()
|
oItem.Elements.Clear()
|
||||||
|
|
||||||
Dim oNameElement = New TileItemElement With {
|
Dim oNameElement = New TileItemElement With {
|
||||||
.Text = pTermValue,
|
.Text = pTermValue,
|
||||||
.TextAlignment = TileItemContentAlignment.TopLeft
|
.TextAlignment = TileItemContentAlignment.TopLeft
|
||||||
}
|
}
|
||||||
Select Case oItem.ItemSize
|
Select Case oItem.ItemSize
|
||||||
Case TileItemSize.Wide
|
Case TileItemSize.Wide
|
||||||
oNameElement.Appearance.Normal.Font = FontLargeBold
|
oNameElement.Appearance.Normal.Font = FontLargeBold
|
||||||
Case Else
|
oNameElement.Appearance.Normal.ForeColor = Color.White
|
||||||
oNameElement.Appearance.Normal.Font = SecondaryFontBold
|
Case Else
|
||||||
End Select
|
oNameElement.Appearance.Normal.Font = SecondaryFontBold
|
||||||
|
oNameElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49)
|
||||||
|
End Select
|
||||||
|
|
||||||
oNameElement.Appearance.Normal.ForeColor = Color.Black
|
'oNameElement.Appearance.Normal.ForeColor = Color.Black
|
||||||
oItem.Elements.Add(oNameElement)
|
oItem.Elements.Add(oNameElement)
|
||||||
|
|
||||||
'Dim oCommentElement = New TileItemElement With {
|
'Dim oCommentElement = New TileItemElement With {
|
||||||
' .Text = "Anzahl Objekte: " & pCount_Obj,
|
' .Text = "Anzahl Objekte: " & pCount_Obj,
|
||||||
' .TextAlignment = TileItemContentAlignment.MiddleLeft
|
' .TextAlignment = TileItemContentAlignment.MiddleLeft
|
||||||
'}
|
'}
|
||||||
|
|
||||||
'Select Case oItem.ItemSize
|
'Select Case oItem.ItemSize
|
||||||
' Case TileItemSize.Wide
|
' Case TileItemSize.Wide
|
||||||
' oCommentElement.Appearance.Normal.Font = FontLargeNormal
|
' oCommentElement.Appearance.Normal.Font = FontLargeNormal
|
||||||
' Case Else
|
' Case Else
|
||||||
' oCommentElement.Appearance.Normal.Font = SecondaryFont
|
' oCommentElement.Appearance.Normal.Font = SecondaryFont
|
||||||
'End Select
|
'End Select
|
||||||
|
|
||||||
'oCommentElement.Appearance.Normal.ForeColor = Color.Black
|
'oCommentElement.Appearance.Normal.ForeColor = Color.Black
|
||||||
'oItem.Elements.Add(oCommentElement)
|
'oItem.Elements.Add(oCommentElement)
|
||||||
|
|
||||||
Dim oCountElement = New TileItemElement With {
|
Dim oCountElement = New TileItemElement With {
|
||||||
.Text = "Anzahl Objekte: " & pCount_Obj,
|
.Text = "Anzahl Objekte: " & pCount_Obj,
|
||||||
.TextAlignment = TileItemContentAlignment.BottomRight
|
.TextAlignment = TileItemContentAlignment.BottomRight
|
||||||
}
|
}
|
||||||
Select Case oItem.ItemSize
|
Select Case oItem.ItemSize
|
||||||
Case TileItemSize.Wide
|
Case TileItemSize.Wide
|
||||||
oCountElement.Appearance.Normal.Font = FontLargeNormal
|
oCountElement.Appearance.Normal.Font = FontLargeNormal
|
||||||
Case Else
|
oCountElement.Appearance.Normal.ForeColor = Color.White
|
||||||
oCountElement.Appearance.Normal.Font = SecondaryFont
|
Case Else
|
||||||
End Select
|
oCountElement.Appearance.Normal.Font = SecondaryFont
|
||||||
oCountElement.Appearance.Normal.ForeColor = Color.Black
|
oCountElement.Appearance.Normal.ForeColor = Color.FromArgb(165, 36, 49)
|
||||||
|
End Select
|
||||||
|
oItem.Elements.Add(oCountElement)
|
||||||
|
|
||||||
oItem.Elements.Add(oCountElement)
|
Return oItem
|
||||||
|
Catch ex As Exception
|
||||||
|
Logger.Error(ex)
|
||||||
|
Return Nothing
|
||||||
|
End Try
|
||||||
|
|
||||||
Return oItem
|
|
||||||
End Function
|
End Function
|
||||||
|
|
||||||
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearch.GotFocus
|
Private Sub txtSearch_Enter(sender As Object, e As EventArgs) Handles txtSearch.GotFocus
|
||||||
@ -227,4 +262,38 @@ Public Class frmFlowSearch
|
|||||||
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
Private Sub frmFlowSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||||
TileControlMatch.Groups.Clear()
|
TileControlMatch.Groups.Clear()
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
Private Sub TileControlMatch_ItemClick(sender As Object, e As TileItemEventArgs) Handles TileControlMatch.ItemClick
|
||||||
|
Try
|
||||||
|
Dim oItem As TileItem = e.Item
|
||||||
|
Dim oItemTag = oItem.Tag
|
||||||
|
Dim oHandle As IOverlaySplashScreenHandle = Nothing
|
||||||
|
Dim oItemsFound As Boolean = False
|
||||||
|
Dim oSearchData = My.Application.Search
|
||||||
|
Dim oSplit = oItem.Tag.ToString.Split("|")
|
||||||
|
Try
|
||||||
|
oHandle = SplashScreenManager.ShowOverlayForm(Me)
|
||||||
|
|
||||||
|
Dim oEXECSQL = $"EXEC PRFLOW_SEARCH_GET_RESULT_PER_TILE '{oSplit(0)}',{My.Application.User.UserId},'{oSearchData.SelectInStringAttributeIds}','{oSearchData.SelectInIntegerAttributeIds}'"
|
||||||
|
Dim oDTOBJECT_RESULT As DataTable = My.DatabaseIDB.GetDatatable(oEXECSQL)
|
||||||
|
If Not IsNothing(oDTOBJECT_RESULT) Then
|
||||||
|
oItemsFound = True
|
||||||
|
OpenResultForm(oDTOBJECT_RESULT)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox(ex.Message, MsgBoxStyle.Critical, Text)
|
||||||
|
Finally
|
||||||
|
SplashScreenManager.CloseOverlayForm(oHandle)
|
||||||
|
|
||||||
|
End Try
|
||||||
|
Return oItemsFound
|
||||||
|
|
||||||
|
|
||||||
|
Catch ex As Exception
|
||||||
|
MsgBox($"Error while loading Searches: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
|
||||||
|
Logger.Error(ex)
|
||||||
|
End Try
|
||||||
|
End Sub
|
||||||
End Class
|
End Class
|
||||||
@ -400,14 +400,15 @@ Public Class frmFlowForm
|
|||||||
Cursor = Cursors.Default
|
Cursor = Cursors.Default
|
||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
End If
|
||||||
Dim oSQL As String = ""
|
Dim oSQLFlowSearch As String = ""
|
||||||
For Each oRow As DataRow In My.DTCOMMON_SQL.Rows
|
For Each oRow As DataRow In My.DTCOMMON_SQL.Rows
|
||||||
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH1 Then
|
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_LOWER_LIMIT Then
|
||||||
oSQL = oRow.Item("SQL_COMMAND")
|
oSQLFlowSearch = oRow.Item("SQL_COMMAND")
|
||||||
End If
|
End If
|
||||||
Next
|
Next
|
||||||
If oSQL <> String.Empty Then
|
If oSQLFlowSearch <> String.Empty Then
|
||||||
Dim oForm As New frmFlowSearch(oSQL)
|
oSQLFlowSearch = oSQLFlowSearch.Replace("@USER_ID", My.Application.User.UserId)
|
||||||
|
Dim oForm As New frmFlowSearch(oSQLFlowSearch)
|
||||||
oForm.Show()
|
oForm.Show()
|
||||||
oForm.BringToFront()
|
oForm.BringToFront()
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user