Andi Ardianzah blog

Sabtu, 05 Januari 2013

Latihan 40a

Deskripsi

1. objek datagridview
ada dua objek ini pada form kali ini

2. objek button
ada 3 objek button pada form kali ini. fungsinya adalah untuk menghapus, mengedit dan menambah data yang ingin ditampilkan pada datagridview

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_40a_46110008
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim dtdetail As New DataTable
    Dim dtmaster As New DataTable
    Dim atur2 As New DataSet
    Dim bsdetail As New BindingSource
    Dim bsmaster As New BindingSource
    Public Sub grabdata()
        'proses pengosongan dan pengisian data tabel
        dtdetail.Rows.Clear()
        dtmaster.Rows.Clear()

        Dim master As New OleDb.OleDbDataAdapter
        master = New OleDb.OleDbDataAdapter("select* from mastertransaksi", go)
        master.Fill(dtmaster)
        master.Dispose()

        Dim detail As New OleDb.OleDbDataAdapter
        detail = New OleDb.OleDbDataAdapter("select* from detailtransaksi", go)
        detail.Fill(dtdetail)
        detail.Dispose()

    End Sub
    Private Sub Latihan_40a_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        grabdata()
        'memasukkan datatabel ke dalam dataset
        dtmaster.TableName = "idung"
        dtdetail.TableName = "kake"

        dgv1_46110008.DataSource = bsmaster
        dgv2_46110008.DataSource = bsdetail

        atur2.Tables.Add(dtmaster)
        atur2.Tables.Add(dtdetail)

        atur2.Relations.Add(New DataRelation("relasi", atur2.Tables("idung").Columns("notrans"), atur2.Tables("kake").Columns("notrans")))

        'menampilkan datatabel ke dGV dg menggunakan binding
        bsmaster.DataSource = atur2
        bsmaster.DataMember = "idung"
        bsdetail.DataSource = bsmaster
        bsdetail.DataMember = "relasi"
    End Sub

    Private Sub edit46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110008.Click
        Latihan_40b_46110008.Show()
        Latihan_40b_46110008.ganti46110008.Text = dgv1_46110008.CurrentRow.Cells("notrans").Value
        Latihan_40b_46110008.notr46110008.Text = dgv1_46110008.CurrentRow.Cells("notrans").Value
        Latihan_40b_46110008.tgl46110008.Text = dgv1_46110008.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40b_46110008.jt46110008.Text = dgv1_46110008.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40b_46110008.makecolumn()
        Latihan_40b_46110008.botto()
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        Latihan_40b_46110008.Show()
        Latihan_40b_46110008.notr46110008.Text = ""
        Latihan_40b_46110008.jt46110008.Text = ""
        Latihan_40b_46110008.ganti46110008.Text = "-"
        Latihan_40b_46110008.makecolumn()
    End Sub

    Private Sub hapus46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110008.Click
        If MsgBox("seriously want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim bojel As New OleDb.OleDbCommand
        bojel = New OleDb.OleDbCommand("delete* from mastertransaksi where notrans='" & dgv1_46110008.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        bojel = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & dgv1_46110008.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        grabdata()

    End Sub
End Class

Latihan 37, 38, 39

Deskripsi

1. objek datagridview
menampilkan data yang ada pada access

even : FormLoad

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_38_39_40_4611008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub Latihan_38_39_40_4611008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xxx()
        dgv46110008.DataSource = tabel
    End Sub
    Public Sub xxx()
        Dim Mobil As New OleDb.OleDbDataAdapter

        Mobil = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Jalan)
        tabel.Rows.Clear()

        Mobil.Fill(tabel)
        Mobil.Dispose()

    End Sub
End Class

Latihan 39

Deskripsi

1. Objek textbox
terdapat 3 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit. 1 diantaranya berstatus ReadOnly

2. objek button
terdapat 1 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

even : ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_39_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub xxx()
        Dim ttotal As Integer
        For Each hasil As DataRow In tabel.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub

    Private Sub Latihan_39_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & notr46110008.Text & "'", Jalan)

        tabel.Rows.Clear()

        adapter.Fill(tabel)
        adapter.Dispose()

        tabel.Columns("Kodebarang").DefaultValue = ""
        tabel.Columns("NamaBarang").DefaultValue = ""
        tabel.Columns("unit").DefaultValue = 0
        tabel.Columns("harga").DefaultValue = 0
        tabel.Columns("jumlah").DefaultValue = 0

        tabel.Columns("NamaBarang").ReadOnly = True

        dgv46110008.DataSource = tabel

        Dim aaa(2) As DataColumn
        aaa(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = aaa
    End Sub

    Private Sub dgv46110008_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv46110008.CellEndEdit
        'mengosongkan data
        If e.ColumnIndex = 0 Then
            dgv46110008.CurrentRow.Cells("NamaBarang").Value = ""
            dgv46110008.CurrentRow.Cells("Unit").Value = 0
            dgv46110008.CurrentRow.Cells("harga").Value = 0
            dgv46110008.CurrentRow.Cells("Jumlah").Value = 0

            'mencari data yang ada di tabel
            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("barang", "kodebarang", dgv46110008.CurrentRow.Cells("kodebarang").Value, 1, Jalan)
            If Pencari.JumlanBaris > 0 Then
                dgv46110008.CurrentRow.Cells("kodebarang").Value = Pencari.DataTablenya.Rows(0).Item(0)
                dgv46110008.CurrentRow.Cells("namabarang").Value = Pencari.DataTablenya.Rows(0).Item(1)
            Else
                MsgBox("the data is not found")
                If Latihan_38_39_40_4611008.ShowDialog = Windows.Forms.DialogResult.OK Then
                    dgv46110008.CurrentRow.Cells("kodebarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("KodeBarang").Value
                    dgv46110008.CurrentRow.Cells("Namabarang").Value = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("namabarang").Value
                End If
            End If

            'mengitung jumlah dan total
        ElseIf e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
            dgv46110008.CurrentRow.Cells("jumlah").Value = dgv46110008.CurrentRow.Cells("unit").Value * dgv46110008.CurrentRow.Cells("harga").Value
            xxx()
        End If
    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim zzz As New OleDb.OleDbCommand
        zzz = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        zzz.ExecuteNonQuery()
        Jalan.Close()

        For Each yyy As DataRow In tabel.Rows
            zzz = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & yyy("kodebarang") & "'," & yyy("unit") & "," & yyy("harga") & ")", Jalan)
            Jalan.Open()
            zzz.ExecuteNonQuery()
            Jalan.Close()

        Next
        zzz.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()

    End Sub
End Class

Latihan 38

Deskripsi

1. Objek textbox
terdapat 8 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit. 3 diantaranya berstatus ReadOnly

2. objek button
terdapat 2 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

even : ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_38_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub xxx()
        Dim ttotal As Integer
        For Each hasil As DataRow In tabel.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub

    Private Sub Latihan_38_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & notr46110008.Text & "'", Jalan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        dgv46110008.DataSource = tabel

        Dim ranger(2) As DataColumn
        ranger(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = ranger

    End Sub

    Private Sub kob46110008_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kob46110008.Leave
        If kob46110008.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", kob46110008.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            nama46110008.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist, please choose from the this list")
            If Latihan_38_39_40_4611008.ShowDialog = Windows.Forms.DialogResult.OK Then
                kob46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("KodeBarang").Value
                nama46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("namabarang").Value
                harg46110008.Text = Latihan_38_39_40_4611008.dgv46110008.CurrentRow.Cells("hargajual").Value
            Else
                kob46110008.Text = ""
                nama46110008.Text = ""
            End If
        End If
    End Sub

    Private Sub harg46110008_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harg46110008.TextChanged
        jumlah46110008.Text = Val(unit46110008.Text) * Val(harg46110008.Text)
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If kob46110008.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If unit46110008.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If harg46110008.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        Dim baris As DataRow
        baris = tabel.Rows.Find(kob46110008.Text)
        If Not baris Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        tabel.Rows.Add(kob46110008.Text, nama46110008.Text, (unit46110008.Text), Val(harg46110008.Text), jumlah46110008.Text)
        xxx()

        kob46110008.Text = ""
        unit46110008.Text = ""
        harg46110008.Text = ""
        nama46110008.Text = ""
        jumlah46110008.Text = ""
    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim power As New OleDb.OleDbCommand
        power = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        power.ExecuteNonQuery()
        Jalan.Close()

        For Each master As DataRow In tabel.Rows
            power = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & master("kodebarang") & "'," & master("unit") & "," & master("harga") & ")", Jalan)
            Jalan.Open()
            power.ExecuteNonQuery()
            Jalan.Close()

        Next
        power.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()
    End Sub
