Latihan_28A_46110002

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_46110007”, sedangkan tombol tutup untuk mengakhiri program yang dijalankan.

 

Even

Load

ButtonClick

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Penyelesaian Form Latihan_28A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_28A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

-       Lalu masukkan text pada properties khusus untuk button

·         Setelah smua slesai, klik kanan, view kode lalu  masukkan rumus

 Public Class Latihan_28A_46110002
    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_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DGV_46110002.DataSource = ambil
    End Sub

 

    Private Sub INPUT_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_46110002.Click
        If Latihan_28B_46110002.Visible = False Then
            Latihan_28B_46110002.Show()
        Else
            Latihan_28B_46110002.Activate()
        End If
    End Sub
    Private Sub TUTUP_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_46110002.Click
        Me.Close()
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 28A

·         Klik star debugging, trus klik latihan 28

·          Maka akan muncul hasil seperti ini

·         Lalu click “input” maka akan muncul latihan 28B, klik "tutup" maka latihan 28 akan tertutup.