Latihan 24a

Deskripsi latihan 24a

1. Objek Datagridview
terdapat 1 objek datgridview pada form ini. fungsinya adalah untuk menampilkan tabel yang telah dibuat di file access 2007

2. objek button
terdapat 1 objek button pada form ini. bertujuan untuk menampilkan form latihan 24b

3. objek label
terdapat 1 objek label di form ini (bertuliskan master transaksi)

even : form_load, buttonclick


Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari menu toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

 5. buat koneksi dengan file access, caranya bisa anda lihat di http://www.tulistulisian.blogspot.com/2012/10/membuat-koneksi-antara-access-2007.html

6. buat pendeklarasian untuk datatable dan koneksi

Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable

7. letakkan script berikut untuk even form_load

Private Sub Latihan_24a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", CONECT)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        dgv46110008.DataSource = tabel
    End Sub

8. letakkan script berikut pada even buttonclick

 Private Sub dt46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt46110008.Click
        If Latihan_24b_46110008.Visible = False Then
            Latihan_24b_46110008.Show()
        Else : Latihan_24b_46110008.Activate()
        End If

        Latihan_24b_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24b_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_24b_46110008.hj46110008.Text = dgv46110008.CurrentRow.Cells("harga").Value
        Latihan_24b_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("unit").Value

        Latihan_24b_46110008.xxx(Latihan_24b_46110008.kb46110008.Text)
    End Sub

9. save all, lalu debug untuk menjalankan