Latihan_26B_46110055

Deskripsi Latihan26B

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

Object Label
Terdapat 5 label yaitu "Detail Transaksi", "kode barang", "nama barang", "harga jual", dan "jumlah barang".

Object Textbox                                                              
Terdapat 4 object textbox, yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_26A_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even 
Load
CellContentClick

Cara  membuat Latihan 26B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 26B”

6. Setelah itu beri teks pada label dan textbox , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_26B_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=  " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim table As New DataTable
    Public Sub fby(ByVal A As String)
        Dim feby As New OleDb.OleDbDataAdapter
        Dim fbiy As String
        fbiy = "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 & "'"
        feby = New OleDb.OleDbDataAdapter(fbiy, connect)
        feby.Fill(table)

        Dim feb As Integer = 0
        Dim fry As Integer = 0
        For Each row As DataRow In table.Rows
            feb += row("Unit")
            fry += row("Jumlah")
        Next
        totun46110055.Text = feb
        tojum46110055.Text = fry
    End Sub
    Private Sub Latihan_26B_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgv46110055.DataSource = table
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul terlebih dahulu hasil seperti ini :

11.setelah itu klik "Detail Transaksi" maka akan muncul tampilan seperti ini :