Latihan_26A_46110055

Deskripsi Latihan 26A

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

Object Label
Terdapat 1 label pada form latihan 26A "Daftar Barang".

Object Button                                                              
Terdapat 1 object button (Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form “Latihan_26B_46110055”.

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

Even 
Load

Cara  membuat Latihan 26A:

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 26A”

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_26A_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim data As New DataTable


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

        dgv46110055.DataSource = data

    End Sub

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

        Latihan_26B_46110055.kobar46110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_26B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_26B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("hargajual").Value
        Latihan_26B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("persediaanawal").Value

        Latihan_26B_46110055.fby(Latihan_26B_46110055.kobar46110055.Text)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :