Latihan_26A_36110038

Deskripsi Latihan_26A_36110038

Form Latihan_26A terdapat tiga object yaitu Lebel,  DataGridView dan Button:

Object Label

Terdapat satu label (yang bertuliskan DAFTARBARANG)

Object DataGridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom KODEBARANG,  NAMABARANG, PERSEDIAANAWAL dan HARGAJUAL dati table BARANG  yang ada pada D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.

Object Button

Terdapat satu object button (DetailTransaksi). Tombol DetailTransaksi digunakan untuk menampilkan field atau kolom KODEBARANG,  NAMABARANG, PERSEDIAANAWAL dan HARGAJUAL dati table BARANG ke DataGridView.

Script Unique 

If Latihan_26B_36110038.Visible = False Then

            Latihan_26B_36110038.Show()

        Else

            Latihan_26B_36110038.Activate()

            Latihan_26B_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_26B_36110038.Kobar_36110038.Text = dgv_36110038.CurrentRow.Cells("KODEBARANG").Value

        Latihan_26B_36110038.Nabar_36110038.Text = dgv_36110038.CurrentRow.Cells("NAMABARANG").Value

        Latihan_26B_36110038.Haju_36110038.Text = dgv_36110038.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_26B_36110038.jml_36110038.Text = dgv_36110038.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_26B_36110038.widhe()

Even

Latihan_26A_36110038_Load

DT_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_26A_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_26A

Public Class Latihan_26A_36110038

    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim table As New DataTable

    Private Sub Latihan_26A_36110038_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", hubung)

        table.Rows.Clear()

        adapter.Fill(table)

        dgv_36110038.DataSource = table

        adapter.Dispose()

    End Sub

    Private Sub dt_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DT_36110038.Click

        If Latihan_26B_36110038.Visible = False Then

            Latihan_26B_36110038.Show()

        Else

            Latihan_26B_36110038.Activate()

            Latihan_26B_36110038.WindowState = FormWindowState.Normal

        End If

        Latihan_26B_36110038.Kobar_36110038.Text = dgv_36110038.CurrentRow.Cells("KODEBARANG").Value

        Latihan_26B_36110038.Nabar_36110038.Text = dgv_36110038.CurrentRow.Cells("NAMABARANG").Value

        Latihan_26B_36110038.Haju_36110038.Text = dgv_36110038.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_26B_36110038.jml_36110038.Text = dgv_36110038.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_26B_36110038.widhe()

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.