Latihan_32A_46110002

Deskripsi Form Latihan 32A

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

Object Label

object label yang digunakan ada 1 (daftar barang).

Object DataGridView

Object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button                                                                

Terdapat 2 object button (edit dan tambah). Tombol tambah berfungsi untuk menambah data dengan menampilkan form “Latihan_32B_46110002. Tombol edit digunakan untuk mengedit data dimana perintahnya terdapat pada form “Latihan_32C_46110002”.

Even

Load

Click

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.
 

Langkah-Langkah Penyelesaian Form Latihan_32A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_32A_46110002" pada name kemudian click add 

 

·         Buat form seperti berikut

·         Setelah itu beri nama object datagridview pada properties

·         Lalu masukkan text pada properties khusus untuk object button  dan label

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_32A_46110002
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)
        ambil.Rows.Clear()
        data.Fill(ambil)
        data.Dispose()
    End Sub
    Private Sub Latihan_32A_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DGV_46110002.DataSource = ambil
    End Sub
    Private Sub TAMBAH_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110002.Click
        If Latihan_32B_46110002.Visible = False Then
            Latihan_32B_46110002.Show()
        Else
            Latihan_32B_46110002.Activate()
        End If
    End Sub
    Private Sub EDIT_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110002.Click
        If Latihan_32C_46110002.Visible = False Then
            Latihan_32C_46110002.Show()
        Else
            Latihan_32C_46110002.Activate()
        End If
        Latihan_32C_46110002.GANTI_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110002.KB_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110002.NB_46110002.Text = DGV_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_32C_46110002.HJ_46110002.Text = DGV_46110002.CurrentRow.Cells("hargajual").Value
        Latihan_32C_46110002.JB_46110002.Text = DGV_46110002.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

 

Langkah-Langkah Menjalankan Form Latihan 32

·         Klik star debugging, trus klik latihan 32

·          Maka akan muncul hasil seperti ini

·         Lalu click “TAMBAH” maka akan muncul latihan 31B

·         Jika yang di clik tombol “EDIT” maka akan muncul latihan 31c