Latihan_24A_46110055

Deskripsi Form Latihan 24A

Pada form latihan 24A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label
Terdapat 1 label pada form latihan 24A yaitu "Daftar Barang"

Object Button                                                              
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_24B_46110055.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even  
Load

Cara  membuat Latihan 24A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 24A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_24A_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim tabel As New DataTable
    Private Sub Latihan_23A_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim feby As New OleDb.OleDbDataAdapter
        feby = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", connect)
        tabel.Rows.Clear()
        feby.Fill(tabel)
        feby.Dispose()

        dgv46110055.DataSource = tabel
    End Sub

    Private Sub detail46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail46110055.Click
        If Latihan_24B_46110055.Visible = False Then
            Latihan_24B_46110055.Show()
        Else : Latihan_24B_46110055.Activate()
        End If
        Latihan_24B_46110055.kobar46110055.Text = dgv46110055.CurrentRow.Cells("barang.kodebarang").Value
        Latihan_24B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_24B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("harga").Value
        Latihan_24B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("unit").Value

        Latihan_24B_46110055.fby(Latihan_24B_46110055.kobar46110055.Text)

    End Sub

    Private Sub dgv46110055_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110055.CellContentClick
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :