welcome to my blog :)

Deskripsi Form Latihan_28A_46110022
Dalam form ini terdapat 2 buah object yaitu DataGriedView dan button.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.


Object Button
Terdapat 2 buah objek button (input dan tutup) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat.

Script Unique

 take.Rows.Clear()
If Latihan_28B_46110022.Visible = False Then
            Latihan_28B_46110022.Show()
        Else
            Latihan_28B_46110022.Activate()
        End If  

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 28A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :

4. Input script di bawah ini :

Public Class Latihan_28A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter


        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)


        take.Rows.Clear()


        data.Fill(take)
        data.Dispose()

    End Sub

    Private Sub Latihan_28A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take
    End Sub
 
    Private Sub input46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110022.Click
        If Latihan_28B_46110022.Visible = False Then
            Latihan_28B_46110022.Show()
        Else
            Latihan_28B_46110022.Activate()
        End If

    End Sub

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