Latihan 25a

Deskripsi latihan 25a

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

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 textbox dan label 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 datatable As New DataTable

7. letakkan script berikut untuk even form_load

Private Sub Latihan_25a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim zzz As New OleDb.OleDbDataAdapter
        zzz = New OleDb.OleDbDataAdapter("select*from barang", CONECT)
        datatable.Rows.Clear()
        zzz.Fill(datatable)
        zzz.Dispose()

        dgv46110008.DataSource = datatable

    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_25b_46110008.Visible = False Then
            Latihan_25b_46110008.Show()
        Else : Latihan_25b_46110008.Activate()
        End If

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

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

9. save all, lalu debug untuk menjalankan