latihan_29_46110004

Deskripsi form latihan 29
Dalam form Latihan 29 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 :


Script Unique :
Perintah ini digunakan untuk mengganti data yang terdapat pada database

If ganti_46110004.Text <> kb_46110004.Text Then

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb_46110004.Text, 1, connect)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode sudah ada")

                Exit Sub

            End If

Even :
Button click

Langkah-langkah penyelesaian form latihan 29

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_29_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_29_46110004

    Dim connect 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")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

  

    Private Sub simpan_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110004.Click

        If ganti_46110004.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        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

        If ganti_46110004.Text <> kb_46110004.Text Then 'KODE SAMA

            cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb_46110004.Text, 1, connect)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode sudah ada")

                Exit Sub

            End If

        End If

        Dim com As New OleDb.OleDbCommand

        com = 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 & "'", connect)

        connect.Open()

        com.ExecuteNonQuery()

        connect.Close()

        com.Dispose()

        ganti_46110004.Text = ""

        kb_46110004.Text = ""

        nb_46110004.Text = ""

        hj_46110004.Text = ""

        jb_46110004.Text = ""

    End Sub

End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 29 seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 29 sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.