Latihan_34C_46110045

Deskripsi :
Dalam form Latihan 33b hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object label :

Dalam form ini terdapat empat  buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan  “jumlah barang” .

Object textbox :

Dalam form ini terdapat empat 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 input di latihan ini ke dalam database.

Object toolstrip :

Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

   

Langkah-langkah penyelesaian form 34C :

1. Pilih add windows form lalu tambahkan form 34C.

2. Buatlah desain formnya.

3. Masukkan rumus seperti ini

Public Class Latihan_34C_46110045
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah46110045()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kb46110045.Text & "','" & nb46110045.Text & "', " & Val(hj46110045.Text) & "," & Val(jb46110045.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

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

        'mengambildata
        Latihan_34B_46110045.ambildata()
    End Sub

    Private Sub simpan46110045_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110045.Click
        'perintah periksa data
        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(hj46110045.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
        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 = " "
            hj46110045.Text = " "
            jb46110045.Text = " "
            Exit Sub
        End If

        If ganti46110045.Text = "-" Then
            tambah46110045()
        Else
            replace()
        End If

        'mengosongkan text box
        kb46110045.Text = " "
        nb46110045.Text = " "
        hj46110045.Text = " "
        jb46110045.Text = " "

        'menutup form
        Me.Close()

    End Sub
End Class

 

Even :

Button click.