Latihan_33A_46110055

Deskripsi  Latihan 33A

Pada form latihan 33A ada 3 object yang digunakan yaitu Label, Button dan DataGridView.

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

Object Datagridview
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_33B_46110055”. Tombol hapus digunakan untuk menghapus data tabel.

Script Unique
-

Even 
Load
ButtonClick

Langkah-langkah membuat Latihan 33A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 33A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_33A_46110055
    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_33A_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ambildata()
        dgv46110055.DataSource = ambil
    End Sub

    Private Sub tambah46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110055.Click
        'Menampilkan form 33b
        If Latihan_33B_46110055.Visible = False Then
            Latihan_33B_46110055.Show()
        Else
            Latihan_33B_46110055.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_33B_46110055.kobar146110055.Text = "-"
        Latihan_33B_46110055.kobar246110055.Text = " "
        Latihan_33B_46110055.nabar46110055.Text = " "
        Latihan_33B_46110055.haju46110055.Text = " "
        Latihan_33B_46110055.jumbar46110055.Text = " "
    End Sub

    Private Sub edit46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110055.Click
        'Menampilkan form 33b
        If Latihan_33B_46110055.Visible = False Then
            Latihan_33B_46110055.Show()
        Else
            Latihan_33B_46110055.Activate()
        End If

        'mengisi textbox yang ada pada 32c

        Latihan_33B_46110055.kobar146110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub hapus46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110055.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 ='" & dgv46110055.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub
End Class

9. Klik start debugging