kumpulan latihanku
Public Class latihan153619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan153619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from barang", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan16361943
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan16361943_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from mastertransaksi ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan17361943
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan17361943_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from detailtransaksi ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan183619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan183619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, detailtransaksi.notrans, detailtransaksi.unit, detailtransaksi.harga from barang inner join detailtransaksi on barang.kodebarang=detailtransaksi.kodebarang ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan193619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan193619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.kodebarang, detailtransaksi.unit, detailtransaksi.harga from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan2036109043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Private Sub latihan2036109043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select barang.kodebarang, barang.namabarang, mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
End Class
Public Class latihan213619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim khaerilanak As New DataTable
Dim datset As New DataSet
Dim bin As New BindingSource
Dim bin2 As New BindingSource
Private Sub latihan213619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
Dim cobaji2 As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from mastertransaksi ", konek)
cobaji.Fill(khaeril)
cobaji2 = New OleDb.OleDbDataAdapter("select * from detailtransaksi ", konek)
cobaji2.Fill(khaerilanak)
khaeril.TableName = "induknya"
khaerilanak.TableName = "anaknya"
datset.Tables.Add(khaeril)
datset.Tables.Add(khaerilanak)
datset.Relations.Add(New DataRelation("cobaji", datset.Tables("induknya").Columns("NOTRANS"), datset.Tables("anaknya").Columns("NOTRANS")))
bin.DataSource = datset
bin.DataMember = "induknya"
bin2.DataSource = bin
bin2.DataMember = "cobaji"
DataGridView1.DataSource = bin
DataGridView2.DataSource = bin2
End Sub
End Class
Public Class latihan223619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim khaerilanak As New DataTable
Dim datset As New DataSet
Dim bin As New BindingSource
Dim bin2 As New BindingSource
Private Sub latihan223619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
Dim cobaji2 As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from BARANG ", konek)
cobaji.Fill(khaeril)
cobaji2 = 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 detailtransaksi inner join barang on detailtransaksi.kodebarang=barang.kodebarang", konek)
cobaji2.Fill(khaerilanak)
khaeril.TableName = "induknya"
khaerilanak.TableName = "anaknya"
datset.Tables.Add(khaeril)
datset.Tables.Add(khaerilanak)
datset.Relations.Add(New DataRelation("cobaji", datset.Tables("induknya").Columns("KODEBARANG"), datset.Tables("anaknya").Columns("KODEBARANG")))
bin.DataSource = datset
bin.DataMember = "induknya"
bin2.DataSource = bin
bin2.DataMember = "cobaji"
DataGridView1.DataSource = bin
DataGridView2.DataSource = bin2
End Sub
End Class
Public Class latihan23A3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim baris As DataRow
Private Sub latihan23A3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
Private Sub BUTTON1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BUTTON1.Click
If latihan23B3619043.Visible = False Then
latihan23B3619043.Show()
Else
latihan23B3619043.Activate()
End If
baris = khaeril.DefaultView(BindingContext(khaeril).Position).Row
latihan23B3619043.TextBox1.Text = baris("notrans")
latihan23B3619043.TextBox2.Text = baris("jenistransaksi")
latihan23B3619043.DateTimePicker1.Value = baris("tanggaltransaksi")
latihan23B3619043.AmbilData()
End Sub
End Class
Public Class latihan23B3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tesji As New DataTable
Dim cobaji As New OleDb.OleDbDataAdapter
Public Sub AmbilData()
cobaji = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI where NOTRANS ='" & TextBox1.Text & "'", konek)
cobaji.Fill(tesji)
End Sub
Private Sub latihan23B3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AmbilData()
DataGridView1.DataSource = tesji
End Sub
End Class
Public Class latihan24A3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim baris As DataRow
Private Sub latihan24A3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cobaji As New OleDb.OleDbDataAdapter
cobaji = New OleDb.OleDbDataAdapter("select * from BARANG", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
Private Sub butoon2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butoon2.Click
If latihan24B3619043.Visible = False Then
latihan24B3619043.Show()
Else
latihan24B3619043.Activate()
End If
baris = khaeril.DefaultView(BindingContext(khaeril).Position).Row
latihan24B3619043.TextBox1.Text = baris("KODEBARANG")
latihan24B3619043.TextBox2.Text = baris("NAMABARANG")
latihan24B3619043.TextBox3.Text = baris("HARGAJUAL")
latihan24B3619043.TextBox4.Text = baris("PERSEDIAANAWAL")
latihan24B3619043.AmbilData()
End Sub
End Class
Public Class latihan24B3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tesji As New DataTable
Dim cobaji As New OleDb.OleDbDataAdapter
Public Sub AmbilData()
cobaji = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI where KODEBARANG ='" & TextBox1.Text & "'", konek)
cobaji.Fill(tesji)
End Sub
Private Sub latihan24B3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AmbilData()
DataGridView1.DataSource = tesji
End Sub
End Class
Public Class latihan25A3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim baris As DataRow
Dim cobaji As New OleDb.OleDbDataAdapter
Private Sub latihan25A3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cobaji = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga,(detailtransaksi.unit*detailtransaksi.harga)as jumlah, barang.kodebarang, barang.namabarang,barang.hargajual,barang.persediaanawal from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang ", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
Private Sub butoon2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If latihan25B3619043.Visible = False Then
latihan25B3619043.Show()
Else
latihan25B3619043.Activate()
End If
baris = khaeril.DefaultView(BindingContext(khaeril).Position).Row
latihan25B3619043.TextBox1.Text = baris("KODEBARANG")
latihan25B3619043.TextBox2.Text = baris("NAMABARANG")
latihan25B3619043.TextBox3.Text = baris("HARGAJUAL")
latihan25B3619043.TextBox4.Text = baris("PERSEDIAANAWAL")
latihan25B3619043.AmbilData()
End Sub
End Class
Public Class latihan25B3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tesji As New DataTable
Dim cobaji As New OleDb.OleDbDataAdapter
Public Sub AmbilData()
cobaji = New OleDb.OleDbDataAdapter("select DETAILTRANSAKSI.ID,DETAILTRANSAKSI.NOTRANS,DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,(DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA)as Jumlah from DETAILTRANSAKSI where KODEBARANG ='" & TextBox1.Text & "'", konek)
cobaji.Fill(tesji)
End Sub
Private Sub latihan25B3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AmbilData()
DataGridView1.DataSource = tesji
End Sub
End Class
Public Class latihan26A3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim khaeril As New DataTable
Dim baris As DataRow
Dim cobaji As New OleDb.OleDbDataAdapter
Private Sub latihan26A3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cobaji = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, detailtransaksi.unit, detailtransaksi.harga,(detailtransaksi.unit*detailtransaksi.harga)as jumlah, barang.kodebarang, barang.namabarang,barang.hargajual,barang.persediaanawal from (mastertransaksi inner join detailtransaksi on mastertransaksi.notrans=detailtransaksi.notrans) inner join barang on detailtransaksi.kodebarang=barang.kodebarang", konek)
cobaji.Fill(khaeril)
DataGridView1.DataSource = khaeril
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If latihan26B3619043.Visible = False Then
latihan26B3619043.Show()
Else
latihan26B3619043.Activate()
End If
baris = khaeril.DefaultView(BindingContext(khaeril).Position).Row
latihan26B3619043.TextBox1.Text = baris("KODEBARANG")
latihan26B3619043.TextBox2.Text = baris("NAMABARANG")
latihan26B3619043.TextBox3.Text = baris("HARGAJUAL")
latihan26B3619043.TextBox4.Text = baris("PERSEDIAANAWAL")
latihan26B3619043.AmbilData()
End Sub
End Class
Public Class latihan26B3619043
Dim konek As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
Dim tesji As New DataTable
Dim cobaji As New OleDb.OleDbDataAdapter
Public Sub AmbilData()
cobaji = New OleDb.OleDbDataAdapter("select DETAILTRANSAKSI.ID,DETAILTRANSAKSI.NOTRANS,DETAILTRANSAKSI.KODEBARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA,(DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA)as Jumlah from DETAILTRANSAKSI where KODEBARANG ='" & TextBox1.Text & "'", konek)
cobaji.Fill(tesji)
Dim tu, total As Integer
For Each x As DataRow In tesji.Rows
tu = tu + x("UNIT")
total = total + x("jumlah")
Next
TextBox5.Text = tu
TextBox6.Text = total
End Sub
Private Sub latihan26B3619043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AmbilData()
DataGridView1.DataSource = tesji
End Sub
End Class
