Latihan_30A_46110038

Deskripsi Form Latihan_30A_46110038:

Form Latihan_30A_46110038 hanya terdapat 2 object yaitu Label, DataGridView, dan Button.

Object Label

Di Latihan_30A_46110038 ada 1 Label berisi teks Daftar Barang.

Object Datagridview

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

Object Button

Di Latihan_30A_46110038  ada 1 Button, Edit.

Script Unique

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

Even

Load

Click

Cara Membuat Form Latihan_30A_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_30A_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_30A_46110038

    Dim conect 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 erma As New OleDb.OleDbDataAdapter

        erma = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", conect)

        DT.Rows.Clear()

        erma.Fill(DT)

        erma.Dispose()

    End Sub

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

        ambildata()

        Data46110038.DataSource = DT

    End Sub

    Private Sub edit46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110038.Click

        If Latihan_30B_46110038.Visible = False Then

            Latihan_30B_46110038.Show()

        Else

            Latihan_30B_46110038.Activate()

        End If

        Latihan_30B_46110038.barang46110038.Text = Data46110038.CurrentRow.Cells("KODEBARANG").Value

        Latihan_30B_46110038.kode46110038.Text = Data46110038.CurrentRow.Cells("KODEBARANG").Value

        Latihan_30B_46110038.nama46110038.Text = Data46110038.CurrentRow.Cells("NAMABARANG").Value

        Latihan_30B_46110038.harga46110038.Text = Data46110038.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_30B_46110038.jumlah46110038.Text = Data46110038.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

End Class

Langkah untuk menjalankan Latihan_30A_46110038:

1.    Klik start debugging.

2. Form Latihan_30A_46110038 akan muncul dalam bentuk Tabel. Untuk mengedit, silakan klik tombol Klik maka Latihan_30B_46110038 akan muncul.