Latihan_32B_46110020

Deskripsi Form Latihan_32B_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 32B_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_32B_46110020”

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

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

7. Lalu buatlah sesuai contoh latihan 32B 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_32B_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 = " "

        NB_46110020.Text = " "

        'menambildata

        Latihan_32A_46110020.CINTA()

        'menutup form

        Me.Close()

    End Sub

End Class

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

 Langkah-Langkah Membuat Form Latihan 32B_46110020

ü

1.        Klik start debugging

2.      Apabila anda ingin menambahkan data pada databarang (Latihan_32A_46110020) maka klik tombol Tambah dan inputllah 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

Script dalam Latihan ini sudah ada pada latihan  sebelumnya.

Even

Clik