43 lines
1.9 KiB
VB.net
43 lines
1.9 KiB
VB.net
Imports DigitalData.GUIs.ZooFlow.ClassConstants
|
|
|
|
Public Class frmFlowSearch2
|
|
Private SearchRunner As SearchRunner
|
|
Private BaseSearchSQL As String
|
|
|
|
Private Sub frmFlowSearch2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
For Each oRow As DataRow In My.Tables.DTIDB_COMMON_SQL.Rows
|
|
If oRow.Item("TITLE") = SQLCMD_FLOW_SEARCH_BASE Then
|
|
BaseSearchSQL = oRow.Item("SQL_COMMAND")
|
|
BaseSearchSQL = BaseSearchSQL.Replace("@USER_ID", My.Application.User.UserId)
|
|
BaseSearchSQL = BaseSearchSQL.Replace("@LANG_CODE", My.Application.User.Language)
|
|
End If
|
|
Next
|
|
|
|
SearchRunner = New SearchRunner(My.LogConfig, My.Application.GetEnvironment, "FlowSearch")
|
|
SearchRunner.BaseSearchSQL = BaseSearchSQL
|
|
|
|
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
|
|
|
|
TextEdit1.MaskBox.AutoCompleteSource = AutoCompleteSource.CustomSource
|
|
TextEdit1.MaskBox.AutoCompleteMode = AutoCompleteMode.SuggestAppend
|
|
TextEdit1.MaskBox.AutoCompleteCustomSource = collection
|
|
End Sub
|
|
|
|
Private Async Sub TextEdit1_KeyUp(sender As Object, e As KeyEventArgs) Handles TextEdit1.KeyUp
|
|
If e.KeyCode = Keys.Enter Then
|
|
Await SearchRunner.Run(TextEdit1.EditValue, Nothing, Nothing)
|
|
End If
|
|
End Sub
|
|
|
|
Private Async Sub TextEdit1_ButtonClick(sender As Object, e As DevExpress.XtraEditors.Controls.ButtonPressedEventArgs) Handles TextEdit1.ButtonClick
|
|
If e.Button.Tag = "SEARCH" Then
|
|
Await SearchRunner.Run(TextEdit1.EditValue, Nothing, Nothing)
|
|
End If
|
|
End Sub
|
|
End Class |