Deskripsi Penyelesaian Latihan_25b_36110041

Deskripsi Penyelesaian

Latihan_25b_36110041

A.     Objek dalam Form Latihan_25b:

Dalam form latihan ini hanya ada terdapat tiga object yaitu label, textbox,   dan datagridview.

a.       Objek label

Terdapat tiga objek label yang bertuliskan nomor,tanggal,dan jenis.

b.      Objek Textbox

Terdapat dua objek textbox (semua textbox berstatus input) dimana status input ini digunakan untuk menampilkan isi label yaitu nomordan jenis.

c.       Datagridview

Terdapat satu objek datgridview yaitu untuk menampilkan tabel yang telah dibuat dalam script.

B.     Script Unique

Untuk scriptnya akan ditampilkan secara keseluruhan dalam prosedur

latihan_23b_36110041_Load

C.     Even

latihan_23_36110041_Load

Prosedur penyelesaian

1.     
Buka Project yang telah dibuat sebelumnya klik Add New Item  è  Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class latihan_25b_36110041

    Dim rizka As New DataTable

    Dim azisah As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\semester 5\Aplikom\aplikasi 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Public Sub uly(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = 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 ='" & A & "'", azisah)

        rizka.Rows.Clear()

        adapter.Fill(rizka)

        Rizka_36110041.DataSource = rizka

    End Sub

End Class

5.      Selanjutanya jalankan perintahnya