Latihan_27_36110031

Tahap Penyelesaian Latihan_27_36110031

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_27  dan add. seperti pada gambar dibawah:

 

4.   Buat Form Latihan_27 dibawah ini:

 

5.    Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_27_36110031

    'dekklarasi connection

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

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Simpan_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110031.Click

        If Kodebarang_36110031.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If Namabarang_36110031.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

        End If

        If Val(Hargajual_36110031.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(Jumlahbarang_36110031.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", Kodebarang_36110031.Text, 1, Audry)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode sudah ada")

            Exit Sub

        End If

        Dim Ias As New OleDb.OleDbCommand

        Ias = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kodebarang_36110031.Text & "','" & Namabarang_36110031.Text & "'," & Val(Hargajual_36110031.Text) & "," & Val(Jumlahbarang_36110031.Text) & ")", Audry)

        Audry.Open()

        Ias.ExecuteNonQuery()

        Audry.Close()

        Ias.Dispose()

        Kodebarang_36110031.Text = ""

        Namabarang_36110031.Text = ""

        Hargajual_36110031.Text = ""

        Jumlahbarang_36110031.Text = ""

    End Sub

End Class 

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

 

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

 

8.   Selesai

Deskripsi Latihan_27_36110031

-    Object Label

Terdapat lima label (yang bertuliskan Penginputan barang, kode barang, nama barang, harga jual, jumlah barang)

-    Object TextBox

Terdapat empat textbox yang semuanya merupakan status input yang digunakan untuk memasukkan nilai: kode barang, nama barang, hargajual, jumlah barang yang nantinya akan disimpan kedalam form BARANG Ms. Access.

-    Object Button

Terdapat satu object Button yaitu Simpan yang digunakan untuk menyimpan data yang telah diinput pada textbox kedalam form BARANG Ms. Access

Script Unique

Untuk Button Simpan:

If Kodebarang_36110031.Text.Length = 0 Then

    MsgBox("kode barang belum terisi")

   Exit Sub

End If

Even

Simpan_36110031_Click