Public Class Form2
Sub
BuatTabel()
lv.Columns.Add("Pembeli",
80, HorizontalAlignment.Center)
lv.Columns.Add("Kode
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Nama
Barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("Merk",
100, HorizontalAlignment.Left)
lv.Columns.Add("Jumlah
Beli", 100, HorizontalAlignment.Left)
lv.Columns.Add("Harga",
100, HorizontalAlignment.Left)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = pembeli.Text
lst.SubItems.Add(kdbrg.Text)
lst.SubItems.Add(nmbrg.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(jmlbeli.Text)
lst.SubItems.Add(harga.Text)
lv.Items.Add(lst)
End Sub
Private Sub kdbrg_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles kdbrg.SelectedIndexChanged
Dim X As String
Dim y As String
Dim z As String
X =
Microsoft.VisualBasic.Left(kdbrg.Text, 2)
y =
Microsoft.VisualBasic.Right(kdbrg.Text, 3)
z =
Microsoft.VisualBasic.Left(kdbrg.Text, 5)
Select Case X
Case
"TS" : merk.Text = "Toshiba"
Case
"VG" : merk.Text = "V-GEN"
End Select
Select Case y
Case
"001" : nmbrg.Text = "Flashdisk 4GB"
Case
"002" : nmbrg.Text = "Flashdisk 2GB"
End Select
Select Case z
Case
"TS001" : harga.Text = "105000"
Case
"TS002" : harga.Text = "90000"
Case
"VG001" : harga.Text = "75000"
Case
"VG002" : harga.Text = "60000"
End Select
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
BuatTabel()
kdbrg.Items.Add("TS001")
kdbrg.Items.Add("TS002")
kdbrg.Items.Add("VG001")
kdbrg.Items.Add("VG002")
End Sub
Private Sub btnbatal_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles btnbatal.Click
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
jmlbeli.Text = ""
harga.Text = ""
Total_Harga.Text = ""
End Sub
Private Sub hapussemua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapussemua.Click
lv.Items.Clear()
End Sub
Private Sub hapusdipilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapusdipilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub simpan_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs)
Handles simpan.Click
isitabel()
pembeli.Text = ""
kdbrg.Text = ""
nmbrg.Text = ""
merk.Text = ""
jmlbeli.Text = ""
harga.Text = ""
Total_Harga.Text = ""
End Sub
Private Sub jmlbeli_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jmlbeli.KeyPress
If
e.KeyChar = Chr(13) Then
Total_Harga.Text = jmlbeli.Text *
harga.Text
End If
End Sub
End Class
