Latihan_33B_36110056

Deskripsi Latihan 33B :

Form Latihan 33B terdapat empat object yaitu StarusStrip,label,TextBox, dan Button

Object  Label

Tedapat empatobject label yang di beri  kode barang, nama barang, harga barang, dan jumlah barang

 

 Object  StatusStrip
Terdapat satu object statusstrip. Pada statusstrip ini terdapat dua statuslabel (yang bertuliskan kode barang lama dan - )

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 33B

Even

ButtonClick

Property

Default



                                Form Latihan 33B

Langkah-langkah penyelesaian latihan 33B :

• 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, Textbox, dan StatusStrip  yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 Public Class Latihan33B_36110056
    Dim yas 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")
    Dim ies As New OleDb.OleDbCommand

    Private Sub Simpan_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110056.Click
        If kbrl_36110056.Text = "" Then
            yas.AturPencarianDataBase("Barang", "KodeBarang", kb_36110056.Text, 1, jembatan)
            If yas.JumlanBaris > 0 Then
                MsgBox("kode barang tidak dapat diupdate")
                Exit Sub
            ElseIf kb_36110056.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf nb_36110056.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf hj_36110056.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf jb_36110056.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            ies = 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()
            ies.ExecuteNonQuery()
            jembatan.Close()
            ies.Dispose()
            kbrl_36110056.Text = "-"
            kb_36110056.Text = ""
            nb_36110056.Text = ""
            hj_36110056.Text = ""
            jb_36110056.Text = ""
        Else
            If kbrl_36110056.Text <> kb_36110056.Text Then
                yas.AturPencarianDataBase("Barang", "KodeBarang", kb_36110056.Text, 1, jembatan)
                If yas.JumlanBaris > 0 Then
                    MsgBox("kode barang tidak dapat diupdate")
                    Exit Sub
                End If
            ElseIf kb_36110056.Text.Length = 0 Then
                MsgBox("kode barang harus tercantum")
                Exit Sub
            ElseIf nb_36110056.Text.Length = 0 Then
                MsgBox("nama barang harus tercantum")
                Exit Sub
            ElseIf hj_36110056.Text.Length = 0 Then
                MsgBox("harga jual harus tercantum")
                Exit Sub
            ElseIf jb_36110056.Text.Length = 0 Then
                MsgBox("jumlah barang harus tercantum")
                Exit Sub
            End If
            ies = New OleDb.OleDbCommand("update barang set kodebarang = '" & kb_36110056.Text & "', namabarang = '" & nb_36110056.Text & "', hargajual = " & Val(hj_36110056.Text) & ", jumlahbarang = " & Val(jb_36110056.Text) & " where kodebarang = '" & kb_36110056.Text & "'", jembatan)
            jembatan.Open()
            ies.ExecuteNonQuery()
            jembatan.Close()
            ies.Dispose()
            kbrl_36110056.Text = "-"
            kb_36110056.Text = ""
            nb_36110056.Text = ""
            hj_36110056.Text = ""
            jb_36110056.Text = ""
        End If

    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