End Class

Latihan 37

5. masukkan script berikut

Public Class Latihan_37_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable
    Private Sub xxx()
        Dim ttotal As Integer
        For Each hasil As DataRow In tabel.Rows
            ttotal += hasil("Jumlah")
        Next
        tot46110008.Text = ttotal
    End Sub

    Private Sub Latihan_37_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT detailtransaksi.kodebarang,barang.namabarang,detailtransaksi.unit,detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah FROM DETAILTRANSAKSI inner join barang on detailtransaksi.kodebarang=barang.kodebarang where detailtransaksi.notrans='" & notr46110008.Text & "'", Jalan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        dgv46110008.DataSource = tabel

        Dim ranger(2) As DataColumn
        ranger(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = ranger
    End Sub

    Private Sub kob46110008_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kob46110008.Leave
        If kob46110008.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("barang", "kodebarang", kob46110008.Text, 1, Jalan)
        If Pencari.JumlanBaris > 0 Then
            nama46110008.Text = Pencari.DataTablenya.Rows(0).Item(1)
        Else
            MsgBox("the data is not exist")
            kob46110008.Text = ""
            nama46110008.Text = ""
            Exit Sub
        End If
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If kob46110008.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If unit46110008.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If harg46110008.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        Dim baris As DataRow
        baris = tabel.Rows.Find(kob46110008.Text)
        If Not baris Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        tabel.Rows.Add(kob46110008.Text, nama46110008.Text, (unit46110008.Text), Val(harg46110008.Text), jumlah46110008.Text)
        xxx()

        kob46110008.Text = ""
        unit46110008.Text = ""
        harg46110008.Text = ""
        nama46110008.Text = ""
        jumlah46110008.Text = ""

    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim power As New OleDb.OleDbCommand
        power = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        power.ExecuteNonQuery()
        Jalan.Close()

        For Each master As DataRow In tabel.Rows
            power = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & master("kodebarang") & "'," & master("unit") & "," & master("harga") & ")", Jalan)
            Jalan.Open()
            power.ExecuteNonQuery()
            Jalan.Close()

        Next
        power.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()
    End Sub

    Private Sub harg46110008_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles harg46110008.TextChanged
        jumlah46110008.Text = Val(unit46110008.Text) * Val(harg46110008.Text)
    End Sub
