Latihan_27_46110027

Deskripsi Form Latihan 27

  Pada form latihan 27 ada 3 object yang digunakan yaitu Label, Text Box dan Button.

Object Label

Terdapat 5 label pada form latihan 27 (penginputan data, kode barang, nama barang, harga jual, dan  jumlah barang).

Object Textbox                                                                

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diinput.

.

Script Unique

Memeriksa apakah data yang dimasukkan sudah ada sebelumnya atau tidak
Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t1_46110027.Text, 1, Jalan)

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

            t1_46110027.Text = " "
            t2_46110027.Text = " "
            t3_46110027.Text = " "
            t4_46110027.Text = " "
            Exit Sub
        End If

Memeriksa dan memastikan data telah terisi

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

Memasukkan data dari visual basic kedalam data access
Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1_46110027.Text & "','" & t2_46110027.Text & "', " & Val(t3_46110027.Text) & "," & Val(t4_46110027.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        t1_46110027.Text = " "
        t2_46110027.Text = " "
        t3_46110027.Text = " "
        t4_46110027.Text = " "
    End Sub

Even 

ButtonClick

• Langkah-langkah Membuat Form 27

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

2.  Ketik nama Latihan_27  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_27_46110027
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46110027.Click

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

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

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

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


        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t1_46110027.Text, 1, Jalan)

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

            t1_46110027.Text = " "
            t2_46110027.Text = " "
            t3_46110027.Text = " "
            t4_46110027.Text = " "
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1_46110027.Text & "','" & t2_46110027.Text & "', " & Val(t3_46110027.Text) & "," & Val(t4_46110027.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        t1_46110027.Text = " "
        t2_46110027.Text = " "
        t3_46110027.Text = " "
        t4_46110027.Text = " "
    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil Lat 27 input data lalu klik "Simpan" sbb: