Latihan_34B_46110002

Deskripsi Form Latihan 34B

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

Object Label

object label yang digunakan ada 1 (daftar barang).

Object DataGridView

Object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button

Terdapat 3 object button (hapus, edit dan tambah). Tombol tambah berfungsi untuk menambah data. Tombol edit digunakan untuk mengedit data. Tombol hapus untuk menghapus data yang dipilih.

Even

Load

Click

Script Unique

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

Langkah-Langkah Penyelesaian Form Latihan_34B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_34B_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties untuk object button dan label.

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_34B_46110002
    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()
        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_34B_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DGV_46110002.DataSource = ambil
    End Sub
    Private Sub HAPUS_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110002.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DGV_46110002.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()
        ambildata()
    End Sub

    Private Sub TAMBAH_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110002.Click
        If Latihan_34C_46110002.Visible = False Then
            Latihan_34C_46110002.MdiParent = Me.MdiParent
            Latihan_34C_46110002.Show()
        Else
            Latihan_34C_46110002.Activate()
        End If
        Latihan_34C_46110002.GANTI_46110002.Text = "-"
        Latihan_34C_46110002.KB_46110002.Text = " "
        Latihan_34C_46110002.NB_46110002.Text = " "
        Latihan_34C_46110002.HJ_46110002.Text = " "
        Latihan_34C_46110002.JB_46110002.Text = " "
    End Sub
    Private Sub EDIT_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110002.Click
        Latihan_34C_46110002.Show()
        Latihan_34C_46110002.GANTI_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110002.KB_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110002.NB_46110002.Text = DGV_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110002.HJ_46110002.Text = DGV_46110002.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110002.JB_46110002.Text = DGV_46110002.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 34B

·         Klik star debugging, trus klik latihan 34

·          Maka akan muncul hasil seperti ini

·         Lalu click “daftar barang" maka akan muncul latihan 34B