Latihan_26B_46110009

Latihan_26B_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 26A

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

ü Object Label

Terdapat 6 label pada form latihan 26B (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_46110009.

ü Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

.

   3.  Rumus

Public Class Latihan_26B_46110009

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\ULHY\SEMESTER V\APKOM 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim meong As New DataTable

    Public Sub ULHY(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 saya As Integer = 0

        Dim mar As Integer = 0

        For Each row As DataRow In meong.Rows

            saya += row("Unit")

            mar += row("Jumlah")

        Next

        TU_46110009.Text = saya

        TJ_46110009.Text = mar

    End Sub

End Class