End Class

Latihan 36

Deskripsi

1. Objek textbox
terdapat 4 objek textbox pada form ini. textbox tersebut berfungsi untuk menginput data baru dari data yang di edit.

2. objek button
terdapat 2 objek button form ini. berfungsi mengeksekusi input pada textbox dan menyimpan data ke access

3. objek datagridview
menampilkan hasil inputan pada textbox

4. objek datetimepicker
terdapat satu objek ini pada form kali ini

even : ButtonClick

Pembuatan Form
1. buka Microsoft Visual Studio anda
2. bukalah file kumpulan latihan anda
3. pilih menu project lalu klik add windows form
4. drag objek dari toolbox anda. susun hingga menjadi form seperti form pada gambar dibawah ini.

5. masukkan script berikut

Public Class Latihan_36_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable

    Private Sub Latihan_36_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & notr46110008.Text & "'", Jalan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        dgv46110008.DataSource = tabel

        Dim ranger(2) As DataColumn
        ranger(0) = tabel.Columns("Kodebarang")
        tabel.PrimaryKey = ranger
    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If kob46110008.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If unit46110008.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If harg46110008.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        Dim baris As DataRow
        baris = tabel.Rows.Find(kob46110008.Text)
        If Not baris Is Nothing Then
            MsgBox("Sorry, the data has been exist!!! Please insert new data")
            Exit Sub
        End If

        tabel.Rows.Add(kob46110008.Text, Val(unit46110008.Text), Val(harg46110008.Text))

        kob46110008.Text = ""
        unit46110008.Text = ""
        harg46110008.Text = ""
    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim power As New OleDb.OleDbCommand
        power = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        power.ExecuteNonQuery()
        Jalan.Close()

        For Each master As DataRow In tabel.Rows
            power = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & master("kodebarang") & "'," & master("unit") & "," & master("harga") & ")", Jalan)
            Jalan.Open()
            power.ExecuteNonQuery()
            Jalan.Close()

        Next
        power.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()
    End Sub
