Latihan_32A_46110006

Deskripsi Form Latihan_32A_46110006

Pada form latihan 32A ada 2 object yang digunakan yaitu DataGridView dan Button.

Objek Label
Terdapat 1 objek Label yaitu "Daftar Barang" 

Object DataGridView

Object DataGridView berfungsi untuk menampilkan data dari file "DATABARANG.accdb"

Object Button

Terdapat 2 object Button yaitu TAMBAH dan EDIT dimana tombol TAMBAH berfungsi untuk menambah data barang yang diinginkan. Sedangkan tombol EDIT berfungsi untuk mengedit data barang yang telah tersimpan menjadi data baru.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

Even

Load

Button Click

     Cara Membuat From Latihan 32A :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.     Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_32A_46110006”

3.      Buatlah desain dibawah ini dengan menggunakan toolbox TextBox dan Label.     

   

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_32A_46110006

    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_46110006_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        DGV_46110006.DataSource = ambil

    End Sub

    Private Sub TAMBAH_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110006.Click

        If Latihan_32B_46110006.Visible = False Then

            Latihan_32B_46110006.Show()

        Else

            Latihan_32B_46110006.Activate()

        End If

    End Sub

    Private Sub EDIT_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110006.Click

        If Latihan_32C_46110006.Visible = False Then

            Latihan_32C_46110006.Show()

        Else

            Latihan_32C_46110006.Activate()

        End If

        Latihan_32C_46110006.GANTI_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_32C_46110006.KB_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_32C_46110006.NB_46110006.Text = DGV_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_32C_46110006.HJ_46110006.Text = DGV_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_32C_46110006.JB_46110006.Text = DGV_46110006.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING, ketika form ditampilkan pilih tombol TAMBAH untuk menambah data yang ingin diinput. sedangkan EDIT untuk mengedit data yang telah diinput.

2.      Selamat Mencoba.