latihan_26B_46110023

Deskripsi Form Latihan 26B
Dalam form Latihan 26B 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".

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_24A_46110023

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

Langkah-langkah membuat dan menjalankan form latihan 26 B

Langkah-langkah atau cara membuat form pada latihan 26B ini sama saja dengan langkah-langkah membuat  form pada latihan-latihan sebelumnya,. Yang membedakan hanyalah desaign formnya dan scriptnya. Pada form ini bentuk formnya seperti berikut:

 

Setelah desaignnya jadi, klik kanan pada desaidn kemudian pilih view code maka akan muncul halaman baru lalu masukkan script seperti dibawah ini:

Public Class LATIHAN_26B_46110023

    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 uly(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 DIAN As Integer = 0

        For Each row As DataRow In meong.Rows

            izhar += row("Unit")

            DIAN += row("Jumlah")

        Next

        TONIT_46110023.Text = izhar

        TOJU_46110023.Text = DIAN

    End Sub

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

        DGV_46110023.DataSource = meong

    End Sub

End Class

Setelah selesai membuat script, jalankan programnya dengan cara klik start debugging, latihan ini akan bersamaan dengan latihan 26a

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

Even
Load