Latihan_24B_46110002

Deskripsi Form Latihan 24B

Pada form latihan 24B ada 3 object yang digunakan yaitu Label, Text Box dan Data Grid View.

Object Label

Terdapat 4 label pada form latihan 24B (Kode Barang, Harga Barang, Harga Jual dan Jumlah Barang).

Object TextBox                                                    

Terdapat 4 object textbox yang nantinya akan menampilkan secara detail data yang telah dipilih pada Latihan_24A_46110002.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel yang diinginkan.

Script Unique

Membuat Koneksi

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

 

Membuat data tabel   

Dim tabel As New DataTable

Membuat adapter

Dim adapter As New OleDb.OleDbDataAdapter

Membersihkan data tabel

tabel.Rows.Clear()

Mengisi data base kedalam data tabel

adapter.Fill(tabel)

ISI_46110007.DataSource = tabel

Menghancurkan adapter yang sudah dipakai

adapter.Dispose()

Even

Load

Click

Langkah-Langkah Penyelesaian Form Latihan_24B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_24B_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties 

·         Klik kanan, view kode lalu  masukkan rumus

 Public Class Latihan_24B_46110002
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

    Public Sub ilda(ByVal B 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='" & B & "'", koneksi)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        DGVB_46110002.DataSource = tabel
    End Sub
    Private Sub Latihan_24B_46110002_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

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

    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 23B

·         Klik star debugging, trus klik latihan 24A

·          Maka akan muncul hasil seperti ini

·         Lalu click “Detail Transaksi” maka hasil dari latihan 24B akan muncul