Deskripsi Form :
Pada Latihan 26, terdapat 2 form yang saling terkait yaitu form “Latihan_26a_46110021” dan form “Latihan_26b_46110021”
I. Latihan_26a_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 “Daftar Barang”
C. Object Button
Object button ada 1 yaitu Detail Transaksi. Button ini berfungsi untuk mengaktifkan form “Latihan_26b_46110021
II. Latihan_26b_46110021
Form Latihan ini Terdapat 3 object yaitu datagridview, label, dan textbox:
A. Object datagridview.
Pada form ini, hanya terdapat 1 datagridview. Object ini akan menampilkan tabel sesuai dengan fungsi yang dimasukkan. object ini akan menampilkan detail transaksi dari kode barang yang dipilih di "Latihan_26a_46110021"
B. Object Label.
Pada form ini, terdapat 7 label Detail Transaksi, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang, Total unit, dan Total Jumlah
D. Object Textbox.
Terdapat 6 text box. terdiri dari 4 text box input dan 2 text box readonly
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_26b_46110021. lalu buat desain untuk form 26b seperti dibawah ini
F. Setelah itu, klik kanan lalu pilih view code. Untuk memudahkan, masukkan dulu code yang akan dijalankan pada form “Latihan_26b_46110021”
Public Class Latihan_26b_46110021
Dim koneksi
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim meong As New DataTable
Public Sub idhamsyam(ByVal A
As String)
Dim
adapter As New
OleDb.OleDbDataAdapter
Dim
shoell As String
shoell = "SELECT
MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI,
MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN,
DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,
[DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM
DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS =
MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
adapter = New
OleDb.OleDbDataAdapter(shoell, koneksi)
adapter.Fill(meong)
Dim
idham As Integer
= 0
Dim
idho As Integer
= 0
For Each row As DataRow In meong.Rows
idham += row("Unit")
idho += row("Jumlah")
Next
Totunit_46110021.Text = idham
Total_46110021.Text = idho
End Sub
Private Sub latihan_26b_008_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
DataGridView1_46110021.DataSource =
meong
End Sub
End Class
G. Setelah itu baru masukkan code ini pada “Latihan_26a_46110021”
Public Class Latihan_26a_46110021
Dim conect As New
OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data
source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim data As New DataTable
Private Sub latihan_26a_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
barang", conect)
data.Rows.Clear()
adapter.Fill(data)
adapter.Dispose()
DataGridView1_46110021.DataSource =
data
End Sub
Private Sub Button46109008_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles detail_46110021.Click
If
Latihan_26b_46110021.Visible = False Then
Latihan_26b_46110021.Show()
Else :
Latihan_26b_46110021.Activate()
End If
Latihan_26b_46110021.Kode_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("kodebarang").Value
Latihan_26b_46110021.Nama_46110021.Text
= DataGridView1_46110021.CurrentRow.Cells("namabarang").Value
Latihan_26b_46110021.Harga_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("hargajual").Value
Latihan_26b_46110021.Jumlah_46110021.Text =
DataGridView1_46110021.CurrentRow.Cells("persediaanawal").Value
Latihan_26b_46110021.idhamsyam(Latihan_26b_46110021.Kode_46110021.Text)
End Sub
End Class
Script Unik
TIDAK ADA SCRIPT UNIK
Langkah untuk menjalankan form ini :
A. Klik start debugging.
B. Data akan secara otomatis muncul pada object datagridview pada Latihan_26a_46110021. untuk melihat detail dari transaksi, pilih salah satu data di datagrid view, lalu tekan tombol klik. maka akan muncul form Latihan_26b_46110021 dan seluruh object yang kosong akan terisi sesuai dengan fungsinya.