Repository navigation
Expand file tree
/
Copy pathfrmSearch.vb
More file actions
111 lines (100 loc) · 4.32 KB
/
Copy pathfrmSearch.vb
File metadata and controls
111 lines (100 loc) · 4.32 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
Option Strict Off
Option Explicit On
Imports System
Imports System.Windows.Forms
Imports UpgradeHelpers.DB.ADO
Imports UpgradeHelpers.Gui
Partial Friend Class frmSearch
Inherits System.Windows.Forms.Form
Public Sub New()
MyBase.New()
If m_vb6FormDefInstance Is Nothing Then
If m_InitializingDefInstance Then
m_vb6FormDefInstance = Me
Else
Try
'For the start-up form, the first instance created is the default instance.
If Not (System.Reflection.Assembly.GetExecutingAssembly().EntryPoint Is Nothing) AndAlso System.Reflection.Assembly.GetExecutingAssembly().EntryPoint.DeclaringType Is Me.GetType() Then
m_vb6FormDefInstance = Me
End If
Catch
End Try
End If
End If
'This call is required by the Windows Form Designer.
InitializeComponent()
ReLoadForm(False)
End Sub
Private Sub frmSearch_Activated(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Activated
If Not (UpgradeHelpers.Gui.ActivateHelper.myActiveForm Is eventSender) Then
UpgradeHelpers.Gui.ActivateHelper.myActiveForm = eventSender
End If
End Sub
Dim SearchTable As String = ""
Private Sub cboSrchBy_SelectedIndexChanged(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cboSrchBy.SelectedIndexChanged
lblSrchBy.Text = cboSrchBy.Text
End Sub
Private Sub cmdClose_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdClose.Click
Me.Close()
End Sub
Public Sub Search(ByVal Table As String, ByVal fieldToSearch As String, ByVal itemToSearch As String)
'UPGRADE_WARNING: (2080) IsEmpty was upgraded to a comparison and has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2080
If Not String.IsNullOrEmpty(itemToSearch) Then
Label20.Text = "Search for a " & itemToSearch
End If
SearchTable = Table
ExecuteSql("Select * from " & Table & " limit 1;")
For i = 0 To (rs.FieldsMetadata.Count - 1)
cboSrchBy.AddItem(rs.GetField(i).FieldMetadata.ColumnName)
Next i
cboSrchBy.Text = fieldToSearch
End Sub
Private Sub cmdSearch_Click(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles cmdSearch.Click
If txtSrchStr.Text.Substring(Math.Max(txtSrchStr.Text.Length - 1, 0)) = "'" Then
txtSrchStr.Text = ""
End If
Dim txtToSearch As String = ""
'UPGRADE_WARNING: (2080) IsEmpty was upgraded to a comparison and has a new behavior. More Information: https://www.mobilize.net/vbtonet/ewis/ewi2080
If Not String.IsNullOrEmpty(txtSrchStr.Text.Trim()) Then
txtToSearch = txtSrchStr.Text
Else
txtToSearch = "%"
End If
If SearchTable = "Customers" Then
SearchCriteriaCustomers(lblSrchBy.Text, txtToSearch)
ElseIf SearchTable = "Products" Then
SearchCriteriaProducts(lblSrchBy.Text, txtToSearch)
ElseIf SearchTable = "Providers" Then
SearchCriteriaProviders(lblSrchBy.Text, txtToSearch)
End If
End Sub
'''
Public Sub SearchCriteriaCustomers(ByVal field As String, ByVal value As String)
ExecuteSql("Select * from Customers where " & field & " LIKE '" & value & "%'")
If rs.RecordCount = 0 Then
MessageBox.Show("There are no records with the selected criteria", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
LogStatus("There are " & rs.RecordCount & " that meet with the selected criteria")
frmCustomers.DefInstance.dcCustomers.Recordset = rs
End If
End Sub
Public Sub SearchCriteriaProducts(ByVal field As String, ByVal value As String)
ExecuteSql("Select * from Products where " & field & " LIKE '" & value & "%'")
If rs.RecordCount = 0 Then
MessageBox.Show("There are no records with the selected criteria", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
frmProducts.DefInstance.dcProducts.Recordset = rs
End If
End Sub
Public Sub SearchCriteriaProviders(ByVal field As String, ByVal value As String)
ExecuteSql("Select * from Providers where " & field & " LIKE '" & value & "%'")
If rs.RecordCount = 0 Then
MessageBox.Show("There are no records with the selected criteria", "Search", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
LogStatus("There are " & rs.RecordCount & " that meet with the selected criteria")
frmProviders.DefInstance.dcProviders.Recordset = rs
End If
End Sub
Private Sub Form_Closed(ByVal eventSender As Object, ByVal eventArgs As EventArgs) Handles MyBase.Closed
End Sub
End Class