Latihan_28B_36110031

Tahap Penyelesaian Latihan_28B_36110031

1.                   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_28B  dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_28B dibawah ini:

 

 5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_28B_36110031

    Dim AAM As New ByIskandar.CariKeDataBaseByIskandar

    Dim AA As New OleDb.OleDbCommand

    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("Isi dulu itu yang kosong")

            Exit Sub

        End If

        If Namabarang_36110031.Text.Length = 0 Then

            MsgBox("Isi dulu itu yang kosong")

            Exit Sub

        End If

        If Val(Hargajual_36110031.Text) = 0 Then

            MsgBox("Isi dulu itu yang kosong")

            Exit Sub

        End If

        If Val(Jumlahbarang_36110031.Text) = 0 Then

            MsgBox("Isi dulue itu yang kosong")

            Exit Sub

        End If

        AAM.AturPencarianDataBase("Barang", "KodeBarang", Kodebarang_36110031.Text, 1, Audry)

        If AAM.JumlanBaris > 0 Then

            MsgBox("Adami kode barang seperti itu")

            Exit Sub

        End If

        AA = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & Kodebarang_36110031.Text & "','" & Namabarang_36110031.Text & "'," & Val(Hargajual_36110031.Text) & "," & Val(Jumlahbarang_36110031.Text) & ")", Audry)

        Audry.Open()

        AA.ExecuteNonQuery()

        Audry.Close()

        AA.Dispose()

        Kodebarang_36110031.Text = ""

        Namabarang_36110031.Text = ""

        Hargajual_36110031.Text = ""

        Jumlahbarang_36110031.Text = ""

    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_28B_36110031

-    Object Label

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

-    Object TextBox

Terdapat empat  yang digunakan untuk menampilkan Kode barang, Nama barang, Harga perunit, Jumlah barang, dari daftar barang yang dipilih pada form Latihan_28A_36110031.

-    Object Button

Terdapat satu object Button yaitu Simpan yang digunakan untuk 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_36110031

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian yang tertera diatas…

Even

Simpan_36110031_Click