latihan_28A_46110004

Deskripsi form latihan 28A
Dalam form Latihan 28a hanya terdapat dua object yaitu DataGriedView dan Button

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object Button :
Dalam form ini terdapat dua buah object button yang bertuliskan “input” dan “tutup”. Button  “input”  ini digunakan untuk menampilkan form latihan 28b  dan  menginput barang yang akan dimasukkan  ke dalam database  . Sedangkan Button  “tutup” digunakan untuk keluar dari form latihan 28a

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Load

Button Click

Langkah-langkah penyelesaian form latihan 28a

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_28a_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_28A_46110004

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim DT As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'mengatur data yang akan diangkut

        data = New OleDb.OleDbDataAdapter("SELECT* from BARANG", connect)

        'bersihkan data sebelum mengisi data lain

        DT.Rows.Clear()

        'memasukkan data yg telah diambil ke dalam data grid view

        data.Fill(DT)

        data.Dispose()

    End Sub

    Private Sub input_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_46110004.Click

        'menampilkan form latihan28b

        If latihan_28B_46110004.Visible = False Then

            latihan_28B_46110004.Show()

        Else

            latihan_28B_46110004.Activate()

        End If

    End Sub

    Private Sub tutup_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup_46110004.Click

        'ME untuk perintah tutup private

        Me.Close()

    End Sub

    Private Sub latihan_28A_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        dg_46110004.DataSource = DT

    End Sub

End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 28 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 28 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.