Untuk melihat kasus klik disini
Listing program
Public Class yadi
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
kd_brg.Items.Add("TS001")
kd_brg.Items.Add("TS002")
kd_brg.Items.Add("VG001")
kd_brg.Items.Add("VG002")
tabel()
End Sub
Private Sub kode_barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd_brg.SelectedIndexChanged
Dim x As String
x = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
If kd_brg.Text = ("TS001") Then
merk.Text = "TOSHIBA"
ElseIf kd_brg.Text = ("TS002") Then
merk.Text = "TOSHIBA"
End If
x = Microsoft.VisualBasic.Left(kd_brg.Text, 2)
If kd_brg.Text = ("VG001") Then
merk.Text = "V-GEN"
ElseIf kd_brg.Text = ("VG002") Then
merk.Text = "V-GEN"
End If
x = Microsoft.VisualBasic.Mid(kd_brg.Text, 3, 3)
If kd_brg.Text = ("TS001") Then
nm_brg.Text = "FLASHDISK 4GB"
harga.Text = 105000
ElseIf kd_brg.Text = ("TS002") Then
nm_brg.Text = "FLASHDISK 2GB"
harga.Text = 75000
ElseIf kd_brg.Text = ("VG001") Then
nm_brg.Text = "FLASHDISK 4GB"
harga.Text = 90000
ElseIf kd_brg.Text = ("VG002") Then
nm_brg.Text = "FLASHDISK 2GB"
harga.Text = 60000
End If
End Sub
Private Sub jumlah_beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jlh_beli.KeyPress
If e.KeyChar = vbCr Then
ttl_harga.Focus()
ttl_harga.Text = jlh_beli.Text * harga.Text
End If
End Sub
Sub tabel()
lv.Columns.Add("no_pembelian", 100, HorizontalAlignment.Center)
lv.Columns.Add("ko_barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("na_barang", 100, HorizontalAlignment.Left)
lv.Columns.Add("merk", 110, HorizontalAlignment.Left)
lv.Columns.Add("harga", 110, HorizontalAlignment.Left)
lv.Columns.Add("jumlah_beli", 110, HorizontalAlignment.Left)
lv.Columns.Add("total_harga", 120, HorizontalAlignment.Center)
lv.View = View.Details
lv.GridLines = True
lv.FullRowSelect = True
End Sub
Sub isi()
Dim lst As New ListViewItem
lst.Text = nobeli.Text
lst.SubItems.Add(kd_brg.Text)
lst.SubItems.Add(nm_brg.Text)
lst.SubItems.Add(merk.Text)
lst.SubItems.Add(harga.Text)
lst.SubItems.Add(jlh_beli.Text)
lst.SubItems.Add(ttl_harga.Text)
lv.Items.Add(lst)
End Sub
Private Sub btnsimpnlisview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpnlisview.Click
isi()
End Sub
Private Sub btnhpssmuadata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhpssmuadata.Click
lv.Items.Clear()
End Sub
Private Sub btnhapsdatapilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapsdatapilih.Click
lv.Items.Remove(lv.SelectedItems(0))
End Sub
Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
End
End Sub
Private Sub btnbrsih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbrsih.Click
nobeli.Text = ""
kd_brg.Text = ""
nm_brg.Text = ""
merk.Text = ""
harga.Text = ""
jlh_beli.Text = ""
ttl_harga.Text = ""
End Sub
End Class
Hasil Gambar
Tidak ada komentar:
Posting Komentar