Latihan_34C_46110055

Deskripsi Latihan 34C

Pada form latihan 34C terdapat 4 object yang digunakan yaitu Label, TextBox, Button dan Statustrip.

Object Label
Terdapat 4 label pada form latihan 34C (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object Statustrip
Ada 2 statustrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

Script Unique
-

Even 
ButtonClick

Langkah-langkah membuat Latihan 34C:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 34C”

6. Setelah itu beri teks pada label, statustrip dan button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_34C_46110055
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim cari As ByIskandar.CariKeDataBaseByIskandar
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kobar246110055.Text & "','" & nabar46110055.Text & "', " & Val(haju46110055.Text) & "," & Val(jumbar46110055.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110055.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kobar246110055.Text & "', namabarang = '" & nabar46110055.Text & "', hargajual=" & Val(haju46110055.Text) & ", jumlahbarang=" & Val(jumbar46110055.Text) & " where kodebarang='" & kobar146110055.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_34B_46110055.ambildata()
    End Sub


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

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

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

        If Val(jumbar46110055.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", kobar246110055.Text, 1, Jalan)

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

            'mengosongkan text box
            kobar246110055.Text = " "
            nabar46110055.Text = " "
            haju46110055.Text = " "
            jumbar46110055.Text = " "
            Exit Sub
        End If

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

        'mengosongkan text box
        kobar246110055.Text = " "
        nabar46110055.Text = " "
        haju46110055.Text = " "
        jumbar46110055.Text = " "

        'menutup form
        Me.Close()

    End Sub
End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini,

• klik tambah untuk menambah data baru :

• klik edit untuk mengganti data yang telah di input sebelumnya :

• klik hapus untuk menghapus data yang telah di input :

Latihan_34B_46110055

Deskripsi Latihan 34B

Pada form latihan 34B terdapat 3 object yang digunakan yaitu Label, Button dan DataGridView.

Object Label
Pada form ini label yang digunakan ada 1 (daftar barang).

Object Datagridview
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_34C_46110055”. Tombol hapus digunakan untuk menghapus data tabel.

Script Unique
-

Even 
Load
ButtonClick

Langkah-langkah membuat Latihan 34B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 34B”

6. Setelah itu beri teks pada label dan button, serta ganti nama design yang diakhiri nim anda pada semua object,kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_34B_46110055
    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_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv46110055.DataSource = ambil
    End Sub

    Private Sub hapus46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110055.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 ='" & dgv46110055.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub

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

        'mengosongkan textbox 33b
        Latihan_34C_46110055.kobar146110055.Text = "-"
        Latihan_34C_46110055.kobar246110055.Text = " "
        Latihan_34C_46110055.nabar46110055.Text = " "
        Latihan_34C_46110055.haju46110055.Text = " "
        Latihan_34C_46110055.jumbar46110055.Text = " "
    End Sub

    Private Sub edit46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110055.Click
        Latihan_34C_46110055.Show()
        'Mengisi Text Box
        Latihan_34C_46110055.kobar146110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110055.kobar246110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("JumlahBarang").Value

    End Sub
End Class

9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini, klik tambah (untuk menambah data baru), klik edit (untuk mengganti data), atau klik hapus (untuk menghapus data).

Latihan_34A_46110055

Deskripsi Latihan 34A

Pada form latihan 34A terdapat 2 object yang digunakan yaitu Menu Strip dan Tool Strip

Object Menu Strip
Terdapat 1 object MenuStrip (Barang).

Object Tool Strip
Terdapat 2 object ToolStrip (Daftar Barang dan Input Barang)

Script Unique
-

Even 
Load
ButtonClick

Langkah-langkah membuat Latihan 34A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 34A”

6. Setelah itu beri teks pada menustrip dan toolstrip, serta ganti nama design yang diakhiri nim anda pada semua object.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_34A_46110055

    Private Sub daftar146110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar146110055.Click
        Latihan_34B_46110055.Show()
    End Sub

    Private Sub daftar246110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daftar246110055.Click
        If Latihan_34C_46110055.Visible = False Then

            Latihan_34C_46110055.Show()
        Else
            Latihan_34C_46110055.Activate()
        End If
    End Sub
    Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang.Click
        Latihan_34B_46110055.Show()
    End Sub
    Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBarang.Click
        If Latihan_34C_46110055.Visible = False Then

            Latihan_34C_46110055.Show()
        Else
            Latihan_34C_46110055.Activate()
        End If
    End Sub
End Class

9. Klik start debugging

10.  Setelah itu hasilnya akan muncul apabila form latihan 34B dan 34C telah di selesaikan

Latihan_33B_46110055

Deskripsi Latihan 33B

Pada form latihan 33B ada 4 object yang digunakan yaitu Label, TextBox, Button dan Statustrip.

Object Label
Terdapat 4 label pada form latihan 33B (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object Statustrip
Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

Script Unique
-

Even 
ButtonClick

Langkah-langkah membuat Latihan 33B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 33B”

6. Setelah itu beri teks pada label,statustrip, dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_33B_46110055
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim cari As ByIskandar.CariKeDataBaseByIskandar
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kobar146110055.Text & "','" & nabar46110055.Text & "', " & Val(haju46110055.Text) & "," & Val(jumbar46110055.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110055.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kobar246110055.Text & "', namabarang = '" & nabar46110055.Text & "', hargajual=" & Val(haju46110055.Text) & ", jumlahbarang=" & Val(jumbar46110055.Text) & " where kodebarang='" & kobar146110055.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110055.ambildata()
    End Sub


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

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

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

        If Val(jumbar46110055.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", kobar246110055.Text, 1, Jalan)

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

            'mengosongkan text box
            kobar246110055.Text = " "
            nabar46110055.Text = " "
            haju46110055.Text = " "
            jumbar46110055.Text = " "
            Exit Sub
        End If

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

        'mengosongkan text box
        kobar246110055.Text = " "
        nabar46110055.Text = " "
        haju46110055.Text = " "
        jumbar46110055.Text = " "



        'menutup form
        Me.Close()

    End Sub

End Class


9. Klik start debugging

10.  maka akan muncul hasil seperti dibawah ini,

Latihan_33A_46110055

Deskripsi  Latihan 33A

Pada form latihan 33A ada 3 object yang digunakan yaitu Label, Button dan DataGridView.

Object Label
Pada form ini label yang digunakan ada 1 (daftar barang).

Object Datagridview
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button
Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_33B_46110055”. Tombol hapus digunakan untuk menghapus data tabel.

Script Unique
-

Even 
Load
ButtonClick

Langkah-langkah membuat Latihan 33A:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 33A”

6. Setelah itu beri teks pada label dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

Public Class Latihan_33A_46110055
    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_46110055_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
        ambildata()
        dgv46110055.DataSource = ambil
    End Sub

    Private Sub tambah46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah46110055.Click
        'Menampilkan form 33b
        If Latihan_33B_46110055.Visible = False Then
            Latihan_33B_46110055.Show()
        Else
            Latihan_33B_46110055.Activate()
        End If

        'mengosongkan textbox 33b
        Latihan_33B_46110055.kobar146110055.Text = "-"
        Latihan_33B_46110055.kobar246110055.Text = " "
        Latihan_33B_46110055.nabar46110055.Text = " "
        Latihan_33B_46110055.haju46110055.Text = " "
        Latihan_33B_46110055.jumbar46110055.Text = " "
    End Sub

    Private Sub edit46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit46110055.Click
        'Menampilkan form 33b
        If Latihan_33B_46110055.Visible = False Then
            Latihan_33B_46110055.Show()
        Else
            Latihan_33B_46110055.Activate()
        End If

        'mengisi textbox yang ada pada 32c

        Latihan_33B_46110055.kobar146110055.Text = dgv46110055.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110055.nabar46110055.Text = dgv46110055.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110055.haju46110055.Text = dgv46110055.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110055.jumbar46110055.Text = dgv46110055.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub hapus46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110055.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 ='" & dgv46110055.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'Mengambil data kembali
        ambildata()
    End Sub
End Class

9. Klik start debugging

Latihan_32C_46110055

Deskripsi Latihan 32C

Pada form latihan 32C ada 4 object yang digunakan yaitu Label, TextBox, Button dan Statustrip.

Object Label
Terdapat 4 label pada form latihan 32C (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Object Statustrip
Ada 2 statustrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.

Script Unique
-

Even 
ButtonClick

Langkah-langkah membuat Latihan 32C:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 32C”

6. Setelah itu beri teks pada label,statustrip dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

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

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

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

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

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

        'perintah ambil data

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

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

                'mengosongkan text box
                kobar246110055.Text = " "
                nabar46110055.Text = " "
                haju46110055.Text = " "
                jumbar46110055.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kobar246110055.Text & "', namabarang = '" & nabar46110055.Text & "', hargajual=" & Val(haju46110055.Text) & ", jumlahbarang=" & Val(jumbar46110055.Text) & " where kodebarang='" & kobar146110055.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kobar146110055.Text = "-"
        kobar246110055.Text = " "
        nabar46110055.Text = " "
        haju46110055.Text = " "
        jumbar46110055.Text = " "

        'mengambil data
        Latihan_32A_46110055.ambildata()

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

9. Klik start debugging

10. maka akan muncul hasil seperti dibawah ini,

Latihan_32B_46110055

Deskripsi  Latihan 32B

Pada form latihan 32B terdapat 3 object yang digunakan yaitu Label, TextBox,  dan Button.

Object Label
Terdapat 4 label pada form latihan 32B (kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox
Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti.

Script Unique
-

Even 
ButtonClick

Langkah-langkah membuat Latihan 32B:

1. Buka  Microsoft Visual Studio 2008
2. Setelah itu  pilih “kumpulan_Latihan_46110055” (sesuai dengan nama file anda)

3. Pilih menu Project lalu klik add windows form

4. Ketik nama latihan yang akan dibuat pada kotak “NAME”  (namun jangan menghapus nama .vb) setelah itu pilih “add”.

5. Buatlah desain sesuai dengan yang diperintahkan soal “Latihan 32B”

6. Setelah itu beri teks pada label, dan button , serta ganti nama design yang diakhiri nim anda pada semua object, kecuali label.

7. Pilih menu “view” klik  “code”.
8. Masukkan rumus berikut :

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

    Private Sub simpan46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110055.Click

        'perintah periksa data
        If kobar246110055.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

        If Val(jumbar46110055.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", kobar246110055.Text, 1, Jalan)

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

            'mengosongkan text box
            kobar246110055.Text = " "
            nabar46110055.Text = " "
            haju46110055.Text = " "
            jumbar46110055.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 ('" & kobar246110055.Text & "','" & nabar46110055.Text & "', " & Val(haju46110055.Text) & "," & Val(jumbar46110055.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        kobar246110055.Text = " "
        nabar46110055.Text = " "
        haju46110055.Text = " "
        jumbar46110055.Text = " "

        'menambildata
        Latihan_32A_46110055.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

9. Klik start debugging

10. maka akan muncul hasil seperti dibawah ini,