Deskripsi Form Latihan_23a_46110003
Dalam form
Latihan_23a_46110003 hanya terdapat Object Label, Object DataGridView, dan
Object Button.
Object Label
Terdapat 1 objek label yang
bertuliskan "Master Transaksi"
Object DataGridView
Terdapat 1 object datagridview yang
digunakan untuk menampilkan daftar barang.
Object Button
Terdapat 1 object button yaitu
"Enter". Button “Enter” digunakan untuk menampilkan detail dari
daftar barang yang ada di datagridview. Detail dari daftar barang itu akan
muncul pada form Latihan_26B_46110003.
Script Unique
==> menampilkan
form Latihan_23B_46110003
If
Latihan_23b_46110003.Visible = False Then
Latihan_23b_46110003.Show()
Else : Latihan_23b_46110003.Activate()
End If
==> mengisi textbox yang ada pada Latihan_23B_46110003
Latihan_23b_46110003.notrans46110003.Text
= dgv46110003.CurrentRow.Cells("notrans").Value
Latihan_23b_46110003.DTP46110003.Value
= dgv46110003.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23b_46110003.jenis46110003.Text
= dgv46110003.CurrentRow.Cells("jenistransaksi").Value
=> menjalankan procedure pengambilan data
Latihan_23b_46110003.amal(Latihan_23b_46110003.notrans46110003.Text)
Even
Load
Even
Load
Langkah-langkah Penyelesaian
1. Buat desain Form seperti contoh
dibawah ini:
2. Masukkan rumus:
Public Class Latihan_23a_46110003
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Private Sub latihan_23a_008_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()
dgv46110003.DataSource = tabel
End Sub
Private Sub enter46110003_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles enter46110003.Click
If
Latihan_23b_46110003.Visible = False Then
Latihan_23b_46110003.Show()
Else :
Latihan_23b_46110003.Activate()
End If
Latihan_23b_46110003.notrans46110003.Text =
dgv46110003.CurrentRow.Cells("notrans").Value
Latihan_23b_46110003.DTP46110003.Value
= dgv46110003.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23b_46110003.jenis46110003.Text
= dgv46110003.CurrentRow.Cells("jenistransaksi").Value
Latihan_23b_46110003.amal(Latihan_23b_46110003.notrans46110003.Text)
End Sub
Private Sub dgv46110003_CellContentClick(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
dgv46110003.CellContentClick
End Sub
End Class
3. Jalankan Program dengan mengklik
Debugging.
4. Maka akan tampil program seperti
dibawah ini.
0 komentar:
Posting Komentar