Projektdateien hinzufügen.

UID/frmMain/usrcntlFirmen.vb

@@ -0,0 +1,173 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Globalization
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class usrcntlFirmen
+
+    Private DISPO As New cOptionenDAL
+
+    Public Shared dt As DataTable
+    Public Shared SelectedDGVIndex As Integer
+
+    Private Sub usrcntlFirmen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        EnableDoubleBuffered(dgvKunden)
+
+        showDGVKunden()
+    End Sub
+
+    Private Sub initDGVKunden(bindingString As String)
+        Dim sqlstr As String = bindingString
+        ' dgvLKW.DataSource = bindingSDL
+        Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
+
+        dt = vpasql.loadDgvBySql(sqlstr, "DISPO")
+        dgvKunden.DataSource = dt
+    End Sub
+
+    Public Sub showDGVKunden()
+        Dim where As String = ""
+        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
+
+        With dgvKunden
+            Dim top As String = ""
+            initDGVKunden("SELECT " & top & " kd_id, kd_firma, (kd_str + ' ' + kd_strnr) as strasse, (kd_plz + ' - ' + kd_ort) as ort, kd_land,kd_oez_id FROM tblKunden " & where & " ")
+
+            'locZeilen = -1
+            ' If Not Grid_aktiv Then Exit Sub
+
+            'Tabelle Kommt/Geht bereinigen
+            If .RowCount = 0 Then Exit Sub
+
+            .Sort(.Columns(1), ListSortDirection.Ascending)
+
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = True
+            .AllowUserToResizeRows = False
+            .RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .MultiSelect = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .ReadOnly = True
+
+            .Columns(0).Visible = False
+
+            .Columns(1).MinimumWidth = 300
+            .Columns(1).HeaderText = "Firma"
+            .Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            '   .Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns(2).Width = 250
+            .Columns(2).HeaderText = "Straße"
+
+            .Columns(3).Width = 250
+            .Columns(3).HeaderText = "Ort"
+
+            .Columns(4).Width = 150
+            .Columns(4).HeaderText = "Land"
+
+            .Columns(5).Visible = False
+
+
+            'initDGVKundenFilter()
+            'Anzeige der Anzahl gewählter/aller Datensätze
+            lblAnzahl.Text = Format(.RowCount, "#,##0") & " Einträge"
+            If (.RowCount = 100) Then lblAnzahl.Text &= "  (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
+        End With
+
+        lblAnzahl.Refresh()
+        Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
+        lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
+        Try
+            If dgvKunden.Rows.Count - 1 >= SelectedDGVIndex Then dgvKunden.Rows(SelectedDGVIndex).Selected = True
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        'lblMs.Image = Nothing
+    End Sub
+
+
+    Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
+        Dim dgvType As Type = dgv.[GetType]()
+        Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
+                                                  BindingFlags.Instance Or BindingFlags.NonPublic)
+        pi.SetValue(dgv, True, Nothing)
+    End Sub
+
+    Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
+        showDGVKunden()
+    End Sub
+
+    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        txtSuche.Text = ""
+        showDGVKunden()
+    End Sub
+
+    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
+        frmDetails.rowId = -1 : frmDetails.mainForm = "frmMain" : frmDetails.Show() : AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
+    End Sub
+
+    Private Sub meEnabledTrue()
+        Me.Enabled = True
+        showDGVKunden()
+        Me.BringToFront()
+    End Sub
+
+    Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
+        SelectedDGVIndex = dgvKunden.CurrentRow.Index
+        Try
+            If frmDetails.Visible Then
+                MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+                frmDetails.BringToFront()
+            Else
+                frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
+                frmDetails.mainForm = "frmMain"
+                frmDetails.Show()
+                AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
+                Me.Enabled = False
+            End If
+        Catch ex As Exception
+            Me.Enabled = True
+        End Try
+
+    End Sub
+
+    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
+        Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
+            Case vbYes
+                DISPO.delData(Convert.ToInt32(dgvKunden.CurrentRow.Cells(0).Value))
+                DISPO.delOeffnungszeiten(Convert.ToInt32(dgvKunden.CurrentRow.Cells(5).Value))
+                showDGVKunden()
+            Case vbNo
+        End Select
+    End Sub
+
+    Private Sub dgvKunden_CellDouble(sender As Object, e As DataGridViewCellEventArgs) Handles dgvKunden.CellDoubleClick
+        SelectedDGVIndex = dgvKunden.CurrentRow.Index
+        Try
+            If frmDetails.Visible Then
+                MsgBox("Ein Kunden-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+                frmDetails.BringToFront()
+            Else
+                frmDetails.rowId = dgvKunden.CurrentRow.Cells(0).Value
+                frmDetails.mainForm = "frmMain"
+                frmDetails.Show()
+                AddHandler frmDetails.Disposed, AddressOf meEnabledTrue
+                Me.Enabled = False
+            End If
+        Catch ex As Exception
+            Me.Enabled = True
+        End Try
+    End Sub
+End Class