Latihan 32A_36110055

PROSEDUR LATIHAN 32A:

Ø  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.

Ø  Buat dua object button (Edit dan Tambah). 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_32B_36001155. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit.Button tambah digunakan untuk menambah daftar barang baru ke dalam form BARANG di Ms Access. Jika button tambah diklik, maka akan muncul form Latihan_32C_36001155. Pada form inilah data barang baru diinput dan kemudian disimpan.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini.

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

            Public NotInheritable Class Latihan_32A_36001155

    Dim Masnur As New DataTable

    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_32B_36001155.Visible = False Then

            Latihan_32B_36001155.Show()

        Else

            Latihan_32B_36001155.Activate()

        End If

    End Sub

    Private Sub Latihan_32A_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 Edit_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36001155.Click

        If Latihan_32C_36001155.Visible = False Then

            Latihan_32C_36001155.Show()

        Else

            Latihan_32C_36001155.Activate()

        End If

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

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

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

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

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

    End Sub

End Class