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

MS

Browse Source
This commit is contained in:
SchreiberM 2022-04-07 10:06:22 +02:00
parent abff7fa745
commit d8d31689df
2 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
GUIs.ZooFlow/Search/frmFlowSearch1.Designer.vb generated
View File

@ -187,8 +187,6 @@ Partial Class frmFlowSearch1
' '
'DockPanel1 'DockPanel1
' '
Me.DockPanel1.Appearance.BackColor = System.Drawing.Color.Lavender
Me.DockPanel1.Appearance.Options.UseBackColor = True
Me.DockPanel1.Appearance.Options.UseImage = True Me.DockPanel1.Appearance.Options.UseImage = True
Me.DockPanel1.Controls.Add(Me.DockPanel1_Container) Me.DockPanel1.Controls.Add(Me.DockPanel1_Container)
Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left Me.DockPanel1.Dock = DevExpress.XtraBars.Docking.DockingStyle.Left
@ -423,8 +421,12 @@ Partial Class frmFlowSearch1
Me.txtSearchInput.Location = New System.Drawing.Point(227, 189) Me.txtSearchInput.Location = New System.Drawing.Point(227, 189)
Me.txtSearchInput.MenuManager = Me.RibbonControl1 Me.txtSearchInput.MenuManager = Me.RibbonControl1
Me.txtSearchInput.Name = "txtSearchInput" Me.txtSearchInput.Name = "txtSearchInput"
Me.txtSearchInput.Properties.Appearance.Font = New System.Drawing.Font("Segoe UI", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtSearchInput.Properties.Appearance.ForeColor = System.Drawing.Color.Blue
Me.txtSearchInput.Properties.Appearance.Options.UseFont = True
Me.txtSearchInput.Properties.Appearance.Options.UseForeColor = True
Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10) Me.txtSearchInput.Properties.Padding = New System.Windows.Forms.Padding(10)
Me.txtSearchInput.Size = New System.Drawing.Size(697, 40) Me.txtSearchInput.Size = New System.Drawing.Size(697, 46)
Me.txtSearchInput.TabIndex = 12 Me.txtSearchInput.TabIndex = 12
' '
'frmFlowSearch1 'frmFlowSearch1

14
GUIs.ZooFlow/Search/frmFlowSearch1.vb
View File

@ -222,6 +222,20 @@ Public Class frmFlowSearch1
oBASESEARCH = oBASESEARCH.Replace("@LANG_CODE", My.Application.User.Language) oBASESEARCH = oBASESEARCH.Replace("@LANG_CODE", My.Application.User.Language)
End If End If
Next Next
Dim osql = $"EXEC PRIDB_SEARCH_AUTOSUGGEST '{My.Application.User.Language}',{My.Application.User.UserId}"
Dim oDTSuggest As DataTable
oDTSuggest = My.Database.GetDatatableIDB(osql)
Dim collection As AutoCompleteStringCollection = New AutoCompleteStringCollection
For Each orow As DataRow In oDTSuggest.Rows
collection.Add(orow.Item("TERM"))
Next
txtSearchInput.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
txtSearchInput.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
txtSearchInput.MaskBox.AutoCompleteCustomSource = collection
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical) MsgBox(ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex) Logger.Error(ex)