Latihan 34B_36110055

PROSEDUR LATIHAN 34B:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu object label (yang bertuliskan daftar barang).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan daftar barang dari form BARANG di Ms Access.

Ø  Buat tiga object button (Hapus, Tambah, dan Edit). Button Hapus digunakan untuk menghapus data barang yang ada pada object datagridview. Button Tambah digunakan untuk menambah data barang baru ke dalam datagridview. Button Edit digunakan untuk mengedit daftar barang yang ada pada datagridview.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_34B_36001155

    Dim masnur As New DataTable

    Dim selayar As New OleDb.OleDbCommand

    Dim manarai As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub Tambah_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_36001155.Click

        If Latihan_34C_36001155.Visible = False Then

            Latihan_34C_36001155.Show()

        Else

            Latihan_34C_36001155.Activate()

        End If

    End Sub

    Private Sub Hapus_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_36001155.Click

        Dim soe As String = "delete * from barang where kodebarang = '" & Phangarhu_36001155.CurrentRow.Cells("kodebarang").Value & "'"

        selayar = New OleDb.OleDbCommand(soe, manarai)

        manarai.Open()

        selayar.ExecuteNonQuery()

        manarai.Close()

        selayar.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", manarai)

        masnur.Rows.Clear()

        adapter.Fill(masnur)

        adapter.Dispose()

        Phangarhu_36001155.DataSource = masnur

    End Sub

    Private Sub Edit_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36001155.Click

        If Latihan_34C_36001155.Visible = False Then

            Latihan_34C_36001155.Show()

        Else

            Latihan_34C_36001155.Activate()

        End If

        Latihan_34C_36001155.KBL_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_36001155.KB2_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_36001155.NB_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("namabarang").Value

        Latihan_34C_36001155.JB_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("jumlahbarang").Value

        Latihan_34C_36001155.HJ_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("hargajual").Value

    End Sub

    Private Sub Latihan_34B_36001155_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", manarai)

        masnur.Rows.Clear()

        adapter.Fill(masnur)

        adapter.Dispose()

        Phangarhu_36001155.DataSource = masnur

    End Sub

End Class