Latihan_28A_46110038

Deskripsi Form Latihan_28A_46110038:

Form Latihan_26_46110038 hanya terdapat 2 object yaitu Button dan DataGridView.

Object Datagridview

Di Latihan_28A_46110038 ada 1 Datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Object Button

Di Latihan_28A_46110038  ada 2 Button, Input dan Tutup. Tombol input digunakan untuk menampilkan form penginputan data pada “Latihan_28B_46110007”, sedangkan tombol tutup untuk mengakhiri program yang dijalankan.

Script Unique

Pada Latihan_28A_46110038   ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

Load

ButtonClick

Cara Membuat Form Latihan_28A_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_28A_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_28A_46110038

    Dim connect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Kumpulan_Latihan_46110038\Kumpulan_Latihan_46110038\bin\Debug\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim DT As New DataTable

    Public Sub ambildata()

        Dim merah As New OleDb.OleDbDataAdapter

        merah = New OleDb.OleDbDataAdapter("SELECT* from BARANG", connect)

        DT.Rows.Clear()

        merah.Fill(DT)

        merah.Dispose()

    End Sub

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

        ambildata()

        Data46110038.DataSource = DT

    End Sub

    Private Sub input46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input46110038.Click

        If Latihan_28B_46110038.Visible = False Then

            Latihan_28B_46110038.Show()

        Else

            Latihan_28B_46110038.Activate()

        End If

    End Sub

    Private Sub tutup46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup46110038.Click

        Me.Close()

    End Sub

End Class

Langkah untuk menjalankan Latihan_28A_46110038:

1.    Klik start debugging.

2. Form Latihan_28A_46110038 akan muncul.

3. Lalu click “input” maka akan muncul latihan 28B, klik "tutup" maka latihan 28 akan tertutup.