Latihan_20_46110009

Latihan_20_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 20

Pada form latihan 20 hanya ada 1 object yang digunakan yaitu Data Grid View.

ü Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

ü Even

Load

       3.  Rumus

Public Class Latihan_20_46110009

    Dim ULHY As New DataTable

    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")

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

        Dim LY As New OleDb.OleDbDataAdapter

        LY = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", KONEKSI)

        LY.Fill(ULHY)

        LY.Dispose()

        DGV_46110009.DataSource = ULHY

    End Sub

End Class