Deskripsi Penyelesaian Latihan_28a_36110041

Deskripsi Penyelesaian

Latihan_28a_36110041

A.     Objek dalam Form Latihan_28a:

Dalam form latihan ini hanya terdapat dua object yaitu datagridview dan buttom.

1.      Object DataGridView

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

2.      Object Buttom

Terdapat dua object (bertuliskan Input Dan Tutup), dimana Input digunakan untuk memasukkan data Kode Barang, Nama Barang, Harga Jual, Dana Kode Barang. Sedangkan Tutup digunakann untuk menutup data.

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

Latihan28a_36110041_Load

C.     Even

Input_36110041_Click

Latihan28a_36110041_Load

Tutup_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 Class latihan_28a_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")

    Public Sub cari()

        Dim data As New OleDb.OleDbDataAdapter

        data = New OleDb.OleDbDataAdapter("SELECT* from BARANG", azisah)

        rizka.Rows.Clear()

        data.Fill(rizka)

        data.Dispose()

        rizka_36110041.DataSource = rizka

    End Sub

  

    Private Sub Input_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input_36110041.Click

        If latihan_28b_36110041.Visible = False Then

            latihan_28b_36110041.Show()

        Else

            latihan_28b_36110041.Activate()

        End If

    End Sub

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

        cari()

        rizka_36110041.DataSource = rizka

    End Sub

    Private Sub Tutup_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110041.Click

        Close()

    End Sub

End Class

5.       Kemudian jalankan perintahnya