Deskripsi Penyelesaian
Latihan_34b_36110041
A. Objek dalam Form Latihan_34b:
Dalam form latihan ini hanya terdapat tiga object yaitu label, datagridview dan buttom.
1. Object Label
Terdapat satu object label yang bertuliskan Daftar Barang.
2. Object DataGridView
Terdapat satu object datagridview yang digunakan untuk
menyimpan hasil
pengeditan data dari form Latihan_34c_36110041 yang berupa Kode Barang, Nama Barang, Harga Jual, Dana Kode
Barang.
3. Object Buttom
Terdapat tiga object (Hapus,
Tambah, dan Edit), dimana Hapus digunakan untuk menghapus data form Latihan_34c_36110041, Tambah digunakan untuk menambah data
ke dalam form Latihan_34c_36110041 sedangakan Edit digunakan untuk
memasukkan hasil pegeditan dari data yang diganti dalam form Latihan_34c_36110041 yang berupa Kode Barang, Nama Barang, Harga Jual, Dana Kode
Barang.
B. Script Unique
Untuk scriptnya akan ditampilkan
secara keseluruhan dalam prosedur
Latihan_34c_36110041_Load
C.
Even
Tambah_36110041_Click
Latihan_34c_36110041_Load
Edit_36110041_Click
Hapus_36110041_Click
Prosedur penyelesaian
1. Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form
2.
Kemudian beri
nama dan klik Add
3.
buat form seperti di bawah ini
dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
4.
Berikut
ini adalah rumus untuk menjalankan form di atas
Public Class latihan_34b_36110041
Dim rizka As
New DataTable
Dim ika As
New OleDb.OleDbCommand
Dim azisah As
New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source='" & Application.StartupPath & "\DATABARANG.accdb;Jet OLEDB:Database
Password=088")
Private Sub
Tambah_36110041_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Tambah_36110041.Click
If latihan_34c_36110041.Visible = False Then
latihan_34c_36110041.Show()
Else
latihan_34c_36110041.Activate()
End If
End Sub
Private Sub
Hapus_36110041_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Hapus_36110041.Click
Dim sis As
String = "delete
* from barang where kodebarang = '" &
Rizka_36110041.CurrentRow.Cells("kodebarang").Value
& "'"
ika = New OleDb.OleDbCommand(sis,
azisah)
azisah.Open()
ika.ExecuteNonQuery()
azisah.Close()
ika.Dispose()
Dim adapter As
New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", azisah)
rizka.Rows.Clear()
adapter.Fill(rizka)
adapter.Dispose()
Rizka_36110041.DataSource = rizka
End Sub
Private Sub
Edit_36110041_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Edit_36110041.Click
If latihan_34c_36110041.Visible = False Then
latihan_34c_36110041.Show()
Else
latihan_34c_36110041.Activate()
End If
latihan_34c_36110041.KBL_36110041.Text =
Rizka_36110041.CurrentRow.Cells("kodebarang").Value
latihan_34c_36110041.KB_36110041.Text = Rizka_36110041.CurrentRow.Cells("kodebarang").Value
latihan_34c_36110041.NB_36110041.Text = Rizka_36110041.CurrentRow.Cells("namabarang").Value
latihan_34c_36110041.JB_36110041.Text = Rizka_36110041.CurrentRow.Cells("jumlahbarang").Value
latihan_34c_36110041.HJ_36110041.Text = Rizka_36110041.CurrentRow.Cells("hargajual").Value
End Sub
Private Sub
latihan_34b_36110041_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
MyBase.Load
Dim adapter As
New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select * from barang", azisah)
rizka.Rows.Clear()
adapter.Fill(rizka)
adapter.Dispose()
Rizka_36110041.DataSource = rizka
End Sub
End Class
5.
Kemudian
jalankan perintahnya
