Latihan_29_36110038

Deskripsi Latihan_29_36110038

Form Latihan_29 terdapat empat object yaitu GroupBox, button, Textbox, dan Button:

Object GroupBoxt

Terdapat dua GroupBox digunakan untuk mengelompokkan object-object yang lain.

Object Label

Terdapat enam label (dua label bertuliskan kode barang dan empat lebel masing-masing bertuliskan (kode barang yang akan diganti datanya), nama barang, harga jual dan jumlah barang)

Object Text Box

Terdapat lima textbox status input digunakan untuk memasukkan nilai atau textkode barang yang akan diganti datanya, Kode Barang, Nama Barang, Harga Jual dan Jumlah Barang.

Object Button

Terdapat satu object button (simpan). Tombol simpan digunakan untuk menyimpan data barang ke table barang.

Script Unique 

Button "Simpan" (simpan_36110038)
If kobar2_36110038.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

Even

simpan_36110038.Click

Prosedur penyelesaian

1.      Buka Project_36110038 yang telah dibuat sebelumnya.

2.      Buka visual basic Kumpulan_Latihan_36110038 yang telah dibuat sebelumnya.

3.      Buat form baru dengan nama Latihan_29_36110038 sesuai form dibawah ini.

4.      Ganti semua nama objek yang ada selain label menggunakan "Properties Window" sesuai dengan yang diinginkan dengan menambahkan stambuk dibelakang nama obyek.

5.      Klik 2x pada kotak design untuk membuka lembar VB untuk menuliskan rumusnya. Masukkan rumus berikut untuk menyelesaikan Latihan_29

                                                   

Public Class Latihan_29_36110038

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

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

    Dim comman As New OleDb.OleDbCommand

    Private Sub simpan_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110038.Click

        If kobar2_36110038.Text.Length = 0 Then

            MsgBox("kode barang belum terisi")

            Exit Sub

        End If

        If Nabar_36110038.Text.Length = 0 Then

            MsgBox("nama barang belum terisi")

            Exit Sub

        End If

        If Val(Haju_36110038.Text) = 0 Then

            MsgBox("harga jual belum diisi")

            Exit Sub

        End If

        If Val(jml_36110038.Text) = 0 Then

            MsgBox("jumlah barang belum diisi")

            Exit Sub

        End If

        cari.AturPencarianDataBase("BARANG", "KODEBARANG", kobar1_36110038.Text, 1, connec)

        If cari.JumlanBaris = False Then

            MsgBox("kode tidak ada")

            Exit Sub

        End If

        comman = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & kobar2_36110038.Text & "', namabarang = '" & Nabar_36110038.Text & "', hargajual = " & Val(Haju_36110038.Text) & ", jumlahbarang = " & Val(jml_36110038.Text) & " where kodebarang ='" & kobar1_36110038.Text & "'", connec)

        connec.Open()

        comman.ExecuteNonQuery()

        connec.Close()

        comman.Dispose()

        kobar2_36110038.Text = " "

        Nabar_36110038.Text = " "

        Haju_36110038.Text = " "

        jml_36110038.Text = " "

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.