LISTBOXBEDAFORM

Imports System.Data.OleDb

Public Class ListBoxBedaForm

    Sub HitungBarang()
        Dim Hitung As Integer = 0
        For Baris As Integer = 0 To Penjualan2.DGV.RowCount - 1
            Hitung = Hitung + Penjualan2.DGV.Rows(Baris).Cells(3).Value
        Next
        Penjualan2.LBLTotalBarang.Text = Hitung
    End Sub

    Sub HitungHarga()
        Dim Hitung As Integer = 0
        For Baris As Integer = 0 To Penjualan2.DGV.RowCount - 1
            Hitung = Hitung + Penjualan2.DGV.Rows(Baris).Cells(4).Value
        Next
        Penjualan2.LBLTotalHarga.Text = Hitung
    End Sub

    Private Sub ListBoxBedaForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Koneksi()
        cmd = New OleDbCommand("Select * from tbl_barang", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            ListBox1.Items.Add(dr.Item(0) & Space(2) & dr(1))
        Loop
    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim Baris As Integer = Penjualan2.DGV.RowCount - 1
        Penjualan2.DGV.Rows.Add(Microsoft.VisualBasic.Left(ListBox1.Text, 5))

        For barisatas As Integer = 0 To Penjualan2.DGV.RowCount - 1
            For barisbawah As Integer = barisatas + 1 To Penjualan2.DGV.RowCount - 1
                If Penjualan2.DGV.Rows(barisbawah).Cells(0).Value = Penjualan2.DGV.Rows(barisatas).Cells(0).Value Then
                    Penjualan2.DGV.Rows(barisatas).Cells(3).Value = Penjualan2.DGV.Rows(barisatas).Cells(3).Value + 1
                    Penjualan2.DGV.Rows(barisatas).Cells(4).Value = Penjualan2.DGV.Rows(barisatas).Cells(2).Value * Penjualan2.DGV.Rows(barisatas).Cells(3).Value
                    Call HitungBarang()
                    Call HitungHarga()
                    Penjualan2.DGV.Rows.RemoveAt(barisbawah)
                    Exit Sub
                End If
            Next
        Next

        cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang='" & Penjualan2.DGV.Rows(Baris).Cells(0).Value & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            Penjualan2.DGV.Rows(Baris).Cells(1).Value = dr.Item("Nama_Barang")
            Penjualan2.DGV.Rows(Baris).Cells(2).Value = dr.Item("Harga_Jual")
            Penjualan2.DGV.Rows(Baris).Cells(3).Value = 1
            Penjualan2.DGV.Rows(Baris).Cells(4).Value = Penjualan2.DGV.Rows(Baris).Cells(2).Value * Penjualan2.DGV.Rows(Baris).Cells(3).Value
        End If
    End Sub
End Class