Latihan_28a_46110027

Deskripsi Form Latihan 28a

  Pada form latihan 28a ada 2 object yang digunakan yaitu Button dan Data Grid View..

Object Datagridview

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 2 object button (input dan tutup). Tombol input digunakan untuk menampilkan form penginputan data pada “Latihan_28B_46110027”, sedangkan tombol tutup untuk mengakhiri program yang dijalankan.

.

Script Unique

-

Even 

Load

ButtonClick

• Langkah-langkah Membuat Form 28a

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

2.  Ketik nama Latihan_28a  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_28A_46110027
    Dim rsty 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", rsty)


        ambil.Rows.Clear()

        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Lat28A_46110027_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110027.DataSource = ambil
    End Sub

    Private Sub In_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles in_46110027.Click

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

    Private Sub Tu_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tu_46110027.Click
        Me.Close()
    End Sub
End Class

6.    Klik start debugging

7. maka hasilnya sbb: