Program Simpan Data tanpa Database Pada Visual Basic .Net Dengan Fasilitas Listview

Menyimpan data pada Visual Basic .Net adalah bagaimana pengolahan data sederhana data disimpan dalam array atau pada fasilitas Listview itu sendiri. karna pada dasarnya logika tabel sama seperti array. silahkan design seperti gambar berikut

Selanjutnya tambahka code program seperti berikut

Private Sub btnBaru_Click(sender,e) Handles btnBaru.Click txtKode.Focus() txtKode.Clear() txtNama.Clear() txtHarga.Clear() txtJumlah.Clear() End Sub Sub buatkolom() With lv.Columns .Add("Kode", 50, HorizontalAlignment.Center) .Add("Nama", 100, HorizontalAlignment.Center) .Add("Harga", 200, HorizontalAlignment.Center) .Add("Jumlah", 100, HorizontalAlignment.Center) End With lv.View = View.Details lv.GridLines = True lv.FullRowSelect = True End Sub Sub isiTabel() Dim isi As New ListViewItem isi.Text = txtKode.Text isi.SubItems.Add(txtNama.Text) isi.SubItems.Add(txtHarga.Text) isi.SubItems.Add(txtJumlah.Text) lv.Items.Add(isi) End Sub Private Sub frmMahasiswa_Load(sender,e) Handles MyBase.Load buatkolom() End Sub Private Sub btnSimpan_Click(sender,e) Handles btnSimpan.Click isiTabel() btnBaru_Click(sender, e) End Sub Private Sub btnHapus_Click(sender,e) Handles btnHapus.Click If lv.Items.Count <> 0 Then lv.Items.Remove(lv.SelectedItems(0)) Else MsgBox("belum diseleksi") End If btnBaru_Click(sender, e) End Sub Private Sub lv_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles lv.Click txtKode.Text = lv.SelectedItems(0).SubItems(0).Text txtNama.Text = lv.SelectedItems(0).SubItems(1).Text txtHarga.Text = lv.SelectedItems(0).SubItems(2).Text txtJumlah.Text = lv.SelectedItems(0).SubItems(3).Text End Sub Private Sub btnEdit_Click(sender,e) Handles btnEdit.Click If lv.Items.Count <> 0 Then With lv.SelectedItems(0) .SubItems(0).Text = txtKode.Text .SubItems(1).Text = txtNama.Text .SubItems(2).Text = txtHarga.Text .SubItems(3).Text = txtJumlah.Text End With Else MsgBox("") End If btnBaru_Click(sender, e) End Sub Private Sub btnKeluar_Click(sender,e) Handles btnKeluar.Click Dim tanya As String tanya = MsgBox("Apakah anda ingin keluar", MsgBoxStyle.OkCancel) If tanya = MsgBoxResult.Ok Then MsgBox("Anda Keluar") End End If End Sub

Setelah semua ditulis dengan benar akan menghasil proses simpan data dan juga proses penghapusan dan mengubah data pada program. simple banget kan aplikasinya , ini dapat dikembangkan sesuai keinginan Anda

Semoga Bermanfaat