Latihan_25A_46110055

Deskripsi Latihan 25A

Pada form latihan 25A ada 3 object yang digunakan yaitu Label, Button dan DataGridView.

Object Label
Terdapat 1 object label yaitu "Daftar Barang"

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

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

Even  
Load

Cara  membuat Latihan 25A:

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

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_25A_46110055
    Dim connect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim datatable As New DataTable
    Private Sub Latihan_25A_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", connect)
        datatable.Rows.Clear()
        feby.Fill(datatable)
        feby.Dispose()

        dgv46110055.DataSource = datatable
    End Sub

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

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

        Latihan_25B_46110055.fby(Latihan_25B_46110055.kobar46110055.Text)
    End Sub
End Class

9. Klik start debugging.

10.Maka akan muncul hasil seperti dibawah ini :