Projektdateien hinzufügen.

UID/frmMain/usrcntlFrachtkosten.vb

@@ -0,0 +1,151 @@
+Imports System.ComponentModel
+Imports System.IO
+Imports System.Globalization
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class usrcntlFrachtkosten
+
+    Dim SelectedDGVIndex As Integer = 0
+
+    Private DISPO As New cOptionenDAL
+
+    Dim dt As DataTable
+
+    Private Sub initDGVFrachtkosten(bindingString As String)
+        Dim sqlstr As String = bindingString
+        ' dgvLKW.DataSource = bindingSDL
+        Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
+
+        dt = vpasql.loadDgvBySql(sqlstr, "DISPO")
+        dgvFrachtkosten.DataSource = dt
+    End Sub
+
+    Public Sub showDGVFrachtkosten()
+        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 &= " AND (frtkst_id LIKE '%" & search & "%' OR kd_firma LIKE '%" & search & "%')"
+        End If
+
+        With dgvFrachtkosten
+            initDGVFrachtkosten("SELECT frtkst_id,frtkst_firmaId,kd_firma,frtkst_preisM3,frtkst_preisLDM,frtkst_provision FROM tblFrachtkosten,tblKunden WHERE kd_id=frtkst_firmaId  " & where & "")
+            'locZeilen = -1
+            Dim top As String = "" ' "top 100"
+
+            'Tabelle Kommt/Geht bereinigen
+            If .RowCount = 0 Then Exit Sub
+            dgvFrachtkosten.Sort(.Columns(1), ListSortDirection.Descending)
+
+            .RowTemplate.Height = 20
+            .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
+            .AllowUserToAddRows = False
+            .AllowUserToDeleteRows = False
+            .AllowUserToOrderColumns = False
+            .AllowUserToResizeColumns = True
+            .AllowUserToResizeRows = False
+            .RowTemplate.ReadOnly = True
+            .RowHeadersVisible = False
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .MultiSelect = False
+
+            .Columns(0).Visible = False
+            .Columns(1).Visible = False
+
+            .Columns(2).MinimumWidth = 300
+            .Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns(2).HeaderText = "Firma"
+
+            .Columns(3).Width = 100
+            .Columns(3).HeaderText = "Preis pro m³"
+            .Columns(3).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+            .Columns(3).DefaultCellStyle.Format = "n"
+
+            .Columns(4).Width = 100
+            .Columns(4).HeaderText = "Preis pro LDM"
+            .Columns(4).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+            .Columns(4).DefaultCellStyle.Format = "n"
+
+            .Columns(5).Width = 100
+            .Columns(5).HeaderText = "Provision"
+            .Columns(5).DefaultCellStyle.FormatProvider = CultureInfo.GetCultureInfo("de-DE")
+            .Columns(5).DefaultCellStyle.Format = "n"
+
+            'Anzeige der Anzahl gewählter/aller Datensätze
+            lblAnzahl.Text = Format(.RowCount, "#,##0") & " Einträge"
+            If (.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (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"
+
+    End Sub
+
+    Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
+        frmFrachtkostenNew.Show() : AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+    End Sub
+
+    Private Sub meEnabledTrue()
+        Me.Enabled = True
+        showDGVFrachtkosten()
+        Me.BringToFront()
+    End Sub
+
+    Private Sub usrcntlFrachtkosten_Load(sender As Object, e As EventArgs) Handles Me.Load
+        EnableDoubleBuffered(dgvFrachtkosten)
+        showDGVFrachtkosten()
+    End Sub
+
+    Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
+        If frmFrachtkosten.Visible Then
+            MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+            frmFrachtkosten.BringToFront()
+        Else
+            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
+        End If
+        frmFrachtkosten.Show()
+        Me.Enabled = False
+        AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+    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.delFrachtkosten(Convert.ToInt32(dgvFrachtkosten.CurrentRow.Cells(0).Value))
+                showDGVFrachtkosten()
+            Case vbNo
+        End Select
+    End Sub
+
+    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFrachtkosten.CellDoubleClick
+
+        If frmFrachtkosten.Visible Then
+            MsgBox("Ein Frachtkosten-Formular ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
+            frmFrachtkosten.BringToFront()
+        Else
+            frmFrachtkosten.frachtfirma_id = dgvFrachtkosten.CurrentRow.Cells(1).Value
+        End If
+        frmFrachtkosten.Show()
+        Me.Enabled = False
+        AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue
+    End Sub
+
+    Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
+        showDGVFrachtkosten()
+    End Sub
+
+    Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
+        txtSuche.Text = ""
+        showDGVFrachtkosten()
+    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
+End Class