Latihan_26B_46110027

Deskripsi Form Latihan26B

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

Object Label

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

Object Textbox                                                                

Terdapat 4 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_26A_46110027.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

-

Even 

Load

CellContentClick

• Langkah-langkah Membuat Form 26B

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

2.  Ketik nama Latihan_26B  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_26B_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 meong As New DataTable
    Public Sub SAYANG(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        Dim shoell As String
        shoell = "SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
        adapter = New OleDb.OleDbDataAdapter(shoell, koneksi)
        adapter.Fill(meong)

        Dim rsty As Integer = 0
        Dim AYU As Integer = 0
        For Each row As DataRow In meong.Rows
            rsty += row("Unit")
            AYU += row("Jumlah")
        Next
        tu_46110027.Text = rsty
        tj_46110027.Text = AYU
    End Sub

    Private Sub Latihan_26B_46110027_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        dgv1_46110027.DataSource = meong
    End Sub
End Class


6.    Klik start debugging

7. Maka akan tampil Lat 26B sbb:

Lalu pilih tombol button "DETAIL TRANSAKSI" akan tampil sbb: