Deskripsi Penyelesaian Latihan_26a_36110041

Deskripsi Penyelesaian

Latihan_26a_36110041

A.     Objek dalam Form Latihan_26a:

Dalam form latihan ini hanya ada terdapat empat object yaitu label, datagridview, dan button.

1.      Object Label

Terdapat satu label (yang bertuliskan daftar barang).

2.       Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

3.       Object Button

Terdapat satu object button (Detail Transaksi). Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_26B_36110048._26b_36110041.

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

latihan_26_36110041_Load

C.     Even

latihan_26_36110041_Load

Detail_36110041.Click

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 NotInheritable Class latihan_26a_36110041

    Dim rizka As New DataTable

    Dim azisah As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\Aplikom\aplikasi 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

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

        Dim ikatable As New OleDb.OleDbDataAdapter

        ikatable = New OleDb.OleDbDataAdapter("select * from BARANG", azisah)

        ikatable.Fill(rizka)

        ikatable.Dispose()

        Rizka_36110041.DataSource = rizka

    End Sub

    Private Sub klik_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Detail_36110041.Click

        If latihan_26b_36110041.Visible = False Then

            latihan_26b_36110041.Show()

        Else

            latihan_26b_36110041.Activate()

        End If

        latihan_26b_36110041.KB_36110041.Text = Rizka_36110041.CurrentRow.Cells("kodebarang").Value

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

        latihan_26b_36110041.JB_36110041.Text = Rizka_36110041.CurrentRow.Cells("persediaanawal").Value

        latihan_26b_36110041.HJ_36110041.Text = Rizka_36110041.CurrentRow.Cells("hargajual").Value

        latihan_26b_36110041.uly(latihan_26b_36110041.KB_36110041.Text)

    End Sub

End Class

5.      Selanjutanya jalankan perintahnya