Public Class Form1
Private Sub
Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
kode.Items.Add("TS001")
kode.Items.Add("TS002")
kode.Items.Add("VG001")
kode.Items.Add("VG002")
Call
buattabel()
no.Focus()
End Sub
Private Sub
kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
kode.SelectedIndexChanged
Dim x As String
Microsoft.VisualBasic.Left(kode.Text,
2)
x =
Microsoft.VisualBasic.Left(kode.Text, 2)
Select Case x
Case
"TS"
merk.Text = "Toshiba"
Case
"VG"
merk.Text = "V-Gen"
End Select
x =
Microsoft.VisualBasic.Mid(kode.Text, 3, 3)
Select Case x
Case
"001"
nama.Text = "Flasdisk 4GB"
Case
"002"
nama.Text = "Flasdisk 2GB"
End Select
x =
Microsoft.VisualBasic.Left(kode.Text, 5)
Select Case x
Case
"TS001"
harga.Text = 105000
Case
"TS002"
harga.Text = 70000
Case
"VG001"
harga.Text = 90000
Case
"VG002"
harga.Text = 60000
End Select
jumlah.Focus()
End Sub
Private Sub
btn_simpan_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_simpan.Click
Call
isitabel()
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
no.Focus()
End Sub
Sub buattabel()
LV.Columns.Add("NO
Pembelian", 80, HorizontalAlignment.Center)
LV.Columns.Add("Kode
Barang", 100, HorizontalAlignment.Center)
LV.Columns.Add("Nama
Barang", 120, HorizontalAlignment.Left)
LV.Columns.Add("Merk",
100, HorizontalAlignment.Left)
LV.Columns.Add("Harga",
100, HorizontalAlignment.Right)
LV.Columns.Add("Jumlah
Beli", 120, HorizontalAlignment.Center)
LV.Columns.Add("Total
Harga", 100, HorizontalAlignment.Right)
LV.View = View.Details
LV.GridLines = True
LV.FullRowSelect = True
total.Text = Val(harga.Text) *
Val(jumlah.Text)
End Sub
Sub isitabel()
Dim lst
As New
ListViewItem
lst.Text = no.Text
lst.SubItems.Add(kode.Text)
lst.SubItems.Add(nama.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jumlah.Text)
lst.SubItems.Add(total.Text)
LV.Items.Add(lst)
End Sub
Private Sub
btn_hapusmua_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hapusmua.Click
LV.Items.Clear()
End Sub
Private Sub
btn_hapuslih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_hapuslih.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
Dim t As String
t = MsgBox("Anda
yakin ingin keluar???", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Keluar")
If t =
vbYes Then
Close()
End If
End Sub
Private Sub
btn_bersih_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
btn_bersih.Click
no.Text = ""
kode.Text = ""
nama.Text = ""
merk.Text = ""
harga.Text = ""
jumlah.Text = ""
total.Text = ""
no.Focus()
End Sub
Private Sub
jumlah_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
jumlah.KeyPress
total.Text = Val(harga.Text) *
Val(jumlah.Text)
End Sub
End Class
Bentuk Form:
Tidak ada komentar:
Posting Komentar