Latihan_26B_36110031

Tahap Penyelesaian Latihan_26B_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_26B  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_26B dibawah ini:

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_26B_36110031

    Dim Audry As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE = E:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim TABEL As New DataTable

    Public Sub Ias()

        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= '" & Kodebarang_36110031.Text & "'", Audry)

        TABEL.Rows.Clear()

        adapter.Fill(TABEL)

        adapter.Dispose()

        Dim UNIT As Integer = 0

        Dim jumlah As Integer = 0

        For Each BARISX As DataRow In TABEL.Rows

            UNIT = UNIT + BARISX("UNIT")

            jumlah = jumlah + BARISX("jumlah")

        Next

        Totalunit_36110031.Text = UNIT

        Totaljumlah_36110031.Text = jumlah

    End Sub

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

        Ias()

        DGV_36110031.DataSource = TABEL

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Setelah menekan  “start debugging” akan muncul gambar seperti dibawah ini:

 

8.         Kemudian simpan file tersebut dengan menekan icon “save”

 

9.         Selesai

Deskripsi Latihan 26B

A.     Form Latihan 26B terdapat Empat Object yaitu label, datagridview, textbox

-    Object Label

Terdapat Tujuh Label yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, Jumlah barang, total unit, dan total jumlah.

-    Object DataGridView

Terdapat satu Object DataGridView yang dimana digunakan untuk menampilkan detail dari form Latihan_26A_36110031 yang brupa notrans, jenis transaksi, keterangan, unit, harga dan jumlah

-    Object TextBox

Terdapat enam object Textbox yang digunakan untuk menampilkan kodng e barang, nama barang, harga jual, jumlah, total unit dan total jumlah dari daftar baryang telah dipilih pada form Latihan_26A_36110031

B.     Script Unique

Script dapat dilihat menyeluruh pada Tahap penyelesaian yang tertera diatas

C.     Even

Latihan_26B_36110031_Load

Ias()