Latihan_29_46110027

Deskripsi Form Latihan 29

 Pada form latihan 29 ada 4 object yang digunakan yaitu Label, Text Box, Button dan GroupBox.

Object Label

Terdapat 6 label pada form latihan 29 (kode barang, (kode barang yang akan diganti datanya), kode barang, nama barang, harga jual, dan  jumlah barang).

 Object TextBox
 Terdapat 5 object textbox (status input) yang digunakan dalam menginput data.

Object Groupbox

Ada 2 groupbox pada latihan ini. Groupbox pertama berisi rincian data lama dan groupbox kedua berisi rincian data baru.

Object Button
Pada form Latihan ini juga terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diganti datanya.

Script Unique

Mengganti data lama dengan data baru
If kb1_46110027.Text <> kb2_46110027.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb2_46110027.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")

Even 

ButtonClick

• Langkah-langkah Membuat Form 29

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_29  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

     

     

Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name" kecuali pada object Label

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

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

    Private Sub s_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s_46110027.Click
        'perintah periksa data
        If kb1_46110027.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If kb2_46110027.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If nb_46110027.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(hj_46110027.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

        If Val(jb_46110027.Text) = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If



        If kb1_46110027.Text <> kb2_46110027.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb2_46110027.Text, 1, Jalan)

            If PENCARI.JumlanBaris > 0 Then
                MsgBox("The data has been exist please insert new data")


                kb2_46110027.Text = " "
                nb_46110027.Text = " "
                hj_46110027.Text = " "
                jb_46110027.Text = " "
                Exit Sub
            End If
        End If


        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb1_46110027.Text & "', namabarang = '" & nb_46110027.Text & "', hargajual=" & Val(hj_46110027.Text) & ", jumlahbarang=" & Val(jb_46110027.Text) & " where kodebarang='" & kb1_46110027.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        kb1_46110027.Text = " "
        kb2_46110027.Text = " "
        nb_46110027.Text = " "
        hj_46110027.Text = " "
        jb_46110027.Text = " "

    End Sub

 
End Class

6.    Klik start debugging

7. Input data yang akan diedit sbb: