Latihan_34B_46110045

Deskripsi :
Dalam form Latihan 33a hanya terdapat empat object yaitu datagridview dan button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam 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 34c  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 34c dan  menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.

 

Langkah-langkah penyelesaian form 34B :

1. Pilih add windows form lalu tambahkan form 34B.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

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

    Private Sub hapus46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110045.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110045.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

    Private Sub tambah46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110045.Click
        'Menampilkan form 33b
        If Latihan_34C_46110045.Visible = False Then
            Latihan_34C_46110045.MdiParent = Me.MdiParent
            Latihan_34C_46110045.Show()
        Else
            Latihan_33B_46110045.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_34C_46110045.ganti46110045.Text = "-"
        Latihan_34C_46110045.kb46110045.Text = " "
        Latihan_34C_46110045.nb46110045.Text = " "
        Latihan_34C_46110045.hj46110045.Text = " "
        Latihan_34C_46110045.jb46110045.Text = " "
    End Sub

    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        Latihan_34C_46110045.Show()
        'Mengisi Text Box
        Latihan_34C_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110045.hj46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

 

Even :

Load

Button click