Deskripsi Form :
Pada Latihan 23, terdapat 2
form yang saling terkait yaitu form “Latihan_23a_46110021” dan form “Latihan_23b_46110021”
I.
Latihan_23a_46110021
Form Latihan ini Terdapat 3 object yaitu datagridview,
label, dan button:
A. Object datagridview.
Pada form ini, hanya terdapat 1 datagridview.
Object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan
B. Object label
Pada form ini terdapat 1 object label yaitu “Master
Transaksi”
C. Object Button
Object button ada 1 yaitu Klik. Button ini
berfungsi untuk mengaktifkan form “Latihan_23b_46110021
II.
Latihan_23b_46110021
Form Latihan ini Terdapat 4
object yaitu datagridview, label, datetimepicker,dan textbox:
A. Object datagridview.
Pada form ini, hanya terdapat 1 datagridview.
Object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan.
B. Object Label.
Pada form ini, terdapat 4 label Detail
Transaksi, nomor, tanggal dan jenis
C.
Object
datetimepicker.
Terdapat 2 datetimepicker. Object ini berada
pada samping label tanggal
D.
Object
Textbox.
Terdapat
2 text box.
Cara Membuat Form
A.
Buka
project anda, lalu pilih “Project” pada menu bar dan pilih add windows form.
B.
Masukkan
nama form yang sesuai dengan kemauan anda lalu tekan “add”.
C.
Buatka
desain form sesuai dengan gambar dibawah ini, lihat dan sesuaikan dengan deskripsi
agar tidak salah memilih object.
D.
Ubah
nama object tersebut. Ingat, nama object di desain harus sama dengan nama
object di rumus vb.
E.
Lakukan
langkah yang sama dengan point A, B untuk membuat form Latihan_23b_46110021. lalu buat desain untuk form 23b seperti dibawah ini
Ubah nama object tersebut. Ingat, nama object di desain harus sama dengan nama object di rumus vb.(point C)
F. Setelah
itu, klik kanan lalu pilih view code. Untuk memudahkan, masukkan dulu code yang
akan dijalankan pada form “Latihan_23b_46110021” yaitu:
Public Class Latihan_23b_46110021
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tabel As New DataTable
Public Sub idham(ByVal A As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
adapter = New
OleDb.OleDbDataAdapter("select*from
detailtransaksi where notrans='" & A & "'", koneksi)
tabel.Rows.Clear()
adapter.Fill(tabel)
DataGridView1_46110021.DataSource =
tabel
End Sub
Private Sub latihan_23b_008_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1_46110021.CellContentClick
End Sub
End Class
G.
Setelah
itu baru masukkan code ini pada “Latihan_23a_46110021”
Public Class Latihan_23a_46110021
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()
DataGridView1_46110021.DataSource =
tabel
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles klik_46110021.Click
If
Latihan_23b_46110021.Visible = False Then
Latihan_23b_46110021.Show()
Else :
Latihan_23b_46110021.Activate()
End If
Latihan_23b_46110021.Nomor_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("notrans").Value
Latihan_23b_46110021.DateTimePicker1_46110021.Value
= DataGridView1_46110021.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23b_46110021.jenis_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("jenistransaksi").Value
Latihan_23b_46110021.idham(Latihan_23b_46110021.Nomor_46110021.Text)
End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1_46110021.CellContentClick
End Sub
End Class
Script Unik
A. If Latihan_23b_46110021.Visible = False Then
Latihan_23b_46110021.Show()
Else : Latihan_23b_46110021.Activate()
End If
=> menampilkan form Latihan_23b_46110039
B. Latihan_23b_46110021.Nomor_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("notrans").Value
Latihan_23b_46110021.DateTimePicker1_46110021.Value = DataGridView1_46110021.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_23b_46110021.jenis_46110021.Text = DataGridView1_46110021.CurrentRow.Cells("jenistransaksi").Value
=> mengisi textbox yang ada pada Latihan_23b_46110039
C. Latihan_23b_46110021.idham(Latihan_23b_46110021.Nomor_46110021.Text)
=> menjalankan procedure pengambilan data
Langkah
untuk menjalankan form ini :
A.
Klik
start debugging.
B.
Data
akan secara otomatis muncul pada object datagridview pada Latihan_23a_46110021. untuk melihat detail dari transaksi, pilih salah satu data di datagrid view, lalu tekan tombol klik. maka akan muncul form Latihan_23b_46110021 dan seluruh object yang kosong akan terisi sesuai dengan fungsinya.