Latihan 25B_36110055

PROSEDUR LATIHAN 25B:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat empat label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, jumlah barang).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_25A_36001155.

Ø  Buat 4 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual dan jumlah barang dari master transaksi yang dipilih pada form Latihan_25A_36001155’

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_25B_36001155

    Dim bridgeMasnur As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim tabelMasnur As New DataTable

    Public Sub Mas()

        Dim trukMas As New OleDb.OleDbDataAdapter

        trukMas = 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_36001155.Text & "'", bridgeMasnur)

        tabelMasnur.Rows.Clear()

        trukMas.Fill(tabelMasnur)

    End Sub

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

        DGV2_36001155.DataSource = tabelMasnur

    End Sub

End Class