· Buka project yang telah dibuat sebelumnya.
· Click project kemudian pilih add windows form, seperti pada gambar dibawah ini
· Ketik nama form "Latihan_26B_46110007" pada name kemudian click add
· Buat form seperti berikut
· Setelah itu beri teks pada label
· Kemudian
beri nama pada semua objek, kecuali label
· Setelah form selesai masukkan rumus seperti dibawah ini
Public Class
Latihan_26B_46110007
Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source= E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Dim meong As New DataTable
Public Sub TIKA(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 izhar As Integer = 0
Dim sul As Integer = 0
For Each row As DataRow In meong.Rows izhar += row("Unit")
sul += row("Jumlah")
Next
UNIT_46110007.Text = izhar
JUMLAH_46110007.Text = sul
End Sub
Private Sub Latihan_26B_46110007_Load(ByVal
sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ISI_46110007.DataSource = meong
End Sub
End Class
· Untuk menjalankan form tekan F5
B. Deskripsi Form Latihan 26B
Pada form latihan 26B ada 3
object yang digunakan yaitu Label, Text Box dan Data
Grid View.
Object Label
Terdapat 6 label pada form
latihan 26B (Kode Barang, Harga Barang, Harga Jual, Jumlah Barang, Total Unit
dan Total Jumlah).
Object TextBox
Terdapat 6 object textbox (4
status input, 2 status read only) yang nantinya akan menampilkan detail data yang
telah dipilih pada Latihan_26A_46110007.
Object DataGridView
Terdapat 1 object datagridview berfungsi untuk
menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).
Script Unique
Membuat Koneksi
Dim koneksi As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=
E:\SEMESTER 5\VB\LATIHAN 15-26 MENGAKSES
DATA\datatransaksijualbeli.accdb")
Membuat data tabel
Dim meong As New DataTable
Membuat data adapter
Dim adapter As New OleDb.OleDbDataAdapter
Even
Load
Property
Property TextBox => ReadOnly =
True
Posting Komentar