Latihan 30A_36110055

PROSEDUR LATIHAN 30A:

Ø  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 datagridview yang digunakan untuk menampilkan master transaksi.

Ø  Setelah itu buat satu object button dengan nama “Edit”. “Edit” digunakan untuk mengedit kembali data yang ada di datagridview.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public NotInheritable Class Latihan_30A_36001155

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

        If Latihan_30B_36001155.Visible = False Then

            Latihan_30B_36001155.Show()

        Else

            Latihan_30B_36001155.Activate()

        End If

        Latihan_30B_36001155.KB1_36001155.Text = Phangarhu_36001155.CurrentRow.Cells("kodebarang").Value

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

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

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

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

    End Sub

    Private Sub Latihan_30A_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)

        Paoiya.Rows.Clear()

        adapter.Fill(Paoiya)

        adapter.Dispose()

        Phangarhu_36001155.DataSource = Paoiya

    End Sub

End Class