Deskripsi :
Dalam form Latihan 23A 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 master transaksi.
Object button :
Dalam form ini terdapat sebuah object label yang bertuliskan klik.Button ini berfungsi untuk menampilkan detail transaksi dari data yang ada di latihan 23A pada latihan 23B.
Langkah-langkah penyelesaian form 23A :
Masukkan rumus seperti ini
Public Class Latihan_23A_46110045
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=C:\Users\Microsoft\Documents\VB\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub Latihan_23A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim adapter As New OleDb.OleDbDataAdapter
adapter = New OleDb.OleDbDataAdapter("select*from mastertransaksi", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
adapter.Dispose()
dgv46110045.DataSource = tabel
End Sub
Private Sub klik46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik46110045.Click
If Latihan_23B_46110045.Visible = False Then
Latihan_23B_46110045.Show()
Else : Latihan_23B_46110045.Activate()
End If
Latihan_23B_46110045.No46110045.Text = dgv46110045.CurrentRow.Cells("notrans").Value
Latihan_23B_46110045.Date46110045.Value = dgv46110045.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23B_46110045.Jenis46110045.Text = dgv46110045.CurrentRow.Cells("jenistransaksi").Value
Latihan_23B_46110045.din(Latihan_23B_46110045.No46110045.Text)
End Sub
Private Sub dgv46110045_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110045.CellContentClick
End Sub
End Class
Script unique :
Private Sub klik46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik46110045.Click
If Latihan_23B_46110045.Visible = False Then
Latihan_23B_46110045.Show()
Else : Latihan_23B_46110045.Activate()
End If berguna untuk mengaktifkan form 23B.
Even :
Load
Buttonclick
Tidak ada komentar:
Posting Komentar