Latihan 32C 36110051 APKOM 4 Akuntansi PNUP

A.    Object-object dalam Latihan_32C_36110051 :

            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_32A_36110051.

4.      Object StatusStrip

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

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada PROSEDUR dibawah ini..

C.     Even

SIMPAN_36110051_Click
 

PROSEDUR :

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.       Klik menu file dan pilih New Project.

 

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

4.       Klik menu view dan pilih toolbox dan buatlah desain kolom seperti kolom dibawah ini:

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas:

 

Public NotInheritable Class Latihan_32c_36110051

    Dim MELISSA As New ByIskandar.CariKeDataBaseByIskandar

    Dim ACI As New OleDb.OleDbCommand

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

    Private Sub Button136110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button136110051.Click

        If kbl_36110051.Text <> kb_36110051.Text Then

            MELISSA.AturPencarianDataBase("Barang", "KodeBarang", kb_36110051.Text, 1, ISA)

            If MELISSA.JumlanBaris > 0 Then

                MsgBox("kode barang tidak dapat diupdate")

                Exit Sub

            End If

        End If

        If kb_36110051.Text.Length = 0 Then

            MsgBox("kode barang harus tercantum")

            Exit Sub

        ElseIf nb_36110051.Text.Length = 0 Then

            MsgBox("nama barang harus tercantum")

            Exit Sub

        ElseIf hj_36110051.Text.Length = 0 Then

            MsgBox("harga jual harus tercantum")

            Exit Sub

        ElseIf jb_36110051.Text.Length = 0 Then

            MsgBox("jumlah barang harus tercantum")

            Exit Sub

        End If

        Dim ISHA As String = "update barang set kodebarang = '" & kb_36110051.Text & "', namabarang = '" & nb_36110051.Text & "', hargajual = " & Val(hj_36110051.Text) & ", jumlahbarang = " & Val(jb_36110051.Text) & " where kodebarang = '" & kbl_36110051.Text & "'"

        ACI = New OleDb.OleDbCommand(ISHA, ISA)

        ISA.Open()

        ACI.ExecuteNonQuery()

        ISA.Close()

        ACI.Dispose()

        kbl_36110051.Text = "-"

        kb_36110051.Text = ""

        nb_36110051.Text = ""

        hj_36110051.Text = ""

        jb_36110051.Text = ""

    End Sub

   

End Class

6.       Uji program dengan mengklik icon Start Debugging.