latihan_25A_46110004

Deskripsi form latihan 25A
Dalam form Latihan 25A hanya terdapat tiga object yaitu DataGriedView, Label dan Button

Object datagridview :
Dalam form ini terdapat sebuah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object label :
Dalam form ini terdapat sebuah object label yang bertuliskan daftar barang.

Object label :
Dalam form ini terdapat sebuah object label yang bertuliskan detail transaksi.Button ini berfungsi untuk menampilkan detail transaksi dari data yang ada pada latihan 25A di latihan 25B.

Script Unique :
Script yang digunakan sama dengan script yang digunakan pada latihan-latihan sebelumnya

Even :
Load
ButtonClick

Langkah-langkah penyelesaian form latihan 24A

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_25A_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :
Public Class latihan_25A_46110004
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim datatable As New DataTable
    Private Sub latihan_25a_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim shoell As New OleDb.OleDbDataAdapter
        shoell = New OleDb.OleDbDataAdapter("select*from barang", conect)
        datatable.Rows.Clear()
        shoell.Fill(datatable)
        shoell.Dispose()

        dg1_46110004.DataSource = datatable
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If latihan_25B_46110004.Visible = False Then
            latihan_25B_46110004.Show()
        Else : latihan_25B_46110004.Activate()
        End If

        latihan_25B_46110004.TextBox1.Text = dg1_46110004.CurrentRow.Cells("kodebarang").Value
        latihan_25B_46110004.TextBox2.Text = dg1_46110004.CurrentRow.Cells("namabarang").Value
        latihan_25B_46110004.TextBox3.Text = dg1_46110004.CurrentRow.Cells("hargajual").Value
        latihan_25B_46110004.TextBox4.Text = dg1_46110004.CurrentRow.Cells("persediaanawal").Value

        latihan_25B_46110004.Sulhi(latihan_25B_46110004.TextBox1.Text)
    End Sub
End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini: