latihan_28A_46110023

Deskripsi Form Latihan 28A

Dalam form latihan 28A terdapat 2 object yaitu object datagridview dan button

Object datagridview

Pada laihan 27a ini terdapat 1 object datagridview yang berfungsi untuk manampilkan data berupa tabel

Oject button

terdapat 2 object button yang bertuliskan input dan tutup. Jika button tutup diklik ketika form dijalankan maka akan muncul form latihan 28B

Langkah- langkah membuat form latihan 28A

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add new windows :

 

 

3.    Setelah itu ganti nama form lalu pilih add:

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

 

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

 

7.    Setelah muncul halaman baru, masukkan script seperti dibaeah ini:

 Public Class LATIHAN_28A_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim table As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* from barang", dian)
        table.Rows.Clear()
        data.Fill(table)
        data.Dispose()
    End Sub

    Private Sub Latihan_28A_46110039_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110023.DataSource = table
    End Sub

    Private Sub Input_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_46110023.Click
        If LATIHAN_28B_46110023.Visible = False Then
            LATIHAN_28B_46110023.Show()
        Else
            LATIHAN_28B_46110023.Activate()
        End If
    End Sub

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

Langkah –Langkah Menjalankan Latihan 28A

1.    Untuk melihat hasil dari form 28A, klik star debugging. Maka akan muncul tabel barang bpada object data grid view

2.    Setelah itu, pilih input/tutup. jika anda pilih input maka akan muncul form latihan 28B. Dan jika pilih tutup maka program akan tertutup.

3.    Jika ada kesalahan pada rumus, program secara otomatis akan memperliatkannya.

4.    Selamat mencoba

Script unique

Tidak ada script unik pada form ini karena scriptnya sudah ada pada latihan-latihan sebelumnya.

even

load

buttonklik