Latihan_28A_46110006

Deskripsi Form Latihan_28A_46110006

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

Object DataGridView

Object DataGridView berfungsi untuk menampilkan “DATA BARANG.accdb.

Objec Button

Terdapat 2 object Button yaitu INPUT dan TUTUP dimana tombol INPUT berfungsi untuk menginput data barang yang diinginkan. Sedangkan tombol TUTUP berfungsi untuk menutup form yang telah digunakan.

Script Unique

Untuk membersihkan data sebelum mengisi data lain

table.Rows.Clear()

Untuk memasukkan data yg telah diambil ke dalam DataGridView 

data.Fill(table)
data.Dispose()

Untuk menutup form yang telah dijalankan
Me.Close()

Even

Load

Button Click

     Cara Membuat From Latihan 28A :

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

        ambildata()

        DTG_46110006.DataSource = ambil

    End Sub

    Private Sub INPUT_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUT_46110006.Click

        If Latihan_28B_46110006vb.Visible = False Then

            Latihan_28B_46110006vb.Show()

        Else

            Latihan_28B_46110006vb.Activate()

        End If

    End Sub

    Private Sub TUTUP_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TUTUP_46110006.Click

        Me.Close()

    End Sub

End Class

Langkah-langkah menjalankan :

         1.  Klik STAR DEBUGING, muncul form seperti berikut. gunakan tombol INPUT untuk mencoba 
             menginput data barang.

             
         2.      Selamat Mencoba.