Latihan_27_46110043

A. Langkah-langkah Pembuatan dan Penyelesaian Form Pada Latihan 27

1. Bukalah Kumpulan Project yang telah dibuat.

2. Kemudian pilih Project, lalu Add Windows Form

3. Ubah nama Form menjadi "Latihan_27_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_27_46110043

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:Database Password=25")

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub SAVE46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE46110043.Click

        If Val(KB46110043.Text.Length) = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        End If

        If NB46110043.Text.Length = 0 Then
            MsgBox("nama barang belum terisi")
            Exit Sub
        End If

        If Val(HB46110043.Text) = 0 Then
            MsgBox("harga jual belum diisi")
            Exit Sub
        End If

        If Val(JB46110043.Text) = 0 Then
            MsgBox("jumlah barang belum diisi")
            Exit Sub
        End If


        cari.AturPencarianDataBase("BARANG", "KODEBARANG", KB46110043.Text, 1, conect)

        If cari.JumlanBaris > 0 Then
            MsgBox("kode sudah ada")
            Exit Sub
        End If


        Dim com As New OleDb.OleDbCommand
        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB46110043.Text & "','" & NB46110043.Text & "'," & Val(HB46110043.Text) & "," & Val(JB46110043.Text) & ")", conect)

        conect.Open()
        com.ExecuteNonQuery()
        conect.Close()
        com.Dispose()

        KB46110043.Text = ""
        NB46110043.Text = ""
        HB46110043.Text = ""
        JB46110043.Text = ""

    End Sub
End Class

8. Klik Start Debugging pada ToolBar untuk menjalankan form.

9. Hasil Penginputan dapat dilihat dalam Database di Microsoft Access nya

B. Deskripsi Form Latihan 27

Pada form latihan 27 ada 3 object yang digunakan yaitu Label, Text Box danButton.

Object Label

Terdapat 5 label pada form latihan 27 (penginputan data, kode barang, nama barang, harga jual, dan  jumlah barang).

Object Button                                                                

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diinput.

Object TextBox

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

Script Unique

Memeriksa dan memastikan data telah terisi

If Val(KB46110043.Text.Length) = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

End If

Memeriksa apakah data yang dimasukkan sudah ada sebelumnya atau tidak

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")

           KB46110043.Text = ""

        NB46110043.Text = ""

        HB46110043.Text = ""

        JB46110043.Text = ""

            Exit Sub

        End If

Memasukkan data dari visual basic kedalam data access

  Dim com As New OleDb.OleDbCommand

        com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & KB46110043.Text & "','" & NB46110043.Text & "'," & Val(HB46110043.Text) & "," & Val(JB46110043.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        KB46110043.Text = ""

        NB46110043.Text = ""

        HB46110043.Text = ""

        JB46110043.Text = ""

Even

ButtonClick

Langkah-Langkah Menjalankan Form Latihan 27

1. Input data pada textbox yang telah tersedia.
2. Klik “SIMPAN” untuk menyimpan data yang telah diinput.