Latihan 28B 36110051 APKOM 4 Akuntansi PNUP

A.    Object-object dalam Latihan_28B_36110051 :

            1.      Object Label

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

            2.      Object Button

Terdapat satu object button (Simpan) yang digunakan untuk menyimpan data yang telah diinput pada textbox ke dalam form BARANG di Ms Access, atau bisa juga diliat hasilnya pada datagridview pada form Latihan_28A_36110051.

3.      Object TextBox

Terdapat empat obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_28A_36110051.

 

     

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada prosedur penyelesaian 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_28b_36110051
    Dim isa As New ByIskandar.CariKeDataBaseByIskandar
    Dim aCI As New OleDb.OleDbCommand
    Dim melissa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub simpan_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36110051.Click
        Latihan_28a_36110051.isa()
        isa.AturPencarianDataBase("Barang", "KodeBarang", kb_36110051.Text, 1, melissa)
        If isa.JumlanBaris > 0 Then
            MsgBox("kode barang telah ada")
            kb_36110051.Text = ""
            Exit Sub
        ElseIf 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 issa As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36110051.Text & "','" & nb_36110051.Text & "'," & Val(hj_36110051.Text) & "," & Val(jb_36110051.Text) & ")"
        aCI = New OleDb.OleDbCommand(issa, melissa)
        melissa.Open()
        aCI.ExecuteNonQuery()
        melissa.Close()
        aCI.Dispose()
        kb_36110051.Text = ""
        nb_36110051.Text = ""
        hj_36110051.Text = ""
        jb_36110051.Text = ""

    End Sub

    Private Sub Latihan_28b_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

6.       Uji program dengan mengklik icon Start Debugging.