Public Class TUGAS15
Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS15_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select* from barang", SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
QI2.Dispose()
End Sub
End Class
Public Class TUGAS16
Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS16_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select* from mastertransaksi", SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
QI2.Dispose()
End Sub
End Class
Public Class TUGAS17
Dim SRY As New OleDb.OleDbConnection(" Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS17_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select* from detailtransaksi", SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
QI2.Dispose()
End Sub
End Class
Public Class TUGAS18
Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS18_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS19
Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub Form19_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS20
Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub Form20_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA FROM (BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG) INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS21
Dim SRY46109006 As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim SRY As New DataTable
Dim SRY_2 As New DataTable
Dim QI As New DataSet
Dim REJEKI As New BindingSource
Dim REJEKI_2 As New BindingSource
Private Sub TUGAS21_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim KI1 As New OleDb.OleDbDataAdapter
Dim KI2 As New OleDb.OleDbDataAdapter
KI1 = New OleDb.OleDbDataAdapter("select * from mastertransaksi", SRY46109006)
KI1.Fill(SRY)
KI1.Dispose()
KI2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi", SRY46109006)
KI2.Fill(SRY_2)
KI2.Dispose()
QI.Tables.Add(SRY)
QI.Tables.Add(SRY_2)
SRY.TableName = "induk"
SRY_2.TableName = "anak"
QI.Relations.Add(New DataRelation("cucu", QI.Tables("induk").Columns("notrans"), QI.Tables("anak").Columns("notrans")))
REJEKI.DataSource = QI
REJEKI.DataMember = "induk"
REJEKI_2.DataSource = REJEKI
REJEKI_2.DataMember = "cucu"
DGV146109006.DataSource = REJEKI
DGV246109006.DataSource = REJEKI_2
End Sub
End Class
Public Class TUGAS22
Dim SRY46109006 As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source =" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim dt1 As New DataTable
Dim dt2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource
Private Sub TUGAS22_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
Dim b As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", SRY46109006)
a.Fill(dt1)
a.Dispose()
b = New OleDb.OleDbDataAdapter("SELECT DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, [DETAILTRANSAKSI]![UNIT]*[BARANG]![HARGAJUAL] AS JUMLAHSTANDAR, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAHREALISASI FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG", SRY46109006)
b.Fill(dt2)
b.Dispose()
ds.Tables.Add(dt1)
ds.Tables.Add(dt2)
dt1.TableName = "SRY1"
dt2.TableName = "SRY2"
ds.Relations.Add(New DataRelation("KIKI", ds.Tables("SRY1").Columns("notrans"), ds.Tables("SRY2").Columns("notrans")))
bs1.DataSource = ds
bs1.DataMember = "SRY1"
bs2.DataSource = bs1
bs2.DataMember = "KIKI"
DGV146109006.DataSource = bs1
DGV246109006.DataSource = bs2
End Sub
End Class
Public Class TUGAS23a
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS23a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select*from mastertransaksi", SRY)
REJEKI.Rows.Clear()
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
If TUGAS23b.Visible = False Then
TUGAS23b.Show()
Else
TUGAS23b.Activate()
End If
TUGAS23b.JENIS46109006.Text = DGV46109006.CurrentRow.Cells("notrans").Value
TUGAS23b.DATE46109006.Value = DGV46109006.CurrentRow.Cells("tanggaltransaksi").Value
TUGAS23b.NOMOR46109006.Text = DGV46109006.CurrentRow.Cells("jenistransaksi").Value
TUGAS23b.KIKI(TUGAS23b.JENIS46109006.Text)
End Sub
End Class
Public Class TUGAS23b
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Public Sub KIKI(ByVal Q As String)
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & Q & "'", SRY)
REJEKI.Rows.Clear()
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS24a
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS24a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
If TUGAS24b.Visible = False Then
TUGAS24b.Show()
Else
TUGAS24b.Activate()
End If
TUGAS24b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
TUGAS24b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
TUGAS24b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
TUGAS24b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value
TUGAS24b.KIKI(TUGAS24b.KB46109006.Text)
End Sub
End Class
Public Class TUGAS24b
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Public Sub KIKI(ByVal Q As String)
Dim QI2 As New OleDb.OleDbDataAdapter
Dim KI2 As String
KI2 = "select id, notrans, unit, harga from detailtransaksi where kodebarang = '" & Q & "'"
QI2 = New OleDb.OleDbDataAdapter(KI2, SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS25a
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS25a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
If TUGAS25b.Visible = False Then
TUGAS25b.Show()
Else
TUGAS25b.Activate()
End If
TUGAS25b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
TUGAS25b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
TUGAS25b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
TUGAS25b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value
TUGAS25b.KIKI(TUGAS25b.KB46109006.Text)
End Sub
End Class
Public Class TUGAS25b
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Public Sub KIKI(ByVal Q As String)
Dim QI2 As New OleDb.OleDbDataAdapter
Dim KI2 As String
KI2 = "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 = '" & Q & "'"
QI2 = New OleDb.OleDbDataAdapter(KI2, SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
End Sub
End Class
Public Class TUGAS26a
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Private Sub TUGAS26a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim QI2 As New OleDb.OleDbDataAdapter
QI2 = New OleDb.OleDbDataAdapter("select * from barang", SRY)
QI2.Fill(REJEKI)
QI2.Dispose()
DGV46109006.DataSource = REJEKI
End Sub
Private Sub Tombol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tombol1.Click
If TUGAS26b.Visible = False Then
TUGAS26b.Show()
Else
TUGAS26b.Activate()
End If
TUGAS26b.KB46109006.Text = DGV46109006.CurrentRow.Cells("kodebarang").Value
TUGAS26b.NB46109006.Text = DGV46109006.CurrentRow.Cells("namabarang").Value
TUGAS26b.HJ46109006.Text = DGV46109006.CurrentRow.Cells("hargajual").Value
TUGAS26b.JB46109006.Text = DGV46109006.CurrentRow.Cells("persediaanawal").Value
TUGAS26b.KIKI(TUGAS26b.KB46109006.Text)
End Sub
End Class
Public Class TUGAS26b
Dim SRY As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\DataTransaksiJualBeli.accdb")
Dim REJEKI As New DataTable
Public Sub KIKI(ByVal Q As String)
Dim QI2 As New OleDb.OleDbDataAdapter
Dim QIQI As String
QIQI = "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 = '" & Q & "'"
QI2 = New OleDb.OleDbDataAdapter(QIQI, SRY)
QI2.Fill(REJEKI)
DGV46109006.DataSource = REJEKI
Dim KI1 As Integer = 0
Dim KI2 As Integer = 0
For Each KI3 As DataRow In REJEKI.Rows
KI1 += KI3("Unit")
KI2 += KI3("Jumlah")
Next
TU46109006.Text = KI1
TJ46109006.Text = KI2
End Sub
End Class