Latihan_26B_46110002

Deskripsi Form Latihan 26B

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

Object Label

Terdapat 6 label (Kode Barang, Harga Barang, Harga Jual, Jumlah Barang, Total Unit dan Total Jumlah).

Object TextBox                                                    

Terdapat 6 object textbox (4 status input, 2 status read only) yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_26A_46110002.

Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data table.

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 meong As New DataTable

Membuat data adapter

Dim adapter As New OleDb.OleDbDataAdapter

    

Even

Load

Property

Property TextBox => ReadOnly = True

Langkah-Langkah Penyelesaian Form Latihan_26B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_26B_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_26B_46110002
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim meong As New DataTable

    Public Sub ILDA(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 izhar As Integer = 0
        Dim sul As Integer = 0
        For Each row As DataRow In meong.Rows
            izhar += row("Unit")
            sul += row("Jumlah")
        Next
        TU_46110002.Text = izhar
        TJ_46110002.Text = sul

    End Sub

    Private Sub Latihan_26B_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DGV_46110002.DataSource = meong
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 26B

·         Klik star debugging, trus klik latihan 26A

·          Maka akan muncul hasil seperti ini

·         Lalu click “detail transaksi” maka hasil dari latihan 26B akan muncul