Deskripsi Form Latihan_24b_46110003

Dalam form Latihan_24b_46110003 hanya terdapat Object Label, Object TextBox, dan Object DataGridView.

Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".

Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".

Object TextBox
Terdapat 4 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_24b_46110003.

Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_24b_46110003.

Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptnya sudah ada pada latihan sebelumnya. 

Even
Load

Langkah-langkah Penyelesaian

Public Class Latihan_24b_46110003

    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim tabel As New DataTable

    Public Sub amal(ByVal a As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.ID, DETAILTRANSAKSI.NoTrans, DETAILTRANSAKSI.Unit, DETAILTRANSAKSI.Harga FROM DETAILTRANSAKSI where kodebarang='" & a & "'", jembatan)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        adapter.Dispose()

        dgv46110003.DataSource = tabel

    End Sub

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

    End Sub

    Private Sub dgv46110003_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110003.CellContentClick

    End Sub

End Class