Latihan 33A_36110055

PROSEDUR LATIHAN 33A:

Ø  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 label (yang bertuliskan daftar barang).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan daftar barang.

Ø  tiga object button (Hapus, Tambah, dan Edit). Button edit digunakan untuk mengedit daftar barang pada form BARANG di Ms Access yang muncul pada datagridview. Jika button edit diklik, maka akan muncul form Latihan_33B_36001155. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit.

Button tambah digunakan untuk menambah data barang baru ke dalam form BARANG di Ms Access. Jika button tambah diklik, maka akan muncul form Latihan_33A_36001155. Pada form inilah data barang baru diinput dan kemudian disimpan.

Button hapus digunakan untuk menghapus data barang pada form BARANG.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public NotInheritable Class Latihan_33A_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=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

  

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

        If Latihan_33B_36001155.Visible = False Then

            Latihan_33B_36001155.Show()

        Else

            Latihan_33B_36001155.Activate()

        End If

    End Sub

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

        If Latihan_33B_36001155.Visible = False Then

            Latihan_33B_36001155.Show()

        Else

            Latihan_33B_36001155.Activate()

        End If

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

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

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

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

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

    End Sub

    Private Sub Latihan_33A_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

    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

End Class