Latihan_29_46110045

Deskripsi :
Dalam form Latihan 28b hanya terdapat tiga object yaitu Label, Textbox, Button.


Object label :

Dalam form ini terdapat enam  buah object label yang bertuliskan “kode barang yang akan diganti namanya”,, “nama barang”, “harga jual”, “ jumlah barang” dan 2 yang bertuliskan “kode barang”.

  

Object textbox :

Dalam form ini terdapat lima buah object textbox yang semuanya berstatus input.

Object button :

Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di edit di latihan ini ke dalam database.

Langkah-langkah penyelesaian form 29 :

1. Pilih add windows form lalu masukkan form 29.

2. Buatlah desain untuk form 29.

3. Masukkan rumus seperti ini

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

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

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

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

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

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

        'perintah ambil data

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

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

                'mengosongkan text box
                kb46110045.Text = " "
                nb46110045.Text = " "
                hb46110045.Text = " "
                jb46110045.Text = " "
                Exit Sub
            End If
        End If

        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kb46110045.Text & "', namabarang = '" & nb46110045.Text & "', hargajual=" & Val(hb46110045.Text) & ", jumlahbarang=" & Val(jb46110045.Text) & " where kodebarang='" & ganti46110045.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        'mengosongkan text box
        ganti46110045.Text = " "
        kb46110045.Text = " "
        nb46110045.Text = " "
        hb46110045.Text = " "
        jb46110045.Text = " "

    End Sub
End Class
 

Script unique :

If ganti46110045.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If berguna untuk mengganti data yang ada pada database.

 

Even :

Button click.