Latihan_33B_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 33B

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_33B_NIM" tanpa menghilangkan (.vb)

4. Buatlah form pada window tersebut seperti gambar dibawah ini:

semua kelengkapan (object) pada form dapat kita temukan di ToolBox

5. Ubah nama pada TextBox sesuai dengan yang kita inginkan. Jangan lupa menambahkan NIM anda pada akhir nama. Begitu juga pada object Button kecuali Object Label tidak usah.

6. Setelah form selesai klik kanan pada form lalu pilih View Code lalu masukkan script dibawah ini pada window:

Public Class Latihan_33B_46110043

    Dim CONECT As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & KB46110043.Text & "','" & NB46110043.Text & "', " & Val(HB46110043.Text) & "," & Val(JB46110043.Text) & ")", CONECT)
        CONECT.Open()
        Cm.ExecuteNonQuery()
        CONECT.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110043.ambildata()
    End Sub
    Private Sub replace()
        'deklarasi object command
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB46110043.Text & "', namabarang = '" & NB46110043.Text & "', hargajual=" & Val(HB46110043.Text) & ", jumlahbarang=" & Val(JB46110043.Text) & " where kodebarang='" & KODELAMA.Text & "'", CONECT)
        CONECT.Open()
        Cm.ExecuteNonQuery()
        CONECT.Close()
        Cm.Dispose()

        'mengambildata
        Latihan_33A_46110043.ambildata()
    End Sub

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

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

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

        If Val(JB46110043.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", KB46110043.Text, 1, CONECT)

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

            'mengosongkan text box
            KB46110043.Text = " "
            NB46110043.Text = " "
            HB46110043.Text = " "
            JB46110043.Text = " "
            Exit Sub
        End If

        If KODELAMA.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        'mengosongkan text box
        KB46110043.Text = " "
        NB46110043.Text = " "
        HB46110043.Text = " "
        JB46110043.Text = " "



        'menutup form
        Me.Close()

    End Sub
End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

 B. Deskripsi Form Latihan 33B
Pada form latihan 33B ada 4 object yang digunakan yaitu Label, Text Box, Button dan Status strip.


Object Label
Terdapat 4 label pada form latihan 33b (kode barang, nama barang, harga jual, dan  jumlah barang).


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


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


Object StatusStrip
Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“ nantinya akan menampilkan  kode barang.


Script Unique
Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.


Even
ButtonClick


Langkah-Langkah Menjalankan Form Latihan 33B
1. Input data yang ingin ditambahkan ataupun dirubah, sesuai dengan perintah awal pada “Latihan_33A_46110043”.
2. Klik “Simpan” untuk menyimpan perubahan ataupun penambahan data yang telah dibuat.
1. .