Latihan 32a

Deskripsi

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

2. objek tombol
ada dua objek tombol/button pada form ini. tombol ini bertujuan untuk membuka form latihan 32b dan form latihan 32c pada project.

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 private sub untuk mengisi datagirdview

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. script tersebut berguna untuk mengeksekusi fungsi private sub yang dibuat sebelumnya

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

9. untuk tombol tambah, masukkan script berikut. script tersebut berguna untuk membuka latihan 32b

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

10.  untuk tombol edit, masukkan script berikut. script tersebut berguna untuk membuka latihan 32c

Private Sub edit46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110008.Click
        If Latihan_32c_46110008.Visible = False Then
            Latihan_32c_46110008.Show()
        Else
            Latihan_32c_46110008.Activate()
        End If

        Latihan_32c_46110008.edit46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_32c_46110008.hs46110008.Text = dgv46110008.CurrentRow.Cells("hargajual").Value
        Latihan_32c_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("JumlahBarang").Value
    End Sub

11. tekn debug untuk menjalankan form ini