Latihan_20_36110040

Latihan_20_36110040

Prosedur Penyelesaian Latihan_20_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_20_36110040

4.      Buat Form Latihan_20_36110040 dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class latihan_20_36110040

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\rahmi punya\semester 5\aplikasi komputer 4\tugas\datatransaksijualbeli.accdb")

    Dim DS As New DataTable

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

        Dim DEDE As New OleDb.OleDbDataAdapter

        DEDE = 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", CONECT)

        DS.Rows.Clear()

        DEDE.Fill(DS)

        dgv_36110040.DataSource = DS

        DEDE.Dispose()

    End Sub

End Class

 6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai

Deskripsi Latihan_20_36110040

A.    Object dalam Latihan_20_36110040 :

Hanya ada satu object dalam Latihan_20_36110040, yaitu object DataGridView sebanyak satu.

B.     Script Unique

Untuk script, dapat diliat secara lebih lengkap pada Prosedur Penyelesaian Latihan_20_36110040.

C.     Even

Latihan_20_36110040_Load