Latihan_32C_36110031

Tahap Penyelesaian Latihan_32C_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_32C  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_32C  dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_32C_36110031

    Dim Cari As New ByIskandar.CariKeDataBaseByIskandar

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

    Private Sub Simpan_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36110031.Click

        If Kodebarang_36110031.Text.Length = 0 Then

            MsgBox("Masukkan kode barang")

            Exit Sub

        End If

        If Namabarang_36110031.Text.Length = 0 Then

            MsgBox("Masukkan nama barang")

            Exit Sub

        End If

        If Val(Hargajual_36110031.Text) = 0 Then

            MsgBox("Masukkan harga jual")

            Exit Sub

        End If

        If Val(Jumlahbarang_36110031.Text) = 0 Then

            MsgBox("Masukkan jumlah barang")

            Exit Sub

        End If

        If KB_36110031.Text <> Kodebarang_36110031.Text Then

            Cari.AturPencarianDataBase("Barang", "Kodebarang", Kodebarang_36110031.Text, 1, Audry)

            If Cari.JumlanBaris > 0 Then

                MsgBox("Adami kode barang seperti yang anda maksud")

                Exit Sub

            End If

        End If

        Dim AA As New OleDb.OleDbCommand

        AA = New OleDb.OleDbCommand("update barang set kodebarang  = '" & Kodebarang_36110031.Text & "', Namabarang ='" & Namabarang_36110031.Text & "', Hargajual=" & Val(Hargajual_36110031.Text) & " Jumlahbarang = " & Val(Jumlahbarang_36110031.Text) & "where kodebarang='" & KB_36110031.Text & "'", Audry)

        Audry.Open()

        AA.ExecuteNonQuery()

        Audry.Close()

        AA.Dispose()

        KB_36110031.Text = ""

        Kodebarang_36110031.Text = ""

        Namabarang_36110031.Text = ""

        Hargajual_36110031.Text = ""

        Jumlahbarang_36110031.Text = ""

        Latihan_32A_36110031.Ias()

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Kemudian simpan file tersebut dengan menekan icon “save”

 

8.         Selesai

Deskripsi Latihan_32C_36110031

-    Object Label

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

-    Object TextBox

Terdapat empat object textbox yang merupakan status input, digunakan untuk memasukkan nilai: kode barang, nama barang, harga jual, dan jumlah barang yang akan disimpan ke dalam form BARANG di Ms Access.

.

-    Object Button

Terdapat satu object Button yaitu Simpan yang digunakan untuk menyimpan data barang baru yang telah diinput. Data barang baru ini merupakan data barang yang telah dipilih untuk diedit dari datagridview pada form Latihan_32A_36110031.

-       Object StatusStrip

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

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian Latihan_32C_36110031

Even

Simpan_36110031_Click