latihan_19_46110023

Deskripsi Form Latihan 19

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

Langkah-langkah membuat dan menjalankan form 19

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

 

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

      ol.Rows.Clear()

      dian.Fill(ol)

      dgv_46110023.DataSource = ol

      dian.Dispose()

    End Sub

Private Sub dgv_46110023_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_46110023.CellContentClick

    End Sub

End Class

   Setelah selesai membuat script, save file.

6.      Untuk menjalankan, klik star debugging

7.      Selesai

Script unique

Script unik pada form ini sama dengan form latihan2 sebelumnya.

Even

Load