LATIHAN_28A_36110042

Deskripsi Latihan_28A_36110042

A.   Object-object dalam Latihan_28A_36110042:

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_36110042, 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_36110042.

B.   Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah  Latihan_28A_36110042.

C.   Even

Latihan_28A_36110042_Load

ambildata()

INPUT_36110042_Click

TUTUP_36110042_Click

Langkah-Langkah Latihan_28A_36110042

1.    Klik Start lalu pilih Microsoft Visual Studio 2008.

2.    Lalu akan muncul Start Page Microsoft Visual Studio 2008.

3.    Pilih Recent Project “Kumpulan_Latihan_36110042”

4.     Setelah terbuka, pilih icon Add New Item atau Ctrl+Shift+A

5.    Akan terbuka jendela Add New Item seperti di bawah ini, pilih template “Windows Form” dan beri nama “Latihan_28A_36110042”

6.    Kemudian buat form sesuai dengan form di bawah ini.

7.     Berikut ini adalah rumus untuk menjalankan form di atas.

Public Class Latihan_28A_36110042

    Dim go As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\AKUNTANSI 2010\SEMESTER 5\APKOM_4\APKOM 4 LENGKAP\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=25")

    Dim take 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", go)

        'bersihkan data sebelum mengisi data lain

        take.Rows.Clear()

        'memasukkan data yg telah diambil ke dalam data grid view

        data.Fill(take)

        data.Dispose()

    End Sub

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

        ambildata()

        DGV_36110042.DataSource = take

    End Sub

    Private Sub INPUT_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_36110042.Click

        'menampilkan form latihan28b

        If Latihan_28B_36110042.Visible = False Then

            Latihan_28B_36110042.Show()

        Else

            Latihan_28B_36110042.Activate()

        End If

    End Sub

    Private Sub TUTUP_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_36110042.Click

        Me.Close()

    End Sub

End Class

8.    Setelah itu, jalankan programnya dengan klik Icon Start Debugging kemudian akan mucul form navigator dan klik Latihan 28.