edv/DISPO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Kundensuche erweitert

Browse Source
This commit is contained in:
ms
2019-08-21 17:01:47 +02:00
parent 41a24b77fc
commit 8cbc8c3728
4 changed files with 157 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
UID/frmMain/usrcntlFirmen.vb
View File

@@ -13,6 +13,17 @@ Public Class usrcntlFirmen
Private Sub usrcntlFirmen_Load(sender As Object, e As EventArgs) Handles Me.Load
EnableDoubleBuffered(dgvKunden)
SplitContainer1.Panel1Collapsed = True
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
cboRolle.Items.Clear()
cboRolle.Items.Add(New MyListItem("nicht filtern", "-1"))
cboRolle.Items.Add(New MyListItem("ohne (-)", "0"))
cboRolle.Items.Add(New MyListItem("Auftraggeber", "1"))
cboRolle.Items.Add(New MyListItem("Ladestelle", "2"))
cboRolle.Items.Add(New MyListItem("Entladestelle", "3"))
cboRolle.Items.Add(New MyListItem("Frachtführer", "4"))
cboRolle.Items.Add(New MyListItem("Transportunternehmen", "5"))
showDGVKunden()
End Sub
@@ -31,10 +42,8 @@ Public Class usrcntlFirmen
Dim search As String = ""
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
If txtSuche.Text <> "" Then
search = txtSuche.Text.Replace("'", "")
where &= " WHERE kd_firma LIKE '%" & search & "%' OR (kd_str + ' ' + kd_strnr) LIKE '%" & search & "%' OR (kd_plz + ' - ' + kd_ort) LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%'"
End If
Whereinator3000(search, where)
With dgvKunden
Dim top As String = ""
@@ -111,6 +120,8 @@ Public Class usrcntlFirmen
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
txtSuche.Text = ""
cboLand.SelectedItem = "-"
cboRolle._value = "-1"
showDGVKunden()
End Sub
@@ -170,4 +181,43 @@ Public Class usrcntlFirmen
Me.Enabled = True
End Try
End Sub
Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed
If SplitContainer1.Panel1Collapsed Then
btnDetailSuche.BackColor = Color.White
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
Else
btnDetailSuche.BackColor = Color.RoyalBlue
btnDetailSuche.Text = ChrW(9650) & ChrW(9650) & ChrW(9650) & "Detailsuche" & ChrW(9650) & ChrW(9650) & ChrW(9650)
End If
End Sub
Function Whereinator3000(ByRef search As String, ByRef where As String)
If txtSuche.Text <> "" Then
search = txtSuche.Text.Replace("'", "")
Else
search = "%"
End If
where &= " WHERE (kd_firma LIKE '%" & search & "%' OR (kd_str + ' ' + kd_strnr) LIKE '%" & search & "%' OR (kd_plz + ' - ' + kd_ort) LIKE '%" & search & "%' OR kd_land LIKE '%" & search & "%')"
If cboRolle._value IsNot "-1" And cboRolle._value IsNot "" Then
where &= " AND kd_rolle = '" & cboRolle._value & "'"
End If
If cboLand.SelectedItem IsNot "" And cboLand.SelectedItem IsNot "-" And cboLand.SelectedItem IsNot Nothing Then
where &= " AND kd_land = '" & cboLand.SelectedItem & "'"
End If
'Else
' If cboRolle._value IsNot "-1" And cboRolle._value IsNot "" Then
' where &= " WHERE kd_rolle = '" & cboRolle._value & "'"
' End If
'End If
End Function
Private Sub cboRolle_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRolle.SelectedIndexChanged, cboLand.SelectedIndexChanged
showDGVKunden()
End Sub
End Class