Latihan_31A_46110045

Deskripsi :

Dalam form Latihan 30b hanya terdapat 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 se buah object button yang bertuliskan “edit”. Button  “edit”  ini digunakan untuk menampilkan form latihan 31b  dan  mengedit/mengganti kode barang yang diinginkan.

 

Langkah-langkah penyelesaian form 31A :

1. Pilih add windows form lalu masukkan form 31A.

2. Buatlah desain untuk formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_31A_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_31A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 31b
        If Latihan_31B_46110045.Visible = False Then
            Latihan_31B_46110045.Show()
        Else
            Latihan_31B_46110045.Activate()
        End If

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

Even :

Load

Button click