Latihan_28a_46110001

A.    Object-object dalam Latihan_28a_46110001

1.       Object DataGridView

Pada form ini hanya terdapat 1 object datagridview dimana object ini berfungsi untuk menampilkan data tabel.

2.      Object Button

Pada form ini terdapat  2 object button (input dan tutup). Tombol input digunakan untuk menampilkan form penginputan data pada “Latihan_28B_46110001”, sedangkan tombol tutup untuk mengakhiri program yang dijalankan

B.     Script Unique

Script unique dapat dilihat langsung pada form latihan 27 namun Pada Latihan ini tidak  ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

C.     Even

Load

ButtonClick

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 28a ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah i

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

·         Buatlah form seperti gambar dibawah ini,

 

·         Berikut ini adalah rumus untuk menjalankan form di atas\

Public Class Latihan_28a_46110001

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Dim ambil As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain

        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(ambil)

        data.Dispose()

    End Sub

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

        ambildata()

        DGV_46110001.DataSource = ambil

    End Sub

    Private Sub Input_46110001Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INPUT_46110001.Click

        'Menampilkan form 28b

        If Latihan_28b_46110001.Visible = False Then

            Latihan_28b_46110001.Show()

        Else

            Latihan_28b_46110001.Activate()

        End If

    End Sub

    Private Sub TUTUP_46110001Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TUTUP_46110001.Click

        Me.Close()

    End Sub

End Class

·         langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini