latihan_32C_46110004

Deskripsi form latihan 32C
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.

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Button click

Langkah-langkah penyelesaian form latihan 32C

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_32C_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_32C_46110004
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")

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

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

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

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

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

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

                'mengosongkan text box
                kb_46110004.Text = " "
                nb_46110004.Text = " "
                hj_46110004.Text = " "
                jb_46110004.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb_46110004.Text & "', namabarang = '" & nb_46110004.Text & "', hargajual=" & Val(hj_46110004.Text) & ", jumlahbarang=" & Val(jb_46110004.Text) & " where kodebarang='" & ganti_46110004.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti_46110004.Text = "-"
        kb_46110004.Text = " "
        nb_46110004.Text = " "
        hj_46110004.Text = " "
        jb_46110004.Text = " "

        'mengambil data
        latihan_32A_46110004.ambildata()

        'menutup form
        Me.Close()
    End Sub
End Class
5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 32a lalu klik tombol "edit" yang ada di latihan 32a seperti gambar di bawah ini: