Latihan 23a

Deskripsi latihan 23a

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

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_23a_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 mastertransaksi", CONECT)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()

        dgv46110008.DataSource = tabel
    End Sub

8. letakkan script berikut pada even buttonclick

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

        Latihan_23b_46110008.nomor46110008.Text = dgv46110008.CurrentRow.Cells("notrans").Value
        Latihan_23b_46110008.tgl46110008.Value = dgv46110008.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_23b_46110008.jenis46110008.Text = dgv46110008.CurrentRow.Cells("jenistransaksi").Value

        Latihan_23b_46110008.xxx(Latihan_23b_46110008.nomor46110008.Text)

    End Sub

9. save all, lalu debug untuk menjalankan