Latihan_26B_36110038

Deskripsi Latihan_26B_36110038

Form Latihan_26B terdapat tiga object yaitu Lebel,  DataGridView, dan TextBox:

Object Label

Terdapat tujuh label (yang bertuliskan DETAILTRANSAKSI, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, Total Unit dan Total Jumlah)

Object Data GridView

Terdapat satu data gridview yang digunakan untuk menampilkan field atau kolom NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI, KETERANGAN dari table MASTERTRANSAKSI dan UNIT, HARGA, JUMLAH(hasil perkalian UNIT dan HARGA) dari table DETAILTRANSAKSI yang ada pada D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli. Tetapi yang kode barangnya sesuai dengan kode barang posisi kursor yang di klik pada tombol Detail Transaksi pada Latihan_26A.

Object Text Box

Terdapat enam textbox status input digunakan untuk memasukkan nilai

Atau text Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, total unit(hasil penjumlahan unit) dan total jumlah(hasil penjumlahan jumlah).

Script Unique 

Script sesuai yang ada pada prosedur-prosedur Latihan_26B_36110038 dibawah

Even

Latihan_26B_36110038_Load

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_26B_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_26B

                                                   

Public Class Latihan_26B_36110038

    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\^bd3^\semester5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim table As New DataTable

    Public Sub widhe()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.*, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA as JUMLAH FROM MASTERTRANSAKSI INNER JOIN DETAILTRANSAKSI ON MASTERTRANSAKSI.NOTRANS=DETAILTRANSAKSI.NOTRANS WHERE KODEBARANG= '" & Kobar_36110038.Text & "'", hubung)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

        Dim UNIT As Integer = 0

        Dim HARGA As Integer = 0

        For Each BARISX As DataRow In table.Rows

            UNIT = UNIT + BARISX("UNIT")

            HARGA = HARGA + BARISX("HARGA")

        Next

        TU_36110038.Text = UNIT

        TJ_36110038.Text = HARGA

    End Sub

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

        widhe()

        dgv_36110038.DataSource = table

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.