Latihan_26b_36110040

Latihan_26b_36110040

Prosedur Penyelesaian Latihan_26b_36110040

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_36110040

4.      Buat Form Latihan_26b_36110040 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_26b_36110040

    Dim bridgerahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\rahmi punya\semester 5\aplikasi komputer 4\tugas\DataTransaksiJualBeli.accdb")

    Dim tabelrahmi As New DataTable

    Public Sub rahmi()

        Dim truckrahmi As New OleDb.OleDbDataAdapter

        truckrahmi = New OleDb.OleDbDataAdapter("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 = '" & kb_361110040.Text & "'", bridgerahmi)

        tabelrahmi.Rows.Clear()

        truckrahmi.Fill(tabelrahmi)

        truckrahmi.Dispose()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In tabelrahmi.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        tu_36110040.Text = TU

        tj_36110040.Text = TOTAL

    End Sub

    Private Sub Latihan_26B_36110040_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        dgv_36110040.DataSource = tabelrahmi

    End Sub

End Class

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

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

 8.      Selesai

Deskripsi Latihan_26B_36110040

A.    Object-object dalam Latihan_26B_36110040 :

1.      Object Label

Terdapat lima label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, dan jumlah barang).

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_26A_36110040 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

3.      Object TextBox

Terdapat enam obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, jumlah, total unit, dan total jumlah dari daftar barang yang dipilih pada form Latihan_26A_36110040.

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_26B_36110040.

C.     Even

Latihan_26B_36110040_Load

rahmi()

Perhitungan()