Latihan 26a

Deskripsi latihan 26a

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 26b

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 data As New DataTable

7. letakkan script berikut untuk even form_load

 Private Sub Latihan_26a_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", CONECT)
        data.Rows.Clear()
        adapter.Fill(data)
        adapter.Dispose()

        dgv46110008.DataSource = data
    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_26b_46110008.Visible = False Then
            Latihan_26b_46110008.Show()
        Else : Latihan_26b_46110008.Activate()
        End If

        Latihan_26b_46110008.kb46110008.Text = dgv46110008.CurrentRow.Cells("kodebarang").Value
        Latihan_26b_46110008.nb46110008.Text = dgv46110008.CurrentRow.Cells("namabarang").Value
        Latihan_26b_46110008.hj46110008.Text = dgv46110008.CurrentRow.Cells("hargajual").Value
        Latihan_26b_46110008.jb46110008.Text = dgv46110008.CurrentRow.Cells("persediaanawal").Value

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

9. save all, lalu debug untuk menjalankan