Latihan_29_46110024

DESKRIPSI FORM LATIHAN 29

Form Latihan ini Terdapat 4 object yaitu label, textbox,  groupbox, dan button

Object Label

Dalam form ini terdapat  6  label yang bertuliskan Kode Barang, Kode Barang, Nama Barang, Harga Jual, Jumlah Barang

Object  Textbox

Dalam Form ini terdapat 5 textbox yang berstatus input

Object Button

Dalam form ini terdapat satu button yang bertuliskan simpan, digunakan utnuk menyimpan data yang telah diinput

Object Groupbox

Dalam form ini terdapat 2 buah object groupbox. Group box berfungsi untuk mengelompokkan objek-objek yang diinginkan

Script  Unique

Tidak ada scipt unik pada form latihan ini

Even

ButtonClick

Langkah- Langkah Membuat Form Latihan  29

1. Buka File Microsoft Visual Studio Anda  lalu pilih projectà Add windows form 

2. Ganti nama sesuai dengan nama latihan 29

3. Lalu pilih object yang ada di latihan 29

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_29_46110024

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

  

    Private Sub simpan_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110024.Click

        If kb_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If kb1_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If nb_46110024.Text.Length = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(hj_46110024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If Val(jb_46110024.Text) = 0 Then

            MsgBox("Plase Insert Your Text")

            Exit Sub

        End If

        If kb_46110024.Text <> kb1_46110024.Text Then

            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar

            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb1_46110024.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then

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

                kb1_46110024.Text = " "

                nb_46110024.Text = " "

                hj_46110024.Text = " "

                jb_46110024.Text = " "

                Exit Sub

            End If

        End If

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb1_46110024.Text & "', namabarang = '" & nb_46110024.Text & "', hargajual=" & Val(hj_46110024.Text) & ", jumlahbarang=" & Val(jb_46110024.Text) & " where kodebarang='" & kb_46110024.Text & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        kb_46110024.Text = " "

        kb1_46110024.Text = " "

        nb_46110024.Text = " "

        hj_46110024.Text = " "

        jb_46110024.Text = " "

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan 29

1. Klik start debugging 
2. Input data kedalam textbox yang berstatus input 
3. Klik tombol simpan untuk menyimpan data yang telah dimasukkan