neu

AVISO_CHECKIN/usrCntlSearch.vb

@@ -0,0 +1,64 @@
+Public Class usrCntlSearch
+
+    Dim MAIN As frmCheckIn
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+
+    Sub New(MAIN)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.MAIN = MAIN
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
+        initDGV()
+    End Sub
+
+
+    Sub initDGV()
+
+        With MyDatagridview1
+
+            Dim search = txt.Text
+            If search.Length <= 2 Then .Columns.Clear() : Exit Sub
+
+            Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
+                          FROM [Aviso]
+                          WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%'))  AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
+                          order by DATUM DESC"
+
+            ' .SET_SQL(sqlstr, "AVISO")
+            '.LOAD()
+            .DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")
+
+            If .RowCount = 0 Then
+                .Columns.Clear() : Exit Sub
+            End If
+
+
+            .Columns("AvisoID").Visible = False
+            .Columns("LKW").Width = 400
+            .Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            '.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("Avisierer").Visible = False
+
+            '   MsgBox(dt.Rows(0)("AvisoID"))
+
+        End With
+
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If MyDatagridview1.SelectedRows.Count > 0 Then
+            MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
+        End If
+    End Sub
+
+    Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
+        txt.Focus()
+        MAIN.TRANSLATE(Me)
+    End Sub
+End Class