Latihan_28A_36110038

Deskripsi Latihan_28A_36110038

Form Latihan_28A terdapat dua object yaitu DataGridView dan Button:

Object DataGridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG dari table BARANG  yang ada pada DATABARANG.

Object Button

Terdapat dua object button (Input dan Tutup). Tombol Input digunakan untuk menambahkan data barang pada setiap field atau kolom KODEBARANG,  NAMABARANG, HARGAJUAL dan JUMLAHBARANG ke table BARANG ke dalam DataGridView. Sedangkan tombol tutup untuk menutup latihan_28A_36110038.

Script Unique 

·         Button "Input" (Input_36110038)
If Latihan_28B_36110038.Visible = False Then

            Latihan_28B_36110038.Show()

        Else

            Latihan_28B_36110038.Activate()

      End If

·         Button "Tutup" (Tutup_36110038)

Close()

Even

Input_36110038_Click

Tutup_36110038_Click

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_28A_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_28A

Public Class Latihan_28A_36110038

    Dim table As New DataTable

    Dim connec As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=03")

    Public Sub widhe()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", connec)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

        dgv_36110038.DataSource = table

    End Sub

    Private Sub input_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_36110038.Click

        If Latihan_28B_36110038.Visible = False Then

            Latihan_28B_36110038.Show()

        Else

            Latihan_28B_36110038.Activate()

        End If

    End Sub

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

        widhe()

        dgv_36110038.DataSource = table

    End Sub

    Private Sub Tutup_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110038.Click

        Close()

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.