Latihan_30B_36110056

Deskripsi Latihan 30B:

Form Latihan 30B terdapat tiga object yaitu Label, Textbox, dan Button

Object  Label

Terdapat enam object label yang diberi nama Kode barang sebanyak dua kali, nama barang, harga jual, jumlah barang, dan kode barang yang akan diganti.

Object  TextBox

Terdapat lima object textbox yang berstatus input dan digunakan untuk memasukan nilai atau text kode barang yang akan diganti datanya, kode barang baru, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG.

Object  Button

Terdapat satu object button (Simpan).digunakan untuk menyimpan data barang baru yang telah diinput pada textbox ke dalam form BARANG.

 

Script Unique

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

Even

ButtonClick

Property

Default

                             Form Latihan 30B

Langkah-langkah penyelesaian latihan 30B:

• 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 label, textbox, dan Button yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan30B_36110056
    Dim iyas 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
        If kb_36110056.Text <> kb2_36110056.Text Then
        End If
        iyas.AturPencarianDataBase("barang", "kodebarang", kb2_36110056.Text, 1, jembatan)
        If iyas.JumlanBaris > 0 Then
            MsgBox("maaf kode sudah ada")
        End If
        If kb2_36110056.Text.Length = 0 Then
            MsgBox("kode barang belum terisi")
            Exit Sub
        ElseIf nb_36110056.Text.Length = 0 Then
            MsgBox("nama barang belum teirisi")
            Exit Sub
        ElseIf Val(hj_36110056.Text) = 0 Then
            MsgBox("harga jual belum terisi")
            Exit Sub
        ElseIf Val(jb_36110056.Text) = 0 Then
            MsgBox("jumlah barang belum terisi")
            Exit Sub
        End If
        Dim nos As New OleDb.OleDbCommand
        nos = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb2_36110056.Text & "','" & nb_36110056.Text & "','" & Val(hj_36110056.Text) & "','" & Val(jb_36110056.Text) & "')", jembatan)
        jembatan.Open()
        nos.ExecuteNonQuery()
        jembatan.Close()
        nos.Dispose()
        kb2_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