Latihan 21-23

LATIHAN 21
Public Class Form21
Dim ami_DT1 As New DataTable
Dim ami_DT2 As New DataTable

Dim ami_DS As New DataSet

Dim ami_BS1 As New BindingSource
Dim ami_BS2 As New BindingSource

Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\\DataTransaksiJualBeli.accdb'")

Private Sub Form21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim am1 As New OleDb.OleDbDataAdapter
Dim am2 As New OleDb.OleDbDataAdapter

am1 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", rahmi)
ami_DT1.Rows.Clear()
am1.Fill(ami_DT1)
am1.Dispose()
tampil1_36109022.DataSource = ami_BS1

am2 = New OleDb.OleDbDataAdapter("select * From DETAILTRANSAKSI", rahmi)
ami_DT2.Rows.Clear()
am2.Fill(ami_DT2)
am2.Dispose()
tampil2_36109022.DataSource = ami_BS2

ami_DS.Tables.Add(ami_DT1)
ami_DS.Tables.Add(ami_DT2)

ami_DT1.TableName = "JHUJHA"
ami_DT2.TableName = "CHUCHA"

ami_DS.Relations.Add(New DataRelation("WITH", ami_DS.Tables("JHUJHA").Columns("notrans"), ami_DS.Tables("CHUCHA").Columns("notrans")))

ami_BS1.DataSource = ami_DS
ami_BS1.DataMember = "JHUJHA"
ami_BS2.DataSource = ami_BS1
ami_BS2.DataMember = "WITH"

End Sub
End Class

LATIHAN 22
Public Class Form22
Dim ami_DT1 As New DataTable
Dim ami_DT2 As New DataTable

Dim ami_DS As New DataSet

Dim ami_BS1 As New BindingSource
Dim ami_BS2 As New BindingSource

Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\\DataTransaksiJualBeli.accdb'")
Private Sub Form22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim am1 As New OleDb.OleDbDataAdapter
Dim am2 As New OleDb.OleDbDataAdapter

am1 = New OleDb.OleDbDataAdapter("select * From MASTERTRANSAKSI", rahmi)
ami_DT1.Rows.Clear()
am1.Fill(ami_DT1)
am1.Dispose()
tampil1_36109022.DataSource = ami_BS1

am2 = New OleDb.OleDbDataAdapter("select * From Query7", rahmi)
ami_DT2.Rows.Clear()
am2.Fill(ami_DT2)
am2.Dispose()
tampil2_36109022.DataSource = ami_BS2

ami_DS.Tables.Add(ami_DT1)
ami_DS.Tables.Add(ami_DT2)

ami_DT1.TableName = "JHUJHA"
ami_DT2.TableName = "CHUCHA"

ami_DS.Relations.Add(New DataRelation("WITH", ami_DS.Tables("JHUJHA").Columns("notrans"), ami_DS.Tables("CHUCHA").Columns("notrans")))

ami_BS1.DataSource = ami_DS
ami_BS1.DataMember = "JHUJHA"
ami_BS2.DataSource = ami_BS1
ami_BS2.DataMember = "WITH"
End Sub
End Class

LATIHAN 23A
Public Class Form23
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 klik_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36109022.Click
If Form23B.Visible = False Then
Form23B.Show()
Else
Form23B.Activate()
End If

Form23B.no_36109022.Text = tampil_36109022.CurrentRow.Cells("NOTRANS").Value
Form23B.tanggal_36109022.Value = tampil_36109022.CurrentRow.Cells("TANGGALTRANSAKSI").Value
Form23B.jenis_36109022.Text = tampil_36109022.CurrentRow.Cells("JENISTRANSAKSI").Value

Form23B.Aya(Form23B.no_36109022.Text)
End Sub

Private Sub Form23_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 MASTERTRANSAKSI", rahmi_36109022)
Ami_DT_36109022.Rows.Clear()
aL_36109022.Fill(Ami_DT_36109022)
aL_36109022.Dispose()
tampil_36109022.DataSource = Ami_DT_36109022

End Sub
End Class

LATIHAN 23B
Public Class Form23B
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 * From DETAILTRANSAKSI Where NOTRANS='" & JHUJHA & "'", rahmi_36109022)
ami_dt_36109022.Rows.Clear()
aL1_36109022.Fill(ami_dt_36109022)
aL1_36109022.Dispose()
tampil_36109022.DataSource = ami_dt_36109022
End Sub
End Class