A. Langkah-Langkah Penyelesaian Form Latihan_24A
· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_24A_46110007"
pada name kemudian click add
· Buat form seperti berikut
· Setelah
itu beri teks pada label dan button.
· Kemudian
beri nama pada semua objek, kecuali label
· Setelah form selesai masukkan rumus seperti
dibawah ini
Public Class
Latihan_24A_46110007
Dim koneksi As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source=E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Latihan_24A_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim mobil As New OleDb.OleDbDataAdapter
mobil = New
OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on
barang.kodebarang = detailtransaksi.kodebarang", koneksi)
tabel.Rows.Clear()
mobil.Fill(tabel)
mobil.Dispose()
ISI_46110007.DataSource = tabel
End Sub
Private Sub DETAIL_46110007_Click(ByVal
sender As Object, ByVal e As System.EventArgs) Handles DETAIL_46110007.Click
If Latihan_24B_46110007.Visible = False Then
Latihan_24B_46110007.Show()
Else : Latihan_24B_46110007.Activate()
End If
Latihan_24B_46110007.KB_46110007.Text =
ISI_46110007.CurrentRow.Cells("barang.kodebarang").Value
Latihan_24B_46110007.NB_46110007.Text =
ISI_46110007.CurrentRow.Cells("namabarang").Value
Latihan_24B_46110007.JB_46110007.Text =
ISI_46110007.CurrentRow.Cells("persediaanawal").Value
Latihan_24B_46110007.HJ_46110007.Text =
ISI_46110007.CurrentRow.Cells("hargajual").Value
Latihan_24B_46110007.TIKA(Latihan_24B_46110007.KB_46110007.Text)
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 24A
Pada form latihan 24A ada 3
object yang digunakan yaitu Label, Button dan Data
Grid View.
Object Label
Terdapat 1 label pada form
latihan 24A (Daftar Barang).
Object
Button
Terdapat 1 object button (Detail
Transaksi). Tombol ini digunakan untuk menampilkan detail dari transaksi, yang
ada pada form “Latihan_24B_46110007”.
Object DataGridView
Terdapat 1 object datagridview yang berfungsi
untuk menampilkan data tabel.
Script Unique
Membuat Koneksi
Dim koneksi As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Membuat data tabel
Dim tabel As New DataTable
Membuat adapter
Dim mobil As New OleDb.OleDbDataAdapter
Membersihkan data tabel
tabel.Rows.Clear()
Mengisi data base kedalam data tabel
mobil.Fill(tabel)
ISI_46110007.DataSource = tabel
Menghancurkan adapter yang sudah dipakai
mobil.Dispose()
Binding source menjadi data source pada
datagridview
ISI_46110007.DataSource = tabel
Untuk menampilkan form Latihan_24B_461100007
If
Latihan_24B_46110007.Visible = False Then
Latihan_24B_46110007.Show()
Else :
Latihan_24B_46110007.Activate()
End If
Even
Load
ButtonClick
Posting Komentar