LISTVIEW PERHITUNGAN PENJUALAN BARANG

Disini kita akan mencoba menghitung perhitungan penjualan barang
mari ikuti langkah berikut :

Pertama-tama kita medesain programnya terselbih dahulu seperti gambar berikut :

Public Class Form1

    Sub BuatTabel()

        lv.Columns.Add("Pembeli", 80, HorizontalAlignment.Center)

        lv.Columns.Add("Kode Barang", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Nama Barang", 90, HorizontalAlignment.Left)

        lv.Columns.Add("Merk", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Harga", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Jumlah Beli", 75, HorizontalAlignment.Left)

        lv.Columns.Add("Total Harga", 75, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub IsiTabel()

        Dim lst As New ListViewItem

        lst.Text = No_Pem.Text

        lst.SubItems.Add(Ko_Barang.Text)

        lst.SubItems.Add(Na_Barang.Text)

        lst.SubItems.Add(Merk.Text)

        lst.SubItems.Add(Harga.Text)

        lst.SubItems.Add(Jlh_Beli.Text)

        lst.SubItems.Add(Tot_Harga.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BuatTabel()

        Ko_Barang.Items.Add("TS001")

        Ko_Barang.Items.Add("TS002")

        Ko_Barang.Items.Add("VG001")

        Ko_Barang.Items.Add("VG002")

    End Sub

    Private Sub Ko_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ko_Barang.SelectedIndexChanged

        Dim X As String

        Dim y As String

        X = Microsoft.VisualBasic.Left(Ko_Barang.Text, 2)

        y = Microsoft.VisualBasic.Right(Ko_Barang.Text, 3)

        Select Case X

            Case "TS" : Merk.Text = "Toshiba"

            Case "VG" : Merk.Text = "V-GEN"

        End Select

        Select Case y

            Case "001" : Na_Barang.Text = "Flashdisk 4GB"

            Case "002" : Na_Barang.Text = "Flashdisk 2GB"

        End Select

        If X = "TS" And y = "001" Then

            Harga.Text = 105000

        ElseIf X = "TS" And y = "002" Then

            Harga.Text = 75000

        ElseIf X = "VG" And y = "001" Then

            Harga.Text = 50000

        ElseIf X = "VG" And y = "002" Then

            Harga.Text = 80000

        End If

    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click

        No_Pem.Text = ""

        Ko_Barang.Text = ""

        Na_Barang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jlh_Beli.Text = ""

        Tot_Harga.Text = ""

    End Sub

    Private Sub Hps_Smuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hps_Smuadata.Click

        lv.Items.Clear()

    End Sub

    Private Sub Hps_Dataygpilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hps_Dataygpilih.Click

        lv.Items.Remove(lv.SelectedItems(0))

    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click

        End

    End Sub

    Private Sub Simkelist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simkelist.Click

        IsiTabel()

        No_Pem.Text = ""

        Ko_Barang.Text = ""

        Na_Barang.Text = ""

        Merk.Text = ""

        Harga.Text = ""

        Jlh_Beli.Text = ""

        Tot_Harga.Text = ""

    End Sub

    Private Sub Jlh_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jlh_Beli.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Tot_Harga.Text = Harga.Text * Jlh_Beli.Text

            Simkelist.Focus()

        End If

    End Sub

End Class

TAMPILAN PENGIMPUTAN DATA

 

TAMPILAN HASIL  PENYIMPANAN DI LV