Latihan 24-26

LATIHAN 24A
Public Class Form24
Dim Ami_DT_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form24_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim am_36109022 As New OleDb.OleDbDataAdapter
Dim aL_36109022 As New OleDb.OleDbDataAdapter
aL_36109022 = New OleDb.OleDbDataAdapter("select * From BARANG", rahmi_36109022)
Ami_DT_36109022.Rows.Clear()
aL_36109022.Fill(Ami_DT_36109022)
aL_36109022.Dispose()
tampil_36109022.DataSource = Ami_DT_36109022
End Sub

Private Sub klik_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36109022.Click
If Form24B.Visible = False Then
Form24B.Show()
Else
Form24B.Activate()
End If

Form24B.kodebarang_36109022.Text = tampil_36109022.CurrentRow.Cells("KODEBARANG").Value
Form24B.namabarang_36109022.Text = tampil_36109022.CurrentRow.Cells("NAMABARANG").Value
Form24B.hargajual_36109022.Text = tampil_36109022.CurrentRow.Cells("HARGAJUAL").Value
Form24B.jumlahbarang_36109022.Text = tampil_36109022.CurrentRow.Cells("PERSEDIAANAWAL").Value

Form24B.Aya(Form24B.kodebarang_36109022.Text)

End Sub
End Class

LATIHAN 24B
Public Class Form24B
Dim ami_dt_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub Aya(ByVal JHUJHA As String)
Dim aL1_36109009 As New OleDb.OleDbDataAdapter
aL1_36109009 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI Where KODEBARANG='" & JHUJHA & "'", rahmi_36109022)
ami_dt_36109022.Rows.Clear()
aL1_36109009.Fill(ami_dt_36109022)
aL1_36109009.Dispose()

tampil_36109022.DataSource = ami_dt_36109022
End Sub
End Class
Public Class Form25
Dim Ami_DT_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form25_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim am_36109022 As New OleDb.OleDbDataAdapter
Dim aL_36109022 As New OleDb.OleDbDataAdapter
aL_36109022 = New OleDb.OleDbDataAdapter("select * From BARANG", rahmi_36109022)
Ami_DT_36109022.Rows.Clear()
aL_36109022.Fill(Ami_DT_36109022)
aL_36109022.Dispose()
tampil_36109022.DataSource = Ami_DT_36109022
End Sub

Private Sub klik_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36109022.Click
If Form25B.Visible = False Then
Form25B.Show()
Else
Form25B.Activate()
End If

Form25B.kodebarang_36109022.Text = tampil_36109022.CurrentRow.Cells("KODEBARANG").Value
Form25B.namabarang_36109022.Text = tampil_36109022.CurrentRow.Cells("NAMABARANG").Value
Form25B.hargajual_36109022.Text = tampil_36109022.CurrentRow.Cells("HARGAJUAL").Value
Form25B.jumlahbarang_36109022.Text = tampil_36109022.CurrentRow.Cells("PERSEDIAANAWAL").Value

Form25B.Aya(Form25B.kodebarang_36109022.Text)

End Sub
End Class

LATIHAN 25B
Public Class Form25B
Dim ami_dt_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub Aya(ByVal JHUJHA As String)
Dim aL1_36109009 As New OleDb.OleDbDataAdapter
aL1_36109009 = New OleDb.OleDbDataAdapter("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 ='" & JHUJHA & "'", rahmi_36109022)
ami_dt_36109022.Rows.Clear()
aL1_36109009.Fill(ami_dt_36109022)
aL1_36109009.Dispose()

tampilnya_36109022.DataSource = ami_dt_36109022
End Sub
End Class

LATIHAN 26A
Public Class Form26
Dim Ami_DT_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form26_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim am_36109022 As New OleDb.OleDbDataAdapter
Dim aL_36109022 As New OleDb.OleDbDataAdapter
aL_36109022 = New OleDb.OleDbDataAdapter("select * From BARANG", rahmi_36109022)
Ami_DT_36109022.Rows.Clear()
aL_36109022.Fill(Ami_DT_36109022)
aL_36109022.Dispose()
tampil_36109022.DataSource = Ami_DT_36109022
End Sub

Private Sub klik_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36109022.Click
If Form26B.Visible = False Then
Form26B.Show()
Else
Form26B.Activate()
End If

Form26B.kodebarang_36109022.Text = tampil_36109022.CurrentRow.Cells("KODEBARANG").Value
Form26B.namabarang_36109022.Text = tampil_36109022.CurrentRow.Cells("NAMABARANG").Value
Form26B.hargajual_36109022.Text = tampil_36109022.CurrentRow.Cells("HARGAJUAL").Value
Form26B.jumlahbarang_36109022.Text = tampil_36109022.CurrentRow.Cells("PERSEDIAANAWAL").Value

Form26B.aya(Form26B.kodebarang_36109022.Text)
End Sub
End Class

LATIHAN 26B
Public Class Form26B
Dim ami_dt_36109022 As New DataTable
Dim rahmi_36109022 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Public Sub Aya(ByVal JHUJHA As String)
Dim aL1_36109022 As New OleDb.OleDbDataAdapter
aL1_36109022 = New OleDb.OleDbDataAdapter("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 ='" & JHUJHA & "'", rahmi_36109022)
ami_dt_36109022.Rows.Clear()
aL1_36109022.Fill(ami_dt_36109022)
aL1_36109022.Dispose()

tampil_36109022.DataSource = ami_dt_36109022

Dim ami01_36109022 As Integer
Dim ami02_36109022 As Integer
For Each cantik As DataRow In ami_dt_36109022.Rows
ami01_36109022 = ami01_36109022 + cantik("Unit")
ami02_36109022 = ami02_36109022 + cantik("Jumlah")
Next
totalunit_36109022.Text = ami01_36109022
totaljumlah_36109022.Text = ami02_36109022
End Sub
End Class