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

Aku N Perasaan iNi

Aku dan Perasaan ini...
Aku akan membawa semua cerita tentang kisah kita
Kisah senang dan duka kita
Dalam waktu yang singkat ini aku berharap akan menyenangkan
Akan membuat kebahagiaan di antara kita
Dalam sebuah kesederhanaan Hati akan selalu menyayangi
Dalam setiap Suka dan Duka.


Biarlah Aku dan perasaan ini akan tetap menunggumu disini
Berharap perasaan itu tak akan berubah
Seiring berjalannya Waktu
Mencoba dan tetap berusaha
Membuat rasa ini akan tetap dan sLalu menyayangimu...


^_^

4 mY sPeCial One