Latihan_33B_36110038

Deskripsi Latihan_33B_36110038

Form Latihan_33B terdapat empat object yaitu Label, Textbox, Button dan StatusStrip:

Object Label

Terdapat empat label (yang bertuliskan kode barang, nama barang, harga jual dan jumlah barang)

Object Text Box

Terdapat empat textbox status input digunakan untuk memasukkan nilai atau text Kode Barang, Nama Barang, Harga Jual dan Jumlah Barang. Semuanya merupakan data baru yang akan mengganti data yang lama.

Object Button

Terdapat satu object button (simpan). Tombol simpan digunakan untuk menyimpan data barang yang baru atau yang sudah di ubah datanya  ke table barang yg ada pada DataGridView yang ada pada Latihan_33A_36110038.

Object StatusStrip

Terdapat satu object StatusStrip yang terdiri dari satu Status Label (yang bertuliskan kode barang lama)

Script Unique 

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

            MsgBox("kode barang harus tercantum")

            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_33B_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_33B

                                                   

Public Class Latihan_33B_36110038

    Dim cari As New ByIskandar.CariKeDataBaseByIskandar

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

    Public Sub menambah()

        cari.AturPencarianDataBase("barang", "kodebarang", kobarlama_36110038.Text, 1, connec)

        If cari.JumlanBaris > 0 Then

            MsgBox("kode barang sudah ada")

            Exit Sub

        End If

        Dim comman As New OleDb.OleDbCommand

        comman = New OleDb.OleDbCommand("insert into barang(kodebarang,namabarang,hargajual,jumlahbarang) values ('" & kobar_36110038.Text & "', '" & Nabar_36110038.Text & "', " & Val(Haju_36110038.Text) & ", " & Val(jml_36110038.Text) & ")", connec)

        connec.Open()

        comman.ExecuteNonQuery()

        connec.Close()

        comman.Dispose()

        kobar_36110038.Text = ""

        Nabar_36110038.Text = ""

        Haju_36110038.Text = ""

        jml_36110038.Text = ""

        Latihan_33A_36110038.widhe()

    End Sub

    Public Sub mengedit()

        If kobarlama_36110038.Text <> kobar_36110038.Text Then

            cari.AturPencarianDataBase("Barang", "KodeBarang", kobar_36110038.Text, 1, connec)

            If cari.JumlanBaris > 0 Then

                MsgBox("kode barang sudah ada")

                Exit Sub

            End If

        End If

        Dim comman As New OleDb.OleDbCommand

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

        connec.Open()

        comman.ExecuteNonQuery()

        connec.Close()

        comman.Dispose()

        Latihan_33A_36110038.widhe()

        If Latihan_33A_36110038.Visible = False Then

            Latihan_33A_36110038.Show()

        Else

            Latihan_33A_36110038.Activate()

        End If

        kobar_36110038.Text = ""

        Nabar_36110038.Text = ""

        Haju_36110038.Text = ""

        jml_36110038.Text = ""

        kobarlama_36110038.Text = ""

    End Sub

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

        If kobar_36110038.Text.Length = 0 Then

            MsgBox("kode barang harus tercantum")

            Exit Sub

        End If

        If Nabar_36110038.Text.Length = 0 Then

            MsgBox("nama barang harus tercantum")

            Exit Sub

        End If

        If Val(Haju_36110038.Text) = 0 Then

            MsgBox("harga jual harus tercantum")

            Exit Sub

        End If

        If val(jml_36110038.Text) = 0 Then

            MsgBox("jumlah barang harus tercantum")

            Exit Sub

        End If

        If kobarlama_36110038.Text = "-" Then

            menambah()

            Exit Sub

        Else

            mengedit()

        End If

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form.