Latihan_28b_36110040

v Tahap Penyelesaian Latihan_28b_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_28b_36110040

4.      Buat Form Latihan_28b dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_28b_36110040

   

    'Mendeklarasikan object connection

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source =  D:\rahmi punya\semester 5\aplikasi komputer 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        'Proses memeriksa textbox yang masih kosong

        If kb_36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Kode Barangnya")

            Exit Sub

        End If

        If nb_36110040.Text.Length = 0 Then

            MsgBox("Anda Harus Masukkan Nama Barangnya")

            Exit Sub

        End If

        If Val(hj_36110040.Text) = 0 Then

            MsgBox("Anda Harus Masukkan Harga Barangnya")

            Exit Sub

        End If

        'Perintah memeriksa kodebarang yang sama dengan table sumber

        Dim Periksa As New ByIskandar.CariKeDataBaseByIskandar

        Periksa.AturPencarianDataBase("Barang", "KodeBarang", hj_36110040.Text, 1, Jembatan)

        If Periksa.JumlanBaris > 0 Then

            MsgBox("Kode Barang Sudah Ada, Masukkan Kode Barang yang Lain")

            Exit Sub

        End If

        'Mendeklarasikan object command

        Dim Ambil As New OleDb.OleDbCommand

        'Perintah memasukkan data ke database

        Ambil = New OleDb.OleDbCommand("Insert Into Barang (Kodebarang, Namabarang, Hargajual, Jumlahbarang) " & _

        "Values ( '" & kb_36110040.Text & "', '" & nb_36110040.Text & "'," & Val(hj_36110040.Text) & ", " & Val(jb_36110040.Text) & ")", Jembatan)

        'Membuka object connection

        Jembatan.Open()

        'Menjalankan perintah object command

        Ambil.ExecuteNonQuery()

        'Menutup object connection

        Jembatan.Close()

        'Menghapus perintah object command

        Ambil.Dispose()

        'Mengosongkan kembali isi textbox

        kb_36110040.Text = ""

        nb_36110040.Text = ""

        hj_36110040.Text = ""

        jb_36110040.Text = ""

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_28a_36110040.Isi()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai

v Deskripsi Latihan_28b_36110040

Object Label

Terdapat lima label (yang bertuliskan penginputan barang, kode barang, nama barang, harga jual, dan jumlah barang).

Object Button

Terdapat satu object button (Simpan) yang digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam form BARANG di Ms Access, atau bisa juga diliat hasilnya pada datagridview pada form Latihan_28a_36110040.

Object TextBox

Terdapat empat obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_28a_36110040.

 

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur  Latihan_28b_36110040

Even

simpan_36110040_Click