Latihan_30A_46110006

Deskripsi Form Latihan_30A_46110006

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

Object DataGridView

Object DataGridView berfungsi untuk menampilkan data tabel.

Objec Button

Terdapat 1 object Button yaitu EDIT yang berfungsi untuk mengedit data barang yang telah  tersimpan menjadi data baru dan tersimpan kembali pada tabel Data Barang.

Even

Button Click

Cara Membuat From Latihan 30A :

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_30A_46110006”

3.      Buatlah desain seperti berikut :

       

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

Public Class Latihan30a_083

    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()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain

        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(ambil)

        data.Dispose()

    End Sub

    Private Sub Latihan30a_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        dgv.DataSource = ambil

    End Sub

    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles eDiT.Click

        'Menampilkan form 30b

        If Latihan30b_083.Visible = False Then

            Latihan30b_083.Show()

        Else

            Latihan30b_083.Activate()

        End If

        'mengisi textbox yang ada pada 30b

        Latihan30b_083.ganti.Text = dgv.CurrentRow.Cells("KodeBarang").Value

        Latihan30b_083.T1.Text = dgv.CurrentRow.Cells("kodebarang").Value

        Latihan30b_083.T2.Text = dgv.CurrentRow.Cells("namabarang").Value

        Latihan30b_083.T3.Text = dgv.CurrentRow.Cells("hargajual").Value

        Latihan30b_083.T4.Text = dgv.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING, ketika form ditampilkan klik tombol EDIT untuk mencoba mengedit data barang.

2.      Selamat Mencoba.