kisah minggu ke 5

minggu ini kami memulai dari awal.. targetnya menyelesaikan s3maaa transaksi akan tetapi masih belum bisa.. mudah2.an minggu depan akan selesai,

Kisahh Minggu Ke-4

Minggu Ke empat kali ini Lebih maju di bandingkan minggu2 sebeLumya. Minggu ini terseLesaikan sampai transaksi 14 {Senengnya... :}}
Tpiii..
Ada kekeLiruan di saat mengerjakannya karna semua taransaksi penerimaan kas baik pelunasan piutang maupun transaksi pendapatan bunga di input dalam receipt money seharusnya jika penerimaan piutang di input dalam receipt payments..

wahh
Mudah2an kesaLahan ini dapat menjadi peLajaran untuk Minggu dePan agar bisa Lebih baik Lagi..

AMIN...

Kisahh Minggu Ke-3

Pertama kaLinya untuk mengimput data transaksi tetapi masih bingung mengenai Tarnsaksi Penjualan, pemelian, serta penerimaan maupun pengeluaran kas jadi masih harus banyak blajar lagi..
:)

Hanya beLajar dan bertany dulu ma teman yang udah bisa.
Moga2 Untuk minggu depan taransaksi sampai 30 dapat di takklukkan..
hehehe...

AMIN

Kisahh Minggu Ke-2

Minggu Ke dua Lebih baik dari minggu pertama karena di minggu ke dua ini sudah bisa mengimput data supplier, coustumer dan inventory sedangkan minggu laLu cuman bisa mengimput saldo awal saja...
BeLajar dari kesaLahan Minggu LaLu dan tidak teruLang uNtuk Minggu ini yaitu kesaLahan input data Custumer...
Heheheee...

Mudah2-an Minggu Depan dapat mengerjakan Transaksinya dechh..
AMIN...

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