Latihan_27_46110045

Deskripsi :
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.

Langkah-langkah penyelesaian form 27 :

1. Pilih add windows form lalu tambahkan form 27.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_27_46110045
    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 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 = " "
    End Sub
End Class

Script unique :

If kb46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If berguna untuk memasukkan data yang ada.

Even :

Button click.