LATIHAN_31B_36110052

Latihan_31b _36110052

A.   Object-object dalam Latihan_31b_36110042:

1.      Object Label

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

 2.      Object Textbox

Terdapat empat textbox yang semuanya merupakan status input. 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.

3.      Object Button

Terdapat satu object button (Simpan). Button Simpan 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_31A_36110052.

4.      Object StatusStrip

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

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada langkah-langkah kerja latihan_31b_36110052

C.     Even

SIMPAN_36110052_Click

Langkah-langkah kerja  latihan_31b_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_31b_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public NotInheritable Class LATIHAN_31B_36110052

    Dim VEVE As New ByIskandar.CariKeDataBaseByIskandar

    Dim VIA As New OleDb.OleDbCommand

    Dim VEE As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub SIMPAN_36110052_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_36110052.Click

        If kbl_36110052.Text <> kb_36110052.Text Then

            VEVE.AturPencarianDataBase("Barang", "KodeBarang", kb_36110052.Text, 1, VEE)

            If VEVE.JumlanBaris > 0 Then

                MsgBox("kode barang tidak dapat diupdate")

                Exit Sub

            End If

        End If

        If kb_36110052.Text.Length = 0 Then

            MsgBox("kode barang harus tercantum")

            Exit Sub

        ElseIf nb_36110052.Text.Length = 0 Then

            MsgBox("nama barang harus tercantum")

            Exit Sub

        ElseIf hj_36110052.Text.Length = 0 Then

            MsgBox("harga jual harus tercantum")

            Exit Sub

        ElseIf jb_36110052.Text.Length = 0 Then

            MsgBox("jumlah barang harus tercantum")

            Exit Sub

        End If

        Dim soe As String = "update barang set kodebarang = '" & kb_36110052.Text & "', namabarang = '" & nb_36110052.Text & "', hargajual = " & Val(hj_36110052.Text) & ", jumlahbarang = " & Val(jb_36110052.Text) & " where kodebarang = '" & kbl_36110052.Text & "'"

        VIA = New OleDb.OleDbCommand(soe, VEE)

        VEE.Open()

        VIA.ExecuteNonQuery()

        VEE.Close()

        VIA.Dispose()

        kbl_36110052.Text = "-"

        kb_36110052.Text = ""

        nb_36110052.Text = ""

        hj_36110052.Text = ""

        jb_36110052.Text = ""

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI