Latihan_34C_46110045

Deskripsi :
Dalam form Latihan 33b hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat empat  buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan  “jumlah barang” .

Object textbox :

Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

   

Langkah-langkah penyelesaian form 34C :

1. Pilih add windows form lalu tambahkan form 34C.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_34C_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah46110045()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110045.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hj46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110045.ambildata()
    End Sub

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hj46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hj46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        If ganti46110045.Text = "-" Then
            tambah46110045()
        Else
            replace()
        End If

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hj46110045.Text = " "
        jb46110045.Text = " "

        'menutup form
        Me.Close()

    End Sub
End Class

 

Even :

Button click.

Latihan_34B_46110045

Deskripsi :
Dalam form Latihan 33a hanya terdapat empat object yaitu datagridview dan button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.

 

Object button :

Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” ,  “edit” dan “hapus”. Button  “edit”  ini digunakan untuk menampilkan form latihan 34c  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 34c dan  menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.

 

Langkah-langkah penyelesaian form 34B :

1. Pilih add windows form lalu tambahkan form 34B.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_34B_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_34B_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub hapus46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110045.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110045.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

    Private Sub tambah46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110045.Click
        'Menampilkan form 33b
        If Latihan_34C_46110045.Visible = False Then
            Latihan_34C_46110045.MdiParent = Me.MdiParent
            Latihan_34C_46110045.Show()
        Else
            Latihan_33B_46110045.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_34C_46110045.ganti46110045.Text = "-"
        Latihan_34C_46110045.kb46110045.Text = " "
        Latihan_34C_46110045.nb46110045.Text = " "
        Latihan_34C_46110045.hj46110045.Text = " "
        Latihan_34C_46110045.jb46110045.Text = " "
    End Sub

    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        Latihan_34C_46110045.Show()
        'Mengisi Text Box
        Latihan_34C_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110045.hj46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

 

Even :

Load

Button click

Latihan_34A_46110045

Deskripsi :
Dalam form Latihan 33a hanya terdapat empat object yaitu menustrip dan toolstrip.

Object menustrip :

MenuStrip  merupakan komponen yang berfungsi untuk membuat menu pilihan.

 

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

 

Langkah-langkah penyelesaian form 34A :

1. Pilih add windows form lalu tambahkan form 34A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_34A_46110045
    Private Sub db46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles db46110045.Click
        Latihan_34B_46110045.Show()
    End Sub

    Private Sub ib46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ib46110045.Click
        If Latihan_34C_46110045.Visible = False Then
            Latihan_34C_46110045.MdiParent = Me
            Latihan_34C_46110045.Show()
        Else
            Latihan_34C_46110045.Activate()
        End If


    End Sub

    Private Sub Daftarbarang46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Daftarbarang46110045.Click
        Latihan_34B_46110045.Show()
    End Sub

    Private Sub Inputbarang46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Inputbarang46110045.Click
        If Latihan_34C_46110045.Visible = False Then
            Latihan_34C_46110045.MdiParent = Me
            Latihan_34C_46110045.Show()
        Else
            Latihan_34C_46110045.Activate()
        End If
    End Sub
End Class

 

Even :

Click.

Latihan_33B_46110045

Deskripsi :
Dalam form Latihan 33b hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat empat  buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan  “jumlah barang”.

Object textbox :

Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.

 

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

   

Langkah-langkah penyelesaian form 33B :

1. Pilih add windows form lalu tambahkan form 33B.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_33B_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hb46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110045.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110045.ambildata()
    End Sub

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hb46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        If ganti46110045.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "



        'menutup form
        Me.Close()

    End Sub
End Class

 

Even :

Button click.

Latihan_33A_46110045

Deskripsi :
Dalam form Latihan 33a hanya terdapat empat object yaitu datagridview dan button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk table yang terdiri dari baris dan kolom.

 

Object button :

Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” ,  “edit” dan “hapus”. Button  “edit”  ini digunakan untuk menampilkan form latihan 33b  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 33b dan  menambahkan data ke dalam database. Sedangkan button “hapus” digunakan untuk menghapus data yang diinginkan.

 

Langkah-langkah penyelesaian form 33A :

1. Pilih add windows form lalu tambahkan form 33A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_33A_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub
    Private Sub Latihan_33A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub
    Private Sub tambah46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110045.Click
        'Menampilkan form 33b
        If Latihan_33B_46110045.Visible = False Then
            Latihan_33B_46110045.Show()
        Else
            Latihan_33B_46110045.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_33B_46110045.ganti46110045.Text = "-"
        Latihan_33B_46110045.kb46110045.Text = " "
        Latihan_33B_46110045.nb46110045.Text = " "
        Latihan_33B_46110045.hb46110045.Text = " "
        Latihan_32B_46110045.jb46110045.Text = " "
    End Sub
    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 33b
        If Latihan_33B_46110045.Visible = False Then
            Latihan_33B_46110045.Show()
        Else
            Latihan_33B_46110045.Activate()
        End If

        'mengisi textbox yang ada pada 32c
        Latihan_33B_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110045.hb46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub hapus46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110045.Click
        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & dgv46110045.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub
End Class

 

Even :

Load

Button click

Latihan_32C_46110045

Deskripsi :
Dalam form Latihan 32c hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat empat  buah object label yang bertuliskan “nama barang”, “harga jual”, “ jumlah barang” dan “kode barang”.

Object textbox :

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

 

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

   

Langkah-langkah penyelesaian form 32C :

1. Pilih add windows form lalu tambahkan form 32C.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

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

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        'perintah ambil data

        If ganti46110045.Text <> kb46110045.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

                'mengosongkan text box
                kb46110045.Text = " "
                nb46110045.Text = " "
                hb46110045.Text = " "
                jb46110045.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti46110045.Text = "-"
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

        'mengambil data
        Latihan_32A_46110045.ambildata()

        'menutup form
        Me.Close()
    End Sub
End Class

 

Even :

Button click.

Latihan_32B_46110045

Deskripsi :
Dalam form Latihan 32b hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat empat buah object label yang bertuliskan  “kode barang”, “nama barang”, “harga jual”, dan “ jumlah barang”.

Object textbox :

Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah diinput di latihan ini ke dalam database. 

 

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu. 

   

Langkah-langkah penyelesaian form 32B :

1. Pilih add windows form lalu tambahkan form 32B.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_32B_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data
        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box
            kb46110045.Text = " "
            nb46110045.Text = " "
            hb46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hb46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

        'menambildata
        Latihan_32A_46110045.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

 

Even :

Button click.

Latihan_32A_46110045

Deskripsi :
Dalam form Latihan 32a hanya terdapat empat object yaitu Datagridview dan Button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object button :

Dalam form ini terdapat dua buah object button yang bertuliskan “tambah” ,  “edit” dan “hapus”. Button  “edit”  ini digunakan untuk menampilkan form latihan 32c  dan  mengedit/mengganti kode barang yang diinginkan . Button “tambah” digunakan untuk menampilkan form latihan 32b dan  menambahkan data ke dalam database.

 

Langkah-langkah penyelesaian form 32A :

1. Pilih add windows form lalu tambahkan form 32A.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

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

    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_32A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub
    Private Sub tambah46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110045.Click
        'Menampilkan form 32b
        If Latihan_32B_46110045.Visible = False Then
            Latihan_32B_46110045.Show()
        Else
            Latihan_32B_46110045.Activate()
        End If
    End Sub
    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 32c
        If Latihan_32C_46110045.Visible = False Then
            Latihan_32C_46110045.Show()
        Else
            Latihan_32C_46110045.Activate()
        End If

        'mengisi textbox yang ada pada 32c
        Latihan_32C_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_32C_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_32C_46110045.hb46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_32C_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

Even :

Load

Button click 

Latihan_31B_46110045

Deskripsi :
Dalam form Latihan 31b hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat enam  buah object label yang bertuliskan “nama barang”, “harga jual”, “ jumlah barang” dan “kode barang”.

Object textbox :

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

Langkah-langkah penyelesaian form 31B :

1. Pilih add windows form lalu tambahkan form 31B.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

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

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If
        'perintah ambil data

        If ganti46110045.Text <> kb46110045.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

                'mengosongkan text box
                kb46110045.Text = " "
                nb46110045.Text = " "
                hb46110045.Text = " "
                jb46110045.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti46110045.Text = "-"
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

        'mengambil data
        Latihan_31A_46110045.ambildata()

        'menutup form
        Me.Close()
    End Sub
End Class

Even :

Button click. 

Latihan_31A_46110045

Deskripsi :

Dalam form Latihan 30b hanya terdapat Datagridview dan Button.

Object datagridview :

Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

  

Object button :

Dalam form ini terdapat se buah object button yang bertuliskan “edit”. Button  “edit”  ini digunakan untuk menampilkan form latihan 31b  dan  mengedit/mengganti kode barang yang diinginkan.

 

Langkah-langkah penyelesaian form 31A :

1. Pilih add windows form lalu masukkan form 31A.

2. Buatlah desain untuk formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_31A_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut
        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain
        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable
        data.Fill(ambil)
        data.Dispose()

    End Sub

    Private Sub Latihan_31A_46110045_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110045.DataSource = ambil
    End Sub

    Private Sub edit46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110045.Click
        'Menampilkan form 31b
        If Latihan_31B_46110045.Visible = False Then
            Latihan_31B_46110045.Show()
        Else
            Latihan_31B_46110045.Activate()
        End If

        'mengisi textbox yang ada pada 25b
        Latihan_31B_46110045.ganti46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110045.kb46110045.Text = dgv46110045.CurrentRow.Cells("kodebarang").Value
        Latihan_31B_46110045.nb46110045.Text = dgv46110045.CurrentRow.Cells("namabarang").Value
        Latihan_31B_46110045.hb46110045.Text = dgv46110045.CurrentRow.Cells("hargajual").Value
        Latihan_31B_46110045.jb46110045.Text = dgv46110045.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class
 

Even :

Load

Button click

Latihan_30B_46110045

Deskripsi :

Dalam form Latihan 30b hanya terdapat empat object yaitu Label, Textbox, Button dan Groupbox.

Object label :

Dalam form ini terdapat enam  buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

  

Object textbox :

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

 

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Object groupbox :

Dalam form ini terdapat 2 buah object groupbox Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.

 

Langkah-langkah penyelesaian form 30B :

1. Pilih add windows form lalu masukkan form 30B.

2. Buatlah desain untuk formnya.

3. Masukkan rumus seperti ini

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

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb46110045.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        'perintah ambil data

        If ganti46110045.Text <> kb46110045.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46110045.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

                'mengosongkan text box
                kb46110045.Text = " "
                nb46110045.Text = " "
                hb46110045.Text = " "
                jb46110045.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti46110045.Text = " "
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

        'mengambildata
        Latihan_30A_46110045.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

Even :

Button click.