Latihan_32b_46110027

Deskripsi Form Latihan 31b

Pada form latihan 31B ada 43object yang digunakan yaitu Label, Text Box,  dan Button.

Object Label

Terdapat 4 label pada form latihan 31B (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 Form 32b

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_32b  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_32B_46110027
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub s_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46110027.Click
        'perintah periksa data
        If tb1_46110027.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

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

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

            'mengosongkan text box
            tb1_46110027.Text = " "
            tb2_46110027.Text = " "
            tb3_46110027.Text = " "
            tb4_46110027.Text = " "
            Exit Sub
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & tb1_46110027.Text & "','" & tb2_46110027.Text & "', " & Val(tb3_46110027.Text) & "," & Val(tb4_46110027.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        tb1_46110027.Text = " "
        tb2_46110027.Text = " "
        tb3_46110027.Text = " "
        tb4_46110027.Text = " "

        'menambildata
        Latihan_32A_46110027.ambildata()

        'menutup form
        Me.Close()

    End Sub
End Class

6.    Klik start debugging

7. Jika pada latihan_32a anda memilih button "tambah" maka akan tampil sbb: