Latihan_34C_36110031

Tahap Penyelesaian Latihan_34C_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_34C  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_34C  dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_34C_36110031

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

    Dim Cari As New ByIskandar.CariKeDataBaseByIskandar

    Private Sub Avif()

        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 = "-" Then

            Tambahan()

            Exit Sub

        End If

    End Sub

    Private Sub Tambahan()

        Avif()

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

        If Cari.JumlanBaris > 0 Then

            MsgBox("Kode barang sudah ada")

            Exit Sub

        End If

        Dim command As New OleDb.OleDbCommand

        command = 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()

        command.ExecuteNonQuery()

        Audry.Close()

        command.Dispose()

        KB_36110031.Text = ""

        Kodebarang_36110031.Text = ""

        Namabarang_36110031.Text = ""

        Hargajual_36110031.Text = ""

        Jumlahbarang_36110031.Text = ""

        Latihan_34B_36110031.Ias()

    End Sub

    Private Sub Edit()

        Avif()

        If KB_36110031.Text <> Kodebarang_36110031.Text Then

            Cari.AturPencarianDataBase("barang", "kodebarang", Kodebarang_36110031.Text, 1, Audry)

            If Cari.JumlanBaris > 0 Then

                MsgBox("Kode barang sudah ada")

                Exit Sub

            End If

        End If

        Dim command As New OleDb.OleDbCommand

        command = New OleDb.OleDbCommand("Update BARANG set KODEBARANG= '" & Kodebarang_36110031.Text & "', NAMABARANG= '" & Namabarang_36110031.Text & "',HARGAJUAL= " & Val(Hargajual_36110031.Text) & ",JUMLAHBARANG= " & Val(Jumlahbarang_36110031.Text) & ")", Audry)

        Audry.Open()

        command.ExecuteNonQuery()

        Audry.Close()

        command.Dispose()

        Latihan_34B_36110031.Ias()

    End Sub

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

        If KB_36110031.Text = "-" Then

            Tambahan()

        Else

            Edit()

        End If

    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_34C_36110031