Latihan 34b

Deskripsi

1. Objek datagridview
terdapat satu objek datagridview pada form ini. tujuannya untuk menampilkan tabel yang ada di file access

2. objek tombol
ada tiga objek tombol/button pada form ini. tombol ini bertujuan untuk membuka form latihan 34c dan untuk menghapus data

even : form_load, ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5.  buat dulu koneksi antara project visual studio anda dengan file access. caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html

6. buat pendeklarasian koneksi dan datatable

Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable

7. buat public sub untuk datatable

Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)
        ambil.Rows.Clear()
        data.Fill(ambil)
        data.Dispose()

    End Sub

8. untuk even form_load masukkan script berikut

Private Sub Latihan_34b_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110008.DataSource = ambil
    End Sub

9. untuk button tambah, masukkan script berikut untuk membuka latihan 34c

Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If Latihan_34c_46110008.Visible = False Then
            Latihan_34c_46110008.MdiParent = Me.MdiParent
            Latihan_34c_46110008.Show()
        Else
            Latihan_34c_46110008.Activate()
        End If

        Latihan_34c_46110008.edit46110008.Text = "-"
        Latihan_34c_46110008.kb46110008.Text = " "
        Latihan_34c_46110008.nb46110008.Text = " "
        Latihan_34c_46110008.hs46110008.Text = " "
        Latihan_34c_46110008.jb46110008.Text = " "
    End Sub

10. untuk button edit masukkan script berikut untuk membuka latihan 34c

Private Sub edit46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110008.Click
        Latihan_34c_46110008.Show()
        Latihan_34c_46110008.edit46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_34c_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_34c_46110008.hs46110008.Text = dgv46110008.CurrentRow.Cells("hargajual").Value
        Latihan_34c_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("JumlahBarang").Value
    End Sub

11. untuk button hapus, masukkan script berikut

Private Sub hapus46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110008.Click
        If MsgBox("apakah anda ingin menghapus data ini???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110008.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        ambildata()
    End Sub

12. untuk menjalankan form ini, anda bisa meng-klik sub menu daftar barang atau label daftar barang pada toolstrip