latihan_20_46110023

Deskripsi Form Latihan 20

Pada form latihan 20 hanya terdapat 1 object yaitu object datagridview yang digunakan untuk menampilkan data berupa tabel.

Langkah-langkah membuat dan menjalankan form 20

1.      Buat form baru dengan cara pilih project pada menu bar dihalaman form yang telah ada,  kemudian pilih add windows form:

v

 

2.      Ubah nama form sesuai dengan urutan latihan, dengan cara:

 

3.      Setelah itu buatlah design form seperti gambar:

 

4.      Ubahlah nama object pada form kecuali object label.

5.      Klik kanan pada form kemuadian pilih view code, lalu muncul halaman baru dan masukkan script seperti dibawah ini:

Public Class LATIHAN_20_46110023

    Dim asal As New

OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim ol As New DataTable

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

      Dim dian As New OleDb.OleDbDataAdapter

dian = 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", asal)

        ol.Rows.Clear()

        dian.Fill(ol)

        dgv_46110023.DataSource = ol

        dian.Dispose()

    End Sub

End Class

6.      Setelah selesai membuat script, save file.

7.      Untuk menjalankan, klik star debugging

8.      Selesai

Script unique

Script unik pada form ini sama dengan form 15, karena perintahnya sama.

Even

Load