Latihan_30B_46110020

Deskripsi Form Latihan_30B_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_30B_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_30B_46110020”

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

6. Kemudian mulailah membuat form 30b menggunkan groupbox, label, textbos, dan button.

 

7. Lalu buatlah sesuai contoh latihan 30B 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_30B_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

        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 = " "

        'mengambildata

        Latihan_30A_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 30B_46110020

Ø  Klik start debugging

Ø  Lalu Pilih data yang anda ingin ganti atau edit pada form yang anda telah buat

Ø Kemudian tekan tombol”simpan” maka Hasil akan TERSIMPAN sendiri secara otomatis, dan hasil tersebut anda bisa lihat pada data access “DATABARANG”

Ø  Semoga Berhasil :)

Script Unique

Script pada latihan ini sudah ada pada latihan sebelumnya.

Even

Click