Latihan_27_36110056

Deskripsi Latihan 27:

Form Latihan 27 terdapat tiga object yaitu Label,TextBox, dan Button

 Object  Label

Tedapat lima object label yang di beri nama pegimput barang, kode barang, nama barang, harga barang, dan jumlah barang

Object  TextBox

Terdapat empat textbox status input digunakan untuk memasukkan nilai

Atau text Nomor dan Jenis.

Object  Button

 terdapat sabuah object button yang diberi nama Simpan di gunakan untuk mejalankan 

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 27

Even

ButtonClick

Property

Default
 

                             Form Latihan 27

Langkah-langkah penyelesaian latihan 27 :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Button, Label, dan Textbox  yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama Button, TextBox, dan Label yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan27_36110056
    Dim yus As New ByIskandar.CariKeDataBaseByIskandar
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb;Jet OLEDB:Database Password=43")
    Private Sub Simpan_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110056.Click
        'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
        If Val(kb_36110056.Text) = 0 Then 'untuk pencarian yg bersifat angka
            MsgBox("kode barang belum terisi")
            Exit Sub 'jgn lanjut ke proses berikutnya
        End If

        If nb_36110056.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
            MsgBox("nama barang belum terisi")
            Exit Sub
        End If

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

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

        'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
        yus.AturPencarianDataBase("BARANG", "KODEBARANG", kb_36110056.Text, 1, jembatan)

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

        'untuk memasukkan data dari visual basc ke dlm acces
        Dim non As New OleDb.OleDbCommand
        non = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36110056.Text & "','" & nb_36110056.Text & "'," & Val(hj_36110056.Text) & "," & Val(jb_36110056.Text) & ")", jembatan)

        jembatan.Open()
        non.ExecuteNonQuery()
        jembatan.Close()
        non.Dispose()

        kb_36110056.Text = ""
        nb_36110056.Text = ""
        hj_36110056.Text = ""
        jb_36110056.Text = ""
    End Sub 
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini