Latihan_27_46110020

Deskripsi Form Latihan_27_46110020

Dalam form ini terdapat  Tiga buah object yaitu Label, TextBox, dan Button.

Object Label

Terdapat Lima item object Label yang bertuliskan ( Penginputan Data, Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang).

Object TextBox

Terdapat Empat item object TextBox yang digunakan untuk Menginput Data yang anda ingin input.

Object Button

Terdapat Satu item object Button yang digunakan untuk menampilkan hasil input yang telah di input pada TextBox.

Cara Membuat Form Latihan 27_46110020

1. Bukalah project yang anda telah buat sebelumnya

2. Pilih dan Bukalah Project dalam Visul Basic

3. Kemudian Pilih Add Windows form seperti berikut :

 

4. Lalu add new item dan rename file “form.vb menjadi Latihan_27_46110020”

5. Setelah namenya di rename pilih add lalu muncullah form seperti ini :

6. Kemudian mulailah membuat form 27 dengan mengunakan Label, TextBox, dan Button.

 

7. Lalu buatlah sesuai contoh latihan 27 dengan menggunkan Label, TextBox, dan Button. maka akan menjadi seperti ini :

8. Setelah form di atas telah jadi maka klik kanan lalu pilih View Code,kemudian masukkan rumus seperti berikut :

Public Class Latihan_27_46110020

    Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Private Sub SIMPAN_46110020_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110020.Click

        'perintah periksa data

        If KB_46110020.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If NB_46110020.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(HJ_46110020.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(JB_46110020.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", KB_46110020.Text, 1, YUNI)

        If PENCARI.JumlanBaris > 0 Then

            MsgBox("The data has been exist please insert new data")

            'mengosongkan text box

            KB_46110020.Text = " "

            NB_46110020.Text = " "

            HJ_46110020.Text = " "

            JB_46110020.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 ('" & KB_46110020.Text & "','" & NB_46110020.Text & "', " & Val(HJ_46110020.Text) & "," & Val(JB_46110020.Text) & ")", YUNI)

        YUNI.Open()

        Cm.ExecuteNonQuery()

        YUNI.Close()

        Cm.Dispose()

        'mengosongkan text box

        KB_46110020.Text = " "

        NB_46110020.Text = " "

        HJ_46110020.Text = " "

        JB_46110020.Text = " "

    End Sub

End Class

9. Jalankan program dengan cara mengklik start debugging seperti berikut :

Langkah-Langkah Membuat Form Latihan 27_46110020

1. Klik start debugging
2. Lalu Masukkan / input data yang anda ingin masukkan kemudian klik tombol “SIMPAN”
3. Maka Hasil akan TERSIMPAN sendiri secara otomatis, dan hasil tersebut anda bias lihat pada data access “DATABARANG”
4. Semoga Berhasil :)

Script Unique

1.     Untuk Membuat Koneksi

Dim YUNI As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

2.    Untuk Membuat 'perintah periksa data

If KB_46110020.Text.Length = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

3.     Untuk Membuat 'perintah Ambil Data

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110020.Text, 1, YUNI)

4.    Untuk Mengosongkan TextBox

KB_46110020.Text = " "

5.     Deklarasi  Object Command

Dim Cm As New OleDb.OleDbCommand

Even

Clik