Latihan_24a_36110029

v Deskripsi Latihan_24a_36110029

Object Label

Terdapat satu label (yang bertuliskan daftar barang).

Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

Object Button

Terdapat satu object button (clik). Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. clik dari daftar barang itu akan muncul pada form Latihan_24b_36110029.

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_24a_36110029.

Even

Latihan_24a_36110029_Load

Klik_24a_36110029.clik

v   Prosedur  Latihan_24a_36110029

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_24a_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_24a_36110029
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
    Dim hana As New DataTable

    Private Sub Latihan_24a_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim B As New OleDb.OleDbDataAdapter
        B = New OleDb.OleDbDataAdapter("Select * from BARANG", A)
        hana.Rows.Clear()
        B.Fill(hana)
        B.Dispose()

        data_36110029.DataSource = hana
    End Sub

    Private Sub klik_36110029_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles klik_36110029.Click
        If Latihan_24b_36110029.Visible = False Then
            Latihan_24b_36110029.Show()
        Else
            Latihan_24b_36110029.Activate()
        End If

        Latihan_24b_36110029.Show()
        Latihan_24b_36110029.kb_36110029.Text = data_36110029.CurrentRow.Cells("KODEBARANG").Value
        Latihan_24b_36110029.nb_36110029.Text = data_36110029.CurrentRow.Cells("NAMABARANG").Value
        Latihan_24b_36110029.hj_36110029.Text = data_36110029.CurrentRow.Cells("HARGAJUAL").Value
        Latihan_24b_36110029.jb_36110029.Text = data_36110029.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_24b_36110029.cucu()
    End Sub
End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.