Deskripsi form Latihan_32a_46110003

Dalam form Latihan_32a_46110003 hanya terdapat dua object yaitu DataGriedView 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”  dan  “edit”. Button  “edit”  ini digunakan untuk menampilkan form Latihan_32c_4611000 dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form Latihan_32b_4611000 dan  menambahkan data ke dalam database.

Script Unique :
Dalam form ini tidak terdapat script unique

Even :
Load

Button Click

Langkah-langkah Penyelesaian

Public Class Latihan_32a_46110003
    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 amal()
        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_46110003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        amal()
        dgv46110003.DataSource = ambil
    End Sub
    Private Sub tmbh46110003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh46110003.Click

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

        If Latihan_32c_46110003.Visible = False Then
            Latihan_32c_46110003.Show()
        Else
            Latihan_32c_46110003.Activate()
        End If


        Latihan_32c_46110003.kode46110003.Text = dgv46110003.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110003.kb46110003.Text = dgv46110003.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110003.nb46110003.Text = dgv46110003.CurrentRow.Cells("namabarang").Value
        Latihan_32c_46110003.hj46110003.Text = dgv46110003.CurrentRow.Cells("hargajual").Value
        Latihan_32c_46110003.jb46110003.Text = dgv46110003.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class