Latihan_24A_46110027

Deskripsi Form Latihan 24A

  Pada form latihan 24A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Terdapat 1 label pada form latihan 24A "Daftar Barang"

Object Button                                                                

Terdapat 1 object button yaitu "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_24B_46110027.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

-

Even 

Load

• Langkah-langkah Membuat Form 24A

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_24A  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

         Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 
Public Class Latihan_24A_46110027
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Private Sub Latihan_24A_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", koneksi)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        dgv_46110027.DataSource = tabel
    End Sub

    Private Sub DT_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt_46110027.Click
        If Latihan_24B_46110027.Visible = False Then
            Latihan_24B_46110027.Show()
        Else : Latihan_24B_46110027.Activate()
        End If

        Latihan_24B_46110027.tb1_46110027.Text = dgv_46110027.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24B_46110027.tb2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value
        Latihan_24B_46110027.tb3_46110027.Text = dgv_46110027.CurrentRow.Cells("harga").Value
        Latihan_24B_46110027.tb4_46110027.Text = dgv_46110027.CurrentRow.Cells("unit").Value

        Latihan_24B_46110027.rsty(Latihan_24B_46110027.tb1_46110027.Text)
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: