Latihan_32a_46110027

Deskripsi Form Latihan 32a

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

Object Label

Pada form ini label yang digunakan ada 1 (daftar barang).

Object Datagridview

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 2 object button (edit dan tambah). Tombol edit digunakan untuk menampilkan form “Latihan_32C_46110027”, form ini berfungsi untuk mengedit data. Tombol tambah digunakan untuk menampilkan form “Latihan_32B_46110027”, form ini berfungsi untuk menambah data.

Script Unique

-

Even 

Load

ButtonClick

• Langkah-langkah Membuat Form 32a

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_32a  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_32A_46110027
    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_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110027.DataSource = ambil
    End Sub
    Private Sub tmbh_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmbh_46110027.Click
        'Menampilkan form 32b
        If Latihan_32B_46110027.Visible = False Then
            Latihan_32B_46110027.Show()
        Else
            Latihan_32B_46110027.Activate()
        End If
    End Sub
    Private Sub Edit_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110027.Click

        If Latihan_32c_46110027.Visible = False Then
            Latihan_32c_46110027.Show()
        Else
            Latihan_32c_46110027.Activate()
        End If


        Latihan_32c_46110027.ganti_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110027.t1_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_32c_46110027.t2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value
        Latihan_32c_46110027.t3_46110027.Text = dgv_46110027.CurrentRow.Cells("hargajual").Value
        Latihan_32c_46110027.t4_46110027.Text = dgv_46110027.CurrentRow.Cells("JumlahBarang").Value
    End Sub

End Class

6.    Klik start debugging

7. klik "edit" untuk mengganti data atau "tambah" untuk memasukkan data baru