|
Componen
|
Nama
|
|
Textbox1
|
No_Pembelian
|
|
Combobox1
|
Kode_Barang
|
|
Textbox2
|
Nama_Barang
|
|
Textbox3
|
Merk
|
|
Textbox4
|
Harga
|
|
Textbox5
|
Jlh_Beli
|
|
Textbox6
|
Total
|
|
Button1
|
Simpan
|
|
Button2
|
Hapus_Semua
|
|
Button3
|
Hapus_Pilih
|
|
Button4
|
Bersih
|
|
Button5
|
Keluar
|
|
ListView1
|
lv
|
Perintahnya Ada
dibawah ini:
Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim m As Integer
For m =
1 To 2
Kode_Barang.Items.Add("TS00" & m)
Kode_Barang.Items.Add("VG00" & m)
Next
buatTabel()
End Sub
Sub
buatTabel()
Lv.Columns.Add("No
Pembelian", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Kode
Barang ", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Nama
Barang", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Merk",
90, HorizontalAlignment.Center)
Lv.Columns.Add("Harga",
90, HorizontalAlignment.Center)
Lv.Columns.Add("Jumlah
Beli", 90, HorizontalAlignment.Center)
Lv.Columns.Add("Total
Harga", 90, HorizontalAlignment.Center)
Lv.View = View.Details
Lv.GridLines = True
Lv.FullRowSelect = True
End Sub
Sub Hapus()
No_Pembelian.Text = ""
Kode_Barang.Text = ""
Nama_Barang.Text = ""
Merk.Text = ""
Harga.Text = ""
Jumlah_Beli.Text = ""
Total_Harga.Text = ""
End Sub
Sub
isitabel()
Dim lst
As New
ListViewItem
lst.Text = No_Pembelian.Text
lst.SubItems.Add(Kode_Barang.Text)
lst.SubItems.Add(Nama_Barang.Text)
lst.SubItems.Add(Merk.Text)
lst.SubItems.Add(Harga.Text)
lst.SubItems.Add(Jumlah_Beli.Text)
lst.SubItems.Add(Total_Harga.Text)
Lv.Items.Add(lst)
End Sub
Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Kode_Barang.SelectedIndexChanged
Dim d As String
d =
Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
Select Case d
Case
"TS"
Merk.Text = "Toshiba"
Case
"VG"
Merk.Text = "V-GEN"
End Select
Dim s As String
s =
Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)
Select Case s
Case
"001"
Nama_Barang.Text = "Flashdisk 4GB"
Harga.Text = 105000
Case
"002"
Nama_Barang.Text = "Flashdisk 2GB"
Harga.Text = 75000
End Select
End Sub
Private Sub Jumlah_Beli_KeyPress(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles
Jumlah_Beli.KeyPress
If
Asc(e.KeyChar) = 13 Then
Total_Harga.Text = Harga.Text *
Jumlah_Beli.Text
End If
End Sub
Private Sub Simpan_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Simpan.Click
isitabel()
End Sub
Private Sub Bersih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Bersih.Click
Hapus()
End Sub
Private Sub Hapus_Semua_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus_Semua.Click
Lv.Items.Clear()
End Sub
Private Sub Hapus_Pilih_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Hapus_Pilih.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
End Class
