latihan_31A_46110023

Deskripsi Form Latihan 31A

Dalam form latihan 31a terdapat 3 object yaitu object label, datagridview, dan button

Object label

Pada laihan 31a terdapat 1 object label yang bertuliskan “daftar barang”

Object datagridview

Terdapat 1 objek datagridview, yang akan menampilkan data tabel.

Oject button

Hanya terdapat 1 object button yang bertuliskan edit

Langkah- langkah membuat form latihan 31A

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add windows form :

3.    Setelah itu ganti nama form lalu pilih add:

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

 

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

Setelah muncul halaman baru, masukkan script seperti dibawah ini:

Public Class LATIHAN_31A_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim table As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* from barang", dian)
        table.Rows.Clear()
        data.Fill(table)
        data.Dispose()
    End Sub

    Private Sub Latihan_31A_04110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110023.DataSource = table
    End Sub

    Private Sub edit_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110023.Click
        'menampilkan form 31b
        If LATIHAN_31B_46110023.Visible = False Then
            LATIHAN_31B_46110023.Show()
        Else
            LATIHAN_31B_46110023.Activate()
        End If

        'mengisi textbox yang ada pada 31b
        LATIHAN_31B_46110023.ganti_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_31B_46110023.kode_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_31B_46110023.nam_46110023.Text = dgv_46110023.CurrentRow.Cells("namabarang").Value
        LATIHAN_31B_46110023.harga_46110023.Text = dgv_46110023.CurrentRow.Cells("hargajual").Value
        LATIHAN_31B_46110023.jumlah_46110023.Text = dgv_46110023.CurrentRow.Cells("jumlahbarang").Value

    End Sub
End Class

 Langkah –Langkah Menjalankan Latihan 31A

1.    Untuk melihat hasil dari form 31A, klik star debugging

2.    Maka akan muncul form latihan 31A

3.    Setelahitu pilih button input

4.    Maka akan muncul form latihan 31b

5.    Selamat mencoba

Script unique

Tidak ada script unik pada latihan ini, karena scriptnya sama dengan laihan-latihan sebelumnya.

even

click

load