Latihan 27-28

LATIHAN 27
Public Class Form27
Dim Rachmiyati As New ByIskandar.CariKeDataBaseByIskandar
Dim ami As New OleDb.OleDbCommand
Dim hma As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE='" & Application.StartupPath & "\Databarang.ACCDB'")
Private Sub simpan_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109022.Click
If kb_36109022.Text.Length = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If nb_36109022.Text.Length = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If Val(hj_36109022.Text) = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If Val(jb_36109022.Text) = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

Rachmiyati.AturPencarianDataBase("Barang", "KodeBarang", kb_36109022.Text, 1, hma)
If Rachmiyati.JumlanBaris > 0 Then
MsgBox("sudah ada yang seperti itu")
Exit Sub
End If

ami = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36109022.Text & "','" & nb_36109022.Text & "'," & Val(hj_36109022.Text) & "," & Val(jb_36109022.Text) & ")", hma)
hma.Open()
ami.ExecuteNonQuery()
hma.Close()
ami.Dispose()

kb_36109022.Text = ""
nb_36109022.Text = ""
hj_36109022.Text = ""
jb_36109022.Text = ""
End Sub
End Class

LATIHAN 28A
Public Class Form28A
Dim aya As New DataTable
Dim ami As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Public Sub rahmi()
Dim aku As New OleDb.OleDbDataAdapter
aku = New OleDb.OleDbDataAdapter("select * from BARANG", ami)
aya.Rows.Clear()
aku.Fill(aya)
aku.Dispose()
End Sub
Private Sub Form28A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
rahmi()
Tampil_36109022.DataSource = aya
End Sub

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

Private Sub tutup_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup_36109022.Click
Close()
End Sub
End Class

LATIHAN 28B
Public Class Form28B
Dim Rachmiyati As New ByIskandar.CariKeDataBaseByIskandar
Dim ami As New OleDb.OleDbCommand
Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
Private Sub simpan_36109022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109022.Click

If kb_36109022.Text.Length = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If nb_36109022.Text.Length = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If Val(hj_36109022.Text) = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

If Val(jb_36109022.Text) = 0 Then
MsgBox("isikan dlue eh")
Exit Sub
End If

Rachmiyati.AturPencarianDataBase("Barang", "KodeBarang", kb_36109022.Text, 1, hma)
If Rachmiyati.JumlanBaris > 0 Then
MsgBox("sudah ada yang seperti itu")
Exit Sub
End If

ami = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36109022.Text & "','" & nb_36109022.Text & "'," & Val(hj_36109022.Text) & "," & Val(jb_36109022.Text) & ")", hma)
hma.Open()
ami.ExecuteNonQuery()
hma.Close()
ami.Dispose()

kb_36109022.Text = ""
nb_36109022.Text = ""
hj_36109022.Text = ""
jb_36109022.Text = ""


Form28A.rahmi()
End Sub
End Class

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

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

Latihan 15-20

Public Class Form15

Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from BARANG", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form16
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from BARANG", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form17
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
DataGridView1_36109022.DataSource = amii

End Sub
End Class
Public Class Form18
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * From Query5", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
kolom_36109022.DataSource = amii
End Sub
End Class
Public Class Form19

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

Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from Query5", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
data_36109022.DataSource = amii

End Sub
End Class
Public Class Form20
Dim amii As New DataTable
Dim rahmi As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")
Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from Query6", rahmi)
amii.Rows.Clear()
a.Fill(amii)
a.Dispose()
tampil_36109022.DataSource = amii
End Sub
End Class