End Class

Latihan 35

5. masukkan script berikut

Public Class Latihan_35_46110008
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
    Dim tabel As New DataTable

    Private Sub Latihan_35_46110008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("SELECT kodebarang,unit,harga FROM DETAILTRANSAKSI where notrans='" & notr46110008.Text & "'", Jalan)
        tabel.Rows.Clear()
        adapter.Fill(tabel)
        adapter.Dispose()
        dgv46110008.DataSource = tabel
    End Sub

    Private Sub save46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save46110008.Click
        If notr46110008.Text.Length = 0 Then
            MsgBox("Please, insert the Number of the transaction")
            Exit Sub
        End If

        If jt46110008.Text.Length = 0 Then
            MsgBox("Please, insert the type of the transaction")
            Exit Sub
        End If

        If tabel.Rows.Count = 0 Then
            MsgBox("the data is none")
            Exit Sub
        End If

        Dim search As New ByIskandar.CariKeDataBaseByIskandar
        search.AturPencarianDataBase("mastertransaksi", "notrans", notr46110008.Text, 1, Jalan)
        If search.JumlanBaris > 0 Then
            MsgBox("the code has been exist")
            Exit Sub
        End If

        Dim power As New OleDb.OleDbCommand
        power = New OleDb.OleDbCommand("insert into mastertransaksi (notrans,tanggaltransaksi,jenistransaksi) values ('" & notr46110008.Text & "',#" & tgl46110008.Value.Month & "/" & tgl46110008.Value.Day & "/" & tgl46110008.Value.Year & "#,'" & jt46110008.Text & "')", Jalan)
        Jalan.Open()
        power.ExecuteNonQuery()
        Jalan.Close()

        For Each master As DataRow In tabel.Rows
            power = New OleDb.OleDbCommand("insert into detailtransaksi (notrans,kodebarang,unit,harga) values ('" & notr46110008.Text & "','" & master("kodebarang") & "'," & master("unit") & "," & master("harga") & ")", Jalan)
            Jalan.Open()
            power.ExecuteNonQuery()
            Jalan.Close()

        Next
        power.Dispose()

        notr46110008.Text = ""
        jt46110008.Text = ""

        tabel.Rows.Clear()

        Me.Close()

    End Sub

    Private Sub tambah46110008_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110008.Click
        If kob46110008.Text.Length = 0 Then
            MsgBox("Please, insert the code of goods")
            Exit Sub
        End If

        If unit46110008.Text.Length = 0 Then
            MsgBox("Please, insert the unit of goods")
            Exit Sub
        End If

        If harg46110008.Text.Length = 0 Then
            MsgBox("Please, insert the cost of goods")
            Exit Sub
        End If

        tabel.Rows.Add((kob46110008.Text), Val(unit46110008.Text), Val(harg46110008.Text))

        kob46110008.Text = ""
        unit46110008.Text = ""
        harg46110008.Text = ""
    End Sub
End Class