Latihan 27_36110055

PROSEDUR LATIHAN 27:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat 6 label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, jumlah barang, dan simpan).

Ø  Buat tombol simpan dengan menggunakan button.

Ø  Buat 6 obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, jumlah barang, total unit dan total jumlah.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_27_36001155

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=55")

    Dim Masnur As New ByIskandar.CariKeDataBaseByIskandar

  

    Private Sub Simpan_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36001155.Click

        If KB_36001155.Text.Length = 0 Then 'untuk pencarian yg bersifat angka

            MsgBox("kode barang belum terisi")

            Exit Sub 'jgn lanjut ke proses berikutnya

        End If

        If NB_36001155.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(HJ_36001155.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(JB_36001155.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        Masnur.AturPencarianDataBase("BARANG", "KODEBARANG", KB_36001155.Text, 1, conect)

        If Masnur.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 ('" & KB_36001155.Text & "','" & NB_36001155.Text & "'," & Val(HJ_36001155.Text) & "," & Val(JB_36001155.Text) & ")", conect)

        conect.Open()

        com.ExecuteNonQuery()

        conect.Close()

        com.Dispose()

        KB_36001155.Text = ""

        NB_36001155.Text = ""

        HJ_36001155.Text = ""

        JB_36001155.Text = ""

    End Sub

End Class