Latihan_23A_46110022
Deskripsi Form Latihan_23A_46110022
Dalam form ini terdapat object label,
datagriedview, dan button.
Object Label
Dalam form ini terdapat 1 object label(master
transaksi).
Object Datagriedview
Terdapat sebuah object Datagriedview
yang digunakan untuk menampilkan data tabel yang telah dibuat.
Object Button
Terdapat 1 buah object button (klik)
yang berfungsi untuk menampilkan hasil analisa dari data yang ada di data
table.
Script Unique
If
Latihan_23B_46110022.Visible = False Then
Latihan_23B_46110022.Show()
Else :
Latihan_23B_46110022.Activate()
End If
==>
Untuk menampilkan hasil detail dari
transaksi
Even
Click
CellContentClick
Langkah-Langkah Membuat Form Latihan 23A_46110022
1. Buat form baru seperti langkah
berikut :
2. Input nama form pada kolom
"add" seperti berikut :
3. Buat desain form seperti gambar
berikut :
4. Input script di bawah ini :
Public Class Latihan_23A_46110022
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=E:\SEMESTER 5\apkom\bahan ajar\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Latihan_23A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select*from
mastertransaksi", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
adapter.Dispose()
dgv46110022.DataSource = tabel
End Sub
Private Sub klik46110022_Click(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles klik46110022.Click
If
Latihan_23B_46110022.Visible = False Then
Latihan_23B_46110022.Show()
Else :
Latihan_23B_46110022.Activate()
End If
Latihan_23B_46110022.no46110022.Text =
dgv46110022.CurrentRow.Cells("notrans").Value
Latihan_23B_46110022.tgl46110022.Text =
dgv46110022.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23B_46110022.jenis46110022.Text
= dgv46110022.CurrentRow.Cells("jenistransaksi").Value
Latihan_23B_46110022.alfaega(Latihan_23B_46110022.no46110022.Text)
End Sub
Private Sub dgv46110022_CellContentClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110022.CellContentClick
End Sub
End Class
Langkah-Langkah Membuat Form Latihan 23A_46110022
- Klik start debugging
- Form ini akan
menampilkan Data Transaksi Barang
dari datatable yaitu pada DataGriedView menampilkan (Notrans, Tanggal
transaksi, Jenis transaksi,dan Keterangan).
- Jika anda mengarahkan kursor
anda pada Notrans yang anda inginkan seperti “ TR001” dan anda menekan
tombol Klik, Maka akan muncul Deteail Transaksi Dari Notrans TR001. Hasil
ini anda akan melihat dari Latihan_23B_46110022. Begitupun dengan Notrans
lainnya.
- Good luck :)
Postingan
