Deskripsi dan Prosedur Latihan_28a_36110039

   Deskripsi Form Latihan_28A_36110039

Terdapat dua object yaitu :

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_36110039, 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_36110048. Button tutup digunakan untuk menutup form Latihan_28A_36110039.

   Script Unique

Scriptnya ada pada Prosedur Latihan_28A_36110039 dibawah ini.

   Even

ambildata()

Latihan_28a_039_Load

input_36110039_Click

Tutup_36110039_Click

Prosedur menjalankan Latihan_28A_36110039:

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

2.       Klik menu file dan pilih New Project.

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

4.       Klik menu view dan pilih toolbox.

5.      Kemudian pilih object datagridview dan buat sebanyak lima.

                                                                                                                            

6.      Kemudian pilih object button dan buat sebanyak dua. Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

7.      Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:

 

8.      Berikut ini adalah rumus untuk menjalankan form di atas:

Public Class Latihan_28A_36110039

    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb;jet oledb:database password=2301")

    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_039_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        dgv_36110039.DataSource = take

    End Sub

    Private Sub input_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input_36110039.Click

        'menampilkan form latihan28b

        If Latihan_28b_36110039.Visible = False Then

            Latihan_28b_36110039.Show()

        Else

            Latihan_28b_36110039.Activate()

        End If

    End Sub

    Private Sub Tutup_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110039.Click

        Me.Close()

    End Sub

End Class

9.       Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging atau tekan F5.