latihan_27_46110004

Deskripsi form latihan 27
Dalam form Latihan 27 hanya terdapat tiga object yaitu Label, Textbox, Button.

Object Label :
Dalam form ini terdapat lima buah object label yang bertuliskan “penginputan barang”, “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.

Script Unique :
Perintah ini digunakan untuk mencari jangan sampai data yg akan dimasukkan tidak lengkap

        If kb_46110004.Text.Length = 0 Then

           MsgBox("kode barang belum terisi")

            Exit Sub

        End If

Perintah ini digunakan untuk mencari jangan sampai data yg akan dimasukkan sudah ada

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

Perintah ini digunakan untuk memasukkan data dari visual basic ke dalam acces :

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_46110004.Text & "','" & nb_46110004.Text & "'," & Val(hj_46110004.Text) & "," & Val(jb_46110004.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        kb_46110004.Text = ""

        nb_46110004.Text = ""

        hj_46110004.Text = ""

        jb_46110004.Text = ""

Even :
Button click

Langkah-langkah penyelesaian form latihan 27

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_27_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_27_46110004

    'dekklarasi connection

    Dim conect 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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap

        If kb_46110004.Text.Length = 0 Then 'untuk pencarian yg bersifat angka

            MsgBox("kode barang belum terisi")

            Exit Sub 'jgn lanjut ke proses berikutnya

        End If

        If nb_46110004.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(hj_46110004.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(jb_46110004.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        'untuk mencari jgn sampai data yg akan dimasukkan sudah ada

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

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

        'untuk memasukkan data dari visual basc ke dlm acces

        Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_46110004.Text & "','" & nb_46110004.Text & "'," & Val(hj_46110004.Text) & "," & Val(jb_46110004.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        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 27 seperti dibawah ini :

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

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