LATIHAN_28A_36110052

Latihan_28A _36110052

A.   Object-object dalam Latihan_28A_36110052:

1.   Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

2.   Object Button

Terdapat dua object button (Input dan Tutup). Button input digunakan untuk menampilkan form Latihan_28B_36110052, yang kemudian digunakan untuk menginput data barang ke dalam form BARANG di Ms Access yang juga dapat di lihat pada object datagridview di Latihan_28A_36110042. Button tutup digunakan untuk menutup form Latihan_28A_36110052.

B.   Script Unique

 dapat dilihat secara menyeluruh pada Langkah-Langkah  kerja Latihan_28A_36110052.

C.   Even

Latihan_28A_36110052_Load

VEVE()

INPUT_36110052_Click

TUTUP_36110052_Click

Langkah-langkah kerja  latihan_28a_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_28a_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Sebelum masuk ke lembar vb hubungkan dengan database dengan cara

6.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public NotInheritable Class LATIHAN_28a_36110052

    Dim VIA As New DataTable

    Dim VEE As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub VEVE()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", VEE)

        VIA.Rows.Clear()

        adapter.Fill(VIA)

        adapter.Dispose()

        DGV_36110052.DataSource = VIA

    End Sub

    Private Sub INPUT_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_36110052.Click

        If LATIHAN_28B_36110052.Visible = False Then

            LATIHAN_28B_36110052.Show()

        Else

            LATIHAN_28B_36110052.Activate()

        End If

    End Sub

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

        VEVE()

        DGV_36110052.DataSource = VIA

    End Sub

    Private Sub TUTUP_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_36110052.Click

        Close()

    End Sub

End Class

7.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

8.      SELESAI