Latihan_29_46110020

Deskripsi Form Latihan_29_46110020

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

Object GroupBox

Terdapat Dua item object GroupBox digunakan untuk pengelompokkan.

Object Label

Terdapat Enam item object Label yang bertuliskan Pada GroupBox pertama bertuliskan (Kode Barang, dan Kode barang yang akan dig anti kodenya), Sedangkan pada GroupBox kedua bertuliskan ( Kode Barang, Nama Barang, Harga Jual, dan Jumlah Barang).

Object TextBox

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

Object Button

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

Cara Membuat Form Latihan_29_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_29_46110020”

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

6. Kemudian mulailah membuat form 29.

7. Lalu buatlah sesuai contoh latihan 29 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_29_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 KB1_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

        If KB_46110020.Text <> KB1_46110020.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

            If PENCARI.JumlanBaris > 0 Then

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

                'mengosongkan text box

                KB1_46110020.Text = " "

                NB_46110020.Text = " "

                HJ_46110020.Text = " "

                JB_46110020.Text = " "

                Exit Sub

            End If

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB1_46110020.Text & "', namabarang = '" & NB_46110020.Text & "', hargajual=" & Val(HJ_46110020.Text) & ", jumlahbarang=" & Val(JB_46110020.Text) & " where kodebarang='" & KB_46110020.Text & "'", YUNI)

        YUNI.Open()

        Cm.ExecuteNonQuery()

        YUNI.Close()

        Cm.Dispose()

        'mengosongkan text box

        KB_46110020.Text = " "

        KB1_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 29_46110020

Ø Klik start debugging

Ø Lalu Masukkan / input data yang anda ingin masukkan kemudian klik tombol “SIMPAN”

Ø Maka Hasil akan TERSIMPAN sendiri secara otomatis, dan hasil tersebut anda bisa lihat pada data access “DATABARANG”

Ø Semoga Berhasil :)

Script Unique

Untuk Membuat Koneksi

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

Untuk Membuat 'perintah periksa data

If KB_46110020.Text.Length = 0 Then

MsgBox("Plase Insert Your Text")

Exit Sub

Untuk Membuat 'perintah Ambil Data

If KB_46110020.Text <> KB1_46110020.Text Then

Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

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

If PENCARI.JumlanBaris > 0 Then

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

Untuk Mengosongkan TextBox

KB_46110020.Text = " "

Deklarasi  Object Command

Dim Cm As New OleDb.OleDbCommand

Even

Clik