Latihan_19_46110009

Latihan_19_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 dibawah:

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

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 19

Pada form latihan 17 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_19_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_19_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 mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans", KONEKSI)

        LY.Fill(ULHY)

        LY.Dispose()

        DGV_46110009.DataSource = ULHY

    End Sub

End Class