Deskripsi Penyelesaian Latihan_31a_36110041

Deskripsi Penyelesaian

Latihan_31a_36110041

A.     Objek dalam Form Latihan_31a:

Dalam form latihan ini hanya terdapat tiga object yaitu label, datagridview dan buttom.

1.      Object Label

Terdapat satu object label yang bertuliskan Daftar Barang.

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menyimpan hasil pengeditan  data dari form Latihan_31b_36110041 yang berupa Kode Barang, Nama Barang, Harga Jual, Dana Kode Barang.

3.      Object Buttom

Terdapat satu object (bertuliskan Edit), dimana Edit digunakan untuk memasukkan hasil pegeditan dari data yang diganti dalam form Latihan_30b_36110041 yang berupa Kode Barang, Nama Barang, Harga Jual, Dana Kode Barang.

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

latihan_31a_36110041_Load

C.     Even

Edit_36110041_Click

latihan_31a_36110041_Load

Prosedur penyelesaian

 1.   Buka Project yang telah dibuat sebelumnya klik Add New Item  =>  Add Windows Form

 

2.      Kemudian beri nama dan klik Add

      

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_31a_36110041

    Dim rizka As New DataTable

    Dim azisah As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb;Jet OLEDB:Database Password=088")

    Private Sub Edit_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36110041.Click

        If latihan_31b_36110041.Visible = False Then

            latihan_31b_36110041.Show()

        Else

            latihan_31b_36110041.Activate()

        End If

        latihan_31b_36110041.KBL_36110041.Text = Rizka_36110041.CurrentRow.Cells("kodebarang").Value

        latihan_31b_36110041.KB_36110041 = Rizka_36110041.CurrentRow.Cells("kodebarang").Value

        latihan_31b_36110041.NB_36110041.Text = Rizka_36110041.CurrentRow.Cells("namabarang").Value

        latihan_31b_36110041.JB_36110041.Text = Rizka_36110041.CurrentRow.Cells("jumlahbarang").Value

        latihan_31b_36110041.Text = Rizka_36110041.CurrentRow.Cells("hargajual").Value

    End Sub

    Private Sub latihan_31a_36110041_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", azisah)

        rizka.Rows.Clear()

        adapter.Fill(rizka)

        adapter.Dispose()

        Rizka_36110041.DataSource = rizka

    End Sub

End Class

5.      Kemudian jalankan perintahnya