·  Ketik nama form "Latihan_32A_46110007" pada name kemudian click add

·  Buat form seperti berikut 

·  Setelah form selesai masukkan rumus seperti dibawah ini 

Public Class Latihan_32A_46110007

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

    Dim ambil As New 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

    Private Sub Latihan_32A_46110007_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        ISI_46110007.DataSource = ambil

    End Sub

    Private Sub TAMBAH_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110007.Click

        If Latihan_32B_46110007.Visible = False Then

            Latihan_32B_46110007.Show()

        Else

            Latihan_32B_46110007.Activate()

        End If

    End Sub

    Private Sub EDIT_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110007.Click

        If Latihan_32C_46110007.Visible = False Then

            Latihan_32C_46110007.Show()

        Else

            Latihan_32C_46110007.Activate()

        End If

        Latihan_32C_46110007.GANTI_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value

        Latihan_32C_46110007.T1_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value

        Latihan_32C_46110007.T2_46110007.Text = ISI_46110007.CurrentRow.Cells("namabarang").Value

        Latihan_32C_46110007.T3_46110007.Text = ISI_46110007.CurrentRow.Cells("hargajual").Value

        Latihan_32C_46110007.T4_46110007.Text = ISI_46110007.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

·  Untuk menjalankan form tekan F5 

B. Deskripsi Form Latihan 32A

Pada form latihan 32A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Pada form ini label yang digunakan ada 1 (daftar barang).

Object Button                                                                

Terdapat 2 object button (edit dan tambah). Tombol edit digunakan untuk menampilkan form “Latihan_32C_46110007”, form ini berfungsi untuk mengedit data. Tombol tambah digunakan untuk menampilkan form “Latihan_32B_46110007”, form ini berfungsi untuk menambah data.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even

Load

ButtonClick

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Menjalankan Form Latihan 32A