Latihan_32A_46110045

Deskripsi :
Dalam form Latihan 32a hanya terdapat empat object yaitu Datagridview dan Button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object button :

Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” ,  “edit” dan “hapus”. Button  “edit”  ini digunakan untuk menampilkan form latihan 32c  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 32b dan  menambahkan data ke dalam database.

 

Langkah-langkah penyelesaian form 32A :

1. Pilih add windows form lalu tambahkan form 32A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_32A_46110045
    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()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_32A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub
    Private Sub tambah46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110045.Click
        'Menampilkan form 32b
        If Latihan_32B_46110045.Visible = False Then
            Latihan_32B_46110045.Show()
        Else
            Latihan_32B_46110045.Activate()
        End If
    End Sub
    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 32c
        If Latihan_32C_46110045.Visible = False Then
            Latihan_32C_46110045.Show()
        Else
            Latihan_32C_46110045.Activate()
        End If

        'mengisi textbox yang ada pada 32c
        Latihan_32C_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_32C_46110045.hb46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_32C_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

Even :

Load

Button click