Latihan_28A_36110031

Tahap Penyelesaian Latihan_28A_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_28A  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_28A dibawah ini:

 

 5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_28A_36110031

    Dim AA As New DataTable

    Dim Audry As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb;Jet OLEDB:Database Password=3711")

    Public Sub Ias()

        Dim nisa As New OleDb.OleDbDataAdapter

        nisa = New OleDb.OleDbDataAdapter("Select * from barang", Audry)

        AA.Rows.Clear()

        nisa.Fill(AA)

        nisa.Dispose()

    End Sub

    Private Sub Latihan_28A_36110031_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Ias()

        DGV_36110031.DataSource = AA

    End Sub

    Private Sub Input_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input_36110031.Click

        If Latihan_28B_36110031.Visible = False Then

            Latihan_28B_36110031.Show()

        Else

            Latihan_28B_36110031.Activate()

        End If

    End Sub

    Private Sub Tutup_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110031.Click

        Close()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 

8.      Selesai

Deskripsi Latihan_28A_36110031

-    Object DataGridView

Terdapat satu datagridview yang digunakan untuk menampilkan daftar barang

-       Object Button

Terdapat dua object button (Input dan Edit) . Button Input digunakan untuk menampilkan form Latihan_28B_36110031 yang kemudian digunakan untuk menginput barang kedalam form Ms.Access yang juga dapat di lihat pada object datagridview di Latihan_28A_36110031. Button tutup digunakan untuk menutup form Latihan_28A_36110031

Script Unique

Untuk Script Unique dapat dilihat pada tahap penyelesaianyang tertera diatas…

Even

Latihan_28A_36110031_Load

Input_36110031_Click

Ias()

Tutup_36110031_Click