Latihan_33A_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 33A

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_33A_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada DataGridView sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_33A_46110043

    Dim CONECT As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim BONI 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", CONECT)

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

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

    End Sub
    Private Sub Latihan33a_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        TRINITA46110043.DataSource = BONI
    End Sub
    Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH46110043.Click
        'Menampilkan form 33b
        If Latihan_33B_46110043.Visible = False Then
            Latihan_33B_46110043.Show()
        Else
            Latihan_33B_46110043.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_33B_46110043.KODELAMA.Text = "-"
        Latihan_33B_46110043.KB46110043.Text = " "
        Latihan_33B_46110043.NB46110043.Text = " "
        Latihan_33B_46110043.HB46110043.Text = " "
        Latihan_33B_46110043.JB46110043.Text = " "
    End Sub
    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT46110043.Click
        'Menampilkan form 33b
        If Latihan_33B_46110043.Visible = False Then
            Latihan_33B_46110043.Show()
        Else
            Latihan_33B_46110043.Activate()
        End If

        'mengisi textbox yang ada pada 32c
        Latihan_33B_46110043.KODELAMA.Text = TRINITA46110043.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110043.KB46110043.Text = TRINITA46110043.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110043.NB46110043.Text = TRINITA46110043.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110043.HB46110043.Text = TRINITA46110043.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110043.JB46110043.Text = TRINITA46110043.CurrentRow.Cells("JumlahBarang").Value
    End Sub

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

        'Mengambil data kembali
        ambildata()
    End Sub
End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

B. Deskripsi Form Latihan 33A

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

Object Label

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

Object Button                                                                

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

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even

Load

ButtonClick

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Menjalankan Form Latihan 33A

1. Pilih dan klik salah satu tombol yang ada sesuai dengan kebutuhan.
2. Jika ingin menghapus data tabel klik tombol “Hapus”
3. Jika ingin menambah data tabel klik tombol “Tambah”
4. Jika ingin mengedit data tabel klik tombol “Edit”